my $repeatmerged = $param{'repeatmerged'} eq 'yes';
my $buglog = buglog($ref);
+if (not defined $buglog) {
+ print $q->header(-status => "404 No such bug",
+ -type => "text/html",
+ -charset => 'utf-8',
+ );
+ print fill_in_template(template=>'cgi/no_such_bug',
+ variables => {modify_time => strftime('%a, %e %b %Y %T UTC', gmtime),
+ bug_num => $ref,
+ },
+ );
+ exit 0;
+}
+
my @stat = stat $buglog;
my $mtime = '';
if (@stat) {
foreach my $pkg (@packages) {
$package{$pkg} = {maintainer => exists($maintainer{$pkg}) ? $maintainer{$pkg} : '(unknown)',
- source => exists($pkgsrc{$pkg}) ? $pkgsrc{$pkg} : '(unknown)',
+ exists($pkgsrc{$pkg}) ? (source => $pkgsrc{$pkg}) : (),
package => $pkg,
};
}
'&version_url' => \&Debbugs::CGI::version_url,
'&bug_url' => \&Debbugs::CGI::bug_url,
'&strftime' => \&POSIX::strftime,
- }
+ '&maybelink' => \&Debbugs::CGI::maybelink,
+ },
);