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
|
#!/usr/bin/perl -w
#
# CrossSell.pm:
# Adverts from FixMyStreet to another site.
#
# Unlike the PHP crosssell script, returns strings rather than prints them;
# and currently displays the same advert if e.g. there's a connection problem.
#
# Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved.
# Email: matthew@mysociety.org. WWW: http://www.mysociety.org
#
# $Id: CrossSell.pm,v 1.1 2007-07-09 17:40:28 matthew Exp $
# Config parameters site needs set to call these functions:
# OPTION_AUTH_SHARED_SECRET
# OPTION_HEARFROMYOURMP_BASE_URL
package CrossSell;
use strict;
use LWP::Simple qw($ua get);
$ua->timeout(5);
use URI::Escape;
use mySociety::AuthToken;
# Force site means always display this advert
sub display_hfymp_advert ($;$$) {
my ($user_email, $user_name, $postcode) = @_;
my $auth_signature = mySociety::AuthToken::sign_with_shared_secret($user_email, mySociety::Config::get('AUTH_SHARED_SECRET'));
# See if already signed up
my $url = mySociety::Config::get('HEARFROMYOURMP_BASE_URL');
my $already_signed = get($url . '/authed?email=' . uri_escape($user_email) . "&sign=" . uri_escape($auth_signature));
# Different from PHP version; display this advert if e.g. connection problem
return '' if $already_signed eq 'already signed';
# If not, display advert
$url .= '/?email=' . uri_escape($user_email) . '&sign=' . uri_escape($auth_signature);
$url .= '&name=' . uri_escape($user_name) if $user_name;
$url .= '&pc=' . uri_escape($postcode) if $postcode;
return <<EOF;
<h2 style="padding: 1em; font-size: 200%" align="center">
Since you're interested in your local area, why not
start a <a href="$url">long term relationship</a> with your MP?
</h2>
EOF
return 1;
}
# Choose appropriate advert and display it.
# $this_site is to stop a site advertising itself.
sub display_advert ($;$$) {
my ($user_email, $user_name, $postcode) = @_;
my $out = display_hfymp_advert($user_email, $user_name, $postcode);
# $out ||= display_twfy_alerts_advert($user_email, $postcode);
$out ||= <<EOF;
<h2 style="padding: 1em; font-size: 200%" align="center">
If you're interested in improving your local area,
<a href="http://www.pledgebank.com/">use PledgeBank</a> to
do so with other people!</h2>
EOF
return $out;
}
1;
|
