6 use Debbugs::Config qw(:config);
8 my $index_db = IO::File->new("$config{spool}/index.db",'r') or
9 die "Unable to open $config{spool}/index.db for reading: $!";
13 for my $severity (@{$config{severity_list}}) {
14 my $temp_fh = IO::File->new("$config{spool}/index-${severity}.db",'w') or
15 die "Unable to open $config{spool}/index-${severity}.db for writing: $!";
16 $severity_fh{$severity} = $temp_fh;
21 next unless m/^(\S+)\s+(\d+)\s+(\d+)\s+(\S+)\s+\[\s*([^]]*)\s*\]\s+(\w+)\s+(.*)$/;
22 my ($pkg,$bug,$time,$status,$submitter,$severity,$tags) = ($1,$2,$3,$4,$5,$6,$7);
23 print {$severity_fh{$severity}} $line if exists $severity_fh{$severity};
26 for my $severity (@{$config{severity_list}}) {
27 close $severity_fh{$severity};
28 system('gzip','-f',"$config{spool}/index-${severity}.db") == 0 or
29 die "Failure while compressing $config{spool}/index-${severity}.db";