iarv/Piwigo
1
0
Fork 0
mirror of https://github.com/Piwigo/Piwigo.git synced 2026-05-05 04:52:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

improvement: remote client summarizes HTTP response when invoking

Browse Source 
pwg.images.add => code, message.


git-svn-id: http://piwigo.org/svn/trunk@2500 68402e56-0260-453c-a942-63ccdbb3a9ee
This commit is contained in:
plegall
2008-09-04 22:08:47 +00:00
parent 57dd0ffcb6
commit 255a4f393a
1 changed files with 19 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
tools/piwigo_remote.pl
View File

@@ -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') {