[project @ 2005-04-09 16:21:02 by cjwatson]

[debbugs.git] / cgi / pkgreport.cgi
diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi

index 0d1fc7f72d3c38ec460139dca2b8ad9c31e1f85c..1955c4fd2d4d4b17f54e0e3edc6e40c370880be5 100755 (executable)
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -13,8 +13,8 @@ require '/etc/debbugs/text';
  
  use vars qw($gPackagePages $gWebDomain);
  
-if ($ENV{REQUEST_METHOD} eq 'HEAD') {
-    print "Content-Type: text/html\n\n";
+if (defined $ENV{REQUEST_METHOD} and $ENV{REQUEST_METHOD} eq 'HEAD') {
+    print "Content-Type: text/html; charset=utf-8\n\n";
      exit 0;
  }
  
@@ -234,7 +234,7 @@ if (defined $pkg) {
  
  my $result = htmlizebugs(\@bugs);
  
-print "Content-Type: text/html\n\n";
+print "Content-Type: text/html; charset=utf-8\n\n";
  
  print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n";
  print "<HTML><HEAD>\n" . 
@@ -285,7 +285,7 @@ if (defined $pkg || defined $src) {
         if ($pkg and defined($pseudodesc) and exists($pseudodesc->{$pkg})) {
             push @references, "to the <a href=\"http://${debbugs::gWebDomain}/pseudo-packages${debbugs::gHTMLSuffix}\">list of other pseudo-packages</a>";
         } else {
-           if ($pkg) {
+           if ($pkg and defined $debbugs::gPackagePages) {
                 push @references, sprintf "to the <a href=\"%s\">%s package page</a>", urlsanit("http://${debbugs::gPackagePages}/$pkg"), htmlsanit("$pkg");
             }
             if (defined $debbugs::gSubscriptionDomain) {