Rv.pl

Бот на Perl для автоматического скрытого отката вандализма и блокировки вандала или открытого прокси. Для работы необходимы права «block», «rollback» и «markbotedits» (может работать и без прав бота от имени администратора — в таком случае блокировка будет видна, а откаты все равно будут совершаться скрыто). Также необходимо наличие на сервере библиотек Perl, перечисленных в начале бота. Для их установки используется cpan.

Исходный код

#!/usr/bin/perl
 
# GPL v2
# Бот для борьбы с вандализмом
# Авторы: lj-user: suspected_one, Anonymous
#
binmode STDOUT, ':utf8';
 
use utf8;
use MediaWiki::API;
use Getopt::OO;
use URI::Encode qw(uri_encode uri_decode);
use Encode;
my $mw = MediaWiki::API->new({ api_url => 'http://wikireality.ru/w/api.php' });
$mw->login({ lgname => 'Имя_бота', lgpassword => 'Пароль_бота' }) || die;
 
my $user;
my $expiry;
my $reason = "Робот: ликвидация вандализма";
 
my $handle = Getopt::OO->new(\@ARGV,
        '--user' => {
                n_values => 1,
                callback => sub { my($handle, $option) = @_; ($user) = $handle->Values($option); return 0; }
        },
        '--opt' => {
                n_values => 1,
                callback => sub {
                        my($handle, $option) = @_;
                        my($param1) = $handle->Values($option);
                        if($param1 eq 'user')
                        {
                                $expiry = "indefinite";
                        }
                        elsif($param1 eq 'ip')
                        {
                                $expiry = "1 week";
                        }
                        elsif($param1 eq 'proxy')
                        {
                                $expiry = "1 year";
                                $reason = "Робот: ликвидация открытого прокси";
                        }
                        else
                        {
                                return "Wrong value for --opt! Must be one of user/ip/proxy.";
                        }
                        return 0;
                }
        }
);
 
if(!$user || !$expiry)
{
        print STDERR "User and/or expiry not set.\n";
        exit 1;
}
 
# Получение токенов
my $resb = $mw->api({ 
        action => 'query', 
        prop => 'info', 
        intoken => 'block', 
        titles => 'User:Example' 
}) || die "Не могу получить blocktoken"; 
my $blocktoken = (values %{$resb->{query}->{pages}})[0]->{blocktoken};
 
# Блокировка
print "\t" . $user, "\n";
 
$user = decode("utf8", $user); 
utf8::decode $user;
 
$mw->api({
        action => 'block', 
        user => $user, 
        expiry => $expiry,
        reason => $reason,
        nocreate => 1,
        autoblock => 1,
        noemail => 1,
        token => $blocktoken
});
 
# Откат
sub process_article
{
        my $ref = shift; 
        foreach my $item(@$ref)
        {
                my $title = $item->{title}; # Тут получили название страницы
 
                next if($ALREADY_CHECKED_THIS_PAGE{$title});
                $ALREADY_CHECKED_THIS_PAGE{$title} = 1; 
 
                print "\t" . $title, "\n";
 
                my $resr = $mw->api({ 
                        action => 'query', 
                        prop => 'revisions', 
                        rvtoken => 'rollback', 
                        titles => 'Labuda'
                }) || die "Не могу получить rollbacktoken"; 
                my $token = (values %{$resr->{query}->{pages}})[0]->{rollbacktoken};
 
                $mw->edit({
                        action => 'rollback',
                        title => $title,
                        user => $user,
                        markbot => 1,
                        token => $token
                });
        }
}
 
$mw->list({
        action => 'query',
        list => 'usercontribs',
        ucuser => $user,
        ucprop => 'title'
}, { hook => \&process_article, max => 999 });

Использование

Из папки, в которой находится бот:

$ perl rv.pl --opt $opt --user $user

• Значения $opt:
  • user — бессрочная блокировка;
  • proxy — блокировка на один год, иной комментарий к блокировке;
  • ip — блокировка на неделю.

• Значения $user:
  • Правильное имя участника или IP-адрес.

Rv.pl относится к теме «Техники и викиботы»   ±

Техники и викиботы [править] Мета Бот (программа, технический флаг) • Ботовод • Техники в википроектах (в руВП) • Ботофобия • Ботулизм • Ботопедия • Ботозаливка • Ботоперенос • Гаджет • Войны викиботов • Боты Циклопедии Типы ботов IRC-боты • Perl • Pywikipedia • mwclient • Админбот • О.К.-бот • Робот для автозамен Боты в википроектах Русская Википедия Ashikbot • BotCat • BotUser№101 • ButkoBot • CodeMonkBot • ClaymoreBot • CommonsDelinker • DaeXBot • DaraBotochka • Edwardspec TalkBot • EmausBot • EvgenyGenkinBot • H2Bot • KalanBot • LatitudeBot • Luckas-bot • MaximaximaxBot • MBHBot • Neombot • Obersachsebot • OLMBot • ProxyBlockBot • Rcbot • Rubinbot • Rubinbot II • Secretary • SpadeBot • Thijs!bot • TXiKiBoT • U-bot • Vlad2000PlusBot • VolkovBot • WindBot • WindAdminBot • ZsergheiBot • Ботильда • Голем • РобоСтася Ботовладельцы Ace111 • Alex Spade • Alex Smotrov • Butko • Claymore • CodeMonk • Edward Chernenko • Emaus • EvgenyGenkin • Fameowner • Haffman • HedgeHog • Jaroslavleff • Kalan • Kv75 • Latitude • Dimetr • Lsj • Lvova • MaxBioHazard • Obersachse • OneLittleMouse • Rave • Rich Farmbrough • Rubin16 • VasilievVV • Zserghei • Александр Сигачёв • Четыре тильды Инструкции для ботов На Perl Delete.pl • Iwiki to external.pl • Replace.pl • Rv.pl • Upload.pl • MediaWikiDumper (использование) pywikipedia Catall.py • Category.py • Delete.py • Imagetransfer.py • Pagefromfile.py • Pywikipedia/Global Options • Redirect.py • Template.py • Version.py • Использование бота pywikipedia Носители других технических флагов Инженеры Abiyoyo • Adamant.pwn • Carn • Grain of sand • IKhitron • Ivan A. Krestinin • Jack who built the house • MBH • Putnik • Serhio Magpie • Wikisaurus • Нирваньчик • Сидик из ПТУ Администраторы интерфейса Adavyd • DR • DonRumata • Jack who built the house • Putnik • Serhio Magpie