From f22124f7d4071facbaa9ed54cfd64b8cce4bd0f5 Mon Sep 17 00:00:00 2001
From: Jeroen van Wolffelaar <jeroen@wolffelaar.nl>
Date: Wed, 8 Feb 2006 20:17:43 +0000
Subject: [PATCH] Show filelist from suite/arch specific db

---
 cgi-bin/show_filelist.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/cgi-bin/show_filelist.pl b/cgi-bin/show_filelist.pl
index 120312a..fd75a04 100755
--- a/cgi-bin/show_filelist.pl
+++ b/cgi-bin/show_filelist.pl
@@ -95,10 +95,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>";
-- 
2.39.2