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

Content deleted Content added
AnomieBOT (talk | contribs)
Updating published sources: TFATitleSubpageCreator: * Retry sooner if there were errors.
AnomieBOT (talk | contribs)
Updating published sources: General: * Update for the addition of 'rvslots'. DatedCategoryDeleterTest: * Disable. It's clear that task won't be needed. BrokenRedirectDeleter: * Handle pages with newlines before the <code>#REDIRECT</code>.
Line 62:
prop => 'revisions',
rvprop => 'content',
rvslots => 'main',
);
while($_=$iter->next){
Line 72 ⟶ 73:
 
next if exists($_->{'missing'});
next if $_->{'revisions'}[0]{'slots'}{'main'}{'*'}=~/\{\{TFAempty\}\}/;
 
my $title=$_->{'title'};
Line 79 ⟶ 80:
 
unless(
$_->{'revisions'}[0]{'slots'}{'main'}{'*'}=~/'''\s*\[\[\s*([^|\]]+?)\s*(?:\|[^]]+)?\]\][a-z]*\s*'''/ || $_->{'revisions'}[0]{'slots'}{'main'}{'*'}=~m!<b>\s*\[\[\s*([^|\]]+?)\s*(?:\|[^]]+)?\]\]\s*</b>! ||
$_->{'revisions'}[0]{'slots'}{'main'}{'*'}=~/\[\[\s*([^|\]]+?)\s*\|\s*'''[^]]+'''\s*\]\]/ || $_->{'revisions'}[0]{'slots'}{'main'}{'*'}=~m!\[\[\s*([^|\]]+?)\s*\|\s*<b>[^]]+</b>\s*\]\]!
){
$api->warn("No FA link in $title?\n");
warn $_->{'revisions'}[0]{'slots'}{'main'}{'*'};
next;
}
Line 111 ⟶ 112:
 
# Need to edit?
if(($tok->{'revisions'}[0]{'slots'}{'main'}{'*'} // '') ne $link){
$api->log("Featured article for [[$title|$date]] is [[$link]] for $template");
my $r=$api->edit($tok, $link, "Featured article for [[$title|$date]] is [[$link]]", 1, 1);
Line 133 ⟶ 134:
prop => 'revisions',
rvprop => 'content',
rvslots => 'main',
);
while($_=$iter->next){
Line 142 ⟶ 144:
}
 
if(exists($_->{'missing'}) || $_->{'revisions'}[0]{'slots'}{'main'}{'*'}=~/^\s*$/) {
my $title=$_->{'title'};
my $fa=$title; $fa=~s/^Template:TFA title\//Wikipedia:Today\x27s featured article\//;