X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FDoSearchContents.pm;h=b86f2390fb7f172bdbd2e04872d0ff703c8a276d;hb=35b8995bea7a744e1b6e764de7b653469018ba3b;hp=cbca011230b39c8e18763d1989d3032f3d4da904;hpb=dc7ba128afd5ada5a46fcab7dfb6d8d9689152d1;p=deb%2Fpackages.git diff --git a/lib/Packages/DoSearchContents.pm b/lib/Packages/DoSearchContents.pm index cbca011..b86f239 100644 --- a/lib/Packages/DoSearchContents.pm +++ b/lib/Packages/DoSearchContents.pm @@ -30,6 +30,13 @@ sub do_search_contents { if ($params->{errors}{suite}) { fatal_error( _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} = [ 'stable' ]; + } + if (@{$opts->{suite}} > 1) { fatal_error( sprintf( _g( "more than one suite specified for contents search (%s)" ), "@{$opts->{suite}}" ) ); } @@ -52,9 +59,9 @@ sub do_search_contents { # for output my $keyword_enc = encode_entities $keyword || ''; my $searchon_enc = encode_entities $searchon; - my $suites_enc = encode_entities( join( ', ', @{$params->{values}{suite}{no_replace}} ) ); - my $sections_enc = encode_entities( join( ', ', @{$params->{values}{section}{no_replace}} ) ); - my $archs_enc = encode_entities( join( ', ', @{$params->{values}{arch}{no_replace}} ) ); + my $suites_enc = encode_entities( join( ', ', @{$params->{values}{suite}{no_replace}} ), '&<>"' ); + my $sections_enc = encode_entities( join( ', ', @{$params->{values}{section}{no_replace}} ), '&<>"' ); + my $archs_enc = encode_entities( join( ', ', @{$params->{values}{arch}{no_replace}} ), '&<>"' ); my $st0 = new Benchmark; my (@results); @@ -99,18 +106,25 @@ sub do_search_contents { my $st1 = new Benchmark; my $std = timediff($st1, $st0); - debug( "Search took ".timestr($std) ); + debug( "Search took ".timestr($std) ) if DEBUG; } - my $suite_wording = $suites_enc eq "all" ? "all suites" - : "suite(s) $suites_enc"; - my $section_wording = $sections_enc eq 'all' ? "all sections" - : "section(s) $sections_enc"; - my $arch_wording = $archs_enc eq 'any' ? "all architectures" - : "architecture(s) $archs_enc"; - my $wording = $opts->{exact} ? "exact filenames" : "filenames that contain"; - $wording = "paths that end with" if $searchon eq "contents"; - msg( "You have searched for ${wording} $keyword_enc in $suite_wording, $section_wording, and $arch_wording." ); + my $suite_wording = sprintf(_g("suite %s"), $suites_enc ); + my $section_wording = $sections_enc eq 'all' ? _g("all sections") + : sprintf(_g("section(s) %s"), $sections_enc ); + my $arch_wording = $archs_enc eq 'any' ? _g("all architectures") + : sprintf(_g("architecture(s) %s"), $archs_enc ); + my $wording = _g("filenames that contain"); + if ($searchon eq 'contents') { + if ($opts->{exact}) { + $wording = _g("files named"); + } else { + $wording = _g("paths that end with"); + } + } + msg( sprintf( _g("You have searched for %s %s in %s, %s, and %s." ), + $wording, $keyword_enc, + $suite_wording, $section_wording, $arch_wording ) ); if ($Packages::Search::too_many_hits) { error( _g( "Your search was too wide so we will only display only the first about 100 matches. Please consider using a longer keyword or more keywords." ) ); @@ -138,20 +152,45 @@ sub do_search_contents { $$page_content = ''; if (@results) { - $$page_content .= "
".sprintf( _g( 'Found %s results' ), - scalar @results )."
"; - $$page_content .= ''._g('File').' | '._g('Packages') - .' | ||||||
---|---|---|---|---|---|---|---|
/$file | ";
my %pkgs;
foreach (@$result) {
my ($pkg, $arch) = split /:/, $_;
+ next unless $opts->{h_archs}{$arch};
$pkgs{$pkg}{$arch}++;
+ $archs{$arch}++ unless $arch eq 'all';
+ }
+ next unless keys %pkgs;
+ $results{$file} = \%pkgs;
+ }
+ my @all_archs = keys %archs;
+ debug( "all_archs = @all_archs", 1 ) if DEBUG;
+
+ $$page_content .= " ".sprintf( _g( 'Found %s results' ), + scalar @results )." "; + $$page_content .= '
|