Changeset 4347 for trunk/tools
- Timestamp:
- Nov 23, 2009, 12:58:44 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/piwigo_remote.pl
r3454 r4347 18 18 use JSON; 19 19 use LWP::UserAgent; 20 # LWP::Debug::level('+'); 20 21 use Getopt::Long; 21 22 use Encode qw/is_utf8 decode/; … … 41 42 42 43 our $ua = LWP::UserAgent->new; 44 $ua->agent('Mozilla/piwigo_remote.pl 1.25'); 43 45 $ua->cookie_jar({}); 44 46 … … 56 58 $conf{$conf_key} = defined $opt{$conf_key} ? $opt{$conf_key} : $conf_default{$conf_key} 57 59 } 60 61 $ua->default_headers->authorization_basic( 62 $conf{username}, 63 $conf{password} 64 ); 58 65 59 66 my $result = undef; … … 79 86 use MIME::Base64 qw(encode_base64); 80 87 use Digest::MD5::File qw/file_md5_hex/; 81 use File::Slurp;82 88 83 89 $form = {}; … … 133 139 } 134 140 else { 141 print Dumper($response); 135 142 warn 'A problem has occured during upload', "\n"; 136 143 warn $response->decoded_content, "\n"; … … 171 178 172 179 $result = $ua->get($query); 180 print Dumper($result); 173 181 my $tags = from_json($result->content)->{result}{tags}; 174 182 … … 235 243 } 236 244 245 if ($opt{action} eq 'pwg.images.checkFiles') { 246 use Digest::MD5::File qw/file_md5_hex/; 247 248 $form = {}; 249 $form->{method} = $opt{action}; 250 251 foreach my $type (qw/thumbnail file high/) { 252 if (defined $opt{$type}) { 253 $form->{$type.'_sum'} = file_md5_hex($opt{$type}); 254 } 255 } 256 257 foreach my $key (keys %{ $opt{define} }) { 258 $form->{$key} = $opt{define}{$key}; 259 } 260 261 my $response = $ua->post( 262 $conf{base_url}.'/ws.php?format=json', 263 $form 264 ); 265 266 print "-" x 50, "\n"; 267 printf("response code : %u\n", $response->code); 268 printf("response message : %s\n", $response->message); 269 print "-" x 50, "\n"; 270 print "\n"; 271 272 use Data::Dumper; 273 print Dumper(from_json($response->content)); 274 } 275 237 276 if ($opt{action} eq 'pwg.images.setInfo' or $opt{action} eq 'pwg.categories.setInfo') { 238 277 $form = { … … 254 293 } 255 294 295 if ($opt{action} eq 'pwg.categories.getList') { 296 $form = { 297 method => $opt{action}, 298 }; 299 300 foreach my $key (keys %{ $opt{define} }) { 301 $form->{$key} = $opt{define}{$key}; 302 } 303 304 my $response = $ua->post( 305 $conf{base_url}.'/ws.php?format=json', 306 $form 307 ); 308 309 use Data::Dumper; 310 print Dumper($response->content); 311 print Dumper(from_json($response->content)->{result}); 312 print Dumper($response); 313 } 314 315 256 316 $query = pwg_ws_get_query( 257 317 method => 'pwg.session.logout' … … 273 333 sub send_chunks { 274 334 my %params = @_; 335 336 use File::Slurp; 275 337 276 338 my $content = read_file($params{filepath});
Note: See TracChangeset
for help on using the changeset viewer.