From ceb96a45177de814b3ed5e1f1c4b2320e614d52e Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Wed, 24 Jul 2013 12:50:33 -0700
Subject: [PATCH] fix URL in execute method; update deps

---
 FCMB.pm     | 11 +++++------
 Makefile.PL |  3 ++-
 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,
                       },
 );
-- 
2.11.0