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

Revision as of 18:02, 7 August 2019

Latest revision as of 14:47, 20 August 2025

(10 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 31:

@ISA=qw/AnomieBOT::Task/;

my %colors=(

'red' => ' style="background-color:#ffbfdc"',

'yellow' => ' style="background-color:#fff9bf"',

'green' => ' style="background-color:#e4ffcc"',

'clear' => '',

);

my %protact=(

'modify' => 'Modified',

Line 82 ⟶ 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 92 ⟶ 86:

}

$api->store->{"ver"} = 2;

}

# Flush warnings daily

my $ts = time;

$ts -= $ts % 86400;

if ( ($api->store->{'warnedBadRegexDate'} // 0) < $ts) {

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

$api->store->{'warnedBadRegexDate'} = $ts;

}

Line 114 ⟶ 116:

return 60;

}

my $ln = 0;

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

$ln++;

my $re=$line;

my %opts=();

Line 137 ⟶ 141:

my $tmp = $re;

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

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

$apiself->warnwarnBadRegex( $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 ( $@ ) {

$apiself->warnwarnBadRegex( $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 161 ⟶ 175:

# Fields are:

# 0: Namespaces to color green"attention" instead of clear"normal"

# 1: "Tag", also used in the name of the subpage the table is put on

# 2: Category name, no prefix

Line 167 ⟶ 181:

# 4: URL fragment for request links

# 5: NID component of the urn links

# 6: List of colorscolor-classes to apply based on page protection level:

# 0: unprotected

# 1: semi-protected

Line 181 ⟶ 195:

# 11: MediaWiki-namespace CSS/JS page

my @data=(

[[10,828],'PER','Wikipedia fully- protected edit requests','protected','editprotected','x-wp-editprotected',[qw/rederror rederror rederror rederror rederror clearnormal rederror clearnormal yellowcaution yellowcaution yellowcaution rederror/]],

[[10,828],'TPER','Wikipedia template-protected edit requests','template-protected','edittemplateprotected','x-wp-edittemplateprotected',[qw/rederror rederror rederror rederror clearnormal rederror rederror rederror yellowcaution rederror rederror rederror/]],

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

[[10,828],'SPER','Wikipedia semi-protected edit requests','semi-protected','editsemiprotected','x-wp-editsemiprotected',[qw/rederror clearnormal yellowcaution rederror rederror rederror rederror rederror rederror rederror rederror rederror/]],

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

[[0],'EDITREQCOIREQ','RequestedWikipedia editsconflict of interest edit requests','COI','requestedit','x-wp-requestedit',[qw/clearnormal caution yellowcaution yellowcaution rederror rederror rederror rederror rederror rederror rederror rederror/]],

[[],'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;

for my $data (@data){

my ($greennsattentionns,$tag,$cat,$type,$tgt,$urn,$colors)=@$data;

my $iter=$api->iterator(

generator => 'categorymembers',

Line 235 ⟶ 250:

touched => ISO2timestamp($p->{'touched'}),

});

$pages{$t}{$tt}{'reqisredir'} = defined( $p->{'redirect'} );

delete $pages{$t}{$tt}{'color'};

delete $pages{$t}{$tt}{'prottype'};

Line 307 ⟶ 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 356 ⟶ 372:

$pd->{'color'}=$colors->[10] if($protscore & 0x4000);

$pd->{'color'}=$colors->[11] if($protscore & 0x8000);

$pd->{'color'}='greenattention' if($pd->{'color'} eq 'clearnormal' && grep($p->{'ns'}==$_, @$greennsattentionns));

if($pd->{'reason'} eq ''){

Line 389 ⟶ 405:

}

$pd->{'logtitle'}=$pg;

$pd->{'isredir'}=defined( $p->{'redirect'} );

# now fill in the rest

Line 402 ⟶ 419:

my $txt = qq(<noinclude>{{User:AnomieBOT/PERTableHeader}}</noinclude>\n);

$txt.=qq(<div class="veblenbot-pertable">\n);

$txt.=qq(<templatestyles src="Template:Edit_fully-protected/color_legend/styles.css"/>\n);

$txt.=qq({| class="wikitable" style="padding:0em"\n);

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

Line 407 ⟶ 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 416 ⟶ 434:

$txt.=qq(! class = "unsortable" | Last protection log entry\n);

for my $p (sort { my $x = $a->{'touched'} <=> $b->{'touched'}; $x = $a->{'title'} cmp $b->{'title'} if $x == 0; return $x; } @pages){

my $c=$colors{$p->{'color'}};

my $t=$p->{'title'};

my $et=encodetitle($p->{'logtitle'});

Line 422 ⟶ 440:

my $pt=$p->{'prottype'};

my $r=$p->{'reason'};

my $txt.tl =qq(| $p->{'isredir'} ? "{{-r|1=$t}}" : "[[:$c\n)t]]";

my $txt.ttl =qq( $p->{'reqisredir'} ? "{{-r|1=$tt#$tgt|2=request}}" [[:$t]] ("[[$tt#$tgt|request]])\n)";

$txt.=qq(|- class="protectededit-legend-$c"\n);

$txt.=qq(| $tl ($ttl)\n);

$txt.=strftime("| %F %H:%M\n", gmtime $p->{'touched'});

$txt.=qq(| $pt <span class="plainlinks">([//en.wikipedia.org/w/index.php?title=Special:Log&type=protect&page=$et log])</span>\n);

Line 457 ⟶ 477:

$t=0 if $t<0;

return $t;

}

sub warnBadRegex {

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

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

my $file = __FILE__;

$msg =~ s/ at \Q$file\E line \d+\.$//;

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

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

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

$warned->{$msg} = 1;

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

}

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

}