Add non-free-firmware to the valid sections

[bugscan.git] / bugscan

diff --git a/bugscan b/bugscan
index 2bc7b4dbf141c351be0a5b76acb914ddd68be4ba..555eb4c6ef6232d3c542ecbe12e45b648e408940 100755 (executable)
--- a/bugscan
+++ b/bugscan
@@ -1,9 +1,12 @@
 #! /usr/bin/perl
 
 #! /usr/bin/perl
 

-require bugcfg;
-require scanlib;
+use warnings;

 use strict;
 use strict;

-# use warnings;
+
+use File::Basename;
+use lib dirname(__FILE__);
+use bugcfg;
+use scanlib;

 
 # Main part
 
 
 # Main part
 


@@ -17,19 +20,33 @@ scanlib::readpseudopackages();
 scanlib::readmaintainers();
 scanlib::scanspool();
 
 scanlib::readmaintainers();
 scanlib::scanspool();
 

+binmode(STDOUT,':encoding(UTF-8)');
+

 for my $p (keys %scanlib::packagelist) {
        my $section;
 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 {
        } 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" if defined $section;
+       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 "\n";
 }
 

+print "end\n";
+

 exit 0;
 
 exit 0;