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

Revision as of 04:26, 24 February 2009

Latest revision as of 02:34, 13 August 2018

(10 intermediate revisions by the same user not shown)

Line 1:

{{ombox|type=notice|text= Approved 2009-01-03<br />[[Wikipedia:Bots/Requests for approval/AnomieBOT 20]]}}

<sourcesyntaxhighlight lang="perl">

package tasks::AFDMergeFromCleaner;

Line 7:

=begin metadata

Bot: AnomieBOT

Task: AFDMergeFromCleaner

BRFA: Wikipedia:Bots/Requests for approval/AnomieBOT 20

Status: Approved 2009-01-03

Rate: Max 6 edits/minute

Created: 2008-12-29

Remove instances of {{tl|afd-mergefrommerge from}} where the merge has been completed.

Report instances of {{tl|afd-mergefrommerge from}} where the AFDed page is now a redirect

to a different target.

Line 51:

my $res;

$api->task('AFDMergeFromCleaner', 0, 10, qw/d::Templates d::Redirects/);

$api->read_throttle(0);

$api->edit_throttle(10);

if($self->{'nextrun'}==0 && exists($api->store->{'nextrun'})){

my $t=$api->fetch(store->{'nextrun')};

$self->{'nextrun'}=$$t if(defined($t) && $$t=~/^\d+$/);

}

my $starttime=time();

Line 63 ⟶ 61:

return $t if $t>0;

my @templates=('Afd-mergefrommerge from');

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

my $report='User:'.$api->user.'/Afd-mergefrom report';

# Get a list of templates redirecting to our targets

my %templates=$api->redirects_to_resolved(map "Template:$_", @templates);

foreach my $template if(@exists($templates{''})){

$api->warn("Failed to get redirects to target templates: ".$templates{''}{'error'}."\n");

$templates{"Template:$template"}=1;

$res=$api->query([],return 60;

list => 'backlinks',

bltitle => "Template:$template",

blfilterredir => 'redirects',

bllimit => 'max',

);

$templates{$_->{'title'}}=1 foreach (@{$res->{'query'}{'backlinks'}});

}

Line 98 ⟶ 90:

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

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

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

$ret=60;

last MAINLOOP;

Line 118 ⟶ 110:

}

$selfres=$api->warnquery("Checkingtitles for=> $templatesubject, in $title\n"redirects=>1);

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

$api->warn("Failed to retrieve redirect target for $subject: ".$res->{'error'}."\n");

list $ret=> 'backlinks',60;

bllimit => 'max',last MAINLOOP;

); }

my $rsubject=$subject;

$templates{$_->{'title'}}=1 foreach (@{$res->{'query'}{'backlinksredirects'}});{

$rsubject=$_->{'to'} if($_->{'from'} eq $rsubject);

}

$api->log("Checking for $template in $title");

# WTF?

if(exists($_->{'missing'})){

$selfapi->warn("$title is missing? WTF?\n");

next;

}

Line 129 ⟶ 132:

my $tok=$api->edittoken($title);

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 $title: ".$tok->{'error'}."\n");

$ret=60;

last MAINLOOP;

Line 140 ⟶ 143:

# Get page text

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

# First, find the template and pull out the relevant parameter

my @from=();

$selfapi->process_templates($intxt, sub {

return undef unless exists($templates{'Template:'.$_[0]});

my $f=undef;

foreach ($selfapi->process_paramlist(@{$_[1]})){

($f=$_->{'value'})=~s/^\s+|\s+$//g if $_->{'name'} eq 1;

}

Line 160 ⟶ 163:

$res=$api->query(titles => join('|',@f), redirects=>1);

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

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

$ret=60;

last MAINLOOP;

Line 167 ⟶ 170:

foreach (@{$res->{'query'}{'redirects'}}){

my ($f,$t)=($_->{'from'}, $_->{'to'});

if($t eq $subject || $t eq $rsubject){

$f=$norm{$f} if exists($norm{$f});

$remove{$f}=1;

} elsif($subject ne $rsubject){

$redirected{"$f>$rsubject>$t"}="| {{$linktmpl|$f}} || {{$linktmpl|$subject}}<br />→ {{$linktmpl|$rsubject}} || {{$linktmpl|$t}} || ";

} else {

$redirected{"$f>$subject>$t"}="| {{$linktmpl|$f}} || {{$linktmpl|$subject}} || {{$linktmpl|$t}} || ";

Line 186 ⟶ 191:

# Remove the removable templates

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

my $name=shift;

my @params=@{shift()};

Line 195 ⟶ 200:

return undef unless exists($templates{'Template:'.$name});

my $f=undef;

foreach ($selfapi->process_paramlist(@params)){

($f=$_->{'value'})=~s/^\s+|\s+$//g if $_->{'name'} eq 1;

}

Line 208 ⟶ 213:

if($outtxt ne $intxt){

my $summary="Removing obsolete {{$template}}";

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

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

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

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

next;

}

Line 222 ⟶ 227:

my $tok=$api->edittoken($report);

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 $report: ".$tok->{'error'}."\n");

$ret=60;

last;

}

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

foreach my $s (split(/(?=(?:^|\n)==)/, $intxt)){

if($s=~/^\n?==\s*Redirected\s*==/){

Line 250 ⟶ 255:

}

my $outtxt="== Redirected ==\n";

$outtxt.="The following table lists pages referred to by {{tl|afd-mergefrommerge from}} are redirects to some page other than that with the {{tl|afd-mergefrommerge from}}. Please correct the {{tl|afd-mergefrommerge from}}, either by removing it (if the page was correctly merged elsewhere), undoing the incorrect redirection, or pointing it to the correct page. This table will be updated automatically.\n\n";

$outtxt.="{| class=\"wikitable sortable\"\n";

$outtxt.="! Page !! AFD merge to !! Redirect to !! Note\n";

Line 257 ⟶ 262:

$outtxt.="\n|}\n\n";

$outtxt.="== Deleted ==\n";

$outtxt.="The following table lists deleted pages that were referred to by {{tl|afd-mergefrommerge from}}; the offending {{tl|afd-mergefrommerge from}} has already been removed. Please double-check whether the deletion was correct. If so, just remove the row from the table; if not, undelete the page and restore the {{tl|afd-mergefrommerge from}}. This table will '''not''' be updated automatically.\n\n";

$outtxt.="{| class=\"wikitable sortable\"\n";

$outtxt.="! Page !! AFD merge to !! Note\n";

Line 266 ⟶ 271:

if($outtxt ne $intxt){

my $summary="Updating list of non-matching merges";

$selfapi->warnlog("$summary in $report\n");

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

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

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

$ret=60;

}

Line 277 ⟶ 282:

$starttime+=$ret;

$self->{'nextrun'}=$starttime;

$api->store(->{'nextrun', \}=$starttime);

return $ret;

Line 284 ⟶ 289:

1;

</syntaxhighlight>

</source>