8 &readpackages($debian_ftproot, "debian") if defined $debian_ftproot;
9 &readpackages($nonUS_ftproot, "non-US") if defined $nonUS_ftproot;
10 &readsources($debian_ftproot, "debian") if defined $debian_ftproot;
11 &readsources($nonUS_ftproot, "non-US") if defined $nonUS_ftproot;
13 &readdebbugssources($debian_sources, "debian") if defined $debian_sources;
14 &readdebbugssources($nonUS_sources, "non-US") if defined $nonUS_sources;
21 for $p (keys %packagelist) {
23 if (exists $section{$p}) {
24 $section = $section{$p};
26 $section = $debbugssection{$p};
28 print "$p $section $maintainer{$p}";
29 for $b (split(/ /, $packagelist{$p})) {