[Rt-commit] r3552 - in RT-Authen-Bitcard: . html/Callbacks/Bitcard/Elements/Login html/Callbacks/Bitcard/autohandler

[kevinr at bestpractical.com]

Author: kevinr
Date: Thu Jul 28 20:37:10 2005
New Revision: 3552

Added:
   RT-Authen-Bitcard/html/Callbacks/Bitcard/autohandler/
   RT-Authen-Bitcard/html/Callbacks/Bitcard/autohandler/Auth
Modified:
   RT-Authen-Bitcard/   (props changed)
   RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Login/Header
Log:
 r6715 at SAD-GIRL-IN-SNOW:  kevinr | 2005-07-28 15:45:37 -0400
 * Added user verification


Modified: RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Login/Header
==============================================================================
--- RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Login/Header	(original)
+++ RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Login/Header	Thu Jul 28 20:37:10 2005
@@ -2,7 +2,9 @@
   use Authen::Bitcard;
   my $bc = Authen::Bitcard->new;
   $bc->token('6440e194b0ee0af1d4baec0570e496');
-  my $login_url = $bc->login_url( r => 'http://sad-girl-in-snow.mit.edu:8080' );
+  $bc->info_required('email');
+  $bc->info_optional('username,name');
+  my $login_url = $bc->login_url( r => 'http://sad-girl-in-snow.mit.edu:8080/index.html' );
 </%INIT>
 <& /Elements/Header, Title => loc('Login') &>
 Redirecting you to <a href="<% $login_url %>">Bitcard</a> to login...

Added: RT-Authen-Bitcard/html/Callbacks/Bitcard/autohandler/Auth
==============================================================================
--- (empty file)
+++ RT-Authen-Bitcard/html/Callbacks/Bitcard/autohandler/Auth	Thu Jul 28 20:37:10 2005
@@ -0,0 +1,12 @@
+<%INIT>
+  use Authen::Bitcard;
+  my $bc = Authen::Bitcard->new;
+  $bc->token('6440e194b0ee0af1d4baec0570e496');
+
+  my $user = $bc->verify(\%ARGS);
+  if ($user) {
+    print "Verified user ". $user->{'email'};
+  } else {
+    print "Could not verify user";
+  }
+</%INIT>