- my $result = $packages{$keyword};
- foreach (split /\000/, $result) {
- my @data = split ( /\s/, $_, 6 );
- #FIXME, should be done on db generation
- if ($data[2] =~ m,/,) {
- $data[2] =~ s,/.*$,,;
+ if ($exact) {
+ &$read_entry( \%packages, $keyword, \@results );
+ } else {
+ my ($key, $prefixes) = ($keyword, '');
+ my %pkgs;
+ my $p_obj = tie my %pref, 'DB_File', "$DBDIR/$postfix_file", O_RDONLY, 0666, $DB_BTREE
+ or die "couldn't tie postfix db $DBDIR/$postfix_file: $!";
+ $p_obj->seq( $key, $prefixes, R_CURSOR );
+ while (index($key, $keyword) >= 0) {
+ if ($prefixes =~ /^\001(\d+)/o) {
+ $too_much_hits += $1;
+ } else {
+ foreach (split /\000/o, $prefixes) {
+ $_ = '' if $_ eq '^';
+ print "DEBUG: add word $_$key<br>" if $debug > 2;
+ $pkgs{$_.$key}++;
+ }
+ }
+ last if $p_obj->seq( $key, $prefixes, R_NEXT ) != 0;
+ last if $too_much_hits;
+ last if keys %pkgs < 100;
+ }
+
+ my $no_results = keys %pkgs;
+ if ($too_much_hits || ($no_results >= 100)) {
+ $too_much_hits += $no_results;
+ %pkgs = ( $keyword => 1 );
+ }
+ foreach my $pkg (sort keys %pkgs) {
+ &$read_entry( \%packages, $pkg, \@results );
+ }
+ }
+}
+
+if ($searchon eq 'names') {
+ do_names_search( $keyword, 'packages_small.db',
+ 'package_postfixes.db', \&read_entry );
+} elsif ($searchon eq 'sourcenames') {
+ do_names_search( $keyword, 'sources_small.db',
+ 'source_postfixes.db', \&read_src_entry );
+} else {
+
+ my @lines;
+ my $regex;
+ if ($case_bool) {
+ if ($exact) {
+ $regex = qr/\b\Q$keyword\E\b/o;