[Rt-commit] r3559 - in RT-Authen-Bitcard: . html/Callbacks/Bitcard/NoAuth/Logout html/Callbacks/Bitcard/NoAuth/Logout.html

[kevinr at bestpractical.com]

Author: kevinr
Date: Fri Jul 29 14:34:21 2005
New Revision: 3559

Added:
   RT-Authen-Bitcard/html/Callbacks/Bitcard/NoAuth/Logout.html/
   RT-Authen-Bitcard/html/Callbacks/Bitcard/NoAuth/Logout.html/Default
Removed:
   RT-Authen-Bitcard/html/Callbacks/Bitcard/NoAuth/Logout/
Modified:
   RT-Authen-Bitcard/   (props changed)
Log:
 r6741 at SAD-GIRL-IN-SNOW:  kevinr | 2005-07-29 14:33:20 -0400
 * Logout through Bitcard


Added: RT-Authen-Bitcard/html/Callbacks/Bitcard/NoAuth/Logout.html/Default
==============================================================================
--- (empty file)
+++ RT-Authen-Bitcard/html/Callbacks/Bitcard/NoAuth/Logout.html/Default	Fri Jul 29 14:34:21 2005
@@ -0,0 +1,9 @@
+<%INIT>
+  use Authen::Bitcard;
+  my $bc = Authen::Bitcard->new;
+  $bc->token('6440e194b0ee0af1d4baec0570e496');
+  my $return_url = 'http://sad-girl-in-snow.mit.edu:8080/';
+  print "Got the callback";
+</%INIT>
+
+<% $m->redirect( $bc->logout_url( r => $return_url ) ) %>