diff options
Diffstat (limited to 'perllib/CrossSell.pm')
| -rw-r--r-- | perllib/CrossSell.pm | 135 |
1 files changed, 114 insertions, 21 deletions
diff --git a/perllib/CrossSell.pm b/perllib/CrossSell.pm index 909d3b990..0955ec192 100644 --- a/perllib/CrossSell.pm +++ b/perllib/CrossSell.pm @@ -9,7 +9,7 @@ # Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: CrossSell.pm,v 1.2 2007-09-25 13:30:21 matthew Exp $ +# $Id: CrossSell.pm,v 1.3 2008-01-30 18:27:47 matthew Exp $ # Config parameters site needs set to call these functions: # OPTION_AUTH_SHARED_SECRET @@ -23,43 +23,136 @@ $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')); +sub display_random_hfymp_advert { + my ($email, $name, $text) = @_; + my $auth_signature = mySociety::AuthToken::sign_with_shared_secret($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)); + my $already_signed = get($url . '/authed?email=' . uri_escape($email) . "&sign=" . uri_escape($auth_signature)); + # Different from PHP version; display this advert if e.g. connection problem + return '' if $already_signed && $already_signed eq 'already signed'; + + $email = ent($email); + $name = ent($name); + $auth_signature = ent($auth_signature); + $text =~ s#\[form\]#<form action="http://www.hearfromyourmp.com/" method="post"> +<input type="hidden" name="name" value="$name"> +<input type="hidden" name="email" value="$email"> +<input type="hidden" name="sign" value="$auth_signature"> +<h2><input style="font-size:100%" type="submit" value="#; + $text =~ s#\[/form\]#"></h2>#; + + return '<div style="text-align:center">' . $text . '</div>'; +} + +sub display_random_gny_advert { + my ($email, $name, $text) = @_; + return '<div id="advert_thin">' . $text . '</div>'; +} + +sub display_random_twfy_alerts_advert { + my ($email, $name, $text) = @_; + my $auth_signature = mySociety::AuthToken::sign_with_shared_secret($email, mySociety::Config::get('AUTH_SHARED_SECRET')); + $text =~ s#\[button\]#<form action="http://www.theyworkforyou.com/alert/" method="post"> +<input type="hidden" name="email" value="$email"> +<input type="hidden" name="sign" value="$auth_signature"> +<input type="hidden" name="site" value="fms"> +<input style="font-size:150%" type="submit" value="'#; + $text =~ s#\[/button\]#"></p>#; + return '<div id="advert_thin" style="text-align:center">' . $text . '</div>'; +} + +sub display_hfyc_cheltenham_advert { + my ($email, $name) = @_; + my $auth_signature = mySociety::AuthToken::sign_with_shared_secret($email, mySociety::Config::get('AUTH_SHARED_SECRET')); + + # See if already signed up + my $already_signed = get('http://cheltenham.hearfromyourcouncillor.com/authed?email=' . uri_escape($email) . "&sign=" . uri_escape($auth_signature)); # Different from PHP version; display this advert if e.g. connection problem return '' if $already_signed && $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> + $email = ent($email); + $name = ent($name); + $auth_signature = ent($auth_signature); + my $out = <<EOF; +<form action="http://cheltenham.hearfromyourcouncillor.com/" method="post"> +<input type="hidden" name="name" value="$name"> +<input type="hidden" name="email" value="$email"> +<input type="hidden" name="sign" value="$auth_signature"> +<div id="advert_thin"> +EOF + + my $rand = int(rand(2)); + if ($rand == 0) { + $out .= "<h2>Cool! You're interested in Cheltenham!</h2> + <p>We've got an exciting new free service that works exclusively + for people in Cheltenham. Please sign up to help the charity + that runs WriteToThem, and to get a sneak preview of our new + service.</p>"; + } else { + $out .= "<h2>Get to know your councillors.</h2> + <p>Local councillors are really important, but hardly anyone knows them. + Use our new free service to build a low-effort, long term relationship + with your councillor.</p>"; + } + $out .= <<EOF; +<p align="center"> +<input type="submit" value="Sign up to HearFromYourCouncillor"> +</p> +</div> +</form> EOF - return 1; + return ($out, "cheltenhamhfyc$rand"); } # 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; +sub display_advert ($$;$%) { + my ($q, $email, $name, %data) = @_; + + if (defined $data{council} && $data{council} eq '2326') { + my ($out, $ad) = display_hfyc_cheltenham_advert($email, $name); + if ($out) { + $q->{scratch} = $ad; + return $out; + } + } + + my @adverts = ( + [ 'gny', '<h2>Are you a member of a local group…</h2> …which uses the internet to coordinate itself, such as a neighbourhood watch? If so, please help the charity that runs WriteToThem by <a href="http://www.groupsnearyou.com/">adding some information about it</a> to our new site, GroupsNearYou.' ], + # Since you're interested in your local area, why not + # start a long term relationship with your MP? + [ 'hfymp', '<h2 style="margin-bottom:0">Get email from your MP in the future</h2> <p style="font-size:120%;margin-top:0;">and have a chance to discuss what they say in a public forum [form]Sign up to HearFromYourMP[/form]' ], + [ 'twfy_alerts', '<h2>Get emailed every time your MP says something in Parliament</h2> [button]Keep an eye on them for free![/button]' ], + ); + while (@adverts) { + my $rand = int(rand(scalar @adverts)); + my ($advert_site, $advert_text) = @{$adverts[$rand]}; + my $func = "display_random_${advert_site}_advert"; + no strict 'refs'; + my $out = &$func($email, $name, $advert_text); + use strict 'refs'; + if ($out) { + $q->{scratch} = $advert_site . $rand; + return $out; + } + + my @new_adverts; + foreach my $advert (@adverts) { + push @new_adverts, $advert if $advert_site != $advert->[0]; + } + @adverts = @new_adverts; + } + + $q->{scratch} = 'pb'; + return <<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; |