diff options
Diffstat (limited to 'web/rss.cgi')
| -rwxr-xr-x | web/rss.cgi | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/web/rss.cgi b/web/rss.cgi index e89629a73..5d6edded2 100755 --- a/web/rss.cgi +++ b/web/rss.cgi @@ -6,7 +6,7 @@ # Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: rss.cgi,v 1.26 2008-12-08 10:54:16 matthew Exp $ +# $Id: rss.cgi,v 1.27 2009-01-15 10:19:28 matthew Exp $ use strict; use Error qw(:try); @@ -42,7 +42,8 @@ sub main { } elsif ($type eq 'all_problems') { $out = mySociety::Alert::generate_rss($type, $xsl, ''); } else { - print $q->redirect('http://www.fixmystreet.com/alert'); + my $base = mySociety::Config::get('BASE_URL'); + print $q->redirect($base . '/alert'); exit; } print $q->header( -type => 'application/xml; charset=utf-8' ); @@ -77,7 +78,8 @@ sub rss_local_problems { $error = shift; }; unless ($error) { - print $q->redirect(-location => "http://www.fixmystreet.com/rss/$x/$y"); + my $base = mySociety::Config::get('BASE_URL'); + print $q->redirect(-location => "$base/rss/$x/$y"); } return ''; } else { |