r19639 - /scripts/qa/rss_upload.cgi

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed May  7 19:48:31 2008
New Revision: 19639

URL: http://svn.debian.org/wsvn/?sc=1&rev=19639
Log:
try to make RSS link point to qareport.cgi

Modified:
    scripts/qa/rss_upload.cgi

Modified: scripts/qa/rss_upload.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/rss_upload.cgi?rev=19639&op=diff
==============================================================================
--- scripts/qa/rss_upload.cgi (original)
+++ scripts/qa/rss_upload.cgi Wed May  7 19:48:31 2008
@@ -88,9 +88,12 @@
 
 my $rss = new XML::RSS (version => '2.0');
 
+my $qa_cgi = $ENV{GATEWAY_INTERFACE} ? CGI::url() :: undef;
+$qa_cgi =~ s/rss_upload\.cgi.*/qareport.cgi/ if $qa_cgi;
+
 $rss->channel(
     title          => "$CFG{qareport_cgi}{group_name} -- ready for upload",
-    link           => "$CFG{qareport_cgi}{group_url}",
+    link           => $qa_cgi || "$CFG{qareport_cgi}{group_url}",
     description    => "Packages in the $CFG{qareport_cgi}{group_name} repository that need an upload",
     pubDate        => POSIX::strftime("%a, %d %b %Y %T %z", localtime()),
     language       => "en",