X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=cgi-bin%2Fshow_package.pl;h=bf84db04daae50da1a88e4cf018ec51165069fe4;hb=4b7eb61d370a284dbfdf1de607c28b8c65a4bbde;hp=eba1b58b16f7c38341067e9394b828cb75694d1f;hpb=b0f1370be4b8943f243f2f1399a8d13efebca1a5;p=deb%2Fpackages.git

diff --git a/cgi-bin/show_package.pl b/cgi-bin/show_package.pl
index eba1b58..bf84db0 100755
--- a/cgi-bin/show_package.pl
+++ b/cgi-bin/show_package.pl
@@ -121,13 +121,37 @@ my $obj2 = tie my %packages_all, 'DB_File', "$DBDIR/packages_all_$suite.db", O_R
 my %allsuites = ();
 my @results = ();
 
+
 &read_entry( $package, \@results, \%allsuites );
+
+if (keys %allsuites == 0) {
+    print "No such package";
+    print "{insert link to search page with substring search}";
+    exit;
+}
+
+# sort is gross -- only fails for experimental though
+for (sort keys %allsuites) {
+    if ($suite eq $_) {
+	print "<strong>$_</strong> | ";
+    } else {
+	print "<a href=\"../$_/".uri_escape($package)."\">$_</a> | ";
+    }
+}
+print "<br>";
+if (not exists $allsuites{$suite}) {
+    print "Package not available in this suite";
+    exit;
+}
+
 for my $entry (@results) {
     print join ":", @$entry;
     print "<br>\n";
+    my ($foo, $arch, $section, $subsection,
+	$priority, $version) = @$entry;
+    print "<pre>".$packages_all{"$package $arch $version"}."</pre>";
 }
 
-print "Available in ".(join ', ', keys %allsuites)."\n";
 
 &printfooter;