#! /usr/bin/perl

use warnings;
use strict;

use File::Basename;
use lib dirname(__FILE__);
use bugcfg;
use scanlib;

# Main part

scanlib::readpackages($bugcfg::debian_ftproot, "debian") if defined $bugcfg::debian_ftproot;
scanlib::readsources($bugcfg::debian_ftproot, "debian")  if defined $bugcfg::debian_ftproot;

scanlib::readdebbugssources($bugcfg::debian_sources, "debian") if defined $bugcfg::debian_sources;


scanlib::readpseudopackages();
scanlib::readmaintainers();
scanlib::scanspool();

binmode(STDOUT,':encoding(UTF-8)');

for my $p (keys %scanlib::packagelist) {
	my $section;
	my $package = $p;
	$package =~ s/src://;
	if (exists $scanlib::section{$package}) {
	    $section = $scanlib::section{$package};
	} else {
	    $section = $scanlib::debbugssection{$package};
	}
	print "package\n";
	print $p, "\n";
	print $section, "\n" if defined $section;
	print $scanlib::maintainer{$package}, "\n";
	print "\n";
}

for my $b (keys %scanlib::bugs) {
	print "bug\n";
	for my $key (keys %{$scanlib::bugs{$b}}) {
		print $key, "=", $scanlib::bugs{$b}->{$key}, "\n";
	}
	print "\n";
}

print "end\n";

exit 0;