[Rt-commit] r3573 - in RT-Authen-Bitcard: . 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 15:19:28 2005
New Revision: 3573

Modified:
   RT-Authen-Bitcard/   (props changed)
   RT-Authen-Bitcard/META.yml
   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:
 r6796 at SAD-GIRL-IN-SNOW:  kevinr | 2005-08-01 15:19:09 -0400
 * Removed hard-coded paths, added a $BitcardToken config option


Modified: RT-Authen-Bitcard/META.yml
==============================================================================
--- RT-Authen-Bitcard/META.yml	(original)
+++ RT-Authen-Bitcard/META.yml	Mon Aug  1 15:19:28 2005
@@ -4,6 +4,8 @@
 author: Kevin Riggle <kevinr at bestpractical.com>
 license: GPL version 2
 distribution_type: module
+requires:
+  Authen::Bitcard: 0
 no_index:
   directory:
     - html

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 15:19:28 2005
@@ -1,10 +1,11 @@
 <%INIT>
   use Authen::Bitcard;
   my $bc = Authen::Bitcard->new;
-  $bc->token('6440e194b0ee0af1d4baec0570e496');
+  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');
-  my $login_url = $bc->login_url( r => 'http://sad-girl-in-snow.mit.edu:8080/index.html' );
+  my $login_url = $bc->login_url( r => $RT::WebURL . 'index.html');
 </%INIT>
 <div class="input-row">
     <a href="<% $login_url %>">Click here to login with Bitcard</a>

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 15:19:28 2005
@@ -1,9 +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";
+  die 'No Bitcard auth token provided as $BitcardToken in the RT configuration file.' unless $RT::BitcardToken;
+  $bc->token($RT::BitcardToken);
+  my $return_url = $RT::WebURL;
 </%INIT>
 
 <% $m->redirect( $bc->logout_url( r => $return_url ) ) %>

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 15:19:28 2005
@@ -1,7 +1,8 @@
 <%INIT>
   use Authen::Bitcard;
   my $bc = Authen::Bitcard->new;
-  $bc->token('6440e194b0ee0af1d4baec0570e496');
+  die 'No Bitcard auth token provided as $BitcardToken in the RT configuration file on this server.' unless $RT::BitcardToken;
+  $bc->token($RT::BitcardToken);
 
   my $user = $bc->verify(\%ARGS);
   print "Could not verify user" unless ($user) || ( $session{'CurrentUser'} );