diff options
Diffstat (limited to 'web')
| -rwxr-xr-x | web/index.cgi | 5 | ||||
| -rwxr-xr-x | web/rss.cgi | 8 |
2 files changed, 8 insertions, 5 deletions
diff --git a/web/index.cgi b/web/index.cgi index 80ae8c4e7..d5f768440 100755 --- a/web/index.cgi +++ b/web/index.cgi @@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: index.cgi,v 1.238 2009-01-10 18:37:45 matthew Exp $ +# $Id: index.cgi,v 1.239 2009-01-15 10:19:28 matthew Exp $ use strict; use Standard; @@ -60,7 +60,8 @@ sub main { $q->param('phone', $row[6]); $q->param('partial', $partial); } else { - print $q->redirect(-location => 'http://www.fixmystreet.com/report/' . $id); + my $base = mySociety::Config::get('BASE_URL'); + print $q->redirect(-location => $base . '/report/' . $id); } } } 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 { |