r8944 - /scripts/qa/qareport.cgi
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Wed Nov 7 08:22:36 UTC 2007
Author: dmn
Date: Wed Nov 7 08:22:36 2007
New Revision: 8944
URL: http://svn.debian.org/wsvn/?sc=1&rev=8944
Log:
Styling
Modified:
scripts/qa/qareport.cgi
Modified: scripts/qa/qareport.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/qareport.cgi?rev=8944&op=diff
==============================================================================
--- scripts/qa/qareport.cgi (original)
+++ scripts/qa/qareport.cgi Wed Nov 7 08:22:36 2007
@@ -96,17 +96,24 @@
# print " + Bugs: ", join(", ", @bugs), "\n" if(@bugs);
}
-if($ENV{GATEWAY_INTERFACE}) {
+if( $ENV{GATEWAY_INTERFACE} )
+{
my $htmlp = $cgi->Accept("text/html");
my $xhtmlp = $cgi->Accept("application/xhtml+xml");
my $old_locale = setlocale(LC_TIME);
setlocale(LC_TIME, "C");
print $cgi->header(
- -content_type => ($xhtmlp and $xhtmlp > $htmlp) ?
- 'application/xhtml+xml; charset=utf-8' :
- 'text/html; charset=utf-8',
- -last_modified => POSIX::strftime("%a, %d %b %Y %T %Z",
- gmtime($modified[-1])));
+ -content_type => (
+ ($xhtmlp and $xhtmlp > $htmlp)
+ ? 'application/xhtml+xml; charset=utf-8'
+ : 'text/html; charset=utf-8'
+ ),
+ -last_modified => POSIX::strftime(
+ "%a, %d %b %Y %T %Z",
+ gmtime($modified[-1],
+ ),
+ ),
+ );
setlocale(LC_TIME, $old_locale);
}
More information about the Pkg-perl-cvs-commits
mailing list