diff options
Diffstat (limited to '')
| -rw-r--r-- | tools/piwigo_remote.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tools/piwigo_remote.pl b/tools/piwigo_remote.pl index 02e447eab..776802589 100644 --- a/tools/piwigo_remote.pl +++ b/tools/piwigo_remote.pl @@ -152,6 +152,21 @@ if ($opt{action} eq 'pwg.categories.add') { print Dumper(from_json($response->content)); } +if ($opt{action} eq 'pwg.tags.add') { + $form = { + method => 'pwg.tags.add', + name => $opt{define}{name}, + }; + + my $response = $ua->post( + $conf{base_url}.'/ws.php?format=json', + $form + ); + + use Data::Dumper; + print Dumper(from_json($response->content)); +} + $query = pwg_ws_get_query( method => 'pwg.session.logout' ); |