Returns the path to the logfile corresponding to the bug.
+Returns undef if the bug does not exist.
+
=cut
sub buglog {
my $location = getbuglocation($bugnum, 'log');
return getbugcomponent($bugnum, 'log', $location) if ($location);
$location = getbuglocation($bugnum, 'log.gz');
- return getbugcomponent($bugnum, 'log.gz', $location);
+ return getbugcomponent($bugnum, 'log.gz', $location) if ($location);
+ return undef;
}
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',
+ );
+ exit 0;
+}
+
my @stat = stat $buglog;
my $mtime = '';
if (@stat) {
* Add correspondent option to track bug correpondents (closes: #485804)
* Allow clicking anywhere outside the extra status box to close the
extra status box (closes: #499990) Thanks to James Vega for the patch.
+ * Return 404 when a bug number that does not exist is used
+ (closes: #499997)
-- Colin Watson <cjwatson@debian.org> Fri, 20 Jun 2003 18:57:25 +0100
<h1>{$config{project}} {$config{bug}} report logs - #{$bug_num}</h1>
<p>There is no record of {$config{bug}} #{$bug_num}.
Try the <a href="http://{$config{web_domain}}/">search page</a> instead.</p>
-{include('html/tail')}
+{#include('html/html_tail')}
</body></html>