projects
/
Business-OnlinePayment-PayConnect.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
db391b4
)
0.02
master
BUSINESS_ONLINEPAYMENT_PAYCONNECT_0_02
author
ivan
<ivan>
Fri, 22 Nov 2002 12:11:47 +0000
(12:11 +0000)
committer
ivan
<ivan>
Fri, 22 Nov 2002 12:11:47 +0000
(12:11 +0000)
Changes
patch
|
blob
|
history
PayConnect.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
2b6d101
..
a6b1c48
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,8
@@
Revision history for Perl extension Business::OnlinePayment::PayConnect.
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
0.01 Sat Nov 17 21:59:37 PST 2002
-original version; created by ivan 1.0
diff --git
a/PayConnect.pm
b/PayConnect.pm
index
3cdceb5
..
a691500
100644
(file)
--- a/
PayConnect.pm
+++ b/
PayConnect.pm
@@
-12,7
+12,7
@@
require Exporter;
@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '0.0
1
';
+$VERSION = '0.0
2
';
$DEBUG = 0;
$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);
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);
#warn join('-',%headers);
#warn $page;
my %response = map { split('=',$_,2) } split(/\|/,$page);