projects
/
Business-OnlinePayment-PayConnect.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.02
[Business-OnlinePayment-PayConnect.git]
/
PayConnect.pm
diff --git
a/PayConnect.pm
b/PayConnect.pm
index
10597b5
..
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);
@@
-169,7
+171,7
@@
documentation is publicly available.
=head1 AUTHOR
=head1 AUTHOR
-Ivan Kohler <ivan-
jettis
@420.am>
+Ivan Kohler <ivan-
payconnect
@420.am>
=head1 SEE ALSO
=head1 SEE ALSO