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

Revision as of 21:08, 19 November 2014

Latest revision as of 22:48, 29 January 2024

(16 intermediate revisions by the same user not shown)

Line 1:

{{ombox|type=notice|text= Approved 2009-04-08<br />[[Wikipedia:Bots/Requests for approval/AnomieBOT 28]]}}

{{ombox|type=notice|text= Retired 2024-01-29. Haven't had call to run this in a while, and the related templates have changed so I'd probably have to update this code to run it again.}}

<syntaxhighlight lang="perl">

package tasks::WikiProjectWorker;

Line 10 ⟶ 11:

Task: WikiProjectWorker

BRFA: Wikipedia:Bots/Requests for approval/AnomieBOT 28

Status: ApprovedInactive 20092024-0401-0829

Created: 2009-03-27

OnDemand: true

Line 32 ⟶ 33:

### Request link, for edit summary.

my $req="[[User:AnomieBOT/req/WikiProject WomenHigher writers 2Education|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=2228;

### How to find the pages?

my @cats%catmap = (

"Category:Articles using infobox university" => "WikiProject Higher education",

'Category:African-American women journalists',

'Category:Angolan women writers',

'Category:Ecuadorian women writers',

'Category:Gambian women writers',

'Category:Guatemalan women writers',

'Category:Honduran women writers',

'Category:Malagasy women writers',

'Category:Mauritian women writers',

'Category:Mozambican women writers',

'Category:Nicaraguan women writers',

'Category:Panamanian women writers',

'Category:Rwandan women writers',

'Category:Salvadoran women writers',

'Category:South Korean women writers',

'Category:Women anthologists',

'Category:Women autobiographers',

'Category:Women bibliographers',

'Category:Women biographers',

'Category:Women bloggers',

'Category:Women columnists',

'Category:Women cookbook writers',

'Category:Women critics',

'Category:Women essayists',

'Category:Women food writers',

'Category:Women humorists',

'Category:Women librettists',

'Category:Women memoirists',

'Category:Women military writers',

'Category:Women mystery writers',

'Category:Women newspaper editors',

'Category:Women religious writers',

'Category:Women romantic fiction writers',

'Category:Women satirists',

'Category:Women science fiction and fantasy writers',

'Category:Women science writers',

'Category:Women soap opera writers',

'Category:Women writers for children',

);

my @cats=keys %catmap;

my @iterators=(

{

Line 100 ⟶ 66:

}

my $always_copy_importance = 0;

my $set_empty_importance = 0;

sub copy_importance {

#return ($_[0]->WPBmax($_[2]))[1];

Line 106 ⟶ 74:

# Banner configurations.

my $main_banner='WikiProject WomenHigher writerseducation';

my @preprocess_templates=();

my %banner_cfgs=(

'WikiProject WomenHigher writerseducation' => {

meta => 1,

canonicalizeimportance => 'WikiProject Women writers',

canonicalize => 'WikiProject Higher education',

},

);

# Extra parameters (e.g. workgroup).

my @extra_params=();

my $taggingwith = @extra_params ? '|' . join( '|', @extra_params ) : '';

# Regex fragment to match any aliases of params in @extra_params.

my %extra_param_aliases = ();

# Possible main banners, usually just $main_banner.

my @main_banners=(

$main_banner,

);

# Set this to merge these existing banners into $main_banner.

my @merge_banners=();

# Set this to tag WikiProject Biography workgroups in addition to the project's own banner.

my @bio_wg = (

);

Line 133 ⟶ 116:

=for info

Approved 2009-04-08<br />[[Wikipedia:Bots/Requests for approval/AnomieBOT 28]]

=for info

Retired 2024-01-29. Haven't had call to run this in a while, and the related templates have changed so I'd probably have to update this code to run it again.

=cut

Line 212 ⟶ 198:

$api->log("Checking $title...");

my $intxt=$tok->{'revisions'}[0]{'slots'}{'main'}{'*'} // '';

my ($outtxt,$nowiki)=$api->strip_nowiki($intxt);

my @params=()@extra_params;

my $assess = undef;

Line 235 ⟶ 221:

}

my $copy_importance = 1$always_copy_importance; # Always copy?

if($class eq '' || lc($class) eq lc($assess)){

$class='';

Line 250 ⟶ 236:

next;

}

push @params, "importance=$imp"; # if ( $set_empty_importance || ($imp//'') ne '' );

}

my $need_main_banner = ($api->WPBcheck($outtxt, $main_banner@main_banners) == 0);

if(0){

# grr, already redirected so the above always returns true

$need_main_banner=1;

$api->WPBcheck($outtxt, sub {

my $banner=shift;

my $name=shift;

$need_main_banner=0 if(grep $name eq $_, @main_banners);

return undef;

}, $main_banner@main_banners);

}

Line 269 ⟶ 255:

my @merge=();

my @summary=();

my $no_summary = 0;

# Special: Different default parent banner depending on source category.

$main_banner = $catmap{$iter->iterval};

if(@preprocess_templatesmerge_banners){

(undef,$outtxt)=$api->WPBcheck($outtxt, sub {

my $banner=shift;

Line 285 ⟶ 275:

$need_main_banner=0;

return "{{$main_banner}}";

}, @preprocess_templatesmerge_banners);

if(ref($outtxt) eq 'HASH'){

$api->warn("Preprocessing $title failed: ".$outtxt->{'error'}."\n");

Line 293 ⟶ 283:

$merge[-1]='and '.$merge[-1] if @merge>1;

push @summary, "merging ".join((@merge>2)?', ':' ', @merge)." into $main_banner" if @merge;

$no_summary = 1 if @merge;

} else {

# $api->warn("$title contains ".$iter->iterval.", but not in section 0\n");

next;

}

}

if ( @bio_wg ) {

my %added_wg=();

(undef,$outtxt)=$api->WPBcheck($outtxt, sub {

my $banner=shift;

my $name=shift;

my $oname=shift;

my $params=shift;

my $wikitext=shift;

my %have = ();

foreach ($api->process_paramlist(@$params)) {

$have{$_->{'name'}} = 1;

}

my $any = 0;

foreach my $p (@bio_wg){

next if exists($have{$p});

push @$params, "$p=yes";

$added_wg{"$p=yes"}=1;

$any = 1;

}

return undef unless $any;

my $out="{{$oname";

$out.="|".join("|", @$params) if @$params;

$out.="}}";

return $out;

}, 'WikiProject Biography');

if(ref($outtxt) eq 'HASH'){

$api->warn("WPBIO workgroups in $title failed: ".$outtxt->{'error'}."\n");

next;

}

if(%added_wg){

my @added_wg = keys %added_wg;

$added_wg[-1]='and '.$added_wg[-1] if @added_wg>1;

push @summary, "added " . join((@added_wg>2)?', ':' ', @added_wg) . " to {{WikiProject Biography}}";

}

}

Line 316 ⟶ 345:

}

$outtxt=$api->WPBadd($outtxt,my $assess,@process_banners sub= {();

$api->WPBcheck( $outtxt, sub { mypush @process_banners, $banner=shift_[0]; #}, banner@main_banners );

@process_banners = ( $main_banner my) $name=shiftunless @process_banners; # name

for my $process_banner (@process_banners) my $oname=shift;{

my $paramsouttxt=shift;$api->WPBadd($outtxt, $assess, sub {

my $wikitextbanner=shift; # banner

my $newname=shift; # name

#return '' if my $newoname=shift;

my $params=shift;

my $wikitext=shift;

my $new=shift;

#return '' if $new;

return undef unless(grep $banner eq $_, @main_banners);

my %cfg=%{$banner_cfgs{$banner}};

my $any=0;

foreach my $p (@params){

next unless $p=~/^(.+?)=(.*)$/;

my ($k,$v)=($1,$2);

my $rekre=qr/\SQ$k\E/;

unless if (grep defined(/^\s*\Q $k\E\s*=\s*extra_param_aliases{$re\s*$/,k} @$params) ) {

next if(grep(/^\s*\Q my $k\E\s*aliasre =\s*(?i:\Q$v\E)\s*$/s, @$params))extra_param_aliases{$k};

unshift @ $params,kre "$k=$v" unless(grep(sqr/^(\s*\Q$k\E\s*=\s*?)(?:\S.*?)?(\s*)$/kre|$1$v$2aliasre)/s, @$params));

$any=1 unless $v eq '';}

if($k eq 'class' && ($cfg{'meta'}//0) &&my ($cfg{'stubauto'}re=qr/\S.*?/'')){;

my unless(grep(/^\s*$aakre\s*=\s*$re\s*$/, @$cfgparams)){'stubauto'};

$aa=~snext if(grep(/^\s*$kre\s*=.\s*(?i:\Q$v\E)\s*$//s, @$params));

pushunshift @$params, "$aak=inherit$v" unless(grep(s/^(\s*\Q$aa\Ekre\s*=\s*?)(?:\S.*?)?(\s*)$/$1inherit1$v$2/s, @$params));

$any=1 unless $v eq '';

if($k eq 'class' && exists($cfg{'meta'}) && ($cfg{'stubauto'}//'')){

my $aa=$cfg{'stubauto'};

$aa=~s/\s*=.*//;

push @$params, "$aa=inherit" unless(grep(s/^(\s*\Q$aa\E\s*=\s*?)(?:\S.*?)?(\s*)$/$1inherit$2/s, @$params));

}

}

}

if($new && $class && (grep /^class=/, @$params) && exists($cfg{'meta'}) && ($cfg{'stubauto'}//'')){

}

if($new && $class && (grep /^class=/, @$params) && ($cfg{'meta'}//0)my && ($aa=$cfg{'stubauto'}//'')){;

my $aa=$cfg{'stubauto'}~s/\s*=.*//;

push @$params, "$aa=~inherit" unless(grep(s/^(\s*\Q$aa\E\s*=\s*?)(?:\S.*?)?(\s*)$/$1inherit$2/s, @$params));

push @$params, "$aa=inherit" unless(grep(s/^(\s*\Q $aa\E\s*any=\s*?)(?:\S.*?)?(\s*)$/$1inherit$2/s, @$params))1;

$any=1;}

} return $wikitext unless $any;

return $wikitext unless $any;

if(defined($cfg{'canonicalize'})){

my $n=$cfg{'canonicalize'};

$oname=~s/_/ /g;

$oname=~s/^(\s*)\S(?:.*\S)?(\s*)$/$1$n$2/is;

}

my $out="{{$oname";

$out.="|".join("|", @$params) if @$params;

$out.="}}";

return $out;

}, $process_banner, @params);

if(ref($outtxt) eq 'HASH'){

$api->warn("Processing $title failed: ".$outtxt->{'error'}."\n");

next;

}

mypush @summary, $out="Tagging with {{$onameprocess_banner$taggingwith}}" unless $no_summary;

$out.="|".join("|", @$params) if @$params;

$out.="}}";

return $out;

}, $main_banner, @params);

if(ref($outtxt) eq 'HASH'){

$api->warn("Processing $title failed: ".$outtxt->{'error'}."\n");

next;

}

push @summary, "Tagging with {{$main_banner}}" unless @summary;

$outtxt=$api->replace_nowiki($outtxt, $nowiki);

Line 414 ⟶ 453:

return 600;

}

1;

</syntaxhighlight>