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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
|
#!/usr/bin/perl -w
# index.pl:
# Main code for BCI - not really.
#
# Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved.
# Email: matthew@mysociety.org. WWW: http://www.mysociety.org
#
# $Id: index.cgi,v 1.12 2006-09-20 16:47:51 matthew Exp $
use strict;
require 5.8.0;
# Horrible boilerplate to set up appropriate library paths.
use FindBin;
use lib "$FindBin::Bin/../perllib";
use lib "$FindBin::Bin/../../perllib";
use Error qw(:try);
use HTML::Entities;
use LWP::Simple;
use RABX;
use Page;
use mySociety::Config;
BEGIN {
mySociety::Config::set_file("$FindBin::Bin/../conf/general");
}
use mySociety::MaPit;
mySociety::MaPit::configure();
# Main code for index.cgi
sub main {
my $q = shift;
my $out = '';
if ($q->param('pc')) {
$out = display($q);
} else {
$out = front_page();
}
print $q->header(-charset=>'utf-8');
print Page::header($q, '');
print $out;
print Page::footer($q);
}
Page::do_fastcgi(\&main);
# Display front page
sub front_page {
my $error = shift;
my $out = '';
$out .= '<p id="error">' . $error . '</p>' if ($error);
$out .= <<EOF;
<p>Report a problem with refuse, recycling, fly tipping, pest control,
abandoned vechicles, street lighting, graffiti, street cleaning, litter or
similar to your local council.</p>
<p><strong>This is currently only for Newham and Lewisham Councils</strong></p>
<p>It’s very simple:</p>
<ol>
<li>Enter postcode
<li>Find problem on map
<li>Enter details of problem
<li>Send!
</ol>
<form action="./" method="get">
<p>Enter your postcode: <input type="text" name="pc" value="">
<input type="submit" value="Go">
</form>
EOF
return $out;
}
sub display {
my $q = shift;
my $pc = $q->param('pc');
my $x = $q->param('x') || 0;
my $y = $q->param('y') || 0;
$x+=0;
$y+=0;
my($error, $name, $lbo);
try {
my $areas;
$areas = mySociety::MaPit::get_voting_areas($pc);
# Check for London Borough
throw RABX::Error("I'm afraid that postcode isn't in our covered area.", 123456) if (!$areas || !$areas->{LBO});
# Check for Lewisham or Newham
$lbo = $areas->{LBO};
throw RABX::Error("I'm afraid that postcode isn't in our covered London boroughs.", 123457) unless ($lbo == 2510 || $lbo == 2492);
my $area_info = mySociety::MaPit::get_voting_area_info($lbo);
$name = $area_info->{name};
if (!$x && !$y) {
my $location = mySociety::MaPit::get_location($pc);
my $northing = $location->{northing};
my $easting = $location->{easting};
$x = int($easting / (5000/31));
$y = int($northing/ (5000/31));
}
} catch RABX::Error with {
my $e = shift;
if ($e->value() == mySociety::MaPit::BAD_POSTCODE
|| $e->value() == mySociety::MaPit::POSTCODE_NOT_FOUND) {
$error = 'That postcode was not recognised, sorry.';
} else {
$error = $e;
}
};
return front_page($error) if ($error);
my $out = <<EOF;
<h2>$name</h2>
<p>Now, please select the location of the problem on the map below.
Use the arrows to the left of the map to scroll around.</p>
EOF
# XXX: This is for when they click on the map
# my @ps = $q->param;
# foreach (@ps) {
# my $x = $q->param($_) if /\.x$/;
# my $y = $q->param($_) if /\.y$/;
# }
my $url = mySociety::Config::get('TILES_URL');
my $tiles = $url . $x . '-' . ($x+1) . ',' . $y . '-' . ($y+1) . '/RABX';
$tiles = LWP::Simple::get($tiles);
my $tileids = RABX::unserialise($tiles);
my $tl = $x . '.' . ($y+1);
my $tr = ($x+1) . '.' . ($y+1);
my $bl = $x . '.' . $y;
my $br = ($x+1) . '.' . $y;
my $tl_src = $url . $tileids->[0][0];
my $tr_src = $url . $tileids->[0][1];
my $bl_src = $url . $tileids->[1][0];
my $br_src = $url . $tileids->[1][1];
$pc = encode_entities($pc);
$out .= <<EOF;
<form action"=./" method="get">
<div id="relativediv">
<div id="map">
<input type="hidden" name="x" value="$x">
<input type="hidden" name="y" value="$y">
<input type="hidden" name="pc" value="$pc">
<input type="hidden" name="lbo" value="$lbo">
<input type="image" id="2.2" name="tile_$tl" src="$tl_src" style="top:0px; left:0px;"><input type="image" id="3.2" name="tile_$tr" src="$tr_src" style="top:0px; left:254px;"><br><input type="image" id="2.3" name="tile_$bl" src="$bl_src" style="top:254px; left:0px;"><input type="image" id="3.3" name="tile_$br" src="$br_src" style="top:254px; left:254px;">
</div>
EOF
$out .= Page::compass($pc, $x, $y);
$out .= <<EOF;
<div>
<h2>Current problems</h2>
<ul id="current">
EOF
my %current = (
1 => 'Broken lamppost',
2 => 'Shards of glass',
3 => 'Abandoned car',
);
my %fixed = (
4 => 'Broken lamppost',
5 => 'Shards of glass',
6 => 'Abandoned car',
);
foreach (sort keys %current) {
my $px = int(rand(508)) - 6;
my $py = int(rand(508)) - 20;
$out .= '<li><a href="/?id=' . $_ . '">';
$out .= '<img src="/i/pin_red.png" alt="Problem"';
$out .= ' style="top:'.$py.'px; right:'.$px.'px">';
$out .= $current{$_};
$out .= '</a></li>';
}
$out .= <<EOF;
</ul>
<h2>Recently fixed problems</h2>
<ul>
EOF
foreach (sort keys %fixed) {
$out .= '<li><a href="/?id=' . $_ . '">';
#$out .= '<img src="/i/pin_red.png" alt="Problem">';
$out .= $fixed{$_};
$out .= '</a></li>';
}
$out .= <<EOF;
</ul>
</div>
</div>
</form>
<p>If you cannot see a map – if you have images turned off,
or are using a text only browser, for example – please
<a href="./?skippedmap=1">skip this step</a> and we will ask you
to describe the location of your problem instead.</p>
EOF
return $out;
}
|
