summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xshowattachment.cgi13
1 files changed, 13 insertions, 0 deletions
diff --git a/showattachment.cgi b/showattachment.cgi
index ae81117e5..78143c550 100755
--- 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();