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

[kevinr at bestpractical.com]

Author: kevinr
Date: Thu Jul 28 20:37:06 2005
New Revision: 3551

Modified:
   RT-Authen-Bitcard/   (props changed)
   RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Login/Header
Log:
 r6694 at SAD-GIRL-IN-SNOW:  kevinr | 2005-07-27 17:56:14 -0400
 * Added actual Bitcard auth code


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:06 2005
@@ -1,4 +1,10 @@
+<%INIT>
+  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' );
+</%INIT>
 <& /Elements/Header, Title => loc('Login') &>
-Redirecting you to <a href="http://www.bitcard.org">Bitcard</a> to login...
-<meta http-equiv="refresh" content="5;url=http://www.bitcard.org/" />
+Redirecting you to <a href="<% $login_url %>">Bitcard</a> to login...
+<meta http-equiv="refresh" content="5;url=<% $login_url %>" />
 % $m->abort;