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