From ceb96a45177de814b3ed5e1f1c4b2320e614d52e Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Wed, 24 Jul 2013 12:50:33 -0700 Subject: fix URL in execute method; update deps --- FCMB.pm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'FCMB.pm') 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 ) { -- cgit v1.2.1