aboutsummaryrefslogtreecommitdiffstats
path: root/tools/piwigo_remote.pl
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--tools/piwigo_remote.pl8
1 files changed, 7 insertions, 1 deletions
diff --git a/tools/piwigo_remote.pl b/tools/piwigo_remote.pl
index 776802589..f11e0d457 100644
--- a/tools/piwigo_remote.pl
+++ b/tools/piwigo_remote.pl
@@ -6,11 +6,12 @@ use warnings;
use JSON;
use LWP::UserAgent;
use Getopt::Long;
+use Encode qw/is_utf8 decode/;
my %opt = ();
GetOptions(
\%opt,
- qw/action=s file=s thumbnail=s categories=s define=s%/
+ qw/action=s file=s thumbnail=s high=s categories=s define=s%/
);
our $ua = LWP::UserAgent->new;
@@ -62,6 +63,11 @@ if ($opt{action} eq 'pwg.images.add') {
categories => $opt{categories},
};
+ if (defined $opt{high}) {
+ $form->{high_content} = encode_base64(read_file($opt{high}));
+ $form->{high_sum} = file_md5_hex($opt{high});
+ }
+
foreach my $key (keys %{ $opt{define} }) {
$form->{$key} = $opt{define}{$key};
}