blob: 6126e7185a46f93524d3265fc8129768059589e1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/usr/bin/perl
# MediaWiki -> RCS scraper
use warnings;
use strict;
require MediaWiki::API;
my $api_url = shift @ARGV;
# http://wikiti.brandonw.net/api.php
my $page = shift @ARGV;
# 83Plus:Ports:57
my $name = shift @ARGV;
my $password = shift @ARGV;
my $mw = MediaWiki::API->new( { api_url => $api_url } );
$mw->login( { lgname => $name,
lgpassword => $password } )
|| die $mw->{error}->{code} . ': ' . $mw->{error}->{details};
|
