diff options
author | plegall <plg@piwigo.org> | 2008-10-07 22:01:14 +0000 |
---|---|---|
committer | plegall <plg@piwigo.org> | 2008-10-07 22:01:14 +0000 |
commit | 3eecf04629ce2a48208e2f9fe3189eba535d6597 (patch) | |
tree | 59008f2abfc607591cecec4dacdb6e5efdec8ae7 /tools/piwigo_remote.pl | |
parent | 42c665eefff16db088cf341758e62643ac3ad074 (diff) |
feature 889 added: pwg.images.exist check the existence of a photo in the
database based on its md5sum. (avoid failing on pwg.images.add).
git-svn-id: http://piwigo.org/svn/trunk@2683 68402e56-0260-453c-a942-63ccdbb3a9ee
Diffstat (limited to 'tools/piwigo_remote.pl')
-rw-r--r-- | tools/piwigo_remote.pl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tools/piwigo_remote.pl b/tools/piwigo_remote.pl index f11e0d457..3e3031c82 100644 --- a/tools/piwigo_remote.pl +++ b/tools/piwigo_remote.pl @@ -173,6 +173,25 @@ if ($opt{action} eq 'pwg.tags.add') { print Dumper(from_json($response->content)); } +if ($opt{action} eq 'pwg.images.exist') { + $form = { + method => $opt{action}, + }; + + foreach my $key (keys %{ $opt{define} }) { + $form->{$key} = $opt{define}{$key}; + } + + my $response = $ua->post( + $conf{base_url}.'/ws.php?format=json', + $form + ); + + use Data::Dumper; + print Dumper(from_json($response->content)->{result}); + # print Dumper($response); +} + $query = pwg_ws_get_query( method => 'pwg.session.logout' ); |