bugscan

   1 #! /usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use File::Basename;
   7 use lib dirname(__FILE__);
   8 use bugcfg;
   9 use scanlib;
  10
  11 # Main part
  12
  13 scanlib::readpackages($bugcfg::debian_ftproot, "debian") if defined $bugcfg::debian_ftproot;
  14 scanlib::readsources($bugcfg::debian_ftproot, "debian")  if defined $bugcfg::debian_ftproot;
  15
  16 scanlib::readdebbugssources($bugcfg::debian_sources, "debian") if defined $bugcfg::debian_sources;
  17
  18
  19 scanlib::readpseudopackages();
  20 scanlib::readmaintainers();
  21 scanlib::scanspool();
  22
  23 binmode(STDOUT,':encoding(UTF-8)');
  24
  25 for my $p (keys %scanlib::packagelist) {
  26         my $section;
  27         my $package = $p;
  28         $package =~ s/src://;
  29         if (exists $scanlib::section{$package}) {
  30             $section = $scanlib::section{$package};
  31         } else {
  32             $section = $scanlib::debbugssection{$package};
  33         }
  34         print "package\n";
  35         print $p, "\n";
  36         print $section, "\n" if defined $section;
  37         print $scanlib::maintainer{$package}, "\n";
  38         print "\n";
  39 }
  40
  41 for my $b (keys %scanlib::bugs) {
  42         print "bug\n";
  43         for my $key (keys %{$scanlib::bugs{$b}}) {
  44                 print $key, "=", $scanlib::bugs{$b}->{$key}, "\n";
  45         }
  46         print "\n";
  47 }
  48
  49 print "end\n";
  50
  51 exit 0;
  52