This is a developer site; things might break at any time, and councils are not sent emails (they\'d get annoyed!).
'; } return $html; } =item footer =cut sub footer { return <' : '';
$html .= '';
if (mySociety::Config::get('STAGING_SITE')) {
$html .= 'Navigation
EOF
}
=item error_page Q MESSAGE
=cut
sub error_page ($$) {
my ($q, $message);
my $html = header($q, "Error")
. $q->p($message)
. footer();
print $q->header(-content_length => length($html)), $html;
}
sub compass ($$$) {
my ($q, $x, $y) = @_;
my @compass;
for (my $i=$x-1; $i<=$x+1; $i++) {
for (my $j=$y-1; $j<=$y+1; $j++) {
$compass[$i][$j] = NewURL($q, x=>$i, y=>$j);
}
}
return <
EOF
}
# send_email TO (NAME) TEMPLATE-NAME PARAMETERS
sub send_email {
my ($email, $name, $thing, %h) = @_;
my $template = "$thing-confirm";
$template = File::Slurp::read_file("$FindBin::Bin/../templates/emails/$template");
my $to = $name ? [[$email, $name]] : $email;
my $message = mySociety::Email::construct_email({
_template_ => $template,
_parameters_ => \%h,
From => [mySociety::Config::get('CONTACT_EMAIL'), 'Neighbourhood Fix-It'],
To => $to,
});
my $result = mySociety::Util::send_email($message, mySociety::Config::get('CONTACT_EMAIL'), $email);
my $out;
my $action = ($thing eq 'alert') ? 'confirmed' : 'posted';
if ($result == mySociety::Util::EMAIL_SUCCESS) {
$out = <Nearly Done! Now check your email...
The confirmation email may take a few minutes to arrive — please be patient.
If you use web-based email or have 'junk mail' filters, you may wish to check your bulk/spam mail folders: sometimes, our messages are marked that way.
You must now click on the link within the email we've just sent you —
if you do not, your $thing will not be $action.
(Don't worry — we'll hang on to your $thing while you're checking your email.)
EOF
} else {
$out = <I'm afraid something went wrong when we tried to send you a confirmation email for your $thing. Please click Back, check your details, and try again.
EOF
}
return $out;
}
1;
';
if (mySociety::Config::get('STAGING_SITE')) {
$html .= '
Navigation
EOF } =item error_page Q MESSAGE =cut sub error_page ($$) { my ($q, $message); my $html = header($q, "Error") . $q->p($message) . footer(); print $q->header(-content_length => length($html)), $html; } sub compass ($$$) { my ($q, $x, $y) = @_; my @compass; for (my $i=$x-1; $i<=$x+1; $i++) { for (my $j=$y-1; $j<=$y+1; $j++) { $compass[$i][$j] = NewURL($q, x=>$i, y=>$j); } } return <The confirmation email may take a few minutes to arrive — please be patient.
If you use web-based email or have 'junk mail' filters, you may wish to check your bulk/spam mail folders: sometimes, our messages are marked that way.
You must now click on the link within the email we've just sent you — if you do not, your $thing will not be $action.
(Don't worry — we'll hang on to your $thing while you're checking your email.)
EOF } else { $out = <