MediaWiki (perl): различия между версиями

 

== Интерфейс ==

use MediaWiki;

 

$pg->{minor} = 0;

$pg->{watch} = 1;

 

== Подробное описание функций и свойств ==

 

'''Примечание:''' все примеры начинаются со следующих строк.

use MediaWiki;

my $c = MediaWiki->new();

$c->setup();

 

=== Создание подготовленных страниц ===

opendir D, "articles";

while (defined ($file = readdir (D))) {

}

closedir D;

 

=== Бот автозамен ===

for (my $i = 0; $i < 10000; $i++) {

my $pg = $c->random ();

$pg->replace (\&my_replacements);

}

 

=== Антивандальный бот ===

Откатывает «очистку страниц» ({{lang |en|''blanking''}) и блокирует того, кто очищает страницы более пяти раз, на срок 1 час. Если это делает единственный автор страницы, то ставит пометку {{tl|db-author}} (но не удаляет статью — возможно, это была ошибка).

 

$c->{summary} = "Vandalism: blanking more than 5 times";

 

}

}

 

== Ссылки ==