aboutsummaryrefslogtreecommitdiffstats
path: root/tools/piwigo_remote.pl
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--tools/piwigo_remote.pl20
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',