diff options
| -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, }, ); |