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