Wikipedia

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

Browse history interactively
← Previous edit
Content deleted Content added
VisualWikitext
AnomieBOT (talk | contribs)
Bots
6,858,895 edits
Updating published sources: EnDashRedirectCreator: * If there are multiple dashed talk page titles with conflicting targets, and one matches its subject page while the other doesn't, prefer the matching one. Probably the non-matching talk page is because someone thinks discusson of the subject-space redirect needs to be preserved on that specific talk page (rather than being archived to the target's talk page) so they refuse to redirect it.
AnomieBOT (talk | contribs)
Bots
6,858,895 edits
Updating published sources: EnDashRedirectCreator: * Add disabled code for finding redirects missing {{tl|R avoided double redirect}}. * Reorganize queries. * Supplemental BRFA for all this disabled code.
 
(6 intermediate revisions by the same user not shown)
Line 1:
{{ombox|type=notice|text= Approved 2016-03-08<br />[[Wikipedia:Bots/Requests for approval/AnomieBOT 74]]}}
{{ombox|type=notice|text= Supplemental BFRA approved 2020-06-19<br />[[Wikipedia:Bots/Requests for approval/AnomieBOT 80]]}}
{{ombox|type=notice|text= Supplemental BFRA approval requested 2025-08-23<br />[[Wikipedia:Bots/Requests for approval/AnomieBOT 86]]}}
<syntaxhighlight lang="perl">
package tasks::EnDashRedirectCreator;
Line 14 ⟶ 15:
+BRFA: Wikipedia:Bots/Requests for approval/AnomieBOT 80
+Status: Approved 2020-06-19
+BRFA: Wikipedia:Bots/Requests for approval/AnomieBOT 86
+Status: BRFA
Created: 2016-03-03
 
Line 46 ⟶ 49:
# Titles that the bot can't and shouldn't create redirects for, to avoid logspam.
my %skipTitles = (
0 => {
"List_of_''Late_Night_with_Jimmy_Fallon''_episodes_(2013–14)" => 1,
},
6 => {
"Velázquez_–_Bufón_don_Sebastián_de_Morra_(Museo_del_Prado,_c._1645).jpg" => 1,
},
10 => {
"Location_map_Minneapolis–Saint_Paul" => 1,
},
);
 
Line 84 ⟶ 78:
=for info
Supplemental BFRA approved 2020-06-19<br />[[Wikipedia:Bots/Requests for approval/AnomieBOT 80]]
 
=for info
Supplemental BFRA approval requested 2025-08-23<br />[[Wikipedia:Bots/Requests for approval/AnomieBOT 86]]
 
=cut
Line 94 ⟶ 91:
my ($self, $api) = @_;
 
$api->task('EnDashRedirectCreator', 0, 10, qw/d::Redirects d::IWNS d::Talk d::Timestamp d::Templates/);
my $screwup=' Errors? [[User:'.$api->user.'/shutoff/EnDashRedirectCreator]]';
 
my $BRFA86 = 0;
 
my %ns = $api->namespace_map();
Line 109 ⟶ 108:
return 300;
}
 
# Templates to preserve.
my %preserve = $api->redirects_to_resolved(
'Template:NASTRO comment',
);
if(exists($preserve{''})){
if($preserve{''}{'code'} eq 'shutoff'){
$api->warn("Task disabled: " . $preserve{''}{'content'} . "\n");
return 300;
}
$api->warn("Failed to get preserve template redirects: " . $preserve{''}{'error'} . "\n");
return 60;
}
 
# Templates to preserve.
my %preserveBefore = $api->redirects_to_resolved(
'Template:Old CfD',
'Template:Old MfD',
'Template:Old prod',
'Template:Old RfD',
'Template:Old TfD',
'Template:Old XfD multi',
'Template:WikiProject banner shell',
);
if(exists($preserveBefore{''})){
if($preserveBefore{''}{'code'} eq 'shutoff'){
$api->warn("Task disabled: " . $preserveBefore{''}{'content'} . "\n");
return 300;
}
$api->warn("Failed to get preserve template redirects: " . $preserveBefore{''}{'error'} . "\n");
return 60;
}
 
# Rcat templates to preserve. This should probably be limited to particularly unprintworthy things, e.g. misspelling but not alternative spelling.
my %rpreserve = $api->redirects_to_resolved(
'Template:R from incorrect disambiguation',
'Template:R from incorrect hyphenation',
'Template:R from incorrect name',
'Template:R from miscapitalization',
'Template:R from misquotation',
'Template:R from misspelling',
'Template:R from remote talk page',
'Template:R unprintworthy',
);
if(exists($rpreserve{''})){
if($rpreserve{''}{'code'} eq 'shutoff'){
$api->warn("Task disabled: " . $rpreserve{''}{'content'} . "\n");
return 300;
}
$api->warn("Failed to get r-preserve template redirects: " . $rpreserve{''}{'error'} . "\n");
return 60;
}
 
my $dofixupuntil = $self->{'dofixupuntil'} // 0;
$dofixupuntil = 0 if $dofixupuntil < time();
 
my $cont = $self->{'dbcontinue'} // '';
Line 127 ⟶ 181:
$api->warn( "Error fetching actor ID from replica: $@\n" );
return 300;
}
 
my $targetid;
eval {
( $targetid ) = $dbh->selectrow_array( "SELECT lt_id FROM linktarget WHERE lt_namespace=2 AND lt_title = 'AnomieBOT/Auto-G8'" );
};
if ( $@ ) {
$api->warn( "Error fetching linktarget ID from replica: $@\n" );
return 300;
}
 
my $autoG8Mismatch = '0=1';
my $needAvoidedRedir = '0=1';
my $needAutoG8 = '0=1';
if ( $BRFA86 && $dofixupuntil ) {
$autoG8Mismatch = "EXISTS( SELECT 1 FROM externallinks WHERE el_from = p2.page_id AND el_to_domain_index = 'urn:.' and el_to_path = 'x-anomiebot-auto-g8-mismatch:endash' )";
$needAutoG8 = "templatelinks.tl_from IS NULL";
$needAvoidedRedir = "r1.rd_from IS NOT NULL AND NOT EXISTS( SELECT 1 FROM categorylinks WHERE cl_from=p2.page_id AND cl_to='Avoided_double_redirects' )";
}
 
my $botOwned = "revision.rev_page IS NOT NULL";
if ( $BRFA86 ) {
$botOwned = "( $botOwned OR templatelinks.tl_from IS NOT NULL )";
}
 
Line 143 ⟶ 220:
LEFT JOIN redirect AS r1 ON(r1.rd_from=p1.page_id)
LEFT JOIN redirect AS r2 ON(r2.rd_from=p2.page_id)
LEFT JOIN revision ON (rev_page = p2.page_id AND rev_actor IN ($actorIds) AND rev_parent_id = 0)
LEFT JOIN templatelinks ON (tl_from=p2.page_id AND tl_target_id=$targetid)
WHERE
($dashcond) AND p1.page_namespace NOT IN ($skipNs)
AND (
p2.page_id IS NULL
OR $botOwned AND (
r2.rd_namespace != COALESCE( r1.rd_namespace, p1.page_namespace )
OR r2.rd_title != COALESCE( r1.rd_title, p1.page_title )
OR r2.rd_fragment != r1.rd_fragment
) AND EXISTS( SELECT 1OR FROM revision WHERE rev_page = p2.page_id AND rev_actor IN ($actorIds) AND rev_parent_id = 0 )autoG8Mismatch
OR $needAutoG8
OR $needAvoidedRedir
)
)
$cont
Line 229 ⟶ 311:
my $redirNs = ( $redir =~ /^([^:]+):/ && exists( $ns{$1} ) ? $ns{$1} : 0 );
my $targetNs = ( $target =~ /^([^:]+):/ && exists( $ns{$1} ) ? $ns{$1} : 0 );
my $extrabefore = '';
my $rextra = '';
my $extra = '';
 
my $tok=$api->edittoken($redir, EditRedir => 1, imageinfo => { prop => '', limit => 1 });
Line 251 ⟶ 336:
if ( $user ne 'AnomieBOT' ) {
$api->log("$redir already exists and wasn't originally created by the bot, skipping");
next;
}
 
if ( !exists( $tok->{'redirect'} ) ) {
$api->log("$redir was created by the bot, but it is not a redirect anymore, skipping");
next;
}
 
my $txt = $tok->{'revisions'}[0]{'slots'}{'main'}{'*'};
if ( $txt =~ m!\{\{User:AnomieBOT/Auto-G8\|(?:[^{}|]*\|)?target=(.*?)\}\}! && $1 ne $origtarget ) {
my $oldtarget = $1;
my $tmp = $oldtarget;
Line 274 ⟶ 364:
( $origtalktgt = $tgts{$origtarget} ) =~ s/^($nsre):/ $ns{$1} > 1 ? "$rns{$ns{$1} & ~1}:" : '' /e;
 
if ( $oldsubjtgt eq $origsubjtgt && $oldsubjtgt eq $oldtalktgt && $origsubjtgt ne $origtalktgt ) {
$api->log("Skipping [[$origtarget]], [[$redir]] already exists for [[$oldtarget]] and [[$oldtargetSubj]] matches that while [[$origtarget]] does not match [[$origtargetSubj]]");
next;
} elsif ( $oldsubjtgt eq $origsubjtgt && $oldsubjtgt ne $oldtalktgt && $origsubjtgt eq $origtalktgt ) {
$api->warn("Updating [[$redir]] to [[$target]]: [[$redir]] already exists for [[$oldtarget]], but that does not match [[$oldtargetSubj]] while [[$origtarget]] does match [[$origtargetSubj]]");
} else {
Line 290 ⟶ 380:
$api->warn("[[$redir]] claims to exist for [[$oldtarget]], but that's not valid so overwriting");
}
}
 
# Check for certain extra templates that we should probably preserve when updating.
$api->process_templates( $txt, sub {
my $name = shift;
my $params = shift;
my $wikitext = shift;
 
if ( exists( $preserveBefore{"Template:$name"} ) || exists( $preserveBefore{$name} ) ) {
$extrabefore .= "$wikitext\n";
} elsif ( exists( $rpreserve{"Template:$name"} ) || exists( $rpreserve{$name} ) ) {
$rextra .= "\n$wikitext";
} elsif ( exists( $preserve{"Template:$name"} ) || exists( $preserve{$name} ) ) {
$extra .= "\n$wikitext";
}
 
return undef;
} );
 
# Also keep any categories from the existing redirect page.
if ( $txt =~ /\[\[\s*(?i:Category)\s*:/ ) {
my $txt2 = $txt;
$txt2 =~ s/^#REDIRECT\s*\[\[.*?\]\]//i;
my $nowiki = {};
$txt2 = $api->strip_nowiki( $txt2, $nowiki );
my @cats = $txt2 =~ /\[\[\s*(?i:Category)\s*:.*?\]\]/g;
$extra .= "\n\n" . $api->replace_nowiki( join( "\n", @cats ), $nowiki ) if @cats;
}
}
Line 327 ⟶ 444:
 
$target .= '#' . $fragment if defined( $fragment );
my $tosectionrextra = defined( $fragment ) ? "\n{{R to section}}$rextra" :if ''defined( $fragment );
my $doublerextra = $origtarget eq $target ? '' : "\n{{R avoidedfrom doubleASCII-only}}$rextra" if $redir redirect|1=~ /^[ -~]+$origtarget}}"/;
my $txtrextra = "#REDIRECT [[:$target]]\n\n{{RedirectR categoryavoided shell|\n{{R fromdouble modification|1={{-rredirect|1=$origtarget}}}}$doublerextra" if $origtarget ne $tosection\n}}\n{{User:AnomieBOT/Auto-G8|target=$origtarget}}";
my $txt = "#REDIRECT [[:$target]]\n\n${extrabefore}{{Redirect category shell|\n{{R from alternative hyphenation|1={{-r|1=$origtarget}}}}$rextra\n}}\n{{User:AnomieBOT/Auto-G8|endash|target=$origtarget}}$extra";
my $summary;
if ( exists( $tok->{'missing'} ) ) {
Line 373 ⟶ 491:
}
if ( $ct > 2 ) {
my $extraextranote = $bot1058 > 2 ? "If it's AnomieBOT and Bot1058 fighting, that probably means {{-r|1=$origtarget}} needs to be updated to match {{-r|1={{subst:SUBJECTPAGENAME:$origtarget}}}} or vice versa." : "";
$api->whine( "Possible edit warring on [[:$redir]]", "In the past 30 days, there appear to have been $ct reverts on {{-r|1=$redir}}. This suggests that vandalism or edit warring of some sort may be occurring (there or on {{-r|1=$origtarget}}). A human should look into it. $extraextranote" );
}
}
Line 395 ⟶ 513:
$self->{'dbcontinue'} = '';
 
# The intention is that first we run through all new creations needed, and only after those are done do we run through things needing the Auto-G8 template re-added.
return 21600;
if ( ! $dofixupuntil ) {
$self->{'dofixupuntil'} = time() + 21600;
return 0;
}
 
$self->{'dofixupuntil'} = 0;
return $dofixupuntil - time();
}
 
Retrieved from "https://en.wikipedia.org/wiki/User:AnomieBOT/source/tasks/EnDashRedirectCreator.pm"