X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FDoSearchContents.pm;h=96e1836ce1a7fa2263188ddca341ab3801a795e3;hb=ce10f2fe75bc7b12f7230aee1a09437377ec5680;hp=debbbb2a93e28539aef61f66556ae17871080c85;hpb=e2881c2279414d845cb0b21b5e2661924194cb77;p=deb%2Fpackages.git

diff --git a/lib/Packages/DoSearchContents.pm b/lib/Packages/DoSearchContents.pm
index debbbb2..96e1836 100644
--- a/lib/Packages/DoSearchContents.pm
+++ b/lib/Packages/DoSearchContents.pm
@@ -5,8 +5,6 @@ use warnings;
 
 use Benchmark ':hireswallclock';
 use DB_File;
-use URI::Escape;
-use HTML::Entities;
 use Exporter;
 our @ISA = qw( Exporter );
 our @EXPORT = qw( do_search_contents );
@@ -20,25 +18,27 @@ use Packages::Config qw( $DBDIR @SUITES @ARCHIVES @ARCHITECTURES $ROOT );
 
 sub do_search_contents {
     my ($params, $opts, $page_content) = @_;
+    my $cat = $opts->{cat};
 
     if ($params->{errors}{keywords}) {
-	fatal_error( _g( "keyword not valid or missing" ) );
+	fatal_error( $cat->g( "keyword not valid or missing" ) );
 	$opts->{keywords} = [];
     } elsif (grep { length($_) < 2 } @{$opts->{keywords}}) {
-	fatal_error( _g( "keyword too short (keywords need to have at least two characters)" ) );
+	fatal_error( $cat->g( "keyword too short (keywords need to have at least two characters)" ) );
     }
     if ($params->{errors}{suite}) {
-	fatal_error( _g( "suite not valid or not specified" ) );
+	fatal_error( $cat->g( "suite not valid or not specified" ) );
     }
 
     #FIXME: that's extremely hacky atm
     if ($params->{values}{suite}{no_replace}[0] eq 'default') {
 	$params->{values}{suite}{no_replace} =
-	    $params->{values}{suite}{final} = $opts->{suite} = [ 'etch' ];
+	    $params->{values}{suite}{final} = $opts->{suite} = [ 'karmic' ];
     }
 
     if (@{$opts->{suite}} > 1) {
-	fatal_error( sprintf( _g( "more than one suite specified for contents search (%s)" ), "@{$opts->{suite}}" ) );
+	fatal_error( $cat->g( "more than one suite specified for contents search (%s)",
+			      "@{$opts->{suite}}" ) );
     }
 
     my @keywords = @{$opts->{keywords}};
@@ -58,6 +58,10 @@ sub do_search_contents {
 	# full filename search is tricky
 	my $ffn = $mode eq 'filename';
 
+	unless (-e "$DBDIR/contents/reverse_$suite.db") {
+	    fatal_error($cat->g("No contents information available for this suite"));
+	    return;
+	}
 	my $reverses = tie my %reverses, 'DB_File', "$DBDIR/contents/reverse_$suite.db",
 	    O_RDONLY, 0666, $DB_BTREE
 	    or die "Failed opening reverse DB: $!";
@@ -79,7 +83,7 @@ sub do_search_contents {
 	    close FILENAMES or warn "fgrep error: $!\n";
 	} else {
 
-	    error(_g("The search mode you selected doesn't support more than one keyword."))
+	    error($cat->g("The search mode you selected doesn't support more than one keyword."))
 		if @keywords;
 
 	    my $kw = reverse $first_kw;
@@ -104,7 +108,7 @@ sub do_search_contents {
 	my $file = shift @$result;
 	my %pkgs;
 	foreach (@$result) {
-	    my ($pkg, $arch) = split /:/, $_;
+	    my ($pkg, $arch) = split m/:/, $_;
 	    next unless $opts->{h_archs}{$arch};
 	    $pkgs{$pkg}{$arch}++;
 	    $archs{$arch}++ unless $arch eq 'all';
@@ -117,7 +121,7 @@ sub do_search_contents {
     $page_content->{suite} = $suite;
     $page_content->{archive} = $archive;
     $page_content->{all_architectures} = \@all_archs;
-    $page_content->{all_suites} = \@SUITES;
+    $page_content->{all_suites} = [ grep { $_ !~ /-(updates|backports)$/ } @SUITES ];
     $page_content->{mode} = $mode;
     $page_content->{search_architectures} = $opts->{arch};
     $page_content->{search_keywords} = $opts->{keywords};