diff options
Diffstat (limited to 'web/fun.cgi')
| -rwxr-xr-x | web/fun.cgi | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/web/fun.cgi b/web/fun.cgi deleted file mode 100755 index d93658dff..000000000 --- a/web/fun.cgi +++ /dev/null @@ -1,56 +0,0 @@ -#!/usr/bin/perl -w -I../perllib - -# fun.cgi: -# Weird and Wonderful -# -# Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved. -# Email: matthew@mysociety.org. WWW: http://www.mysociety.org -# -# $Id: fun.cgi,v 1.3 2008-09-19 10:24:55 matthew Exp $ - -use strict; -use Standard -db; - -# Main code for index.cgi -sub main { - my $q = shift; - print Page::header($q, title=>_('Weird and Wonderful reports')); - print fun($q); - print Page::footer($q); -} -Page::do_fastcgi(\&main); - -sub fun { - my $q = shift; - my $out = $q->h1(_('Weird and Wonderful reports')); - $out .= $q->p('Here are some of the best or strangest reports we’ve seen on FixMyStreet. -They’ve all been fixed, and in one case could have saved lives! -Do let us know if you find any more.'); - $out .= $q->ul({style => 'list-style-type: none; margin:0; padding:0'}, - $q->li( - $q->img({src=>'http://www.fixmystreet.com/photo?id=9468', align=>'right', hspace=>8}), - $q->h2('Dumped Piano (right)'), - $q->p('The reporter of this problem summed it up with their report, -which consisted solely of the one character “!”. —', -$q->a({href=>'http://www.fixmystreet.com/report/9468'}, 'Problem report')), - ), - $q->li( - $q->h2('Mad Seagull'), - $q->p('“A seagull is attacking various cars within this road. He starts at around 05:45 every morning and continues until around 19:30. This causes a lot of noisy banging and wakes up children.” —', -$q->a({href=>'http://www.fixmystreet.com/report/2722'}, 'Problem report')), - ), - $q->li( - $q->img({src=>'http://www.fixmystreet.com/photo?id=6553', align=>'right', hspace=>8}), - $q->h2('Boxes full of cheese dumped (right)'), - $q->p('“About a dozen boxes full of mozzarella cheese have been dumped opposite 3 rufford street. if it warms up we could have nasty road topping problem (seriously there is a lot of cheese)” —', -$q->a({href=>'http://www.fixmystreet.com/report/6553'}, 'Problem report')), - ), - $q->li( - $q->h2('Dangerous Nivea Billboard'), - $q->p('“The Nivea \'Oxygen is a wonderful thing\' billboard here has a device on it releasing bubbles and foam. This is blowing into the road which is both distracting and dangerous to drivers. A large ball of foam hit my windscreen unexpectedly and nearly caused me to have an accident” —', -$q->a({href=>'http://www.fixmystreet.com/report/7552'}, 'Problem report')), - ), - ); - return $out; -} - |