$arch = '';
}
-my $st0 = new Benchmark;
+print $input->header( -charset => 'utf-8' );
+
print Packages::HTML::header( title => "Filelist of package $pkg in $suite of arch $arch",
lang => 'en',
#desc => $short_desc,
print_notes();
unless (@Packages::CGI::fatal_errors) {
- tie my %contents, 'DB_File', "$DBDIR/packages_contents.db",
+ tie my %contents, 'DB_File', "$DBDIR/contents/filelists_${suite}_${arch}.db",
O_RDONLY, 0666, $DB_BTREE
- or die "couldn't tie DB $DBDIR/packages_contents.db: $!";
+ or die "Invalid suite/arch combination";
+ print "No such package in this suite on this arch" if not exists $contents{$pkg};
my @files = unpack "L/(CC/a)", $contents{$pkg};
my $file = "";
print "<pre>";