From 255a4f393a8de4e5cbc133f9d56ed68c2cbf6068 Mon Sep 17 00:00:00 2001
From: plegall <plg@piwigo.org>
Date: Thu, 4 Sep 2008 22:08:47 +0000
Subject: improvement: remote client summarizes HTTP response when invoking
 pwg.images.add => code, message.

git-svn-id: http://piwigo.org/svn/trunk@2500 68402e56-0260-453c-a942-63ccdbb3a9ee
---
 tools/piwigo_remote.pl | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

(limited to 'tools/piwigo_remote.pl')

diff --git a/tools/piwigo_remote.pl b/tools/piwigo_remote.pl
index 8cdd1da35..89597ed65 100644
--- a/tools/piwigo_remote.pl
+++ b/tools/piwigo_remote.pl
@@ -64,10 +64,28 @@ if ($opt{action} eq 'pwg.images.add') {
         name => $opt{name},
     };
 
-    $result = $ua->post(
+    my $response = $ua->post(
         $conf{base_url}.'/ws.php?partner='.$conf{partner_key}.'&format=json',
         $form
     );
+
+    print "-" x 50, "\n";
+    printf("response code    : %u\n", $response->code);
+    printf("response message : %s\n", $response->message);
+    print "-" x 50, "\n";
+    print "\n";
+
+#     use Data::Dumper;
+#     print Dumper($response);
+
+    if ($response->is_success) {
+        print "upload successful\n";
+    }
+    else {
+        warn 'A problem has occured during upload', "\n";
+        warn $response->decoded_content, "\n";
+        die $response->status_line;
+    }
 }
 
 if ($opt{action} eq 'pwg.tags.list') {
-- 
cgit v1.2.3