bitlbee - personal fork of github.com/bitlbee/bitlbee

diff options

author	Wilmer van der Gaast <wilmer@gaast.net>	2010-06-28 10:03:39 +0100
committer	Wilmer van der Gaast <wilmer@gaast.net>	2010-06-28 10:03:39 +0100
commit	ab6006cfec72ae8669c68f2892cf1c9994740c92 (patch)
tree	ba393d5e2badd7a64fc2d521fe5a415f6798ed13 /lib/ssl_sspi.c
parent	c7eb7719b4642b72669d280d4c24c54109ed0d28 (diff)

Callers shouldn't have to expect that irc_channel_del_user() frees the channel

so if it wants to (temporary channels), do it via a timer.

Diffstat (limited to 'lib/ssl_sspi.c')

0 files changed, 0 insertions, 0 deletions

#!/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.17 2009-09-10 09:36:42 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); use URI::Escape; use mySociety::AuthToken; use mySociety::Web qw(ent); sub display_random_hfymp_advert { my ($email, $name, $text) = @_; $name ||= ''; 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($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 id="advert_hfymp">' . $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">' . $text . '</div>'; } sub display_hfyc_cheltenham_advert { my ($email, $name) = @_; $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 $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 ($out, "cheltenhamhfyc$rand"); } sub display_democracyclub { my (%input) = @_; return <<EOF; <div id="advert_thin"> <h2 style="margin-bottom:0">Help make the next election the most accountable ever</h2> <p style="font-size:120%;margin-top:0.5em;"><a href="http://www.democracyclub.org.uk/">Join Democracy Club</a> and have fun keeping an eye on your election candidates. <a href="http://www.democracyclub.org.uk/">Sign me up</a>! </div> EOF } sub display_news_form { my (%input) = @_; my %input_h = map { $_ => $input{$_} ? ent($input{$_}) : '' } qw(name email signed_email); my $auth_signature = $input_h{signed_email}; return <<EOF; <h1 style="padding-top:0.5em">mySociety newsletter</h1> <p>Interested in hearing more about FixMyStreet successes? Enter your email address below and we’ll send you occasional emails about what mySociety and our users have been up to.</p> <form method="post" action="https://secure.mysociety.org/admin/lists/mailman/subscribe/news"> <label for="name">Name:</label> <input type="text" name="fullname" id="name" value="$input_h{name}" size="30"> <br><label for="email">Email:</label> <input type="text" name="email" id="email" value="$input_h{email}" size="30">   <input type="submit" value="Add me to the list"> </form> <p>mySociety respects your privacy, and we'll never sell or give away your private details. You can unsubscribe at any time.</p> EOF } sub display_survey_link { return <<EOF; <h1 style="padding-top:0.5em">User Survey</h1> <p> We're running a survey to help us understand who uses our sites. If you have 10-15 minutes to spare then we'd be grateful if you could <a href="http://questions.mysociety.org/S/fms/w/" target="_blank">take part</a>. </p> EOF } sub display_wtt_link { return <<EOF; <h1 style="padding-top:0.5em">WriteToThem</h1> <p> Need to write to a politician? Try <a href="https://writetothem.com">WriteToThem</a> - great for campaigns too. </p> EOF } # Not currently used, needs more explanation and testing; perhaps in future. sub display_gny_groups { my ($lon, $lat) = @_; my $groups = get("http://www.groupsnearyou.com/rss.php?q=$lon,$lat&category=1&pointonly=1"); my $out = ''; my $count = 0; while ($groups =~ /<item>\s*<title>New group! (.*?)<\/title>.*?<guid isPermaLink="true">(.*?)<\/guid>.*?<description>(.*?)<\/description>/gs) { $out .= "<li><a href='$2'>$1</a> $3"; $count++; } return unless $out; return <<EOF; <h1 style="padding-top:0.5em">$count local groups</h1> <ul> $out </ul> EOF } # Choose appropriate advert and display it. # $this_site is to stop a site advertising itself. sub display_advert ($$;$%) { my ($c, $email, $name, %data) = @_; return '' unless $c->cobrand->moniker eq 'fixmystreet'; $ua->timeout(5); #if (defined $data{council} && $data{council} eq '2326') { # my ($out, $ad) = display_hfyc_cheltenham_advert($email, $name); # if ($out) { # $c->stash->{scratch} = "advert=$ad"; # return $out; # } #} #if ($data{lat}) { # my $out = display_gny_groups($data{lon}, $data{lat}); # if ($out) { # $c->stash->{scratch} = 'advert=gnygroups'; # return '<div style="margin: 0 5em; border-top: dotted 1px #666666;">' # . $out . '</div>'; # } #} #$c->stash->{scratch} = 'advert=demclub0'; #return display_democracyclub(); # return <<EOF; #<div id="advert_thin"> #<p>Do you have an issue that’s too big for FixMyStreet? #It could be time to petition your council. Try our new site: #<h2 style="margin-top:0; font-size: 150%"> #<a href="http://www.petitionyourcouncil.com/">PetitionYourCouncil</a></p> #</h2> #</div> #EOF #unless (defined $data{done_tms} && $data{done_tms}==1) { $c->stash->{scratch} = 'advert=wtt'; return '<div style="margin: 0 5em; border-top: dotted 1px #666666;">' . display_wtt_link() . '</div>'; $c->stash->{scratch} = 'advert=news'; my $auth_signature = ''; unless (defined $data{emailunvalidated} && $data{emailunvalidated}==1) { $auth_signature = mySociety::AuthToken::sign_with_shared_secret($email, mySociety::Config::get('AUTH_SHARED_SECRET')); } return '<div style="margin: 0 5em; border-top: dotted 1px #666666;">' . display_news_form(email => $email, name => $name, signed_email => $auth_signature) . '</div>'; #} my @adverts = ( [ 'gny0', '<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 FixMyStreet by <a href="http://www.groupsnearyou.com/add/about/">adding some information about it</a> to our new site, GroupsNearYou.' ], [ 'gny1', '<h2>Help us build a map of the world’s local communities –<br><a href="http://www.groupsnearyou.com/add/about/">Add one to GroupsNearYou</a></h2>' ], # Since you're interested in your local area, why not # start a long term relationship with your MP? #[ 'hfymp0', '<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_alerts0', '<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)); next unless $adverts[$rand]; my ($advert_id, $advert_text) = @{$adverts[$rand]}; (my $advert_site = $advert_id) =~ s/\d+$//; my $func = "display_random_${advert_site}_advert"; no strict 'refs'; my $out = &$func($email, $name, $advert_text); use strict 'refs'; if ($out) { $c->stash->{scratch} = "advert=$advert_id"; return $out; } for (my $i=0; $i<@adverts; $i++) { (my $a = $adverts[$i][0]) =~ s/\d+$//; delete $adverts[$i] if $advert_site eq $a; } } $c->stash->{scratch} = 'advert=pb'; return <<EOF; <div id="advert_thin"> <h2 style="font-size: 150%"> 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> </div> EOF } 1;


context:
space:
mode: