working against test server!

diff --git a/Changes b/Changes
index 4233359..d340e0f 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,5 @@
 Revision history for Business-OnlinePayment-CardFortress
 
-0.01    Date/time
+0.01    unreleased
         First version, released on an unsuspecting world.
 

diff --git a/Makefile.PL b/Makefile.PL
index 15bd3f6..e699d74 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -13,6 +13,8 @@ WriteMakefile(
     PL_FILES            => {},
     PREREQ_PM => {
         'Test::More' => 0,
+        'Crypt::OpenSSL::RSA' => 0,
+        'Business::OnlinePayment' => 0,
     },
     dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
     clean               => { FILES => 'Business-OnlinePayment-CardFortress-*' },

diff --git a/lib/Business/OnlinePayment/CardFortress.pm b/lib/Business/OnlinePayment/CardFortress.pm
index 513ed26..1946624 100644 (file)
--- a/lib/Business/OnlinePayment/CardFortress.pm
+++ b/lib/Business/OnlinePayment/CardFortress.pm
@@ -5,6 +5,8 @@ use base qw( Business::OnlinePayment::HTTPS );
 use warnings;
 use strict;
 #use vars qw( $DEBUG $me );
+use MIME::Base64;
+use Crypt::OpenSSL::RSA;
 
 our $VERSION = 0.01;
 
@@ -38,20 +40,23 @@ sub set_defaults {
 
   $self->build_subs(qw( order_number avs_code cvv2_response
                         response_page response_code response_headers
-                        card_token
+                        card_token private_key
                    ));
 }
 
 sub submit {
   my $self = shift;
 
-  $self->server('test.cardfortress.com');
+  $self->server('test.cardfortress.com') if $self->test_transaction;
 
-  my ($page,$server_response,%headers) = $self->https_post($self->content);
+  my %content = $self->content;
+  $content{$_} = $self->$_() for qw( gateway gateway_login gateway_password );
 
-  die $server_response unless $server_response =~ /^200/;
+  my ($page,$server_response,%headers) = $self->https_post(%content);
 
-  my %response = {};
+  die "$server_response\n" unless $server_response =~ /^200/;
+
+  my %response = ();
   #this encoding good enough?  wfm... if something's easier for other
   #languages they can always use a different URL
   foreach my $line ( grep /^\w+=/, split(/\n/, $page) ) {
@@ -73,6 +78,26 @@ sub submit {
   # response_headers()
   # response_page()
 
+  #handle the challenge/response handshake
+  if ( $self->error_message eq '_challenge' ) { #XXX infinite loop protection?
+
+    die "no private key available" unless $self->private_key;
+
+    #decrypt the challenge with the private key
+    my $challenge = decode_base64($response{'card_challenge'});
+
+    #here is the hardest part to implement at each client side
+    my $rsa_priv = Crypt::OpenSSL::RSA->new_private_key($self->private_key);
+    my $response = $rsa_priv->decrypt($challenge);
+
+    #try the transaction again with the challenge response
+    # (B:OP could sure use a better way to alter one value)
+    my %content = $self->content;
+    $content{'card_response'} = encode_base64($response, '');
+    $self->content(%content);
+    $self->submit;
+  }
+
 }
 
 1;
@@ -127,7 +152,7 @@ Business::OnlinePayment::CardFortress - CardFortress backend for Business::Onlin
                                           'gateway' => 'ProcessingGateway',
                                           'gateway_login' => 'gwlogin',
                                           'gateway_password' => 'gwpass',
-                                          'private_key' => '/path/to/keyfile',
+                                          'private_key' => $private_key_string,
                                       );
 
   $rx->content(

diff --git a/t/boilerplate.t b/t/boilerplate.t
index 0605fd0..03d324e 100644 (file)
--- a/t/boilerplate.t
+++ b/t/boilerplate.t
@@ -36,9 +36,6 @@ sub module_boilerplate_ok {
     );
 }
 
-TODO: {
-  local $TODO = "Need to replace the boilerplate text";
-
   not_in_file_ok(README =>
     "The README is used..."       => qr/The README is used/,
     "'version information here'"  => qr/to provide version information/,
@@ -50,6 +47,3 @@ TODO: {
 
   module_boilerplate_ok('lib/Business/OnlinePayment/CardFortress.pm');
 
-
-}
-

diff --git a/t/pod-coverage.t b/t/pod-coverage.t
index fc40a57..c021dd4 100644 (file)
--- a/t/pod-coverage.t
+++ b/t/pod-coverage.t
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More;
+use Test::More skip_all => "don't care about POD coverage right now";
 
 # Ensure a recent version of Test::Pod::Coverage
 my $min_tpc = 1.08;

diff --git a/t/transaction.t b/t/transaction.t
new file mode 100644 (file)
index 0000000..7a60c0f
--- /dev/null
+++ b/t/transaction.t
@@ -0,0 +1,77 @@
+use Test::More tests => 4;
+use File::Slurp;
+use Business::OnlinePayment;
+
+my @opt = (
+  'CardFortress',
+    'gateway' => 'IPPay',
+    'gateway_login' => 'TESTMERCHANT',
+    'gateway_password' => '',,
+);
+
+my $tx = new Business::OnlinePayment(@opt);
+
+$tx->test_transaction(1);
+
+$tx->content(
+    type           => 'VISA',
+    login          => 'user',
+    password       => 'secret',
+    action         => 'Normal Authorization',
+    description    => 'Business::OnlinePayment test',
+    amount         => '49.95',
+    customer_id    => 'tfb',
+
+    #have to specify both for now... maybe some auto-transforming later
+    name           => 'Tofu Beast',
+    first_name     => 'Tofu',
+    last_name      => 'Beast',
+
+    address        => '123 Anystreet',
+    city           => 'Anywhere',
+    state          => 'UT',
+    zip            => '84058',
+    card_number    => '4007000000027',
+    expiration     => '09/12',
+    cvv2           => '1234', #optional (not stored)
+);
+$tx->submit();
+
+ok($tx->is_success, 'Transaction successful');
+warn $tx->error_message."\n" unless $tx->is_success;
+
+#use Data::Dumper; warn Dumper($tx);
+
+my $token = $tx->card_token;
+ok(length($token), 'Token returned');
+
+
+SKIP: {
+  my $private_key = read_file('t/private_key.txt') or skip 'no private key', 2;
+
+  like( $private_key, qr/-----BEGIN RSA PRIVATE KEY-----/, 'private key good' );
+
+  my $rx = new Business::OnlinePayment( @opt,
+                                        'private_key' => $private_key,
+                                      );
+
+  $rx->test_transaction(1);
+
+  $rx->content(
+      type           => 'VISA',
+      login          => 'user',
+      password       => 'secret',
+      action         => 'Normal Authorization',
+      description    => 'Business::OnlinePayment test',
+      amount         => '12.95',
+      #card_token     => $token
+      card_number     => $token,
+  );
+  $rx->submit();
+
+  ok($rx->is_success, 'Token transaction successful');
+
+  #use Data::Dumper; warn Dumper($rx);
+
+}
+