[freeside-users] PaymentsGateway breakage

[Kristian Hoffmann]

Hi,

In case anyone else using BOP::PaymentsGateway came into work today and 
noticed all of their transactions failing with 'no reply from server', 
the following patch to PaymentsGateway.pm seems to work around the 
issue.  Although "slowly = 1" seems about as reliable as "RandomlyLose = 
0", if it works...

--- PaymentsGateway.pm-old    2012-11-12 11:42:52.000000000 -0800
+++ PaymentsGateway.pm-new    2012-11-12 11:42:43.000000000 -0800
@@ -11,6 +11,8 @@

  $DEBUG = 0;

+$Net::SSLeay::slowly = 1;
+
  my %pg_response_code = (
    'A01' => 'Transaction approved/completed',
    'U01' => 'Merchant not allowed to access customer account',


If someone would like to investigate a less stupid fix, this test script 
might save you a couple of steps.  Just set slowly = 0 and watch the 
breakage.

------------
#!/usr/bin/perl

use warnings;

use Net::SSLeay qw(sslcat);

$Net::SSLeay::trace = 3;
$Net::SSLeay::ssl_version = 10;
$Net::SSLeay::slowly = 1;

my $request = <<END;
PG_MERCHANT_ID=1111111
pg_password=verysecret
endofdata
END

my ($reply, $err, $server_cert) = sslcat('www.paymentsgateway.net', 
5050, $request);

die "failed: $err" unless $reply;

print "ok\nreply:\n$reply\n";

exit(0);
-------------

Regards,

-- 
Kristian Hoffmann
Fire2Wire
khoff at fire2wire.com
http://www.fire2wire.com

Office - 209-543-1800 | Fax - 209-545-1469 | Toll Free - 800-905-FIRE