Current projects/upload images/upload-images.pl

1. !/usr/bin/perl

my $username = "USERNAME"; my $password = "PASSWORD";

1. Set the pause in seconds after each upload

my $pause = 60;

1. List the wiki PHP scripts where you have the username/password pair

my $api_url = 'http://crawl.chaosforge.org/api.php'; my $upload_url = 'http://crawl.chaosforge.org/Special:Upload';

1. Then run the script on the command line using
3. $ perl image.pl dirname
5. where dirname/ is the name of a directory containing the files to
6. be uploaded

use strict; use warnings; use MediaWiki::API; use File::Spec; use IO::Dir;

my $dir = $ARGV[0] or die "Syntax: perl image.pl dirname\n"; my $d = IO::Dir->new($dir); die unless defined $d; my @files = grep {m/\.png/ && ! m/-melee/} $d->read(); undef $d;

my $mw = MediaWiki::API->new( {

   api_url => $api_url,
   upload_url => $upload_url,
   on_error => \&on_error
 } );  

sub on_error {

 print "Error code: " . $mw->{error}->{code} . "\n";
 print $mw->{error}->{stacktrace}."\n";
 die;

}

my $r = $mw->login( { lgname => $username, lgpassword => $password } ); die unless defined($r);

for (@files) {

       sleep $pause;
       my $f = File::Spec->join($dir, $_);
       my $page = $_;
       print "Uploading $f to the wiki.\n";

       my $r = $mw->edit( {
               action   => 'upload',
               filename => $page,
               file     => [$f]
       } );
       die unless defined($r);

}

$mw->logout();