diff options
Diffstat (limited to 'tools/piwigo_remote.pl')
-rw-r--r-- | tools/piwigo_remote.pl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/tools/piwigo_remote.pl b/tools/piwigo_remote.pl index 3c611fed0..02e447eab 100644 --- a/tools/piwigo_remote.pl +++ b/tools/piwigo_remote.pl @@ -116,6 +116,26 @@ if ($opt{action} eq 'pwg.tags.list') { print $t; } +if ($opt{action} eq 'pwg.tags.getAdminList') { + $query = pwg_ws_get_query( + method => 'pwg.tags.getAdminList' + ); + + $result = $ua->get($query); + my $tags = from_json($result->content)->{result}{tags}; + + foreach my $tag (@{$tags}) { + # print join(',', keys %{$tag}), "\n"; exit(); + printf( + '{%u} %s ', + $tag->{id}, + $tag->{name} + ); + } + + print "\n"; +} + if ($opt{action} eq 'pwg.categories.add') { $form = { method => 'pwg.categories.add', |