Karl-
Is there a better way than uploading files with
http://de.wikipedia.org/wiki/Spezial:Upload ? This is much too slow
(too many clicks) if you want to upload more than a single file.
Try this Perl script (replace string constants accordingly). You need to
be logged in, so copy your cookies.txt to the directory where the script
is run:
#!/usr/bin/perl
my @files=glob("fayum-??.jpg");
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use HTML::LinkExtor;
use HTTP::Cookies;
my $browser=LWP::UserAgent->new();
my @ns_headers = (
'User-Agent' => 'Mozilla/4.76 [en] (Win98; U)',
'Accept' => 'image/gif, image/x-xbitmap, image/jpeg,
image/pjpeg, image/png, */*',
'Accept-Charset' => 'iso-8859-1,*,utf-8',
'Accept-Language' => 'en-US',
);
$browser->cookie_jar( HTTP::Cookies::Netscape->new('file' =>
'cookies.txt'));
foreach $file(@files) {
my $response=$browser->post("http://www.wikipedia.org/wiki/Special:Upload",
@ns_headers,Content_Type=>'form-data',Content=>
[
wpUploadFile=>[$file],
wpUploadDescription=>"Large version of portrait for [[Gallery of Fayum mummy
portraits]].
Scanned and/or edited by [[User:Eloquence|Eloquence]], [[public domain]] picture.",
wpUploadAffirm=>"1",
wpUpload=>"Upload file",
wpIgnoreWarning=>"1"
]);
push @responses,$response->content;
}
open(RESPO,">responses.txt");
print RESPO @responses;
close(RESPO);