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::readsources($bugcfg::debian_ftproot, "debian")  if defined $bugcfg::debian_ftproot;
  12
  13 scanlib::readdebbugssources($bugcfg::debian_sources, "debian") if defined $bugcfg::debian_sources;
  14
  15
  16 scanlib::readpseudopackages();
  17 scanlib::readmaintainers();
  18 scanlib::scanspool();
  19
  20 binmode(STDOUT,':encoding(UTF-8)');
  21
  22 for my $p (keys %scanlib::packagelist) {
  23         my $section;
  24         my $package = $p;
  25         $package =~ s/src://;
  26         if (exists $scanlib::section{$package}) {
  27             $section = $scanlib::section{$package};
  28         } else {
  29             $section = $scanlib::debbugssection{$package};
  30         }
  31         print "package\n";
  32         print $p, "\n";
  33         print $section, "\n";
  34         print $scanlib::maintainer{$package}, "\n";
  35         print "\n";
  36 }
  37
  38 for my $b (keys %scanlib::bugs) {
  39         print "bug\n";
  40         for my $key (keys %{$scanlib::bugs{$b}}) {
  41                 print $key, "=", $scanlib::bugs{$b}->{$key}, "\n";
  42         }
  43         print "\n";
  44 }
  45
  46 print "end\n";
  47
  48 exit 0;
  49