Merge branch 'migrate_to_catalyst' into reportemptyhomes

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;
-}
-