diff options
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' ); |