if not exists $param{bug} and not exists $param{summary};
my $status;
my $log;
+ my $location;
if (not defined $param{summary}) {
- my ($lref, $location) = @param{qw(bug location)};
+ my $lref;
+ ($lref,$location) = @param{qw(bug location)};
if (not defined $location) {
$location = getbuglocation($lref,'summary');
return undef if not defined $location;
$status = $param{summary};
$log = $status;
$log =~ s/\.summary$/.log/;
+ ($location) = $status =~ m/(db-h|db|archive)/;
}
my $status_fh = new IO::File $status, 'r' or
warn "Unable to open $status for reading: $!" and return undef;
}
# Add log last modified time
$data{log_modified} = (stat($log))[9];
- $date{location} = $location;
+ $data{location} = $location;
return \%data;
}
status => \%status,
days_until => 1,
);
- if ($days >= 0 and $status->{location} ne 'archive') {
+ if ($days >= 0 and defined $status->{location} and $status->{location} ne 'archive') {
$result .= ";\n<strong>Will be archived" . ( $days == 0 ? " today" : $days == 1 ? " in $days day" : " in $days days" ) . "</strong>";
}
}
sub pkg_htmlselectsuite {
my $id = sprintf "b_%d_%d_%d", $_[0], $_[1], $_[2];
my @suites = ("stable", "testing", "unstable", "experimental");
- my %suiteaka = ("stable", "sarge", "testing", "etch", "unstable", "sid");
+ my %suiteaka = ("stable", "etch", "testing", "lenny", "unstable", "sid");
my $defaultsuite = "unstable";
my $result = sprintf '<select name=dist id="%s">', $id;