bugscan now uses basename
[bugscan.git] / bugscan
1 #! /usr/bin/perl
2
3 use warnings;
4 use strict;
5
6 use File::Basename;
7 use lib dirname(__FILE__);
8 use bugcfg;
9 use scanlib;
10
11 # Main part
12
13 scanlib::readpackages($bugcfg::debian_ftproot, "debian") if defined $bugcfg::debian_ftproot;
14 scanlib::readsources($bugcfg::debian_ftproot, "debian")  if defined $bugcfg::debian_ftproot;
15
16 scanlib::readdebbugssources($bugcfg::debian_sources, "debian") if defined $bugcfg::debian_sources;
17
18
19 scanlib::readpseudopackages();
20 scanlib::readmaintainers();
21 scanlib::scanspool();
22
23 binmode(STDOUT,':encoding(UTF-8)');
24
25 for my $p (keys %scanlib::packagelist) {
26         my $section;
27         my $package = $p;
28         $package =~ s/src://;
29         if (exists $scanlib::section{$package}) {
30             $section = $scanlib::section{$package};
31         } else {
32             $section = $scanlib::debbugssection{$package};
33         }
34         print "package\n";
35         print $p, "\n";
36         print $section, "\n";
37         print $scanlib::maintainer{$package}, "\n";
38         print "\n";
39 }
40
41 for my $b (keys %scanlib::bugs) {
42         print "bug\n";
43         for my $key (keys %{$scanlib::bugs{$b}}) {
44                 print $key, "=", $scanlib::bugs{$b}->{$key}, "\n";
45         }
46         print "\n";
47 }
48
49 print "end\n";
50
51 exit 0;
52