X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=bugscan;h=69b42e31c91c6c3dddf1ac8a7f4013952a3d8e48;hp=c6b077868065e0f20b06d9f54d7437240b803838;hb=c254a0d0c6ce35fab30d43d9e4e7e3015e250013;hpb=d5a0b74a3ddd8ad47fb594e890dfd0f454627655

diff --git a/bugscan b/bugscan
index c6b0778..69b42e3 100755
--- a/bugscan
+++ b/bugscan
@@ -2,34 +2,44 @@
 
 require bugcfg;
 require scanlib;
+use strict;
+# use warnings;
 
 # Main part
 
-&readpackages($debian_ftproot, "debian") if defined $debian_ftproot;
-&readpackages($nonUS_ftproot, "non-US")  if defined $nonUS_ftproot;
-&readsources($debian_ftproot, "debian")  if defined $debian_ftproot;
-&readsources($nonUS_ftproot, "non-US")   if defined $nonUS_ftproot;
+scanlib::readpackages($bugcfg::debian_ftproot, "debian") if defined $bugcfg::debian_ftproot;
+scanlib::readsources($bugcfg::debian_ftproot, "debian")  if defined $bugcfg::debian_ftproot;
 
-&readdebbugssources($debian_sources, "debian") if defined $debian_sources;
-&readdebbugssources($nonUS_sources, "non-US") if defined $nonUS_sources;
+scanlib::readdebbugssources($bugcfg::debian_sources, "debian") if defined $bugcfg::debian_sources;
 
 
-&readpseudopackages;
-&readmaintainers;
-&scanspool;
+scanlib::readpseudopackages();
+scanlib::readmaintainers();
+scanlib::scanspool();
 
-for $p (keys %packagelist) {
+for my $p (keys %scanlib::packagelist) {
 	my $section;
-	if (exists $section{$p}) {
-	    $section = $section{$p};
+	if (exists $scanlib::section{$p}) {
+	    $section = $scanlib::section{$p};
 	} else {
-	    $section = $debbugssection{$p};
+	    $section = $scanlib::debbugssection{$p};
 	}
-	print "$p $section $maintainer{$p}";
-	for $b (split(/ /, $packagelist{$p})) {
-		print "$bugs{$b}\n";
+	print "package\n";
+	print $p, "\n";
+	print $section, "\n";
+	print $scanlib::maintainer{$p}, "\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;