projects
/
Business-OnlineThirdPartyPayment-FCMB.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
472f070
)
fix URL in execute method; update deps
master
author
Mark Wells
<mark@freeside.biz>
Wed, 24 Jul 2013 19:50:33 +0000
(12:50 -0700)
committer
Mark Wells
<mark@freeside.biz>
Wed, 24 Jul 2013 19:50:33 +0000
(12:50 -0700)
FCMB.pm
patch
|
blob
|
history
Makefile.PL
patch
|
blob
|
history
diff --git
a/FCMB.pm
b/FCMB.pm
index
2321d09
..
cae090c
100644
(file)
--- a/
FCMB.pm
+++ b/
FCMB.pm
@@
-91,14
+91,13
@@
sub execute {
} else {
$host ||= $ENDPOINT_LIVE;
}
} else {
$host ||= $ENDPOINT_LIVE;
}
- my $url = 'https://' . $host .
- '/customerportal/MerchantServices/UpayTransactionStatus.ashx';
+ my $url = URI->new('https://' . $host .
+ '/customerportal/MerchantServices/UpayTransactionStatus.ashx');
+ $url->query_form('MERCHANT_ID' => $self->username,
+ 'ORDER_ID' => $self->token);
my $ua = LWP::UserAgent->new;
warn "Querying transaction status at $url\n" if $DEBUG;
my $ua = LWP::UserAgent->new;
warn "Querying transaction status at $url\n" if $DEBUG;
- my $response = $ua->get($url,
- 'MERCHANT_ID' => $self->username,
- 'ORDER_ID' => $self->token
- );
+ my $response = $ua->get($url);
if ( $response->is_success ) {
if ( $response->is_success ) {
diff --git
a/Makefile.PL
b/Makefile.PL
index
5209b9d
..
be3c41b
100644
(file)
--- a/
Makefile.PL
+++ b/
Makefile.PL
@@
-7,6
+7,7
@@
WriteMakefile(
'AUTHOR' => 'Mark Wells <mark@freeside.biz>',
'PREREQ_PM' => {
'Business::OnlineThirdPartyPayment' => 0.10,
'AUTHOR' => 'Mark Wells <mark@freeside.biz>',
'PREREQ_PM' => {
'Business::OnlineThirdPartyPayment' => 0.10,
- 'XML::Simple' => 2,
+ 'XML::LibXML' => 2,
+ 'URI' => 1,
},
);
},
);