X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=bugscan;h=e9478f01326375553a9e292ede4119b3aff5d8f4;hp=2bc7b4dbf141c351be0a5b76acb914ddd68be4ba;hb=refs%2Fheads%2Fscanlib_fixup;hpb=38875d2808a5c6ee95917d56f4c5d6b992e0be24

diff --git a/bugscan b/bugscan
index 2bc7b4d..e9478f0 100755
--- a/bugscan
+++ b/bugscan
@@ -1,9 +1,12 @@
 #! /usr/bin/perl
 
-require bugcfg;
-require scanlib;
+use warnings;
 use strict;
-# use warnings;
+
+use File::Basename;
+use lib dirname(__FILE__);
+use bugcfg;
+use scanlib;
 
 # Main part
 
@@ -17,19 +20,33 @@ scanlib::readpseudopackages();
 scanlib::readmaintainers();
 scanlib::scanspool();
 
+binmode(STDOUT,':encoding(UTF-8)');
+
 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;