use File::stat;
use List::Util qw(min);
+use Debbugs::Common qw(make_list);
+
=head1 NAME
gen-indices - Generates index files for the cgi scripts
use Debbugs::Config qw(:config);
use Debbugs::Common qw(getparsedaddrs getbugcomponent lockpid);
-use Debbugs::Status qw(readbug);
+use Debbugs::Status qw(readbug split_status_fields);
use Debbugs::Log;
chdir($config{spool_dir}) or die "chdir $config{spool_dir} failed: $!";
}
# NB: The reverse index is special; it's used to clean up during updates to bugs
-my @indexes = ('package', 'tag', 'severity','owner','submitter-email','status','correspondent','reverse');
+my @indexes = ('package', 'tag', 'severity','owner','submitter-email','status','correspondent','affects','reverse');
my $indexes;
my %slow_index = ();
my %fast_index = ();
next;
}
next if $stat->mtime < $time;
- my $fdata = readbug($bug, $initialdir);
+ my $fdata = split_status_fields(readbug($bug, $initialdir));
$modification_made = 1;
- addbugtoindex("package", $bug, split /[\s,]+/, $fdata->{"package"});
- addbugtoindex("tag", $bug, split /[\s,]+/, $fdata->{"keywords"});
+ addbugtoindex("package", $bug, make_list($fdata->{package}));
+ addbugtoindex("tag", $bug, make_list($fdata->{keywords}));
+ addbugtoindex("affects", $bug, make_list($fdata->{"affects"}));
addbugtoindex('submitter-email', $bug,
map {lc($_->address)} getparsedaddrs($fdata->{originator}));
addbugtoindex("severity", $bug, $fdata->{"severity"});