Check that a package is really present in a distribution before putting

[bugscan.git] / bugreport

diff --git a/bugreport b/bugreport
index 63f887412bc5c2e44e0c564ceca1e55e949f77ba..1686ae88e0ab0ab86dc76b5277d32276d381d64c 100755 (executable)
--- a/bugreport
+++ b/bugreport
@@ -12,9 +12,6 @@ use warnings;
 my $Version            = "BugReport 1.4\nCopyright (C) 1998-2002 Wichert Akkerman <wakkerma\@debian.org>\n";
 my $html               = 0;
 my $statusfile         = "status";
 my $Version            = "BugReport 1.4\nCopyright (C) 1998-2002 Wichert Akkerman <wakkerma\@debian.org>\n";
 my $html               = 0;
 my $statusfile         = "status";

-my $NMUfile            = "/debian/home/doogie/public_html/incoming/bugs_closed";
-$NMUfile               = "/debian/home/doogie/chgscan/db/bugs_closed"; # Changed as of request by dark  -Joey, 99/11/22
-$NMUfile               = "http://auric.debian.org/~doogie/incoming/bugs_closed"; # Changed as of request by dark  -Joey, 99/11/22

 
 sub ShowVersion() {
        print "$Version\n";
 
 sub ShowVersion() {
        print "$Version\n";


@@ -111,7 +108,6 @@ sub MakeBuglist() {
                        } else {
                                printf("  %-6d %s\n", $nr, $scanlib::bugs{$nr});
                        }
                        } else {
                                printf("  %-6d %s\n", $nr, $scanlib::bugs{$nr});
                        }

-                       print "[FIX] Fixed by package " . $scanlib::NMU{$nr, "source"} . ", version " . $scanlib::NMU{$nr, "version"} . " in Incoming\n" if (defined $scanlib::NMU{$nr});

                        print "</span>" if ($html && ($scanlib::bugs{$nr} =~ m/^\[[^]]*[H+P]/ ||
                                                      $scanlib::bugs{$nr} =~ m/ \[[^]]*X/));
                }
                        print "</span>" if ($html && ($scanlib::bugs{$nr} =~ m/^\[[^]]*[H+P]/ ||
                                                      $scanlib::bugs{$nr} =~ m/ \[[^]]*X/));
                }


@@ -191,7 +187,6 @@ $statusfile=$opt_S if ($opt_S);
 $html=1 if ($opt_H);
 
 scanlib::readstatus($statusfile);
 $html=1 if ($opt_H);
 
 scanlib::readstatus($statusfile);

-# scanlib::readNMUstatus($NMUfile);

 
 FilterPackages($opt_d) if ($opt_d);
 FilterBugs() if ($opt_t);
 
 FilterPackages($opt_d) if ($opt_d);
 FilterBugs() if ($opt_t);