- print "DEBUG: Considering entry ".join( ':', @data)."<br>" if $debug > 2;
- if ($suites{$data[0]} && ($archs{$data[1]} || $data[1] eq 'all')
- && $sections{$data[2]}) {
- print "DEBUG: Using entry ".join( ':', @data)."<br>" if $debug > 2;
- push @results, [ $keyword, @data ];
+ } else {
+ while (my ($pkg, $result) = each %packages) {
+ #what's faster? I can't really see a difference
+ (index($pkg, $keyword) >= 0) or next;
+ #$pkg =~ /\Q$keyword\E/ or next;
+ foreach (split /\000/, $packages{$pkg}) {
+ my @data = split ( /\s/, $_, 6 );
+ #FIXME, should be done on db generation
+ if ($data[2] =~ m,/,) {
+ $data[2] =~ s,/.*$,,;
+ } else {
+ $data[2] = 'main';
+ }
+ print "DEBUG: Considering entry ".join( ':', @data)."<br>" if $debug > 2;
+ if ($suites{$data[0]} && ($archs{$data[1]} || $data[1] eq 'all')
+ && $sections{$data[2]}) {
+ print "DEBUG: Using entry ".join( ':', @data)."<br>" if $debug > 2;
+ push @results, [ $pkg , @data ];
+ }
+ }