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

Revision as of 14:58, 4 December 2011

Revision as of 23:59, 4 December 2011

Line 7:

=begin metadata

Bot: PERTableUpdaterAnomieBOT

Task: PERTableUpdater

BRFA: N/A

Line 253:

$txt.=qq(|}\n);

$txt.=qq(|-\n);

$txt.=qq(|style="text-align:right;font-size:smaller"| Updated as needed. Last updated: <!--TS-->1423:5859, 4 December 2011 (UTC)<!--/TS-->\n);

$txt.=qq(|}</div>);

Line 267:

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

$intxt=~s/^\s+|\s+$//;

$intxt=~s#<!--TS-->.*<!--/TS-->#<!--TS-->1423:5859, 4 December 2011 (UTC)<!--/TS-->#g;

if($intxt ne $txt){

$api->log("Upadting $pg ($ct request$s)");

my $r=$api->edit($tok, $txt, "Update table ($ct request$s)", 0, 0);

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