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

Revision as of 03:31, 13 May 2011

Revision as of 17:59, 27 January 2012

Line 120:

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

my @archive=@{$api->store->{"archive $page"} // []}; # Load saved archivals

my @summary=();

my $fail=undef;

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

Line 211 ⟶ 212:

$date=$1 if $xfdintxt=~m!(\d\d:\d\d, \d+ \w+ \d{4} \(UTC\))!;

unshift @archive, "* [[$name|$name2]] - (".length($xfdintxt).") - $result - <small>closed $date</small>";

push @summary, "[[$name]]";

return '';

});

Line 249 ⟶ 251:

if($outtxt ne $intxt){

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

$res=$api->edit($tok,my $outtxt, summary="[[$page/archive|Archiving closed XfDs]]".$screwup,.": 0".join(" ", 1@summary);

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

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

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

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