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

Revision as of 05:44, 7 March 2009

Revision as of 12:36, 27 March 2009

Line 101:

my $res;

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

$api->read_throttle(0);

$api->edit_throttle(10);

# List of templates to assess in this task

Line 116 ⟶ 114:

);

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

$selfapi->warn("Failed to retrieve redirect list for $t: ".$res->{'error'}."\n");

return 60;

}

Line 153 ⟶ 151:

$res=$api->query(%q1);

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

$selfapi->warn("Failed to retrieve transclusion list for $template: ".$res->{'error'}."\n");

return 60;

}

Line 173 ⟶ 171:

my $pageid=$page->{'pageid'};

my $title=$page->{'title'};

mynext if(exists($checked=api->store->{$pageid}) && $api->fetch(store->{$pageid}>=$seq);

next if(defined($checked) && $$checked>=$seq);

my $ns=$page->{'ns'};

Line 181 ⟶ 178:

if(($ns&1)==1){

# Talk page, ignore it.

$api->store(->{$pageid, \}=$seq);

next;

}

Line 198 ⟶ 195:

}

$selfapi->warn("Assessing $title\n");

# Ok, check the page

my $tok=$api->edittoken($talk, EditRedir => 1);

if($tok->{'code'} eq 'shutoff'){

$selfapi->warn("Task disabled: ".$tok->{'content'}."\n");

return 300;

}

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

$selfapi->warn("Failed to get edit token for $talk: ".$tok->{'error'}."\n");

next;

}

Line 214 ⟶ 211:

# Get page text

my $intxt=$tok->{'revisions'}[0]{'*'};

my ($outtxt,$nowiki)=$selfapi->strip_nowiki($intxt);

my $any=0;

my @found=();

$outtxt=$selfapi->process_templates($outtxt, sub {

my $name=shift;

my @params=@{shift()};

Line 275 ⟶ 272:

return "{{$oname|".join("|",@params)."}}";

});

$outtxt=$selfapi->replace_nowiki($outtxt, $nowiki);

# Need to edit?

Line 281 ⟶ 278:

$found[-1]='and '.$found[-1] if @found>1;

my $summary="Assessing ".join((@found>2)?', ':' ', @found)." per $req";

$selfapi->warn("$summary in $talk\n");

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

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

$selfapi->warn("Write failed on $talk: ".$r->{'error'}."\n");

next;

}

} else {

$selfapi->warn("Nothing to do in $talk\n");

}

# Save checked revision

$api->store(->{$pageid, \}=$seq);

# If we've been at it long enough, let another task have a