X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=bugscan;h=958483ea22ff0624091d974932268392d495299e;hp=5a297737149f3ff80c6f7694515c0b1fe0833650;hb=fb700c4848ebf0b5fefddd67e0d92ef591f48f63;hpb=71e6cb7e3cc7f577df4b8b947b16477252c04dbd

diff --git a/bugscan b/bugscan
index 5a29773..958483e 100755
--- a/bugscan
+++ b/bugscan
@@ -3,17 +3,14 @@
 require bugcfg;
 require scanlib;
 use strict;
-use warnings;
+# use warnings;
 
 # 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,16 +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}";
-	for my $b (split(/ /, $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;