#!/usr/bin/perl -w
-# $Id: rebuild.in,v 1.6 2003/05/03 20:01:20 doogie Exp $
+# $Id: rebuild.in,v 1.13 2003/08/23 15:12:57 cjwatson Exp $
-# Load modules and set envirnment
+# Load modules and set environment
use File::Copy;
$config_path = '/etc/debbugs';
$lib_path = '/usr/lib/debbugs';
require("$config_path/config");
require("$lib_path/errorlib");
+use vars qw($gSpoolDir);
+
$ENV{'PATH'} = $lib_path.':'.$ENV{'PATH'};
chdir("$gSpoolDir") || die "chdir spool: $!\n";
-my $data;
-
-sub readreport {
- my $lref = shift;
- my $path = shift;
-
- $data = readbug($lref);
- return 1;
-}
#global variables
$debug = 0;
-defined($startdate= time) || &quit("failed to get time: $!");
-
-@ARGV==0 or &quit( "no archive given on the commandline" );
-$archive= shift(@ARGV);
-open IDXFILE, "> index.$archive" or &quit( "trying to reset index file: $!" );
+@ARGV==0 and &quit( "no archive given on the commandline" );
+my $archive = shift(@ARGV);
+my $index = "index.$archive";
+$index = 'index.db' if $archive eq 'db-h';
+open IDXFILE, "> $index" or &quit( "trying to reset index file: $!" );
-if ( $archive eq 'db' )
+#get list of bugs (ie, status files)
+my @files;
+for ($subdir=0; $subdir<100; $subdir++ )
{
- 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", $data->{package}, $ref, $data->{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;
}
-else
-{
-#get list of bugs (ie, status files)
-for ($subdir=0; $subdir<100; $subdir++ )
+@files = sort { $a <=> $b } @files;
+
+#process each bug (ie, status file)
+for my $ref (@files)
{
- my $path = sprintf( "$archive/%.2d", $subdir );
- opendir(DIR,$path) || next;
- @list= grep(m/^\d+\.status$/,readdir(DIR));
- closedir DIR;
- grep(s/\.status$//,@list);
- @list= sort { $a <=> $b } @list;
+ print STDERR "$ref considering\n" if $debug;
+ my $data = readbug($ref, $archive);
+ $data->{severity} =~ y/A-Z/a-z/;
- #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", $data->{package}, $ref, $data->{subject};
- }
-}
+ (my $pkglist = $data->{package}) =~ s/[,\s]+/,/g;
+ $pkglist =~ s/^,+//;
+ $pkglist =~ s/,+$//;
+
+ my $whendone = 'open';
+ $whendone = 'forwarded' if length $data->{forwarded};
+ $whendone = 'done' if length $data->{done};
+ printf IDXFILE "%s %d %d %s [%s] %s %s\n",
+ $pkglist, $ref, $data->{date}, $whendone, $data->{originator},
+ $data->{severity}, $data->{keywords};
}
+
close IDXFILE;