Changeset 2500 for trunk/tools

Timestamp:

Sep 5, 2008, 12:08:47 AM (16 years ago)

Author:

plg

Message:

improvement: remote client summarizes HTTP response when invoking
pwg.images.add => code, message.

File:

• trunk/tools/piwigo_remote.pl (modified) (1 diff)

trunk/tools/piwigo_remote.pl

@@ -65 +65 @@
     };
 
-    $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;
+    }
 }