1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
#!/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;
}
|
