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