Revision history for Perl extension Business::OnlinePayment::PayConnect.
+0.02 Fri Nov 22 04:11:24 PST 2002
+ -trim trailing newline+CR from response
+
0.01 Sat Nov 17 21:59:37 PST 2002
-original version; created by ivan 1.0
@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '0.01';
+$VERSION = '0.02';
$DEBUG = 0;
my $pd = make_form(%post_data);
my($page,$server_response,%headers) = post_https($s,$p,$t,'',$pd);
+ $page =~ s/\r*\n*$//;
+
#warn join('-',%headers);
#warn $page;
my %response = map { split('=',$_,2) } split(/\|/,$page);