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

Revision as of 00:32, 5 December 2011

Revision as of 02:22, 5 December 2011

Line 166:

$pd->{'prottype'}='[[MediaWiki:Titleblacklist|Title blacklist]]';

my $line=$data->{'line'};

$pd->{'reason'}=qq(Matching line: <syntaxhighlight lang="text" enclose="none">$line</syntaxhighlightsyntax).qq(highlight>);

}

Line 253:

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

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

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

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

Line 267:

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

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

$intxt=~s#<!--TS-->.*<!--/TS-->#<!--TS-->00:32, 5 December 2011 (UTC)~~~~~<!--/TS-->#g;

if($intxt ne $txt){

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