$log = join("\n",@log);
-print "Content-Type: text/html; charset=utf-8\n\n";
+print "Content-Type: text/html; charset=utf-8\n";
+
+my @stat = stat $buglog;
+if (@stat) {
+ my $mtime = strftime '%a, %d %b %Y %T GMT', gmtime($stat[9]);
+ print "Last-Modified: $mtime\n";
+}
+
+print "\n";
my $title = html_escape($status{subject});
<tr><td> </td></tr>
-</td></tr>
<tr><td>Merged bugs should be</td><td>
<select name=repeatmerged>
<option value=yes$sel_rmy>displayed separately</option>
if ($ordering eq "raw") {
$result .= "<UL class=\"bugs\">\n" . join("", map( { $_->[ 2 ] } @status ) ) . "</UL>\n";
} else {
- $header .= "<ul>\n<div class=\"msgreceived\">\n";
+ $header .= "<div class=\"msgreceived\">\n<ul>\n";
my @keys_in_order = ("");
for my $o (@order) {
push @keys_in_order, "X";
}
$header .= "</ul></div>\n";
- $footer .= "<ul>\n<div class=\"msgreceived\">";
+ $footer .= "<div class=\"msgreceived\">\n<ul>\n";
for my $i (0..$#prior) {
my $local_result = '';
foreach my $key ( @{$order[$i]} ) {
$footer .= "<li>$names[$i]<ul>\n$local_result</ul></li>\n";
}
}
- $footer .= "</div></ul>\n";
+ $footer .= "</ul>\n</div>\n";
}
$result = $header . $result if ( $common{show_list_header} );
- Verify submitter is a valid email according to RFC822
(closes: #182419)
- Indicate what message number a message is (closes: #462653)
+ - Fix casing of versions (closes: #441022)
+ - Output last-modified in bugreport.cgi (closes: #459709)
+ - Fix various html syntax errors in pkgreport.cgi (closes: #462322)
-- Colin Watson <cjwatson@debian.org> Fri, 20 Jun 2003 18:57:25 +0100