fix lack of oldstable in disttags
[bugscan.git] / 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