[project @ 2002-11-21 16:19:30 by cjwatson]

Exit straight away if the HTTP method is HEAD. (master was doing lots of
pointless work because somebody was issuing HTTP HEADs on every link on the
index of bugs by submitter ...)

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index 148b0002d3e605a13a3689349624ffccf3ea4045..3d90f7760f67e7722b6e9475025e0222123611ed 100755 (executable)
--- a/cgi/bugreport.cgi
+++ b/cgi/bugreport.cgi
@@ -16,6 +16,11 @@ require '/etc/debbugs/text';
 
 use vars(qw($gEmailDomain $gHTMLTail $gSpoolDir));
 
+if ($ENV{REQUEST_METHOD} eq 'HEAD') {
+    print "Content-Type: text/html\n\n";
+    exit 0;
+}
+
 my %param = readparse();
 
 my $tail_html;

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index a8f22883bded7df2b773f11077b5ef0562a12cf0..ddae7cd57d2cfda91c50c32c447021724820cd66 100755 (executable)
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -13,6 +13,11 @@ require '/etc/debbugs/text';
 
 use vars qw($gPackagePages $gWebDomain);
 
+if ($ENV{REQUEST_METHOD} eq 'HEAD') {
+    print "Content-Type: text/html\n\n";
+    exit 0;
+}
+
 nice(5);
 
 my %param = readparse();