for my $archive (@ARCHIVES) {
print "Reading $archive/$suite...\n";
- if (!-d "$TOPDIR/archive/$archive/$suite/") {
+ my $suite_dir = "$TOPDIR/archive/$archive/$suite";
+ if (!-d $suite_dir) {
print "\tseems not to exist, skipping...\n";
next;
}
- open PKG, "zcat $TOPDIR/archive/$archive/$suite/$what/{,debian-installer/}binary-*/Packages.gz|";
+ open PKG, "zcat $suite_dir/$what/binary-*/Packages.gz $suite_dir/$what/debian-installer/binary-*/Packages.gz|";
while (<PKG>) {
next if /^\s*$/;
my $data = "";
foreach (@complete_tags) {
my ($facet, $tag) = split( /::/, $_, 2);
if ($tag =~ s/^\{(.+)\}$/$1/) {
+ warn "pkg=$data{package} tags=$data{tag}\n" unless $facet && $tag;
foreach (split( /,/, $tag )) {
push @tags, "${facet}::$_";
}
} else {
+ warn "pkg=$data{package} tags=$data{tag}\n" unless $facet && $tag;
push @tags, "${facet}::$tag";
}
}
$d{version} = $versions->{$a} if $multiple_versions;
$d{archive} = $archives->{$a};
- if ( ($suite ne "experimental")
- && ($subsection ne 'debian-installer')) {
+ if ($subsection ne 'debian-installer') {
$d{contents_avail} = 1;
}
push @downloads, \%d;
if ($info{maintainers}) {
my $uploaders = $page->get_src( 'uploaders' );
+ my $orig_uploaders = $page->get_src( 'orig_uploaders' );
if ($uploaders && @$uploaders) {
my @maintainers = map { { name => $_->[0], mail => $_->[1] } } @$uploaders;
$contents->{maintainers} = \@maintainers;
}
+ if ($orig_uploaders && @$orig_uploaders) {
+ my @orig_maintainers = map { { name => $_->[0], mail => $_->[1] } } @$orig_uploaders;
+ $contents->{original_maintainers} = \@orig_maintainers;
+ }
}
-
}
sub providers {