You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
909 B
Perl
38 lines
909 B
Perl
#!/usr/bin/perl
|
|
# Upload a file to a recent MediaWiki using the API.
|
|
|
|
use strict;
|
|
use MediaWiki::API 0.39;
|
|
|
|
use constant API_URL => 'https://entropia.de/wiki/api.php';
|
|
|
|
my $wikiuser = $ARGV[0];
|
|
my $wikipass = $ARGV[1];
|
|
my $file = $ARGV[2];
|
|
my $comment = $ARGV[3];
|
|
|
|
# usage
|
|
if (!defined($comment)) {
|
|
print "Usage: $0 <wikiuser> <wikipass> <file> <comment>\n";
|
|
exit;
|
|
}
|
|
|
|
# log in to the wiki
|
|
my $mw = MediaWiki::API->new();
|
|
$mw->{config}->{api_url} = API_URL;
|
|
$mw->login( { lgname => $wikiuser, lgpassword => $wikipass } )
|
|
|| die $mw->{error}->{code} . ': ' . $mw->{error}->{details};
|
|
|
|
# upload file
|
|
open FILE, $file or die $!;
|
|
binmode FILE;
|
|
my ($buffer, $data);
|
|
while ( read(FILE, $buffer, 65536) ) {
|
|
$data .= $buffer;
|
|
}
|
|
close(FILE);
|
|
|
|
$mw->upload( { title => $file,
|
|
summary => $comment,
|
|
data => $data } ) || die $mw->{error}->{code} . ': ' . $mw->{error}->{details};
|