Changeset 3065 for trunk/tools
- Timestamp:
- Jan 9, 2009, 12:33:35 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/piwigo_remote.pl
r2919 r3065 12 12 GetOptions( 13 13 \%opt, 14 qw/action=s file=s thumbnail=s high=s categories=s define=s%/14 qw/action=s file=s thumbnail=s high=s original=s categories=s define=s%/ 15 15 ); 16 16 … … 49 49 use File::Slurp; 50 50 51 my $original_sum = file_md5_hex($opt{original}); 52 51 53 my $file_content = encode_base64(read_file($opt{file})); 52 54 my $file_sum = file_md5_hex($opt{file}); … … 57 59 $form = { 58 60 method => 'pwg.images.add', 61 original_sum => $original_sum, 59 62 file_sum => $file_sum, 60 63 file_content => $file_content, … … 85 88 86 89 # use Data::Dumper; 87 # print Dumper($response); 90 # print Dumper($response->content); 91 # print Dumper(from_json($response->content)); 88 92 89 93 if ($response->is_success) {
Note: See TracChangeset
for help on using the changeset viewer.