use Debbugs::Config qw(:globals :text);
use Debbugs::User;
use Debbugs::CGI qw(version_url);
-use Debbugs::Common qw(getparsedaddrs);
+use Debbugs::Common qw(getparsedaddrs :date);
use Debbugs::Bugs qw(get_bugs);
use vars qw($gPackagePages $gWebDomain %gSeverityDisplay @gSeverityList);
my %bugusertags;
my %ut;
for my $user (split /[\s*,]+/, $users) {
- next unless ($user =~ m/..../);
+ next unless length($user) >= 4;
add_user($user);
}
set_option("show_list_header", $show_list_header);
set_option("show_list_footer", $show_list_footer);
+our %seen_users;
sub add_user {
my $ut = \%ut;
my $u = shift;
+ return if $seen_users{$u};
+ $seen_users{$u} = 1;
+
my $user = Debbugs::User::get_user($u);
my %vis = map { $_, 1 } @{$user->{"visible_cats"}};
# figure out the source package
my $pkgsrc = getpkgsrc();
add_user($pkgsrc->{$pkg}.'@packages.debian.org')
- if defined $pkgsrc->{$pkc};
+ if defined $pkgsrc->{$pkg};
if (defined $version) {
$title .= " (version $version)";
} elsif (defined $dist) {
$title .= " ($verdesc)" if defined $verdesc;
}
my @pkgs = split /,/, $pkg;
- @bugs = get_bugs(package=>\@pkgs);
+ @bugs = get_bugs(package=>\@pkgs,
+ archive=>$archive
+ );
} elsif (defined $src) {
add_user("$src\@packages.debian.org");
$title = "source $src";
my $verdesc = getversiondesc($src);
$title .= " ($verdesc)" if defined $verdesc;
}
- @bugs = get_bugs(src=>[split /,/, $src]);
+ @bugs = get_bugs(src=>[split /,/, $src],
+ archive=>$archive
+ );
} elsif (defined $maint) {
add_user($maint);
$title = "maintainer $maint";
return 0;
})};
} else {
- @bugs = get_bugs(maint=>[map {lc ($_)} split /,/,$maint]);
+ @bugs = get_bugs(maint=>[map {lc ($_)} split /,/,$maint],
+ archive=>$archive
+ );
}
} elsif (defined $maintenc) {
my %maintainers = %{getmaintainers()};
$title = "submitter $submitter";
$title .= " in $dist" if defined $dist;
my @submitters = map {lc ($_)} split /,/, $submitter;
- @bugs = get_bugs(submitter => \@submitters);
+ @bugs = get_bugs(submitter => \@submitters,
+ archive=>$archive
+ );
} elsif (defined($severity) && defined($status)) {
$title = "$status $severity bugs";
$title .= " in $dist" if defined $dist;
$title .= " in $dist" if defined $dist;
my @owners = map {lc ($_)} split /,/, $owner;
my %bugs = ();
- @bugs = get_bugs(owner=>\@owners);
+ @bugs = get_bugs(owner=>\@owners,
+ archive=>$archive
+ );
}
$title = htmlsanit($title);
status => \%status,
days_until => 1,
);
- if ($days >= 0) {
+ if ($days >= 0 and $status->{location} ne 'archive') {
$result .= ";\n<strong>Will be archived" . ( $days == 0 ? " today" : $days == 1 ? " in $days day" : " in $days days" ) . "</strong>";
}
}
split /[,\s]+/,$status{forwarded}
);
}
- my $daysold = int((time - $status{date}) / 86400); # seconds to days
- if ($daysold >= 7) {
+ # Check the age of the logfile
+ my ($days_last,$eng_last) = secs_to_english(time - $status{log_modified});
+ my ($days,$eng) = secs_to_english(time - $status{date});
+
+ if ($days >= 7) {
my $font = "";
my $efont = "";
- $font = "em" if ($daysold > 30);
- $font = "strong" if ($daysold > 60);
+ $font = "em" if ($days > 30);
+ $font = "strong" if ($days > 60);
$efont = "</$font>" if ($font);
$font = "<$font>" if ($font);
- my $yearsold = int($daysold / 365);
- $daysold -= $yearsold * 365;
-
- $result .= ";\n $font";
- my @age;
- push @age, "1 year" if ($yearsold == 1);
- push @age, "$yearsold years" if ($yearsold > 1);
- push @age, "1 day" if ($daysold == 1);
- push @age, "$daysold days" if ($daysold > 1);
- $result .= join(" and ", @age);
- $result .= " old$efont";
+ $result .= ";\n ${font}$eng old$efont";
}
+ if ($days_last > 7) {
+ my $font = "";
+ my $efont = "";
+ $font = "em" if ($days_last > 30);
+ $font = "strong" if ($days_last > 60);
+ $efont = "</$font>" if ($font);
+ $font = "<$font>" if ($font);
+
+ $result .= ";\n ${font}Modified $eng_last ago$efont";
+ }
}
$result .= ".";