X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=cgi-bin%2Fshow_filelist.pl;h=1dab20e470d46d5bf425fc51f1044aa0fb6f3bd2;hb=662cd6519b885259853ce059627b13b89f4c6d59;hp=120312a8f55ddd78e0a34be31fd6fdb86ae292c1;hpb=9494a133fe92354405caf9cb25a7029bd4af1ec2;p=deb%2Fpackages.git

diff --git a/cgi-bin/show_filelist.pl b/cgi-bin/show_filelist.pl
index 120312a..1dab20e 100755
--- a/cgi-bin/show_filelist.pl
+++ b/cgi-bin/show_filelist.pl
@@ -80,7 +80,8 @@ if ($params{errors}{arch}) {
     $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,
@@ -95,10 +96,12 @@ print_debug();
 print_notes();
 
 unless (@Packages::CGI::fatal_errors) {
-    tie my %contents, 'DB_File', "$DBDIR/packages_contents.db",
+    tie my %contents, 'DB_File', "$DBDIR/packages_contents_${suite}_${arch}.db",
 	O_RDONLY, 0666, $DB_BTREE
-	or die "couldn't tie DB $DBDIR/packages_contents.db: $!";
+	or die "couldn't tie DB $DBDIR/packages_contents_${suite}_${arch}.db: $!";
 
+    my $cont = $contents{$pkg};
+    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>";