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

Revision as of 23:43, 15 November 2013

Revision as of 00:59, 27 November 2013

Line 220:

# before saving the original page to minimize chances of being able to

# save one but not the other.

my ($apage,$atok,$atxt)=(undef,undef,undef);

if(@archive){

my ($atok=i, $api->edittokensz) = ("$page/archive"1, 0);

($apage = "$page/archive") =~ s/^Wikipedia://;

$res = $api->query(

generator => 'allpages',

gapnamespace => 4,

gapprefix => $apage,

gaplimit => 'max',

prop => 'info',

);

for my $p (values %{$res->{'query'}{'pages'}}) {

if ( $p->{'title'} eq "$page/archive" && $i <= 1) {

($i,$sz) = (1,$p->{'length'});

} elsif ( $p->{'title'} =~ /^\Q$page\/archive\E (\d+)$/ && $i <= $1 ) {

($i,$sz) = ($1,$p->{'length'});

}

}

$i++ if $sz > 1048576;

$apage = $i < 2 ? "$page/archive" : "$page/archive $i";

$atok=$api->edittoken($apage);

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

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

Line 228 ⟶ 247:

}

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

$api->warn("Failed to get edit token for $page/archiveapage: ".$atok->{'error'}."\n");

$broken=1;

next;

Line 242 ⟶ 261:

$atxt=~s/<!-- add old AfD discussions at the top -->/<!-- add old AfD discussions at the top -->\n$a/;

if($aintxt eq $atxt){

$api->whine("Broken deletion sorting archive page for $n", "The deletion sorting archive page [[$page/archiveapage]] is lacking the marker <code><nowiki><!-- add old AfD discussions at the top --></nowiki></code>, which is needed for me to know where to put the archived AfDs. I can't do anything to that page until someone fixes it.");

$broken=1;

next;

Line 251 ⟶ 270:

if($outtxt ne $intxt){

$api->log("Archiving closed XfDs from $page...");

my $summary="[[$page/archiveapage|Archiving closed XfDs]]".$screwup.": ".join(" ", @summary);

$summary="[[$page/archiveapage|Archiving closed XfDs]]".$screwup.": [".scalar(@summary)." discussions]" if length($summary)>250;

$res=$api->edit($tok, $outtxt, $summary, 0, 1);

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

Line 264 ⟶ 283:

}

if(defined($atok)){

$api->log("Archiving closed XfDs to $page/archiveapage...");

$res=$api->edit($atok, $atxt, "Archiving closed XfDs from [[$page]]".$screwup, 0, 1);

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

$api->warn("Save failed for $page/archive: apage".$res->{'error'}."\n");

$broken=1;

next;