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

Revision as of 19:26, 8 November 2013

Latest revision as of 12:17, 8 August 2024

(7 intermediate revisions by the same user not shown)

Line 14:

Create redirects for non-existing talk pages of certain pages:

* Template pages ending in "/doc", "/sandbox", "/testcases", "/TemplateData", or "/TemplateDatastyles.css"

* Module pages ending in "/doc", "/sandbox", or "/styles.css"

=end metadata

Line 26:

use AnomieBOT::Task;

use Data::Dumper;

use Time::HiRes;

use vars qw/@ISA/;

@ISA=qw/AnomieBOT::Task/;

Line 35 ⟶ 36:

'%/testcases',

'%/TemplateData',

'%/styles.css',

],

'Module' => [

'%/doc',

'%/sandbox',

# Not %/testcases though, those talk pages are often (ab)used to run the tests.

'%/styles.css',

],

);

Line 43 ⟶ 48:

sub mapTitle {

my $title = shift;

return $1 if $title=~m!^(Template talk:.+)/(?:doc|sandbox|testcases|TemplateData|styles\.css)$!;

return $1 if $title=~m!^(Module talk:.+)/(?:doc|sandbox|styles\.css)$!;

return undef;

}

Line 80 ⟶ 85:

my $where = join( ' OR ', @where );

my ($dbh, $schema);

eval {

($dbh, $schema) = $api->connectToReplica( 'enwiki' );

};

if ( $@ ) {

Line 99 ⟶ 104:

# Load the list of redirects needing creation

my @rows;

my $t0 = Time::HiRes::time();

eval {

@rows = @{ $dbh->selectall_arrayref( qq{

Line 113 ⟶ 119:

return 300;

}

my $t1 = Time::HiRes::time();

$api->log( 'DB query took ' . ($t1-$t0) . ' seconds' );

last unless @rows;

Line 186 ⟶ 194:

}

my $txt = "#REDIRECT [[$target]]\n\n{{Redirect category shell|\n{{R from remote talk page}}\n}}";

my $summary="Redirecting to [[$target]] to avoid decentralized discussion";