7 use lib dirname(__FILE__);
13 scanlib::readpackages($bugcfg::debian_ftproot, "debian") if defined $bugcfg::debian_ftproot;
14 scanlib::readsources($bugcfg::debian_ftproot, "debian") if defined $bugcfg::debian_ftproot;
16 scanlib::readdebbugssources($bugcfg::debian_sources, "debian") if defined $bugcfg::debian_sources;
19 scanlib::readpseudopackages();
20 scanlib::readmaintainers();
23 binmode(STDOUT,':encoding(UTF-8)');
25 for my $p (keys %scanlib::packagelist) {
29 if (exists $scanlib::section{$package}) {
30 $section = $scanlib::section{$package};
32 $section = $scanlib::debbugssection{$package};
37 print $scanlib::maintainer{$package}, "\n";
41 for my $b (keys %scanlib::bugs) {
43 for my $key (keys %{$scanlib::bugs{$b}}) {
44 print $key, "=", $scanlib::bugs{$b}->{$key}, "\n";