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

Revision as of 05:07, 14 February 2012

Revision as of 19:56, 18 February 2012

Line 33:

### Request link, for edit summary.

my $req="[[User:AnomieBOT/req/WikiProject ThailandAdventure games 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=1617;

### How to find the pages?

Line 45:

{

generator => 'embeddedin',

geititle => ['Template:WikiProject ThaiAdventure districtsgames'],

geilimit => 100,

},

Line 60:

### How to copy other projects' assessments

sub copy_class {

#return ($_[0]->WPBmax($_[2], 'WikiProject Thailand'))[0];

#return '';

}

sub copy_importance {

#return ($_[0]->WPBmax($_[2], 'WikiProject Thailand'))[1];

#return '';

}

# Banner configurations.

my $main_banner='WikiProject ThailandVideo games';

my @preprocess_templates=('WikiProject ThaiAdventure districts', 'WikiProject Thailandgames');

my %banner_cfgs=(

'WikiProject ThailandVideo games' => {

meta => 1,

canonicalize => 'WikiProject ThailandVideo games',

stubauto => undef,

},

Line 102:

sub approved {

return -1;

}

Line 209:

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

# grr...if(0){

# grr, already redirected so the above always returns true

$need_main_banner=1;

$api->WPBcheck($outtxt, sub { $need_main_banner=1;

my $banner=shift;api->WPBcheck($outtxt, sub {

my $namebanner=shift;

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

return undef;

}, $main_banner);

}

### PROCESSING ###

Line 233 ⟶ 235:

return undef if(grep $name eq $_, @main_banners);

push @params, 'districtsAdventure=yes' if $onamebanner eq 'WikiProject ThaiAdventure districtsgames';

push @merge, $oname;