X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-PayConnect.git;a=blobdiff_plain;f=PayConnect.pm;h=a691500ab6abc090434964aa09afdc371f5f52b1;hp=10597b565a25f3b7109f576517053644c5689d7a;hb=refs%2Fheads%2Fmaster;hpb=5eb34400fab56b7d70855343924f79b4fe3bc3aa;ds=sidebyside diff --git a/PayConnect.pm b/PayConnect.pm index 10597b5..a691500 100644 --- a/PayConnect.pm +++ b/PayConnect.pm @@ -12,7 +12,7 @@ require Exporter; @ISA = qw(Exporter AutoLoader Business::OnlinePayment); @EXPORT = qw(); @EXPORT_OK = qw(); -$VERSION = '0.01'; +$VERSION = '0.02'; $DEBUG = 0; @@ -101,6 +101,8 @@ sub submit { 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); @@ -169,7 +171,7 @@ documentation is publicly available. =head1 AUTHOR -Ivan Kohler +Ivan Kohler =head1 SEE ALSO