aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--perllib/FixMyStreet/Cobrand/Default.pm12
-rw-r--r--perllib/FixMyStreet/Cobrand/EmptyHomes.pm44
-rw-r--r--t/app/controller/alert.t16
-rw-r--r--t/app/controller/alert_new.t27
-rw-r--r--templates/web/default/alert/index.html2
-rw-r--r--templates/web/default/alert/list.html4
-rwxr-xr-xweb/alert.cgi610
7 files changed, 88 insertions, 627 deletions
diff --git a/perllib/FixMyStreet/Cobrand/Default.pm b/perllib/FixMyStreet/Cobrand/Default.pm
index 2fc6690b0..a2d1bc0bb 100644
--- a/perllib/FixMyStreet/Cobrand/Default.pm
+++ b/perllib/FixMyStreet/Cobrand/Default.pm
@@ -757,30 +757,30 @@ sub council_rss_alert_options {
push @reported_to_options,
{
type => 'council',
- id => sprintf( 'district:%s:%s', $district->{id}, $district->{id_name} ),
+ id => sprintf( 'council:%s:%s', $district->{id}, $district->{id_name} ),
text => $district->{name},
rss_text => sprintf( _('RSS feed of %s'), $district->{name}),
uri => $self->uri( '/rss/reports/' . $district->{short_name} ),
},
{
type => 'ward',
- id => sprintf( 'd_ward:%s:%s:%s:%s', $district->{id}, $d_ward->{id}, $district->{id_name}, $d_ward->{id_name} ),
+ id => sprintf( 'ward:%s:%s:%s:%s', $district->{id}, $d_ward->{id}, $district->{id_name}, $d_ward->{id_name} ),
rss_text => sprintf( _('RSS feed of %s, within %s ward'), $district->{name}, $d_ward->{name}),
- text => sprintf( _('%s within, %s ward'), $district->{name}, $d_ward->{name}),
+ text => sprintf( _('%s, within %s ward'), $district->{name}, $d_ward->{name}),
uri => $self->uri( '/rss/reports/' . $district->{short_name} . '/' . $d_ward->{short_name} ),
},
{
type => 'council',
- id => sprintf( 'county:%s:%s', $county->{id}, $county->{id_name} ),
+ id => sprintf( 'council:%s:%s', $county->{id}, $county->{id_name} ),
text => $county->{name},
rss_text => sprintf( _('RSS feed of %s'), $county->{name}),
uri => $self->uri( '/rss/reports/' . $county->{short_name} ),
},
{
type => 'ward',
- id => sprintf( 'c_ward:%s:%s:%s:%s', $county->{id}, $c_ward->{id}, $county->{id_name}, $c_ward->{id_name} ),
+ id => sprintf( 'ward:%s:%s:%s:%s', $county->{id}, $c_ward->{id}, $county->{id_name}, $c_ward->{id_name} ),
rss_text => sprintf( _('RSS feed of %s, within %s ward'), $county->{name}, $c_ward->{name}),
- text => sprintf( _('%s within, %s ward'), $county->{name}, $c_ward->{name}),
+ text => sprintf( _('%s, within %s ward'), $county->{name}, $c_ward->{name}),
uri => $self->uri( '/rss/reports/' . $county->{short_name} . '/' . $c_ward->{short_name} ),
};
diff --git a/perllib/FixMyStreet/Cobrand/EmptyHomes.pm b/perllib/FixMyStreet/Cobrand/EmptyHomes.pm
index c40ea5eb7..2199d660e 100644
--- a/perllib/FixMyStreet/Cobrand/EmptyHomes.pm
+++ b/perllib/FixMyStreet/Cobrand/EmptyHomes.pm
@@ -129,5 +129,49 @@ to be resized then return 0;
sub default_photo_resize { return '195x'; }
+=item council_rss_alert_options
+
+Generate a set of options for council rss alerts.
+
+=cut
+
+sub council_rss_alert_options {
+ my $self = shift;
+ my $all_councils = shift;
+
+ my %councils = map { $_ => 1 } $self->area_types();
+
+ my $num_councils = scalar keys %$all_councils;
+
+ my ( @options, @reported_to_options );
+ my ($council, $ward);
+ foreach (values %$all_councils) {
+ $_->{short_name} = $self->short_name( $_ );
+ ( $_->{id_name} = $_->{short_name} ) =~ tr/+/_/;
+ if ($_->{type} eq 'DIS') {
+ $council = $_;
+ } elsif ($_->{type} eq 'DIW') {
+ $ward = $_;
+ }
+ }
+
+ push @options, {
+ type => 'council',
+ id => sprintf( 'council:%s:%s', $council->{id}, $council->{id_name} ),
+ text => sprintf( _('Problems within %s'), $council->{name}),
+ rss_text => sprintf( _('RSS feed of problems within %s'), $council->{name}),
+ uri => $self->uri( '/rss/reports/' . $council->{short_name} ),
+ };
+ push @options, {
+ type => 'ward',
+ id => sprintf( 'ward:%s:%s:%s:%s', $council->{id}, $ward->{id}, $council->{id_name}, $ward->{id_name} ),
+ rss_text => sprintf( _('RSS feed of problems within %s ward'), $ward->{name}),
+ text => sprintf( _('Problems within %s ward'), $ward->{name}),
+ uri => $self->uri( '/rss/reports/' . $council->{short_name} . '/' . $ward->{short_name} ),
+ };
+
+ return ( \@options, @reported_to_options ? \@reported_to_options : undef );
+}
+
1;
diff --git a/t/app/controller/alert.t b/t/app/controller/alert.t
index 3e2dedd53..b8e38ec92 100644
--- a/t/app/controller/alert.t
+++ b/t/app/controller/alert.t
@@ -51,16 +51,16 @@ $mech->content_contains('Please select the feed you want');
$mech->get_ok('/alert/subscribe?rss=1&feed=invalid:1000:A_Locationtype=local&pc=ky16+8yg&rss=Give+me+an+RSS+feed&rznvy=');
$mech->content_contains('Illegal feed selection');
-$mech->get_ok('/alert/subscribe?rss=1&feed=area:1000:A_Location');
-$mech->uri->path('/rss/area/A+Location');
+$mech->get_ok('/alert/subscribe?rss=1&feed=area:1000:Birmingham');
+is $mech->uri->path, '/rss/reports/Birmingham';
-$mech->get_ok('/alert/subscribe?rss=1&feed=area:1000:1001:A_Location:Diff_Location');
-$mech->uri->path('/rss/area/A+Location/Diff+Location');
+$mech->get_ok('/alert/subscribe?rss=1&feed=area:1000:1001:Cheltenham:Lansdown');
+is $mech->uri->path, '/rss/area/Cheltenham/Lansdown';
-$mech->get_ok('/alert/subscribe?rss=1&feed=council:1000:A_Location');
-$mech->uri->path('/rss/reports/A+Location');
+$mech->get_ok('/alert/subscribe?rss=1&feed=council:1000:Gloucestershire');
+is $mech->uri->path, '/rss/reports/Gloucestershire';
-$mech->get_ok('/alert/subscribe?rss=1&feed=ward:1000:1001:A_Location:Diff_Location');
-$mech->uri->path('/rss/ward/A+Location/Diff+Location');
+$mech->get_ok('/alert/subscribe?rss=1&feed=ward:1000:1001:Cheltenham:Lansdown');
+is $mech->uri->path, '/rss/reports/Cheltenham/Lansdown';
done_testing();
diff --git a/t/app/controller/alert_new.t b/t/app/controller/alert_new.t
index ff1acd480..6fc32acbf 100644
--- a/t/app/controller/alert_new.t
+++ b/t/app/controller/alert_new.t
@@ -347,6 +347,33 @@ for my $test (
};
}
+subtest "Test two-tier council alerts" => sub {
+ for my $alert (
+ { feed => "local:51.896269:-2.093063", result => '/rss/l/51.896269,-2.093063' },
+ { feed => "area:2326:Cheltenham", result => '/rss/area/Cheltenham' },
+ { feed => "area:2326:4544:Cheltenham:Lansdown", result => '/rss/area/Cheltenham/Lansdown' },
+ { feed => "area:2226:Gloucestershire", result => '/rss/area/Gloucestershire' },
+ { feed => "area:2226:14949:Gloucestershire:Lansdown%2C_Park_and_Warden_Hill",
+ result => '/rss/area/Gloucestershire/Lansdown%2C+Park+and+Warden+Hill'
+ },
+ { feed => "council:2326:Cheltenham", result => '/rss/reports/Cheltenham' },
+ { feed => "ward:2326:4544:Cheltenham:Lansdown", result => '/rss/reports/Cheltenham/Lansdown' },
+ { feed => "council:2226:Gloucestershire", result => '/rss/reports/Gloucestershire' },
+ { feed => "ward:2226:14949:Gloucestershire:Lansdown%2C_Park_and_Warden_Hill",
+ result => '/rss/reports/Gloucestershire/Lansdown%2C+Park+and+Warden+Hill'
+ },
+ ) {
+ $mech->get_ok( '/alert/list?pc=GL502PR' );
+ $mech->submit_form_ok( {
+ button => 'rss',
+ with_fields => {
+ feed => $alert->{feed},
+ }
+ } );
+ is $mech->uri->path, $alert->{result};
+ }
+};
+
subtest "Test normal alert signups and that alerts are sent" => sub {
my $user1 = FixMyStreet::App->model('DB::User')
->find_or_create( { email => 'reporter@example.com', name => 'Reporter User' } );
diff --git a/templates/web/default/alert/index.html b/templates/web/default/alert/index.html
index dec15cf0a..7e03be4ae 100644
--- a/templates/web/default/alert/index.html
+++ b/templates/web/default/alert/index.html
@@ -20,7 +20,7 @@ within a certain distance of a particular location.') %]
<p>
[% loc('To find out what local alerts we have for you, please enter your GB
postcode or street name and area:' ) %]
- <input type="text" name="pc" value="">
+ <input type="text" name="pc" value="[% pc | html %]">
<input type="submit" value="[% loc('Go') %]">
[% cobrand_form_elements %]
</p>
diff --git a/templates/web/default/alert/list.html b/templates/web/default/alert/list.html
index bb515232a..1682b5a66 100644
--- a/templates/web/default/alert/list.html
+++ b/templates/web/default/alert/list.html
@@ -57,7 +57,7 @@
</p>
<p>
- [% loc("Or you can subscribe to an alert based upon what ward or council you’re in:") %]
+ [% loc("Or you can subscribe to an alert based upon what ward or council you&rsquo;re in:") %]
</p>
[% IF reported_to_options %]
@@ -113,7 +113,7 @@ for the county council.' ) %]
<p>
<p id="alert_or">
- or
+ [% loc('or') %]
</p>
<p>
diff --git a/web/alert.cgi b/web/alert.cgi
deleted file mode 100755
index 28a90be35..000000000
--- a/web/alert.cgi
+++ /dev/null
@@ -1,610 +0,0 @@
-#!/usr/bin/perl -w -I../perllib
-
-# alert.cgi:
-# Alert code for FixMyStreet
-#
-# Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved.
-# Email: matthew@mysociety.org. WWW: http://www.mysociety.org
-#
-# $Id: alert.cgi,v 1.67 2010-01-06 10:08:22 louise Exp $
-
-use strict;
-use Standard;
-use Digest::SHA1 qw(sha1_hex);
-use Encode;
-use Error qw(:try);
-use CrossSell;
-use FixMyStreet::Alert;
-use FixMyStreet::Geocode;
-use mySociety::AuthToken;
-use mySociety::Config;
-use mySociety::DBHandle qw(select_all);
-use mySociety::EmailUtil qw(is_valid_email);
-use mySociety::Gaze;
-use mySociety::MaPit;
-use mySociety::VotingArea;
-use mySociety::Web qw(ent);
-use Cobrand;
-use Utils;
-
-sub main {
- my $q = shift;
- my $out = '';
- my $title = _('Confirmation');
- if ($q->param('signed_email')) {
- $out = alert_signed_input($q);
-# } elsif (my $token = $q->param('token')) {
-# my $data = mySociety::AuthToken::retrieve('alert', $token);
-# if ($data->{id}) {
-# $out = alert_token($q, $data);
-# } else {
-# my $contact_url = Cobrand::url(Page::get_cobrand($q), '/contact', $q);
-# $out = $q->p(sprintf(_(<<EOF), $contact_url));
-# Thank you for trying to confirm your alert. We seem to have an error ourselves
-# though, so <a href="%s">please let us know what went on</a> and we'll look into it.
-# EOF
-# my %vars = (error => $out);
-# my $cobrand_page = Page::template_include('error', $q, Page::template_root($q), %vars);
-# $out = $cobrand_page if $cobrand_page;
-
-# }
-# } elsif ($q->param('rss')) {
-# $out = alert_rss($q);
-# return unless $out;
-# } elsif ($q->param('rznvy')) {
-# $out = alert_do_subscribe($q, $q->param('rznvy'));
-# } elsif ($q->param('id')) {
-# $out = alert_updates_form($q);
- } elsif ($q->param('type') && $q->param('feed')) {
- $title = _('Local RSS feeds and email alerts');
- $out = alert_local_form($q);
- # } elsif ($q->param('pc') || ($q->param('lat') || $q->param('lon'))) {
- # $title = _('Local RSS feeds and email alerts');
- # $out = alert_list($q);
- # } else {
- # $title = _('Local RSS feeds and email alerts');
- # $out = alert_front_page($q);
- }
-
- print Page::header($q, title => $title, robots => 'noindex,nofollow');
- print $out;
- print Page::footer($q);
-}
-Page::do_fastcgi(\&main);
-
-#sub alert_list {
-# my ($q, @errors) = @_;
-# my @vars = qw(pc rznvy lat lon);
-# my %input = map { $_ => scalar $q->param($_) } @vars;
-# my %input_h = map { $_ => $q->param($_) ? ent($q->param($_)) : '' } @vars;
-#
-# my($error, $lat, $lon);
-# if ($input{lat} || $input{lon}) {
-# $lat = $input{lat};
-# $lon = $input{lon};
-# } else {
-# try {
-# ($lat, $lon, $error) = FixMyStreet::Geocode::lookup($input{pc}, $q);
-# } catch Error::Simple with {
-# $error = shift;
-# };
-# }
-#
-# return FixMyStreet::Geocode::list_choices($error, '/alert', $q) if ref($error) eq 'ARRAY';
-# return alert_front_page($q, $error) if $error;
-#
-# my $pretty_pc = $input_h{pc};
-# my $pretty_pc_text;# This one isnt't getting the nbsp.
-# if (mySociety::PostcodeUtil::is_valid_postcode($input{pc})) {
-# $pretty_pc = mySociety::PostcodeUtil::canonicalise_postcode($input{pc});
-# $pretty_pc_text = $pretty_pc;
-# $pretty_pc_text =~ s/ //g;
-# $pretty_pc =~ s/ /&nbsp;/;
-# }
-#
-# # truncate the lat,lon for nicer urls
-# ( $lat, $lon ) = map { Utils::truncate_coordinate($_) } ( $lat, $lon );
-#
-# my $errors = '';
-# $errors = '<ul class="error"><li>' . join('</li><li>', @errors) . '</li></ul>' if @errors;
-#
-# my $cobrand = Page::get_cobrand($q);
-# my @types = (Cobrand::area_types($cobrand), @$mySociety::VotingArea::council_child_types);
-# my %councils = map { $_ => 1 } Cobrand::area_types($cobrand);
-#
-# my $areas = mySociety::MaPit::call('point', "4326/$lon,$lat", type => \@types);
-# my ($success, $error_msg) = Cobrand::council_check($cobrand, { all_councils => $areas }, $q, 'alert');
-# if (!$success) {
-# return alert_front_page($q, $error_msg);
-# }
-#
-# return alert_front_page($q, _('That location does not appear to be covered by a council, perhaps it is offshore - please try somewhere more specific.')) if keys %$areas == 0;
-#
-# my ($options, $options_start, $options_end);
-# if (mySociety::Config::get('COUNTRY') eq 'NO') {
-#
-# my (@options, $fylke, $kommune);
-# foreach (values %$areas) {
-# if ($_->{type} eq 'NKO') {
-# $kommune = $_;
-# } else {
-# $fylke = $_;
-# }
-# }
-# my $kommune_name = $kommune->{name};
-# my $fylke_name = $fylke->{name};
-#
-# if ($fylke->{id} == 3) { # Oslo
-#
-# push @options, [ 'council', $fylke->{id}, Page::short_name($fylke),
-# sprintf(_("Problems within %s"), $fylke_name) ];
-#
-# $options_start = "<div><ul id='rss_feed'>";
-# $options = alert_list_options($q, @options);
-# $options_end = "</ul>";
-#
-# } else {
-#
-# push @options,
-# [ 'area', $kommune->{id}, Page::short_name($kommune), $kommune_name ],
-# [ 'area', $fylke->{id}, Page::short_name($fylke), $fylke_name ];
-# $options_start = '<div id="rss_list">';
-# $options = $q->p($q->strong(_('Problems within the boundary of:'))) .
-# $q->ul(alert_list_options($q, @options));
-# @options = ();
-# push @options,
-# [ 'council', $kommune->{id}, Page::short_name($kommune), $kommune_name ],
-# [ 'council', $fylke->{id}, Page::short_name($fylke), $fylke_name ];
-# $options .= $q->p($q->strong(_('Or problems reported to:'))) .
-# $q->ul(alert_list_options($q, @options));
-# $options_end = $q->p($q->small(_('FixMyStreet sends different categories of problem
-#to the appropriate council, so problems within the boundary of a particular council
-#might not match the problems sent to that council. For example, a graffiti report
-#will be sent to the district council, so will appear in both of the district
-#council&rsquo;s alerts, but will only appear in the "Within the boundary" alert
-#for the county council.'))) . '</div><div id="rss_buttons">';
-#
-# }
-#
-# } elsif (keys %$areas == 2) {
-#
-# # One-tier council
-# my (@options, $council, $ward);
-# foreach (values %$areas) {
-# if ($councils{$_->{type}}) {
-# $council = $_;
-# } else {
-# $ward = $_;
-# }
-# }
-# my $council_name = $council->{name};
-# my $ward_name = $ward->{name};
-# push @options, [ 'council', $council->{id}, Page::short_name($council),
-# sprintf(_("Problems within %s"), $council_name) ];
-# push @options, [ 'ward', $council->{id}.':'.$ward->{id}, Page::short_name($council) . '/'
-# . Page::short_name($ward), sprintf(_("Problems within %s ward"), $ward_name) ];
-#
-# $options_start = "<div><ul id='rss_feed'>";
-# $options = alert_list_options($q, @options);
-# $options_end = "</ul>";
-#
-# } elsif (keys %$areas == 1) {
-#
-# # One-tier council, no ward
-# my (@options, $council);
-# foreach (values %$areas) {
-# $council = $_;
-# }
-# my $council_name = $council->{name};
-# push @options, [ 'council', $council->{id}, Page::short_name($council),
-# sprintf(_("Problems within %s"), $council_name) ];
-#
-# $options_start = "<div><ul id='rss_feed'>";
-# $options = alert_list_options($q, @options);
-# $options_end = "</ul>";
-#
-# } elsif (keys %$areas == 4) {
-#
-# # Two-tier council
-# my (@options, $county, $district, $c_ward, $d_ward);
-# foreach (values %$areas) {
-# if ($_->{type} eq 'CTY') {
-# $county = $_;
-# } elsif ($_->{type} eq 'DIS') {
-# $district = $_;
-# } elsif ($_->{type} eq 'CED') {
-# $c_ward = $_;
-# } elsif ($_->{type} eq 'DIW') {
-# $d_ward = $_;
-# }
-# }
-# my $district_name = $district->{name};
-# my $d_ward_name = $d_ward->{name};
-# my $county_name = $county->{name};
-# my $c_ward_name = $c_ward->{name};
-# push @options,
-# [ 'area', $district->{id}, Page::short_name($district), $district_name ],
-# [ 'area', $district->{id}.':'.$d_ward->{id}, Page::short_name($district) . '/'
-# . Page::short_name($d_ward), "$d_ward_name ward, $district_name" ],
-# [ 'area', $county->{id}, Page::short_name($county), $county_name ],
-# [ 'area', $county->{id}.':'.$c_ward->{id}, Page::short_name($county) . '/'
-# . Page::short_name($c_ward), "$c_ward_name ward, $county_name" ];
-# $options_start = '<div id="rss_list">';
-# $options = $q->p($q->strong(_('Problems within the boundary of:'))) .
-# $q->ul(alert_list_options($q, @options));
-# @options = ();
-# push @options,
-# [ 'council', $district->{id}, Page::short_name($district), $district_name ],
-# [ 'ward', $district->{id}.':'.$d_ward->{id}, Page::short_name($district) . '/' . Page::short_name($d_ward),
-# "$district_name, within $d_ward_name ward" ];
-# if ($q->{site} ne 'emptyhomes') {
-# push @options,
-# [ 'council', $county->{id}, Page::short_name($county), $county_name ],
-# [ 'ward', $county->{id}.':'.$c_ward->{id}, Page::short_name($county) . '/'
-# . Page::short_name($c_ward), "$county_name, within $c_ward_name ward" ];
-# $options .= $q->p($q->strong(_('Or problems reported to:'))) .
-# $q->ul(alert_list_options($q, @options));
-# $options_end = $q->p($q->small(_('FixMyStreet sends different categories of problem
-#to the appropriate council, so problems within the boundary of a particular council
-#might not match the problems sent to that council. For example, a graffiti report
-#will be sent to the district council, so will appear in both of the district
-#council&rsquo;s alerts, but will only appear in the "Within the boundary" alert
-#for the county council.'))) . '</div><div id="rss_buttons">';
-# } else {
-# $options_end = '';
-# }
-# } else {
-# # Hopefully impossible in the UK!
-# throw Error::Simple('An area with three tiers of council? Impossible! '. $lat . ' ' . $lon . ' ' . join('|',keys %$areas));
-# }
-#
-# my $dist = mySociety::Gaze::get_radius_containing_population($lat, $lon, 200000);
-# $dist = int($dist * 10 + 0.5);
-# $dist = $dist / 10.0;
-#
-# my $checked = '';
-# $checked = ' checked' if $q->param('feed') && $q->param('feed') eq "local:$lat:$lon";
-# my $cobrand_form_elements = Cobrand::form_elements($cobrand, 'alerts', $q);
-# my $pics = Cobrand::recent_photos($cobrand, 5, $lat, $lon, $dist);
-# $pics = '<div id="alert_photos">' . $q->h2(_('Photos of recent nearby reports')) . $pics . '</div>' if $pics;
-# my $header;
-# if ($pretty_pc) {
-# $header = sprintf(_('Local RSS feeds and email alerts for &lsquo;%s&rsquo;'), $pretty_pc);
-# } else {
-# $header = _('Local RSS feeds and email alerts');
-# }
-# my $out = $q->h1($header);
-# my $form_action = Cobrand::url($cobrand, '/alert', $q);
-# $out .= <<EOF;
-#<form id="alerts" name="alerts" method="post" action="$form_action">
-#<input type="hidden" name="type" value="local">
-#<input type="hidden" name="pc" value="$input_h{pc}">
-#$cobrand_form_elements
-#$pics
-#
-#EOF
-# $out .= $q->p(($pretty_pc ? sprintf(_('Here are the types of local problem alerts for &lsquo;%s&rsquo;.'), $pretty_pc)
-# : '') . ' ' . _('Select which type of alert you&rsquo;d like and click the button for an RSS
-#feed, or enter your email address to subscribe to an email alert.'));
-# $out .= $errors;
-# $out .= $q->p(_('The simplest alert is our geographic one:'));
-# my $rss_label = sprintf(_('Problems within %skm of this location'), $dist);
-# $out .= <<EOF;
-#<p id="rss_local">
-#<input type="radio" name="feed" id="local:$lat:$lon" value="local:$lat:$lon"$checked>
-#<label for="local:$lat:$lon">$rss_label</label>
-#EOF
-# my $rss_feed;
-# if ($pretty_pc_text) {
-# $rss_feed = Cobrand::url($cobrand, "/rss/pc/$pretty_pc_text", $q);
-# } else {
-# $rss_feed = Cobrand::url($cobrand, "/rss/l/$lat,$lon", $q);
-# }
-#
-# my $default_link = Cobrand::url($cobrand, "/alert?type=local;feed=local:$lat:$lon", $q);
-# my $rss_details = _('(a default distance which covers roughly 200,000 people)');
-# $out .= $rss_details;
-# $out .= " <a href='$rss_feed'><img src='/i/feed.png' width='16' height='16' title='"
-# . _('RSS feed of nearby problems') . "' alt='" . _('RSS feed') . "' border='0'></a>";
-# $out .= '</p> <p id="rss_local_alt">' . _('(alternatively the RSS feed can be customised, within');
-# my $rss_feed_2k = Cobrand::url($cobrand, $rss_feed.'/2', $q);
-# my $rss_feed_5k = Cobrand::url($cobrand, $rss_feed.'/5', $q);
-# my $rss_feed_10k = Cobrand::url($cobrand, $rss_feed.'/10', $q);
-# my $rss_feed_20k = Cobrand::url($cobrand, $rss_feed.'/20', $q);
-# $out .= <<EOF;
-# <a href="$rss_feed_2k">2km</a> / <a href="$rss_feed_5k">5km</a>
-#/ <a href="$rss_feed_10k">10km</a> / <a href="$rss_feed_20k">20km</a>)
-#</p>
-#EOF
-# $out .= $q->p(_('Or you can subscribe to an alert based upon what ward or council you&rsquo;re in:'));
-# $out .= $options_start;
-# $out .= $options;
-# $out .= $options_end;
-# $out .= $q->p('<input type="submit" name="rss" value="' . _('Give me an RSS feed') . '">');
-# $out .= $q->p({-id=>'alert_or'}, _('or'));
-# $out .= '<p>' . _('Your email:') . ' <input type="text" id="rznvy" name="rznvy" value="' . $input_h{rznvy} . '" size="30"></p>
-#<p><input type="submit" name="alert" value="' . _('Subscribe me to an email alert') . '"></p>
-#</div>
-#</form>';
-# my %vars = (header => $header,
-# cobrand_form_elements => $cobrand_form_elements,
-# error => $errors,
-# rss_label => $rss_label,
-# rss_feed => $rss_feed,
-# default_link => $default_link,
-# rss_details => $rss_details,
-# rss_feed_2k => $rss_feed_2k,
-# rss_feed_5k => $rss_feed_5k,
-# rss_feed_10k => $rss_feed_10k,
-# rss_feed_20k => $rss_feed_20k,
-# lat => $lat,
-# lon => $lon,
-# options => $options );
-# my $cobrand_page = Page::template_include('alert-options', $q, Page::template_root($q), %vars);
-# $out = $cobrand_page if ($cobrand_page);
-# return $out;
-#}
-
-#sub alert_list_options {
-# my $q = shift;
-# my $out = '';
-# my $feed = $q->param('feed') || '';
-# my $cobrand = Page::get_cobrand($q);
-# my $cobrand_list = Cobrand::alert_list_options($cobrand, $q, @_);
-# return $cobrand_list if ($cobrand_list);
-# foreach (@_) {
-# my ($type, $vals, $rss, $text) = @$_;
-# (my $vals2 = $rss) =~ tr{/+}{:_};
-# my $id = $type . ':' . $vals . ':' . $vals2;
-# $out .= '<li><input type="radio" name="feed" id="' . $id . '" ';
-# $out .= 'checked ' if $feed eq $id;
-# my $url = "/rss/";
-# $url .= $type eq 'area' ? 'area' : 'reports';
-# $url .= '/' . $rss ;
-# my $rss_url = Cobrand::url($cobrand, $url, $q);
-# $out .= 'value="' . $id . '"> <label for="' . $id . '">' . $text
-# . '</label> <a href="' . $rss_url . '"><img src="/i/feed.png" width="16" height="16"
-#title="' . sprintf(_('RSS feed of %s'), $text) . '" alt="' . _('RSS feed') . '" border="0"></a></li>';
-# }
-# return $out;
-#}
-
-# sub alert_front_page {
-# my $q = shift;
-# my $cobrand = Page::get_cobrand($q);
-# my $error = shift;
-# my $errors = '';
-# $errors = '<ul class="error"><li>' . $error . '</li></ul>' if $error;
-
-# my %input_h = map { $_ => $q->param($_) ? ent($q->param($_)) : '' } qw(pc);
-# my $header = _('Local RSS feeds and email alerts');
-# my $intro = _('FixMyStreet has a variety of RSS feeds and email alerts for local problems, including
-# alerts for all problems within a particular ward or council, or all problems
-# within a certain distance of a particular location.');
-# my $pc_label = _('To find out what local alerts we have for you, please enter your GB
-# postcode or street name and area:');
-# my $form_action = Cobrand::url(Page::get_cobrand($q), '/alert', $q);
-# my $cobrand_form_elements = Cobrand::form_elements($cobrand, 'alerts', $q);
-# my $cobrand_extra_data = Cobrand::extra_data($cobrand, $q);
-# my $submit_text = _('Go');
-
-# my $out = $q->h1($header);
-# $out .= $q->p($intro);
-# $out .= $errors . qq(<form method="get" action="$form_action">);
-# $out .= $q->p($pc_label, '<input type="text" name="pc" value="' . $input_h{pc} . '">
-# <input type="submit" value="' . $submit_text . '">');
-# $out .= $cobrand_form_elements;
-# $out .= '</form>';
-
-# my %vars = (error => $error,
-# header => $header,
-# intro => $intro,
-# pc_label => $pc_label,
-# form_action => $form_action,
-# input_h => \%input_h,
-# submit_text => $submit_text,
-# cobrand_form_elements => $cobrand_form_elements,
-# cobrand_extra_data => $cobrand_extra_data,
-# url_home => Cobrand::url($cobrand, '/', $q));
-
-# my $cobrand_page = Page::template_include('alert-front-page', $q, Page::template_root($q), %vars);
-# $out = $cobrand_page if ($cobrand_page);
-
-# return $out if $q->referer() && $q->referer() =~ /fixmystreet\.com/;
-# my $recent_photos = Cobrand::recent_photos($cobrand, 10);
-# $out .= '<div id="alert_recent">' . $q->h2(_('Some photos of recent reports')) . $recent_photos . '</div>' if $recent_photos;
-
-# return $out;
-# }
-
-#sub alert_rss {
-# my $q = shift;
-# my $feed = $q->param('feed');
-# return alert_list($q, _('Please select the feed you want')) unless $feed;
-# my $cobrand = Page::get_cobrand($q);
-# my $base_url = Cobrand::base_url($cobrand);
-# my $extra_params = Cobrand::extra_params($cobrand, $q);
-# my $url;
-# if ($feed =~ /^area:(?:\d+:)+(.*)$/) {
-# (my $id = $1) =~ tr{:_}{/+};
-# $url = $base_url . '/rss/area/' . $id;
-# $url .= "?" . $extra_params if ($extra_params);
-# print $q->redirect($url);
-# return;
-# } elsif ($feed =~ /^(?:council|ward):(?:\d+:)+(.*)$/) {
-# (my $id = $1) =~ tr{:_}{/+};
-# $url = $base_url . '/rss/reports/' . $id;
-# $url .= "?" . $extra_params if ($extra_params);
-# print $q->redirect($url);
-# return;
-# } elsif ($feed =~ /^local:([\d\.-]+):([\d\.-]+)$/) {
-# $url = $base_url . '/rss/l/' . $1 . ',' . $2;
-# $url .= "?" . $extra_params if ($extra_params);
-# print $q->redirect($url);
-# return;
-# } else {
-# return alert_list($q, _('Illegal feed selection'));
-# }
-#}
-
-# sub alert_updates_form {
-# my ($q, @errors) = @_;
-# my @vars = qw(id rznvy);
-# my %input = map { $_ => $q->param($_) || '' } @vars;
-# my %input_h = map { $_ => $q->param($_) ? ent($q->param($_)) : '' } @vars;
-# my $cobrand_form_elements = Cobrand::form_elements(Page::get_cobrand($q), 'alerts', $q);
-# my $out = '';
-# if (@errors) {
-# $out .= '<ul class="error"><li>' . join('</li><li>', @errors) . '</li></ul>';
-# }
-# $out .= $q->p(_('Receive email when updates are left on this problem.'));
-# my $label = _('Email:');
-# my $subscribe = _('Subscribe');
-# my $form_action = Cobrand::url(Page::get_cobrand($q), 'alert', $q);
-# $out .= <<EOF;
-# <form action="$form_action" method="post">
-# <label class="n" for="alert_rznvy">$label</label>
-# <input type="text" name="rznvy" id="alert_rznvy" value="$input_h{rznvy}" size="30">
-# <input type="hidden" name="id" value="$input_h{id}">
-# <input type="hidden" name="type" value="updates">
-# <input type="submit" value="$subscribe">
-# $cobrand_form_elements
-# </form>
-# EOF
-# return $out;
-# }
-
-sub alert_local_form {
- my ($q, @errors) = @_;
- my @vars = qw(id rznvy feed);
- my %input = map { $_ => $q->param($_) || '' } @vars;
- my %input_h = map { $_ => $q->param($_) ? ent($q->param($_)) : '' } @vars;
- my $cobrand_form_elements = Cobrand::form_elements(Page::get_cobrand($q), 'alerts', $q);
- my $out = '';
- if (@errors) {
- $out .= '<ul class="error"><li>' . join('</li><li>', @errors) . '</li></ul>';
- }
- $out .= $q->p(_('Receive alerts on new local problems'));
- my $label = _('Email:');
- my $subscribe = _('Subscribe');
- my $form_action = Cobrand::url(Page::get_cobrand($q), 'alert', $q);
- $out .= <<EOF;
-<form action="$form_action" method="post">
-<label class="n" for="alert_rznvy">$label</label>
-<input type="text" name="rznvy" id="alert_rznvy" value="$input_h{rznvy}" size="30">
-<input type="hidden" name="feed" value="$input_h{feed}">
-<input type="hidden" name="type" value="local">
-<input type="submit" value="$subscribe">
-$cobrand_form_elements
-</form>
-EOF
- return $out;
-}
-
-sub alert_signed_input {
- my $q = shift;
- my ($salt, $signed_email) = split /,/, $q->param('signed_email');
- my $email = $q->param('rznvy');
- my $id = $q->param('id');
- my $secret = scalar(dbh()->selectrow_array('select secret from secret'));
- my $out;
- my $cobrand = Page::get_cobrand($q);
- if ($signed_email eq sha1_hex("$id-$email-$salt-$secret")) {
- my $alert_id = FixMyStreet::Alert::create($email, 'new_updates', $cobrand, '', $id);
- FixMyStreet::Alert::confirm($alert_id);
- $out = $q->p(_('You have successfully subscribed to that alert.'));
- my $cobrand = Page::get_cobrand($q);
- my $display_advert = Cobrand::allow_crosssell_adverts($cobrand);
- if ($display_advert) {
- $out .= CrossSell::display_advert($q, $email);
- }
- } else {
- $out = $q->p(_('We could not validate that alert.'));
- }
- return $out;
-}
-
-# sub alert_token {
-# my ($q, $data) = @_;
-# my $id = $data->{id};
-# my $type = $data->{type};
-# my $email = $data->{email};
-
-# (my $domain = $email) =~ s/^.*\@//;
-# if (dbh()->selectrow_array('select email from abuse where lower(email)=? or lower(email)=?', {}, lc($email), lc($domain))) {
-# return $q->p('Sorry, there has been an error confirming your alert.');
-# }
-
-# my $out;
-# my $cobrand = Page::get_cobrand($q);
-# my $message;
-# my $display_advert = Cobrand::allow_crosssell_adverts($cobrand);
-# if ($type eq 'subscribe') {
-# FixMyStreet::Alert::confirm($id);
-# $message = _('You have successfully confirmed your alert.');
-# $out = $q->p($message);
-# if ($display_advert) {
-# $out .= CrossSell::display_advert($q, $email);
-# }
-# } elsif ($type eq 'unsubscribe') {
-# FixMyStreet::Alert::delete($id);
-# $message = _('You have successfully deleted your alert.');
-# $out = $q->p($message);
-# if ($display_advert) {
-# $out .= CrossSell::display_advert($q, $email);
-# }
-# }
-
-# my %vars = (message => $message,
-# url_home => Cobrand::url($cobrand, '/', $q));
-# my $confirmation = Page::template_include('confirmed-alert', $q, Page::template_root($q), %vars);
-# return $confirmation if $confirmation;
-# return $out;
-# }
-
-# sub alert_do_subscribe {
-# my ($q, $email) = @_;
-
-# my $type = $q->param('type');
-
-# my @errors;
-# push @errors, _('Please enter a valid email address') unless is_valid_email($email);
-# push @errors, _('Please select the type of alert you want') if $type && $type eq 'local' && !$q->param('feed');
-# if (@errors) {
-# return alert_updates_form($q, @errors) if $type && $type eq 'updates';
-# return alert_list($q, @errors) if $type && $type eq 'local';
-# return alert_front_page($q, @errors);
-# }
-
-# my $alert_id;
-# my $cobrand = Page::get_cobrand($q);
-# my $cobrand_data = Cobrand::extra_alert_data($cobrand, $q);
-# if ($type eq 'updates') {
-# my $id = $q->param('id');
-# $alert_id = FixMyStreet::Alert::create($email, 'new_updates', $cobrand, $cobrand_data, $id);
-# } elsif ($type eq 'problems') {
-# $alert_id = FixMyStreet::Alert::create($email, 'new_problems', $cobrand, $cobrand_data);
-# } elsif ($type eq 'local') {
-# my $feed = $q->param('feed');
-# if ($feed =~ /^area:(?:\d+:)?(\d+)/) {
-# $alert_id = FixMyStreet::Alert::create($email, 'area_problems', $cobrand, $cobrand_data, $1);
-# } elsif ($feed =~ /^council:(\d+)/) {
-# $alert_id = FixMyStreet::Alert::create($email, 'council_problems', $cobrand, $cobrand_data, $1, $1);
-# } elsif ($feed =~ /^ward:(\d+):(\d+)/) {
-# $alert_id = FixMyStreet::Alert::create($email, 'ward_problems', $cobrand, $cobrand_data, $1, $2);
-# } elsif ($feed =~ m{ \A local: ( [\+\-]? \d+ \.? \d* ) : ( [\+\-]? \d+ \.? \d* ) }xms ) {
-# my $lat = $1;
-# my $lon = $2;
-# $alert_id = FixMyStreet::Alert::create($email, 'local_problems', $cobrand, $cobrand_data, $lon, $lat);
-# }
-# } else {
-# throw FixMyStreet::Alert::Error('Invalid type');
-# }
-
-# my %h = ();
-# $h{url} = Page::base_url_with_lang($q, undef, 1) . '/A/'
-# . mySociety::AuthToken::store('alert', { id => $alert_id, type => 'subscribe', email => $email } );
-# dbh()->commit();
-# return Page::send_confirmation_email($q, $email, undef, 'alert', %h);
-# }
-
generated by cgit v1.2.3 (git 2.25.1) at 2025-04-26 14:31:07 +0000