check the status of the wheezy-ignore tag, not squeeze-ignore for unstable

[bugscan.git] / bugscan

diff --git a/bugscan b/bugscan
index 7b76b6e93c6e62da9485981c053e999d2c9f99ed..958483ea22ff0624091d974932268392d495299e 100755 (executable)
--- a/bugscan
+++ b/bugscan
@@ -8,12 +8,9 @@ use strict;
 # Main part
 
 scanlib::readpackages($bugcfg::debian_ftproot, "debian") if defined $bugcfg::debian_ftproot;
-scanlib::readpackages($bugcfg::nonUS_ftproot, "non-US")  if defined $bugcfg::nonUS_ftproot;
 scanlib::readsources($bugcfg::debian_ftproot, "debian")  if defined $bugcfg::debian_ftproot;
-scanlib::readsources($bugcfg::nonUS_ftproot, "non-US")   if defined $bugcfg::nonUS_ftproot;
 
 scanlib::readdebbugssources($bugcfg::debian_sources, "debian") if defined $bugcfg::debian_sources;
-scanlib::readdebbugssources($bugcfg::nonUS_sources, "non-US") if defined $bugcfg::nonUS_sources;
 
 
 scanlib::readpseudopackages();
@@ -22,17 +19,29 @@ scanlib::scanspool();
 
 for my $p (keys %scanlib::packagelist) {
        my $section;
-       if (exists $scanlib::section{$p}) {
-           $section = $scanlib::section{$p};
+       my $package = $p;
+       $package =~ s/src://;
+       if (exists $scanlib::section{$package}) {
+           $section = $scanlib::section{$package};
        } else {
-           $section = $scanlib::debbugssection{$p};
+           $section = $scanlib::debbugssection{$package};
        }
-       print "$p $section $scanlib::maintainer{$p}\n";
-       for my $b (@{$scanlib::packagelist{$p}}) {
-               print "$scanlib::bugs{$b}\n";
+       print "package\n";
+       print $p, "\n";
+       print $section, "\n";
+       print $scanlib::maintainer{$package}, "\n";
+       print "\n";
+}
+
+for my $b (keys %scanlib::bugs) {
+       print "bug\n";
+       for my $key (keys %{$scanlib::bugs{$b}}) {
+               print $key, "=", $scanlib::bugs{$b}->{$key}, "\n";
        }
        print "\n";
 }
 
+print "end\n";
+
 exit 0;