/usr/lib/debbugs/rebuild is in debbugs 2.4.1ubuntu1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 | #!/usr/bin/perl -w
# $Id: rebuild.in,v 1.11 2003/05/31 13:41:39 cjwatson Exp $
# 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";
#global variables
$debug = 0;
@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: $!" );
#get list of bugs (ie, status files)
my @files;
for ($subdir=0; $subdir<100; $subdir++ )
{
my $path = sprintf( "$archive/%.2d", $subdir );
opendir(DIR,$path) || next;
my @list= grep(m/^\d+\.status$/,readdir(DIR));
closedir DIR;
grep(s/\.status$//,@list);
push @files, @list;
}
@files = sort { $a <=> $b } @files;
#process each bug (ie, status file)
for my $ref (@files)
{
print STDERR "$ref considering\n" if $debug;
my $data = readbug($ref, $archive);
$data->{severity} =~ y/A-Z/a-z/;
(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;
|