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