summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark Wells <mark@freeside.biz>2013-07-24 12:50:33 -0700
committerMark Wells <mark@freeside.biz>2013-07-24 12:50:33 -0700
commitceb96a45177de814b3ed5e1f1c4b2320e614d52e (patch)
treed2c9d51d7f2e63c63b8c8122470bf604825094c5
parent472f07098c2e10ac025b132df098f4b51c14adb1 (diff)
fix URL in execute method; update depsHEADmaster
-rw-r--r--FCMB.pm11
-rw-r--r--Makefile.PL3
2 files changed, 7 insertions, 7 deletions
diff --git a/FCMB.pm b/FCMB.pm
index 2321d09..cae090c 100644
--- a/FCMB.pm
+++ b/FCMB.pm
@@ -91,14 +91,13 @@ sub execute {
} 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 $response = $ua->get($url,
- 'MERCHANT_ID' => $self->username,
- 'ORDER_ID' => $self->token
- );
+ my $response = $ua->get($url);
if ( $response->is_success ) {
diff --git a/Makefile.PL b/Makefile.PL
index 5209b9d..be3c41b 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -7,6 +7,7 @@ WriteMakefile(
'AUTHOR' => 'Mark Wells <mark@freeside.biz>',
'PREREQ_PM' => {
'Business::OnlineThirdPartyPayment' => 0.10,
- 'XML::Simple' => 2,
+ 'XML::LibXML' => 2,
+ 'URI' => 1,
},
);