aboutsummaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authorplegall <plg@piwigo.org>2009-01-08 23:31:49 +0000
committerplegall <plg@piwigo.org>2009-01-08 23:31:49 +0000
commit48c1eef07e14e1d7a25a73fc02fabd628130fa9e (patch)
tree013ebb8e9308c77ac473f2150957ba15087be514 /tools
parent05b847a92a9b7eca1a36a907df8f3c92858ad084 (diff)
bug 912 fixed: we need an extra original_sum to pwg.images.add API method to
check photo existence. Using the file_sum was a bad idea. git-svn-id: http://piwigo.org/svn/branches/2.0@3064 68402e56-0260-453c-a942-63ccdbb3a9ee
Diffstat (limited to '')
-rw-r--r--tools/piwigo_remote.pl8
1 files changed, 6 insertions, 2 deletions
diff --git a/tools/piwigo_remote.pl b/tools/piwigo_remote.pl
index 2a3876b87..6cd558cd1 100644
--- a/tools/piwigo_remote.pl
+++ b/tools/piwigo_remote.pl
@@ -11,7 +11,7 @@ use Encode qw/is_utf8 decode/;
my %opt = ();
GetOptions(
\%opt,
- qw/action=s file=s thumbnail=s high=s categories=s define=s%/
+ qw/action=s file=s thumbnail=s high=s original=s categories=s define=s%/
);
our $ua = LWP::UserAgent->new;
@@ -48,6 +48,8 @@ if ($opt{action} eq 'pwg.images.add') {
use Digest::MD5::File qw/file_md5_hex/;
use File::Slurp;
+ my $original_sum = file_md5_hex($opt{original});
+
my $file_content = encode_base64(read_file($opt{file}));
my $file_sum = file_md5_hex($opt{file});
@@ -56,6 +58,7 @@ if ($opt{action} eq 'pwg.images.add') {
$form = {
method => 'pwg.images.add',
+ original_sum => $original_sum,
file_sum => $file_sum,
file_content => $file_content,
thumbnail_sum => $thumbnail_sum,
@@ -84,7 +87,8 @@ if ($opt{action} eq 'pwg.images.add') {
print "\n";
# use Data::Dumper;
-# print Dumper($response);
+# print Dumper($response->content);
+# print Dumper(from_json($response->content));
if ($response->is_success) {
print "upload successful\n";