[project @ 2003-09-21 21:30:40 by cjwatson]

Reduce noise when running from the command line without all the CGI
environment variables set.

diff --git a/cgi/common.pl b/cgi/common.pl
index 4ab1cc423ed0666d0abfa5c6bf5f51dfd9e87f29..63f0db0f8c1779d4cd69ba6feb3a433634718e77 100644 (file)
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -46,6 +46,7 @@ sub contains_field_match {
 
 sub detect_user_agent {
     my $userAgent = $ENV{HTTP_USER_AGENT};
+    return { 'name' => 'unknown' } unless defined $userAgent;
     return { 'name' => 'links' } if ( $userAgent =~ m,^ELinks,);
     return { 'name' => 'lynx' } if ( $userAgent =~ m,^Lynx,);
     return { 'name' => 'wget' } if ( $userAgent =~ m,^Wget,);
@@ -53,6 +54,7 @@ sub detect_user_agent {
     return { 'name' => 'ie' } if ( $userAgent =~ m,^.*MSIE.*,);
     return { 'name' => 'unknown' };
 }
+
 my %field_match = (
     'subject' => \&contains_field_match,
     'tags' => sub {

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 0d1fc7f72d3c38ec460139dca2b8ad9c31e1f85c..6eaa700498124fecf584f1cfb29fbbada03b8dfc 100755 (executable)
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -13,7 +13,7 @@ require '/etc/debbugs/text';
 
 use vars qw($gPackagePages $gWebDomain);
 
-if ($ENV{REQUEST_METHOD} eq 'HEAD') {
+if (defined $ENV{REQUEST_METHOD} and $ENV{REQUEST_METHOD} eq 'HEAD') {
     print "Content-Type: text/html\n\n";
     exit 0;
 }