get|post routines sometimes return 3 digit code and sometimes return entire response

diff --git a/Changes b/Changes
index 6d07a9e..a07a67d 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl extension Business::OnlinePayment::TransFirsteLink.
 
 Revision history for Perl extension Business::OnlinePayment::TransFirsteLink.
 

+0.03  Thu May 31 20:04:17 EDT 2007
+        - cope with discrepancy in second array element from B:OP:HTTPS
+          between Net::SSLeay and Crypt::SSLeay/LWP::UserAgent
+

 0.02  Wed May 17 19:19:10 EDT 2007
        - more tests
         - make echeck conform to behavior rather than documentation
 0.02  Wed May 17 19:19:10 EDT 2007
        - more tests
         - make echeck conform to behavior rather than documentation

diff --git a/META.yml b/META.yml
index bd93942..345527a 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Business-OnlinePayment-TransFirsteLink
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Business-OnlinePayment-TransFirsteLink

-version:      0.02
+version:      0.03

 version_from: TransFirsteLink.pm
 installdirs:  site
 requires:
 version_from: TransFirsteLink.pm
 installdirs:  site
 requires:

diff --git a/TransFirsteLink.pm b/TransFirsteLink.pm
index 80cc4c2..6bcbfab 100644 (file)
--- a/TransFirsteLink.pm
+++ b/TransFirsteLink.pm
@@ -7,7 +7,7 @@ use Tie::IxHash;
 
 use base qw(Business::OnlinePayment::HTTPS);
 
 
 use base qw(Business::OnlinePayment::HTTPS);
 

-$VERSION = '0.02';
+$VERSION = '0.03';

 $VERSION = eval $VERSION;
 $DEBUG   = 0;
 
 $VERSION = eval $VERSION;
 $DEBUG   = 0;
 


@@ -547,7 +547,7 @@ sub submit {
       croak "can't interpret response for unexpected type and action $type_action";
     }
 
       croak "can't interpret response for unexpected type and action $type_action";
     }
 

-    if ( $resp eq "200" && ($status eq "000" || $status eq "011" || $status eq "085" || $status eq "0P0" || $status eq "P00" || $status eq 'ACCEPTED') ) {
+    if ( $resp =~ /^(HTTP\S+ )?200/ && ($status eq "000" || $status eq "011" || $status eq "085" || $status eq "0P0" || $status eq "P00" || $status eq 'ACCEPTED') ) {

         $self->is_success(1);
     }
     else {
         $self->is_success(1);
     }
     else {