use SOAP::Lite; #+trace => 'all';
#SOAP::Lite->import(+trace=>'debug');
-our $VERSION = '0.01';
+our $VERSION = '0.03';
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
our @alpha = ( 'a'..'z', 'A'..'Z', '0'..'9' );
'https://api.demo.globalgatewaye4.firstdata.com/transaction';
} else {
$base_uri =
- 'https://api.globalgatewaye4.firstdata.com/vplug-in/transaction';
+ 'https://api.globalgatewaye4.firstdata.com/transaction';
}
my $proxy = "$base_uri/v11";
#CustomerIDType CustomerID
my $wsdl = "$proxy/wsdl";
+ $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
my $client = SOAP::Lite->service($wsdl)->proxy($proxy)->readable(1);
my $action_prefix = 'http://secure2.e-xact.com/vplug-in/transaction/rpc-enc';
my $type_prefix = $action_prefix . '/encodedTypes';