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

Revision as of 23:45, 21 December 2021

Latest revision as of 14:47, 20 August 2025

(6 intermediate revisions by 2 users not shown)

Line 14:

Update [[User:AnomieBOT/PERTable]], [[User:AnomieBOT/TPERTable]],

[[User:AnomieBOT/EPERTable]], [[User:AnomieBOT/SPERTable]], and

[[User:AnomieBOT/EDITREQTableCOIREQTable]], and [[User:AnomieBOT/PREQTable]].

=end metadata

Line 76:

}

if(($api->store->{"ver"}//1) < 2){

for my $tag (qw/PER TPER SPER EDITREQ/) {

next unless exists($api->store->{"$tag pages"});

my %old = %{$api->store->{"$tag pages"}};

Line 116:

return 60;

}

my $ln = 0;

for my $line (split /\r?\n/, $tb->{'content'}){

$ln++;

my $re=$line;

my %opts=();

Line 139 ⟶ 141:

my $tmp = $re;

$re=~s#(?<!\\[a-zA-Z])(?<!\\)\{(?!\d+(?:,\d*)?})#\\{#g;

$self->warnBadRegex( $api, "$page:$ln: Escaped left-braces in regex (old): $tmp" ) if $tmp ne $re;

$self->warnBadRegex( $api, "$page:$ln: Escaped left-braces in regex (new): $re" ) if $tmp ne $re;

# Validate each line, in case someone screws up the blacklist page

eval {

no warnings;

qr/^(?:$re)$/si;

};

if ( $@ ) {

$self->warnBadRegex( $api, "$page:$ln: Ignoring bad regex '$re' in: $page@\n");

next;

}

# Log non-fatal warnings too.

eval {

use warnings FATAL => 'all';

qr/^(?:$re)$/si;

};

if ( $@ ) {

$self->warnBadRegex( $api, "$page:$ln: Warning: $@\n");

}

Line 183 ⟶ 195:

# 11: MediaWiki-namespace CSS/JS page

my @data=(

[[10,828],'PER','Wikipedia fully- protected edit requests','protected','editprotected','x-wp-editprotected',[qw/error error error error error normal error normal caution caution caution error/]],

[[10,828],'TPER','Wikipedia template-protected edit requests','template-protected','edittemplateprotected','x-wp-edittemplateprotected',[qw/error error error error normal error error error caution error error error/]],

[[10,828],'EPER','Wikipedia extended-confirmed-protected edit requests','extended-confirmed-protected','editextendedprotected','x-wp-editextendedprotected',[qw/error error error normal error error error error error error error error/]],

[[10,828],'SPER','Wikipedia semi-protected edit requests','semi-protected','editsemiprotected','x-wp-editsemiprotected',[qw/error normal caution error error error error error error error error error/]],

[[],'IPER','Wikipedia interface-protected edit requests','interface-protected','editinterfaceprotected','x-wp-editinterfaceprotected',[qw/error error error error error error normal error error error error normal/]],

[[0],'EDITREQCOIREQ','Wikipedia requestedconflict editsof interest edit requests','COI','requestedit','x-wp-requestedit',[qw/normal caution caution caution error error error error error error error error/]],

[[],'PREQ','Wikipedia partial-block edit requests','partial block','editpartiallyblocked','x-wp-editpartiallyblocked',[qw/normal caution caution caution error error error error error error error error/]],

);

my $starttime=time;

Line 310 ⟶ 323:

$pd->{'prottype'}=$tb->{'source'};

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

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

$protscore=$sc;

}

Line 412 ⟶ 425:

my $s=($ct==1?'':'s');

my $pg='User:AnomieBOT/'.$tag.'Table';

$txt.=qq(! <section begin="count" />$ct<section end="count" /> [[:Category:$cat|$type edit request$s]] <div {{v|$pg|h|style="float:right;white-space:nowrap">[[$pg|v]]&middot;<span class="plainlinks">[//en.wikipedia.org/w/index.php?title=$pg&action=history h]</span></div>}}\n);

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

$txt.=qq(|\n);

Line 469 ⟶ 482:

my ($self, $api, $msg) = @_;

$msg =~ s/\s+$//;

my $warned = $api->store->{'warnedBadRegex'};

my $file = __FILE__;

return if exists( $warned->{$msg} );

$warned->{$msg} =~ 1s/ at \Q$file\E line \d+\.$//;

$api->store->{'warnedBadRegex'} = $warned;

if ( ! defined( $api->warn({'noedit'} $msg) ); {

my $warned = $api->store->{'warnedBadRegex'};

return if exists( $warned->{$msg} );

$warned->{$msg} = 1;

$api->store->{'warnedBadRegex'} = $warned;

}

$api->warn( "$msg\n" );

}