- opendir(DIR,'db') || next;
- @list= grep(m/^\d+\.status$/,readdir(DIR));
- closedir DIR;
- grep(s/\.status$//,@list);
- @list= sort { $a <=> $b } @list;
-
- #process each bug (ie, status file)
- while ( defined( $list[0] ))
- { my $ref = shift @list;
- print STDERR "$ref considering\n" if $debug;
- readreport($ref, $path);
- printf IDXFILE "%s %d %s\n", $s_package, $ref, $s_subject;
- }
+ my $path = sprintf( "$archive/%.2d", $subdir );
+ opendir(DIR,$path) || next;
+ my @list= grep(m/^\d+\.summary$/,readdir(DIR));
+ closedir DIR;
+ grep(s/\.summary$//,@list);
+ push @files, @list;