[Rt-commit] r3574 - in RT-Authen-Bitcard: . html/Callbacks/Bitcard/Elements/Header html/Callbacks/Bitcard/Elements/Login html/Callbacks/Bitcard/NoAuth/Logout.html html/Callbacks/Bitcard/autohandler

[kevinr at bestpractical.com]

Author: kevinr
Date: Mon Aug  1 16:04:48 2005
New Revision: 3574

Added:
   RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Header/
Modified:
   RT-Authen-Bitcard/   (props changed)
   RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Login/Default
   RT-Authen-Bitcard/html/Callbacks/Bitcard/NoAuth/Logout.html/Default
   RT-Authen-Bitcard/html/Callbacks/Bitcard/autohandler/Auth
Log:
 r6798 at SAD-GIRL-IN-SNOW:  kevinr | 2005-08-01 15:57:47 -0400
 * Added a link to the Bitcard account administration page
 * Fixed a typo


Modified: RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Login/Default
==============================================================================
--- RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Login/Default	(original)
+++ RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Login/Default	Mon Aug  1 16:04:48 2005
@@ -1,7 +1,7 @@
 <%INIT>
   use Authen::Bitcard;
   my $bc = Authen::Bitcard->new;
-  die 'No Bitcard auth token provided as $BitcardToken in the RT configuration file on this server.' unless $RT::BitcardToken;
+  die 'No Bitcard auth token provided as $BitcardToken in the RT configuration file on this server' unless $RT::BitcardToken;
   $bc->token($RT::BitcardToken);
   $bc->info_required('email');
   $bc->info_optional('username,name');

Modified: RT-Authen-Bitcard/html/Callbacks/Bitcard/NoAuth/Logout.html/Default
==============================================================================
--- RT-Authen-Bitcard/html/Callbacks/Bitcard/NoAuth/Logout.html/Default	(original)
+++ RT-Authen-Bitcard/html/Callbacks/Bitcard/NoAuth/Logout.html/Default	Mon Aug  1 16:04:48 2005
@@ -6,4 +6,7 @@
   my $return_url = $RT::WebURL;
 </%INIT>
 
-<% $m->redirect( $bc->logout_url( r => $return_url ) ) %>
+<%PERL>
+  $session{'BitcardUser'} = undef;
+  $m->redirect( $bc->logout_url( r => $return_url ) );
+</%PERL>

Modified: RT-Authen-Bitcard/html/Callbacks/Bitcard/autohandler/Auth
==============================================================================
--- RT-Authen-Bitcard/html/Callbacks/Bitcard/autohandler/Auth	(original)
+++ RT-Authen-Bitcard/html/Callbacks/Bitcard/autohandler/Auth	Mon Aug  1 16:04:48 2005
@@ -12,6 +12,9 @@
 
       print "Verified user ". $user->{'email'}. '<br />';
 
+      # set a global user so we know elsewhere we're using Bitcard for auth
+      $session{'BitcardUser'} = $user;
+
       # Bitcard has verified that the user has control of this e-mail address,
       # so it's okay to use it to get a valid RT user