Wikipedia

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

Browse history interactively
← Previous edit
Content deleted Content added
VisualWikitext
AnomieBOT (talk | contribs)
Bots
6,864,336 edits
Updating published sources: AnomieBOT::API: * Add configuration variable (and accessor function) for the bot operator's username * Better logging when testing uploads All tasks: * Remove useless metadata field
AnomieBOT (talk | contribs)
Bots
6,864,336 edits
Updating published sources: AutoAssessor2: * Retire this task too, I think Lua now tends to handle this sort of thing.
 
(6 intermediate revisions by the same user not shown)
Line 1:
{{ombox|type=notice|text= Approved 2008-12-07<br />[[Wikipedia:Bots/Requests for approval/AnomieBOT 15]]}}
{{ombox|type=notice|text= Retired 2025-02-01. Haven't had call to run this in a while, and I think Lua now handles this sort of thing anyway.}}
<sourcesyntaxhighlight lang="perl">
package tasks::AutoAssessor2;
 
Line 10 ⟶ 11:
Task: AutoAssessor2
BRFA: Wikipedia:Bots/Requests for approval/AnomieBOT 15
Status: ApprovedInactive 20082025-1202-0701
Created: 2008-11-26
OnDemand: true
Line 31 ⟶ 32:
 
# Request link, for edit summary.
my $req="[[User:AnomieBOT/req/WikiProject PhysicsRadio Stations 1|request]]";
 
# Increment this number every time a new run is started, so we don't have to
# mess around with deleting previous runs' database entries.
my $seq=34;
 
# If any of the 'verify' or 'params' functions need the page contents, set this
Line 49 ⟶ 50:
# canonicalize => If defined, any instance of the template will be renamed to
# this when edits are done to the page.
# addempty => If true, add empty "class=" and "importance=" to all banners.
# verify => If defined, must be a subroutine that will be called with the
# page and talkpage results. The subroutine must return a boolean value,
Line 57 ⟶ 59:
my %cfg_templates;
%cfg_templates=(
'PhysicsWikiProject Radio Stations' => {
nsmeta => {1,
stubstubauto => [ 'stub', qr/\S.*/s, undef, undef ],
redirectcanonicalize => [ 'redirect',WikiProject qr/redirect|red|redir/i,Radio Stations'NA', qr/na/i ],
disambigaddempty => [ 'disambig', qr/disambig|dab/i, 'NA', qr/na/i ]0,
2 => [ 'NA', qr/na/i, 'NA', qr/na/i ], # User
4 => [ 'project', qr/project/i, 'NA', qr/na/i ], # Wikipedia
6 => [ 'image', qr/image/i, 'NA', qr/na/i ], # Image
8 => [ 'NA', qr/na/i, 'NA', qr/na/i ], # MediaWiki
10 => [ 'template', qr/template|templ|temp/i, 'NA', qr/na/i ], # Template
12 => [ 'NA', qr/na/i, 'NA', qr/na/i ], # Help
14 => [ 'category', qr/category|categ|cat/i, 'NA', qr/na/i ], # Category
100 => [ 'portal', qr/portal/i, 'NA', qr/na/i ], # Portal
},▼
stubauto => 'auto',▼
blp => undef,▼
activepol => undef,
canonicalize => undef,
verify => undef,
params => sub {undef,
my $api=shift;
my $page=shift;
my $talk=shift;
my $name=shift;
my $params=shift;
 
my @x=(@{$page->{'categories'} // []},@{$page->{'templates'} // []},@{$talk->{'categories'} // []},@{$talk->{'templates'} // []});
my $mark=0;
$mark|=1 if grep($_->{'title'} eq 'Template:WPBiography', @x);
$mark|=1 if grep($_->{'title'} eq 'Template:Blp', @x);
$mark|=8 if grep($_->{'title'} eq 'Template:WPBooks', @x);
$mark|=8 if grep($_->{'title'} eq 'Template:WikiProject Magazines', @x);
$mark|=8 if grep($_->{'title'} eq 'Template:WikiProject Academic Journals', @x);
$mark|=8 if grep($_->{'title'} eq 'Category:Journals', @x);
$mark|=8 if grep($_->{'title'} eq 'Category:Journal articles', @x);
$mark|=8 if grep($_->{'title'} eq 'Category:Scientific journals', @x);
$mark|=8 if grep($_->{'title'} eq 'Category:Scientific literature', @x);
$mark|=8 if grep($_->{'title'} eq 'Category:Academic publishing', @x);
$mark|=16 if grep($_->{'title'} eq 'Template:WikiProject History of Science', @x);
 
if($mark&1){▼
push @$params, "bio=yes" unless(grep(s/^(\s*bio\s*=(?:\s*(?=\S))?).*?(\s*)$/${1}yes$2/s, @$params));▼
}
if($mark&2){
push @$params, "fluid-dynamics=yes" unless(grep(s/^(\s*fluid-dynamics\s*=(?:\s*(?=\S))?).*?(\s*)$/${1}yes$2/s, @$params));
}
if($mark&4){
push @$params, "relativity=yes" unless(grep(s/^(\s*relativity\s*=(?:\s*(?=\S))?).*?(\s*)$/${1}yes$2/s, @$params));▼
}
if($mark&8){
push @$params, "pub=yes" unless(grep(s/^(\s*pub\s*=(?:\s*(?=\S))?).*?(\s*)$/${1}yes$2/s, @$params));
}
if($mark&16){
push @$params, "hist=yes" unless(grep(s/^(\s*hist\s*=(?:\s*(?=\S))?).*?(\s*)$/${1}yes$2/s, @$params));
}
},
},
);
Line 120 ⟶ 73:
my $self=$class->SUPER::new();
$self->{'did_templates'}=0;
$self->{'config loaded'}=0;
bless $self, $class;
return $self;
Line 128 ⟶ 82:
=for info
Approved 2008-12-07<br />[[Wikipedia:Bots/Requests for approval/AnomieBOT 15]]
 
=for info
Retired 2025-02-01. Haven't had call to run this in a while, and I think Lua now handles this sort of thing anyway.
 
=cut
Line 139 ⟶ 96:
my $res;
 
$api->task('AutoAssessor2', 0, 10, qw/d::WikiProjectTagging d::Redirects/);
 
# Load configs, if necessary
if(!$self->{'config loaded'}){
while(my ($banner,$cfg)=each %cfg_templates){
next unless exists($cfg->{'meta'});
if(my $resae=$cfg->{'codeaddempty'} ne// 'success'){0;▼
$cfg=$api->WPBMetaConfig($cfg->{'meta'}, %$cfg) if exists($cfg->{'meta'});
$cfg->{'addempty'}=$ae;
$cfg_templates{$banner}=$cfg;
▲ },
$self->{'config loaded'}=1;
}
 
if(!exists($api->store->{'metaseq'}) || $api->store->{'metaseq'}<$seq){
Line 150 ⟶ 119:
if(!$self->{'did_templates'}){
while(my ($t,$c)=each %cfg_templates){
my %redirs=$capi->{'names'}=[ redirects_to_resolved("Template:$t" ]);
$res=$api->queryif([],exists($redirs{''})){
list$api->warn("Failed to get redirects to => Template:$t".$redirs{''}{'backlinkserror',}."\n");
bltitle => "Template:$t",
blfilterredir => 'redirects',
bllimit => 'max',
);
▲ if($res->{'code'} ne 'success'){
$api->warn("Failed to retrieve redirect list for $t: ".$res->{'error'}."\n");
return 60;
}
push @{$c->{'names'}},=[ $_->{'title'}keys foreach%redirs (@{$res->{'query'}{'backlinks'}})];
}
$self->{'did_templates'}=1;
Line 193 ⟶ 156:
$q2{'prop'}.='|revisions';
$q2{'rvprop'}='content';
▲ stubauto $q2{'rvslots'}=> 'automain',;
}
 
Line 262 ⟶ 226:
 
# Get page text
my $intxt=$tok->{'revisions'}[0]{'slots'}{'main'}{'*'};
my ($outtxt,$nowiki)=$api->strip_nowiki($intxt);
my $any=0;
Line 290 ⟶ 254:
 
# Auto-assess
if($class && defined($classre) && !grep(/^\s*class\s*=\s*$classre\s*$/s, @params)){
push @params, "class=$class" unless(grep(s/^(\s*class\s*=(?:\s*(?=\S))?).*?(\s*)$/$1$class$2/s, @params));
if(defined($cfg{'stubauto'})){
Line 301 ⟶ 265:
}
}
if($imp && defined($impre) && !grep(/^\s*$impname\s*=\s*$impre\s*$/s, @params)){
push @params, "$impname=$imp" unless(grep(s/^(\s*$impname\s*=(?:\s*(?=\S))?).*?(\s*)$/$1$imp$2/s, @params));
▲ blp => undef, }
 
# If requested to add empty parameters, do so
▲ if($mark&1cfg{'addempty'} // 0){
▲ push @$params, "bioclass=yes" unless( grep(s/^(\s*bioclass\s*=(?:\s*(?=\S))?).*?(\s*)$/${1}yes$2/s, @$params));
▲ push @$params, "relativity$impname=yes" unlessif(defined($impname) && !grep(s/^(\s*relativity$impname\s*=(?:\s*(?=\S))?).*?(\s*)$/${1}yes$2/s, @$params));
}
 
Line 312 ⟶ 282:
$any=1;
my @s=();
push @s, "class=$class" if($class && defined($classre));
push @s, "$impname=$imp" if($imp && defined($impre));
push @found, "{{$name}} (".join(' ', @s).')';
}
Line 369 ⟶ 339:
 
# No more pages to check, try again in 10 minutes or so in case of errors.
$api->log("AutoAssessor2 may be DONE!");
return 600;
}
Line 374 ⟶ 345:
1;
 
</syntaxhighlight>
</source>
Retrieved from "https://en.wikipedia.org/wiki/User:AnomieBOT/source/tasks/AutoAssessor2.pm"