[Rt-commit] r3553 - in RT-Authen-Bitcard: . html/Callbacks/Bitcard/autohandler

[kevinr at bestpractical.com]

Author: kevinr
Date: Thu Jul 28 20:37:15 2005
New Revision: 3553

Modified:
   RT-Authen-Bitcard/   (props changed)
   RT-Authen-Bitcard/html/Callbacks/Bitcard/autohandler/Auth
Log:
 r6716 at SAD-GIRL-IN-SNOW:  kevinr | 2005-07-28 18:55:30 -0400
 * Now loads users based on the (Bitcard-verified, and therefore hopefully
 known-good)) e-mail address


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	Thu Jul 28 20:37:15 2005
@@ -5,7 +5,14 @@
 
   my $user = $bc->verify(\%ARGS);
   if ($user) {
-    print "Verified user ". $user->{'email'};
+    print "Verified user ". $user->{'email'}. '<br />';
+    $session{'CurrentUser'} = RT::CurrentUser->new();
+    $session{'CurrentUser'}->LoadByEmail( $user->{'email'} );
+    if ( $session{'CurrentUser'}->id ) {
+      print "Loaded user ". ( $session{'CurrentUser'} )->id;
+    } else {
+      print "Couldn't load user";
+    }
   } else {
     print "Could not verify user";
   }