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
|
#!/usr/bin/perl -w
# contact.cgi:
# Contact page for FixMyStreet
#
# Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved.
# Email: matthew@mysociety.org. WWW: http://www.mysociety.org
#
# $Id: contact.cgi,v 1.20 2007-06-15 14:57:52 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 Page;
use mySociety::Config;
use mySociety::DBHandle qw(dbh);
use mySociety::Email;
use mySociety::Util;
use mySociety::Web qw(ent);
BEGIN {
mySociety::Config::set_file("$FindBin::Bin/../conf/general");
mySociety::DBHandle::configure(
Name => mySociety::Config::get('BCI_DB_NAME'),
User => mySociety::Config::get('BCI_DB_USER'),
Password => mySociety::Config::get('BCI_DB_PASS'),
Host => mySociety::Config::get('BCI_DB_HOST', undef),
Port => mySociety::Config::get('BCI_DB_PORT', undef)
);
}
# Main code for index.cgi
sub main {
my $q = shift;
print Page::header($q, title=>'Contact Us');
my $out = '';
if ($q->param('submit_form')) {
$out = contact_submit($q);
} else {
$out = contact_page($q);
}
print $out;
print Page::footer();
dbh()->rollback();
}
Page::do_fastcgi(\&main);
sub contact_submit {
my $q = shift;
my @vars = qw(name email subject message id);
my %input = map { $_ => $q->param($_) || '' } @vars;
my @errors;
push(@errors, 'Please give your name') unless $input{name} =~ /\S/;
if ($input{email} !~ /\S/) {
push(@errors, 'Please give your email');
} elsif (!mySociety::Util::is_valid_email($input{email})) {
push(@errors, 'Please give a valid email address');
}
push(@errors, 'Please give a subject') unless $input{subject} =~ /\S/;
push(@errors, 'Please write a message') unless $input{message} =~ /\S/;
push(@errors, 'Illegal ID') if $input{id} && $input{id} !~ /^[1-9]\d*$/;
return contact_page($q, @errors) if @errors;
(my $message = $input{message}) =~ s/\r\n/\n/g;
(my $subject = $input{subject}) =~ s/\r|\n/ /g;
$message .= "\n\n[ Complaint about report $input{id} - "
. mySociety::Config::get('BASE_URL') . "/?id=$input{id} ]"
if $input{id};
my $postfix = '[ Sent by contact.cgi on ' .
$ENV{'HTTP_HOST'} . '. ' .
"IP address " . $ENV{'REMOTE_ADDR'} .
($ENV{'HTTP_X_FORWARDED_FOR'} ? ' (forwarded from '.$ENV{'HTTP_X_FORWARDED_FOR'}.')' : '') . '. ' .
' ]';
my $email = mySociety::Email::construct_email({
_body_ => "$message\n\n$postfix",
From => [$input{email}, $input{name}],
To => [[mySociety::Config::get('CONTACT_EMAIL'), 'FixMyStreet']],
Subject => 'FMS message: ' . $subject
});
my $result = mySociety::Util::send_email($email, $input{email}, mySociety::Config::get('CONTACT_EMAIL'));
if ($result == mySociety::Util::EMAIL_SUCCESS) {
return $q->p("Thanks for your feedback. We'll get back to you as soon as we can!");
} else {
return $q->p('Failed to send message. Please try again, or <a href="mailto:' . mySociety::Config::get('CONTACT_EMAIL') . '">email us</a>.');
}
}
sub contact_page {
my ($q, @errors) = @_;
my @vars = qw(name email subject message);
my %input = map { $_ => $q->param($_) || '' } @vars;
my %input_h = map { $_ => $q->param($_) ? ent($q->param($_)) : '' } @vars;
my $out = $q->h1('Contact the team');
if (@errors) {
$out .= '<ul id="error"><li>' . join('</li><li>', @errors) . '</li></ul>';
}
$out .= '<form method="post">';
my $id = $q->param('id');
$id = undef unless $id && $id =~ /^[1-9]\d*$/;
if ($id) {
mySociety::DBHandle::configure(
Name => mySociety::Config::get('BCI_DB_NAME'),
User => mySociety::Config::get('BCI_DB_USER'),
Password => mySociety::Config::get('BCI_DB_PASS'),
Host => mySociety::Config::get('BCI_DB_HOST', undef),
Port => mySociety::Config::get('BCI_DB_PORT', undef)
);
my $p = dbh()->selectrow_hashref(
'select title,detail,name,anonymous,extract(epoch from created) as created
from problem where id=?', {}, $id);
$out .= $q->p('You are reporting the following problem report for being abusive, containing personal information, or similar:');
$out .= $q->blockquote(
$q->h2(ent($p->{title})),
$q->p($q->em(
'Reported ',
($p->{anonymous}) ? 'anonymously' : "by " . ent($p->{name}),
' at ' . Page::prettify_epoch($p->{created}),
)),
$q->p(ent($p->{detail}))
);
$out .= '<input type="hidden" name="id" value="' . $id . '">';
} else {
$out .= <<EOF;
<p>Please do <strong>not</strong> report problems through this form; messages go to
the team behind FixMyStreet, not a council. To report a problem,
please <a href="/">go to the front page</a> and follow the instructions.</p>
<p>We'd love to hear what you think about this site. Just fill in the form:</p>
EOF
}
$out .= <<EOF;
<fieldset>
<input type="hidden" name="submit_form" value="1">
<div><label for="form_name">Your name:</label>
<input type="text" name="name" id="form_name" value="$input_h{name}" size="30"></div>
<div><label for="form_email">Your email:</label>
<input type="text" name="email" id="form_email" value="$input_h{email}" size="30"></div>
<div><label for="form_subject">Subject:</label>
<input type="text" name="subject" id="form_subject" value="$input_h{subject}" size="30"></div>
<div><label for="form_message">Message:</label>
<textarea name="message" id="form_message" rows="7" cols="60">$input_h{message}</textarea></div>
<div class="checkbox"><input type="submit" value="Post"></div>
</fieldset>
</form>
</div>
EOF
return $out;
}
|
