diff options
Diffstat (limited to 'web/rss.cgi')
| -rwxr-xr-x | web/rss.cgi | 36 |
1 files changed, 10 insertions, 26 deletions
diff --git a/web/rss.cgi b/web/rss.cgi index 757f98e85..0fd0e8602 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.1 2007-01-26 01:01:23 matthew Exp $ +# $Id: rss.cgi,v 1.2 2007-01-26 14:19:42 matthew Exp $ use strict; require 5.8.0; @@ -37,35 +37,19 @@ BEGIN { sub main { my $q = shift; my $type = $q->param('type') || ''; - my $choose = $q->param('choose'); - if ($choose) { - print Page::header($q, 'Choose RSS feed'); - my $url = $ENV{SCRIPT_URI}; - $url = uri_escape($url); - print <<EOF; -<ul> -<li><a href="http://www.bloglines.com/sub?url=$url">Bloglines</a> -<li><a href="http://google.com/reader/view/feed/$url">Google Reader</a> -<li><a href="http://add.my.yahoo.com/content?url=$url">My Yahoo!</a> -<li><a href="http://my.msn.com/addtomymsn.armx?id=rss&ut=$url&tt=CENTRALDIRECTORY&ru=http://rss.msn.com">My MSN</a> -<li><a href="http://127.0.0.1:5335/system/pages/subscriptions?url=$url">Userland</a> -<li><a href="http://127.0.0.1:8888/index.html?add_url=$url">Amphetadesk</a> -<li><a href="http://www.feedmarker.com/admin.php?do=add_feed&url=$url">Feedmarker</a> -<li><a href="$ENV{SCRIPT_URL}">Plain RSS</a> -</ul> -EOF - print Page::footer(); - return; - } if ($type eq 'local_problems') { - my $x = ($q->param('x') * 5000 / 31); - my $y = ($q->param('y') * 5000 / 31); - mySociety::Alert::generate_rss($type, $x, $y); + my $x = $q->param('x'); + my $y = $q->param('y'); + my $qs = 'x='.$x.';y='.$y; + $x = ($x * 5000 / 31); + $y = ($y * 5000 / 31); + mySociety::Alert::generate_rss($type, $qs, $x, $y); } elsif ($type eq 'new_updates') { my $id = $q->param('id'); - mySociety::Alert::generate_rss($type, $id); + my $qs = 'id='.$id; + mySociety::Alert::generate_rss($type, $qs, $id); } elsif ($type eq 'new_problems') { - mySociety::Alert::generate_rss($type); + mySociety::Alert::generate_rss($type, ''); } else { throw Error::Simple('Unknown alert type') unless $type; } |