upload.pl

Бот на Perl для загрузки картинок через API на основе текстового файла, на каждой строке которого указаны URL картинки, название для загрузки и краткое описание, разделённые символами табуляции.

Для работы бота необходимо наличие у него флага «upload_by_url» и включенной опции $wgAllowCopyUploads в настройках MediaWiki. Возможность загрузки файлов через API появилась в версии MediaWiki 1.16.

Написан при технической поддержке  suspected_one.

Исходный код

use utf8;
use MediaWiki::API;
my $mw = MediaWiki::API->new({ api_url => 'http://wikireality.ru/w/api.php' });
$mw->login({ lgname => 'Моё имя', lgpassword => 'Мой пароль' }) || die;
 
# Получение upload token
my $res = $mw->api({ 
        action => 'query', 
        prop => 'info', 
        intoken => 'edit', 
        titles => 'Labuda' 
}) || die "Не могу получить upload token"; 
my $upload_token = (values %{$res->{query}->{pages}})[0]->{edittoken};
 
# Чтение файла и загрузка картинок
open F, "имя_файла.допустим_txt";
while(my $line = <F>)
{
        chomp $line;
        my($url, $title, $descr) = split /\t/, $line;
 
        # ...
        $mw->api({
                action => 'upload', 
                url => $url, 
                token => $upload_token, 
                asyncdownload => 1, 
                filename => $title,
                comment => 'Бот: заливка лабуды', 
                text => $descr 
        });
}
close F;

Upload.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