Bug 98080 ask for an attachment number when no params are given

r=dkl r=justdave

diff --git a/showattachment.cgi b/showattachment.cgi
index ae81117e51bfca1fec101bfcf56e3c992022a132..78143c5507621c5c7a41fad3762ddce5d7f305d1 100755 (executable)
--- a/showattachment.cgi
+++ b/showattachment.cgi
@@ -26,6 +26,19 @@ use strict;
 
 require "CGI.pl";
 
+if (!defined $::FORM{'attach_id'}) {
+    print "Content-type: text/html\n";
+    print "\n";
+    PutHeader("Search by attachment number");  
+    print "<FORM METHOD=GET ACTION=\"showattachment.cgi\">\n";
+    print "You may view a single attachment by entering its id here: \n";
+    print "<INPUT NAME=attach_id>\n";   
+    print "<INPUT TYPE=\"submit\" VALUE=\"Show Me This Attachment\">\n";
+    print "</FORM>\n";
+    PutFooter();
+    exit;
+}
+
 ConnectToDatabase();
 
 quietly_check_login();