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