Move the counts around a bit.
[bugscan.git] / bugscan
1 #! /usr/bin/perl
2
3 require bugcfg;
4 require scanlib;
5 use strict;
6 # use warnings;
7
8 # Main part
9
10 scanlib::readpackages($bugcfg::debian_ftproot, "debian") if defined $bugcfg::debian_ftproot;
11 scanlib::readsources($bugcfg::debian_ftproot, "debian")  if defined $bugcfg::debian_ftproot;
12
13 scanlib::readdebbugssources($bugcfg::debian_sources, "debian") if defined $bugcfg::debian_sources;
14
15
16 scanlib::readpseudopackages();
17 scanlib::readmaintainers();
18 scanlib::scanspool();
19
20 for my $p (keys %scanlib::packagelist) {
21         my $section;
22         if (exists $scanlib::section{$p}) {
23             $section = $scanlib::section{$p};
24         } else {
25             $section = $scanlib::debbugssection{$p};
26         }
27         print "$p $section $scanlib::maintainer{$p}\n";
28         for my $b (@{$scanlib::packagelist{$p}}) {
29                 print "$scanlib::bugs{$b}\n";
30         }
31         print "\n";
32 }
33
34 exit 0;
35