From a50de4281c530e6adee4040a9bacfad30ca7ab76 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Fri, 25 Jun 2010 12:37:47 -0500
Subject: [PATCH] add twitter login macro

---
 lib/WebGUI/Macro/TwitterLogin.pm |  53 +++++++++++++++++++++++++++++++
 www/extras/twitter_login.png     | Bin 0 -> 2490 bytes
 2 files changed, 53 insertions(+)
 create mode 100644 lib/WebGUI/Macro/TwitterLogin.pm
 create mode 100644 www/extras/twitter_login.png

diff --git a/lib/WebGUI/Macro/TwitterLogin.pm b/lib/WebGUI/Macro/TwitterLogin.pm
new file mode 100644
index 000000000..59b7068a3
--- /dev/null
+++ b/lib/WebGUI/Macro/TwitterLogin.pm
@@ -0,0 +1,53 @@
+package WebGUI::Macro::TwitterLogin;
+
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2009 Plain Black Corporation.
+#-------------------------------------------------------------------
+# Please read the legal notices (docs/legal.txt) and the license
+# (docs/license.txt) that came with this distribution before using
+# this software.
+#-------------------------------------------------------------------
+# http://www.plainblack.com                     info@plainblack.com
+#-------------------------------------------------------------------
+
+use strict;
+use List::MoreUtils qw( any );
+
+=head1 NAME
+
+Package WebGUI::Macro::TwitterLogin
+
+=head1 DESCRIPTION
+
+Display a twitter login button
+
+=head2 process( $session )
+
+=over 4
+
+=item *
+
+A session variable
+
+=back
+
+=cut
+
+
+#-------------------------------------------------------------------
+sub process {
+    my $session = shift;
+
+    return "" unless any { $_ eq 'Twitter' } @{ $session->config->get( 'authMethods' ) };
+    return "" unless $session->user->isVisitor;
+
+    my $loginUrl    = $session->url->page('op=auth;authType=Twitter;method=login');
+    my $imgUrl      = shift || $session->url->extras( 'twitter_login.png' );
+
+    my $output   = sprintf '<a href="%s"><img src="%s" border="0" /></a>', $loginUrl, $imgUrl;
+    return $output;
+}
+
+1;
+
+#vim:ft=perl
diff --git a/www/extras/twitter_login.png b/www/extras/twitter_login.png
new file mode 100644
index 0000000000000000000000000000000000000000..297bb03404f2d7462ee9355aae38f5f5f3e47fbd
GIT binary patch
literal 2490
zcmV;r2}SmaP)<h;3K|Lk000e1NJLTq005T&000;W1^@s6_jzx000004b3#c}2nYxW
zd<bNS00009a7bBm000XT000XT0n*)m`~Uy|6?8>dbVG7wVRUJ4ZXi@?ZDjy8FEKeU
zFgbGL({lg-0338hSaefwW^{L9a%BKPWN%_+AVz6&Wp{6KYjYq&Q#1y$)1UwV2@^>~
zK~!jg?VEdWl+_u=f8X9WA)72QVM!vF1VSK4AZQ?nK}o}<Rbiag3e?il>NseS3JN$f
zgRQMIo!W~OJ6`ZouvAJ_K&eH%O=zU35Dd9+OGJ}EvYTu++57IdU;kJVc9XpY6B?a;
zX3k{ZIp=-eC+|7m`<-)kR{+>vQ7sWi9D|5ebEgWz_KIq$s4!>9f*d_|j-lj_V|e1|
zv2!Q@e7>PCTvsDT9K#C=07>!<d7!HiBaY#Pc;$*?$lzaGQs{}-%4Ce!YEa1p0E})A
z%`W#91qv4<j&Cpguf;G`WqhKV28Y157RXD4`!kf-MIRk*&wvAkixJ1S7ZEF$N+x4l
z3%qCcw;M*l<OBsSQS2S#@=3UT(f3o)Dp!}qg3W3rH7yO5N(I2_x_VOdDWn?=G5<rc
zV5oRw<$vw3I~hMAhoU*fLlS?WdWH&@7FYPi(Ip1kNeVehBNBRTQIcr1IWT)7SF><2
zJRT3v{^4m(e0B`AMuXes=AQD^+;C$tPj22q>4H*zdfz>`#KAid3>9xAeo+*W%jE#P
zv+pgwyLbU*^X6iX@D|vxdJPV{BV^y=rMIzo>FtA}CzL%H7|@3PC-uR0k{o`MEpT&+
zmiCUwd$DjaD&G5m<DY!WL*=Xa(URLZcm6zDwHlXF$y3ig!|aSv*aR8pt@fBS#)6^Z
z4adLffwg4kPT<}(58%&&gjOzNghD~PGko6GY}&xYq(p2s8$VyWo`v&o=4Z?A0$`+G
zk3*^CqQm*M_4L;_IFK({wR%hH$Ppnsvl6ttX@VA4XlJ(sCNJEPCeRe-32X1Lk~w-L
z&M*gohSO&_dEx|yYf{O~n@p!diASlz?GxF&?h($lnaIk^!zW1`cw;Zm{O<SsYwtcT
zHn*_*l^rDO^<-pa@@V;5+Ag;8(YuFuaob<0KUvH5#j}uwcp4vHzafY>R^R=5Ugy>A
zFL6`pd;osE=`rd~)-ZEc5shchvh}x5aZ~9nJpS;;UjCggyhMFX4IM@k^;K2OnpeX9
zJ+G59W-M>Ndx+<@J`*<Hh@>QB2?^MN1N-(fead7?=HEi6T!B@Box5IR=L;`>Ej{PX
zHuTf??pp_V_K#2V&%f=WuDXUP)2>6K(eP;bS}ruV@b7*5sr;ydIrB<FFN{m`E(3p6
z3Dsgjk<R}&8b`SP;&~<H=H~Lofp_@DgAeiP$N$Cd@#64^n2bhLUJnMXhEuh5?A^VG
znT6ANXV(t0)6*~+jf_&rNl_{>8I2tIsDgsYdEB~aA*X6<X{)OPsekN1-X1#^->k7?
zxX|2;qp^|Gwe@`Y#d&IupCC)EqUw`l7)GU&uTKu*U$o?QG#U*z%qZYj8`hDRoCLu8
zhbzgOI5DbLyT^;&?d{E@=<{Loc(HlBWQ@7?YwIarxgyB6oH@guS9eiXI-mWozJlq(
z1uEY@fC2%N(MZ*iqs%Lw&3$(-XHs%f#Ci8GF3A_N^~J`q@N(Yec4#`>p8;Rm>`^(w
z^()mX);zY6A1}KTOQ(hBpZ+tI2M_vvC6EgOasg^TuSW9u`2L~=xMTvlF=IdirA&q(
z01}jz+(`M#6-+Id=Jypvl2wZSngV!x>{xvBuA7QRt)c4kYU--0D3~!Fhr>aA^+`_G
z)iHDWG@POs#IMsQgCL+*sYp&s<E*6{B$!`vBlpLkHBhqzNJxXK$D&XM*#|3+Ao+Z_
zt=&BT_kSQ$syNrs!01GcU-#TO+`IfvvZv(HWQ{!U1KM+CsxDWm9<)1Me9>i#>KieJ
zAZPaXZl!3>9M-SjNX7dfvh?=bdf)$&1YWO*1jqy#ZFVPakM~lt{ns24pi(Mnce*e+
zoV|U5)IWA0uWtapa=C)>xf3{EU4zZ(WX19y(%RC@hySVMd_x1@*}REPr@KGD1PCBr
zszd|P3jULJU(P|*6JUEpf1Z<dI<z_+cPzOTgI-U9T<*`mTt>UYMN@b5y{gO~R0`R^
zzo2^1b1iYS>vBugsL9qPM&yVT<IBcIOl?L)pN|f&4`c#KBN9nZ&;<F8%^nZH?!Egt
zTydC#Z@t~SQZA>yCwWp(Uo=ev@y*W7rS{ZmOePbh#j}_&X%YtxeZa(=9L5<&(e8Bi
z<5wsYm^&^0MKr*8(egMLdIIf9`S}2Jn9Y=xl~T570XoAdF4!DlHH6a}anEJ-cv*VQ
z<;7KRgYq-}Q)5qi@;qcECS38JtLDV#Y+3g(n;(3LUp}&dB%O}ct5)I-xFV2%>k11g
zTUf@C&yKTa*KVdw^(R50loR*{_b2SKCHeZt4jkLpj^;ZlKOe6sQZ!>aT9uM(b0*;N
zdYL_=0IS=B(<AodzkW_JpH-b;+1;xK950;a!PFCIPbnzi2Y21c2ZulAt`#d;w(M@U
zzq|u$z?Df~4dL_(+bgQ2tSmjDpjWFXOdrX%7TDGlatNh**g6s3`|4uI{-!1~MTI%E
zv~`3g0JKgA3a1^FMnhiCc-*4IX|n~3%S}m^feSV}XUtt#%w}e0kHwIn<xelX#E#eY
zu<O~aNcvRT?9QOEsaiGpsd`SCEwtMDpJW5a_O+w=CaILnNKeJ+a8lRai6K!-u0ENs
zx@|OCx<m4hlthx{0;3EDj<mE5C?0@PE~9vKdJyMe>gj7|CTgIo3w=s5DLNgUE;lDl
z=6*ck(9~r1FRqNt<gkM>5);TzP2p%4ylH~wfExv!+`pk8s}?!j(i+mgrP)GJVGd2L
zrifxR3OQ=I9MLCX4Ray;#3LJ#2{HtkfT^vG#S0hk#JUIhwAC2&WDQrS<TB)f42Rbn
zeehL4Up;+oK>)2nfk*V=iQ!Y2K(sVlqHpM%x^1{ck;y4Kin5jc`W;@8<8AFx4+YWs
z?QSo2A}4+Q<6F?#y0F{r<cu4~xXjTsbzA9*a1lA2;Pi=r7<Js$LSH?h^jXC#e`qg#
zpDXgjx7r+G%XO@X79$oYRVv)-H1wlYbjbuNn=az?4xh=2BN*Sf?{oQ(=&(os$Rm#b
zKcaqcJy^IJG2$3r_{LSPIKDX$ApX;`I0hf9=1vv<2jFsyKS?RtRsaA107*qoM6N<$
Eg4BV?zyJUM

literal 0
HcmV?d00001