User:AnomieBOT/source/tasks/WikiProjectWorker.pm: Difference between revisions

Revision as of 19:28, 26 April 2009

Revision as of 16:46, 6 May 2009

Line 102:

my $res;

$api->task('WikiProjectWorker', 0, 10, qw/d::Util d::WikiProjectTagging/);

my $errto = 'Errors? [[User:'.$api->user.'/shutoff/WikiProjectWorker]]';

Line 135:

my $title=filter($page);

if(!defined($title)){

$api->warnlog("Skipping ".$page->{'title'}.", filter returned undef\n");

$api->store->{$pageid}=$seq;

next;

Line 150:

}

if(($tok->{'ns'}&1)==0){

$api->warnlog("Cannot edit $title: namespace ".$tok->{'ns'}." is non-talk\n");

$api->store->{$pageid}=$seq;

next;

}

if(exists($tok->{'redirect'})){

$api->warnlog("$title is a redirect, skipping.\n");

$api->store->{$pageid}=$seq;

next;

}

$api->warnlog("Checking $title...\n");

my $intxt=exists($tok->{'revisions'}[0]{'*'})?$tok->{'revisions'}[0]{'*'}:'';

Line 234:

my $cat=$iter->iterval;

my $summary="Assessing for WikiProject California per $req $errto";

$api->warnlog("$summary in $title\n");

my $r=$api->edit($tok, $outtxt, $summary, 1, 1);

if($r->{'code'} ne 'success'){

Line 241:

}

} else {

$api->warnlog("Nothing to do in $title\n");

}