Wikipedia

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

Browse history interactively
← Previous edit
Content deleted Content added
VisualWikitext
AnomieBOT (talk | contribs)
Bots
6,859,290 edits
Updating published sources: PERTableUpdater: * Stop updating EDITREQTable, so it can be turned into something vaguely resembling a disambiguation page.
AnomieBOT (talk | contribs)
Bots
6,859,290 edits
Updating published sources: PERTableUpdater: * Use {{tl|v}} to generate view and history links.
 
(2 intermediate revisions by 2 users not shown)
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/]],
Line 413 ⟶ 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 470 ⟶ 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" );
}
 
Retrieved from "https://en.wikipedia.org/wiki/User:AnomieBOT/source/tasks/PERTableUpdater.pm"