r15966 - /scripts/qa/rss_upload.cgi

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Fri Feb 29 16:27:09 UTC 2008


Author: gregoa-guest
Date: Fri Feb 29 16:27:08 2008
New Revision: 15966

URL: http://svn.debian.org/wsvn/?sc=1&rev=15966
Log:
change MIME types for rss feed

Modified:
    scripts/qa/rss_upload.cgi

Modified: scripts/qa/rss_upload.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/rss_upload.cgi?rev=15966&op=diff
==============================================================================
--- scripts/qa/rss_upload.cgi (original)
+++ scripts/qa/rss_upload.cgi Fri Feb 29 16:27:08 2008
@@ -63,8 +63,8 @@
 
 if( $ENV{GATEWAY_INTERFACE} )
 {
-    my $htmlp = $cgi->Accept("text/html");
-    my $xhtmlp = $cgi->Accept("application/xhtml+xml");
+    my $textxmlp = $cgi->Accept("text/xml");
+    my $appxmlp= $cgi->Accept("application/xml");
 
     my $ims = $cgi->http('If-Modified-Since');
     $ims = Date::Parse::str2time($ims) if $ims;
@@ -79,9 +79,9 @@
     setlocale(LC_TIME, "C");
     print $cgi->header(
         -content_type   => (
-                ($xhtmlp and $xhtmlp > $htmlp)
-                ? 'application/xhtml+xml; charset=utf-8'
-                : 'text/html; charset=utf-8'
+                ($appxmlp and $appxmlp >= $textxmlp)
+                ? 'application/rss+xml; charset=utf-8'
+                : 'text/xml; charset=utf-8'
             ),
         -last_modified   => POSIX::strftime(
             "%a, %d %b %Y %T %Z",




More information about the Pkg-perl-cvs-commits mailing list