Fix a few warnings that surfaced once we stopped ignoring all packages

we didn't know about.

diff --git a/bugreport b/bugreport
index f1501c32cbe35135a0c9be6b79a6591bb80eb4d7..e176dfaa7e63062005139e539a2581bb8f274f1f 100755 (executable)
--- a/bugreport
+++ b/bugreport
@@ -42,9 +42,13 @@ sub PrintPackageHeader() {
        if ($html) {
                print "<div class=\"package\"><pre>";
                print "<a name=\"$p\"><strong>Package:</strong></a> " . scanlib::wwwname($p);
        if ($html) {
                print "<div class=\"package\"><pre>";
                print "<a name=\"$p\"><strong>Package:</strong></a> " . scanlib::wwwname($p);

-               print " ($scanlib::section{$p}).\n";
+               if (defined($scanlib::section{$p})) {
+                       print " (unknown).\n";
+               } else {
+                       print " ($scanlib::section{$p}).\n";
+               }

                print "<strong>Maintainer:</strong> ";
                print "<strong>Maintainer:</strong> ";

-               if (defined($scanlib::maintainer{$p})) {
+               if (exists($scanlib::maintainer{$p}) && $scanlib::maintainer{$p} ne '') {

                        if ($scanlib::maintainer{$p} =~ /(.*) <([^>]*)>/) {
                                ($name,$email) = ($1,$2);
                        } elsif ($scanlib::maintainer{$p} =~ /<(.*) \((.*)\)>/) {
                        if ($scanlib::maintainer{$p} =~ /(.*) <([^>]*)>/) {
                                ($name,$email) = ($1,$2);
                        } elsif ($scanlib::maintainer{$p} =~ /<(.*) \((.*)\)>/) {


@@ -52,7 +56,11 @@ sub PrintPackageHeader() {
                        } elsif ($scanlib::maintainer{$p} =~ /<(.*)>/) {
                                $name = $email = $1;
                        }
                        } elsif ($scanlib::maintainer{$p} =~ /<(.*)>/) {
                                $name = $email = $1;
                        }

-                       print "$name &lt;<a href=\"http://bugs.debian.org/$email\">$email</A>&gt;\n";
+                       if (defined($name)) {
+                               print "$name &lt;<a href=\"http://bugs.debian.org/$email\">$email</A>&gt;\n";
+                       } else {
+                               print "$scanlib::maintainer{$p}\n";
+                       }

                } else {
                        print "unknown\n";
                }
                } else {
                        print "unknown\n";
                }