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
|
#!/usr/bin/perl -w
# contact.cgi:
# Contact page for Neighbourhood Fix-It
#
# Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved.
# Email: matthew@mysociety.org. WWW: http://www.mysociety.org
#
# $Id: contact.cgi,v 1.5 2006-09-27 23:51:45 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::Email;
use mySociety::Util;
BEGIN {
mySociety::Config::set_file("$FindBin::Bin/../conf/general");
}
# Main code for index.cgi
sub main {
my $q = shift;
print Page::header($q, 'Contact Us');
my $out = '';
if ($q->param('submit_form')) {
$out = contact_submit($q);
} else {
$out = contact_page($q);
}
print $out;
print Page::footer();
}
Page::do_fastcgi(\&main);
sub contact_submit {
my $q = shift;
my @vars = qw(name email message);
my %input = map { $_ => $q->param($_) } @vars;
my @errors;
push(@errors, 'Please give your name') unless $input{name};
push(@errors, 'Please give your name') unless $input{email};
push(@errors, 'Please write a message') unless $input{message};
return contact_page($q, @errors) if @errors;
my $message = str_replace("\r\n", "\n", $input{message});
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'), 'Neighbourhood Fix-It']],
Subject => 'Message from Neighbourhood Fix-It'
});
my $result = mySociety::Util::send_email($email, $input{email}, mySociety::Config::get('CONTACT_EMAIL'));
if ($result == mySociety::Util::EMAIL_SUCCESS) {
return '<p>Thanks for your feedback. We\'ll get back to you as soon as we can!</p>';
} else {
return '<p>Failed to send message. Please try again, or <a href="' . mySociety::Config::get('CONTACT_EMAIL') . '">email us</a>.</p>';
}
}
sub contact_page {
my ($q, @errors) = @_;
my @vars = qw(name email message);
my %input = map { $_ => $q->param($_) } @vars;
my %input_h = map { $_ => $q->param($_) ? ent($q->param($_)) : '' } @vars;
my $out = '<h1>Contact the team</h1>';
if (@errors) {
$out .= '<ul id="error"><li>' . join('</li><li>', @errors) . '</li></ul>';
}
$out .= <<EOF;
<p>We'd love to hear what you think about this site. Just fill in the form:</p>
<form method="post">
<fieldset>
<input type="hidden" name="submit_form" value="1">
<div><label for="form_name">Name:</label>
<input type="text" name="name" id="form_name" value="$input_h{name}" size="30"></div>
<div><label for="form_email">Email:</label>
<input type="text" name="email" id="form_email" value="$input_h{email}" size="30"></div>
<div><label for="form_message">Message:</label>
<textarea name="message" id="form_message" rows="7" cols="30">$input_h{message}</textarea></div>
<div class="checkbox"><input type="submit" value="Post"></div>
</fieldset>
</form>
</div>
EOF
return $out;
}
|
