1 files changed, 65 insertions, 0 deletions
diff --git a/perllib/CrossSell.pm b/perllib/CrossSell.pm
new file mode 100644
index 000000000..9f471d5f6
--- /dev/null
+++ b/perllib/CrossSell.pm
@@ -0,0 +1,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;