More nvi cleaning.
[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::readpackages($bugcfg::nonUS_ftproot, "non-US")  if defined $bugcfg::nonUS_ftproot;
12 scanlib::readsources($bugcfg::debian_ftproot, "debian")  if defined $bugcfg::debian_ftproot;
13 scanlib::readsources($bugcfg::nonUS_ftproot, "non-US")   if defined $bugcfg::nonUS_ftproot;
14
15 scanlib::readdebbugssources($bugcfg::debian_sources, "debian") if defined $bugcfg::debian_sources;
16 scanlib::readdebbugssources($bugcfg::nonUS_sources, "non-US") if defined $bugcfg::nonUS_sources;
17
18
19 scanlib::readpseudopackages();
20 scanlib::readmaintainers();
21 scanlib::scanspool();
22
23 for my $p (keys %scanlib::packagelist) {
24         my $section;
25         if (exists $scanlib::section{$p}) {
26             $section = $scanlib::section{$p};
27         } else {
28             $section = $scanlib::debbugssection{$p};
29         }
30         print "$p $section $scanlib::maintainer{$p}\n";
31         for my $b (@{$scanlib::packagelist{$p}}) {
32                 print "$scanlib::bugs{$b}\n";
33         }
34         print "\n";
35 }
36
37 exit 0;
38