diff options
author | Mark Wells <mark@freeside.biz> | 2013-07-24 12:50:33 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2013-07-24 12:50:33 -0700 |
commit | ceb96a45177de814b3ed5e1f1c4b2320e614d52e (patch) | |
tree | d2c9d51d7f2e63c63b8c8122470bf604825094c5 | |
parent | 472f07098c2e10ac025b132df098f4b51c14adb1 (diff) |
-rw-r--r-- | FCMB.pm | 11 | ||||
-rw-r--r-- | Makefile.PL | 3 |
2 files changed, 7 insertions, 7 deletions
@@ -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, }, ); |