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

Revision as of 17:34, 11 September 2013

Revision as of 01:45, 11 December 2013

Line 32:

### Request link, for edit summary.

my $req="[[User:AnomieBOT/req/WikiProject GeologyWomen artists 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=1920;

### How to find the pages?

my @cats=(

'Category:Unknown-importance GeologyWomen articlesartists',

'Category:Women animators',

'Category:Female comics artists',

'Category:Women designers',

'Category:Women illustrators',

'Category:Women painters',

'Category:American women painters',

'Category:Australian women painters',

'Category:British women painters',

'Category:English women painters',

'Category:Scottish women painters',

'Category:Welsh women painters',

'Category:Canadian women painters',

'Category:Dutch women painters',

'Category:French women painters',

'Category:German women painters',

'Category:Italian women painters',

'Category:Women photographers',

'Category:American women photographers',

'Category:Women sculptors',

'Category:American women sculptors',

'Category:British women sculptors',

'Category:English women sculptors',

'Category:Syrian women sculptors',

'Category:Women Surrealists',

'Category:Women installation artists',

'Category:Women performance artists',

'Category:American women printmakers',

'Category:Women video artists',

'Category:Women landscape architects',

'Category:Women artists by nationality',

'Category:American women designers',

'Category:American women graphic designers',

'Category:American women illustrators',

'Category:American women performance artists',

'Category:American women printmakers',

'Category:American women video artists',

'Category:Hispanic and Latino American women in the arts',

'Category:American women ceramists',

'Category:Australian women artists',

'Category:Austrian women artists',

'Category:Belarusian women artists',

'Category:Belgian women artists',

'Category:Brazilian women artists',

'Category:British women artists',

'Category:English women artists',

'Category:Canadian women artists',

'Category:Canadian women designers',

'Category:Chilean women artists',

'Category:Danish women artists',

'Category:Dutch women artists',

'Category:Filipino women artists',

'Category:Finnish women artists',

'Category:French women artists',

'Category:German women artists',

'Category:Greek women artists',

'Category:Ancient Greek women artists',

'Category:Hungarian women artists',

'Category:Iranian women artists',

'Category:Iraqi women artists',

'Category:Irish women artists',

'Category:Israeli women artists',

'Category:Italian women artists',

'Category:Japanese women artists',

'Category:Mexican women artists',

'Category:New Zealand women artists',

'Category:Polish women artists',

'Category:American women installation artists',

'Category:Romanian women artists',

'Category:Russian women artists',

'Category:Singaporean women artists',

'Category:South African women artists',

'Category:Spanish women artists',

'Category:Swedish women artists',

'Category:Swiss women artists',

'Category:Ukrainian women artists',

'Category:Uruguayan women artists',

'Category:American women textile artists',

);

my @iterators=(

Line 60 ⟶ 137:

### How to copy other projects' assessments

sub copy_class {

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

#return '';

}

sub copy_importance {

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

return 'Low';

}

# Banner configurations.

my $main_banner='WikiProject GeologyWomen artists';

my @preprocess_templates=();

my %banner_cfgs=(

'WikiProject GeologyWomen artists' => {

meta => 1,

canonicalize => 'WikiProject GeologyWomen artists',

importance => '',

},

);

Line 101 ⟶ 179:

sub approved {

return -1;

}

Line 211 ⟶ 289:

}

if(10){ # Always copy importance?

my $imp = copy_importance($api, $title, $intxt);

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

Line 301 ⟶ 379:

my $re=qr/\S/;

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

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

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

$any=1 unless $v eq '';