Don't put the filename in the content-type field; it's apparently not legal MIME...

diff --git a/showattachment.cgi b/showattachment.cgi
index 147ce8fef6b244e8603e441ccb6ada8f4763b7e2..d80691f73f5c399a56079695997023d31fd555eb 100755 (executable)
--- a/showattachment.cgi
+++ b/showattachment.cgi
@@ -18,7 +18,6 @@
 # Netscape Communications Corporation. All Rights Reserved.
 # 
 # Contributor(s): Terry Weissman <terry@mozilla.org>
-#                 David Gardiner <david.gardiner@unisa.edu.au>
 
 use diagnostics;
 use strict;
@@ -29,7 +28,7 @@ ConnectToDatabase();
 
 my @row;
 if (defined $::FORM{'attach_id'}) {
-    SendSQL("select mimetype, filename, thedata from attachments where attach_id = $::FORM{'attach_id'}");
+    SendSQL("select mimetype, thedata from attachments where attach_id = $::FORM{'attach_id'}");
     @row = FetchSQLData();
 }
 if (!@row) {
@@ -38,6 +37,6 @@ if (!@row) {
     print "Please hit back and try again.\n";
     exit;
 }
-print qq{Content-type: $row[0]; name="$row[1]"; \n\n$row[2]};
+print qq{Content-type: $row[0]"; \n\n$row[1]};