[Bps-public-commit] r10917 - RT-Authen-Bitcard/lib/RT/Authen

[ruz at bestpractical.com]

Author: ruz
Date: Fri Feb 22 14:43:47 2008
New Revision: 10917

Modified:
   RT-Authen-Bitcard/lib/RT/Authen/Bitcard.pm

Log:
* handler method into lib/RT/Authen/Bitcard.pm, so we can get rid of duplications

Modified: RT-Authen-Bitcard/lib/RT/Authen/Bitcard.pm
==============================================================================
--- RT-Authen-Bitcard/lib/RT/Authen/Bitcard.pm	(original)
+++ RT-Authen-Bitcard/lib/RT/Authen/Bitcard.pm	Fri Feb 22 14:43:47 2008
@@ -11,4 +11,19 @@
 
 our $VERSION = '0.02';
 
+use Authen::Bitcard 0.86;
+
+sub handler {
+    my $self = shift;
+
+    die 'No Bitcard auth token provided as $BitcardToken in the RT configuration file on this server.'
+        unless $RT::BitcardToken;
+
+    my $bc = Authen::Bitcard->new;
+    $bc->token( $RT::BitcardToken );
+    $bc->info_required('email,username');
+    $bc->info_optional('name');
+    return $bc;
+}
+
 1;