Utilisateur:ZX81-bot/Script/ratissage.pl

#!/usr/bin/perl

use strict;
use utf8;

use lib '/data/wikipedia/perlwikipedia';
use Perlwikipedia;

my $user = 'ZX81-bot';
my $pass = '********';

my $editor=Perlwikipedia->new($user);

#$editor->{debug} = 1;

$editor->set_wiki('fr.wikipedia.org','w');

$editor->login($user, $pass);

my $page = "Wikipédia:Bac_à_sable";
my $talk_page = "Discussion_Wikipédia:Bac_à_sable";

my $text;
my $edit_summary = 'Ratissage automatique';
my $is_minor = 1;

$text = $editor->get_text($page,19465652);
$editor->edit($page, $text, $edit_summary, $is_minor);

$text = $editor->get_text($talk_page,19611541);
$editor->edit($talk_page, $text, $edit_summary, $is_minor);