Skip to content
Permalink
Browse files

feature 3229: example for pwg.images.upload

git-svn-id: http://piwigo.org/svn/trunk@31217 68402e56-0260-453c-a942-63ccdbb3a9ee
  • Loading branch information...
plegall committed Jun 16, 2015
1 parent 86ee082 commit 880b7e549d411e85ac394a6b719d6e9d0dc10079
Showing with 121 additions and 0 deletions.
  1. +121 −0 tools/piwigo_upload.pl
@@ -0,0 +1,121 @@
#!/usr/bin/perl

####
# Usage
#
# perl piwigo_upload.pl --url=http://piwigo.org/demo --user=admin --password=secret --file=photo.jpg --album_id=9

use strict;
use warnings;

use JSON;
use LWP::UserAgent;
use Getopt::Long;
use POSIX qw(ceil floor);
use Digest::MD5 qw/md5 md5_hex/;
use File::Slurp;
use File::Basename;

my %opt = ();
GetOptions(
\%opt,
qw/
file=s
album_id=i
category=s
url=s
username=s
password=s
/
);

our %conf = (
chunk_size => 500_000,
);

our $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/piwigo_upload.pl 1.56');
$ua->cookie_jar({});

my $result = undef;

my $form = {
method => 'pwg.session.login',
username => $opt{username},
password => $opt{password},
};

$result = $ua->post(
$opt{url}.'/ws.php?format=json',
$form
);

my $response = $ua->post(
$opt{url}.'/ws.php?format=json',
{
method => 'pwg.session.getStatus',
}
);

my $pwg_token = from_json($response->content)->{result}->{pwg_token};

my $content = read_file($opt{file});
my $content_length = length($content);
my $nb_chunks = ceil($content_length / $conf{chunk_size});

my $chunk_pos = 0;
my $chunk_id = 0;

while ($chunk_pos < $content_length) {
my $chunk = substr(
$content,
$chunk_pos,
$conf{chunk_size}
);

# write the chunk as a temporary local file
my $chunk_path = '/tmp/'.md5_hex($opt{file}).'.chunk';

open(my $ofh, '>'.$chunk_path) or die "problem for writing temporary local chunk";
print {$ofh} $chunk;
close($ofh);

$chunk_pos += $conf{chunk_size};

my $response = $ua->post(
$opt{url}.'/ws.php?format=json',
{
method => 'pwg.images.upload',
chunk => $chunk_id,
chunks => $nb_chunks,
category => $opt{album_id},
pwg_token => $pwg_token,
file => [$chunk_path],
name => basename($opt{file}),
},
'Content_Type' => 'form-data',
);

unlink($chunk_path);

printf(
'chunk %03u of %03u for "%s"'."\n",
$chunk_id+1,
$nb_chunks,
$opt{file}
);

if ($response->code != 200) {
printf("response code : %u\n", $response->code);
printf("response message : %s\n", $response->message);
}

$chunk_id++;
}

$result = $ua->get(
$opt{url}.'/ws.php?format=json',
{
method => 'pwg.session.logout'
}
);

0 comments on commit 880b7e5

Please sign in to comment.
You can’t perform that action at this time.