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

Revision as of 12:25, 6 February 2019

Latest revision as of 12:17, 8 August 2024

(5 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 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{{RcatRedirect category shell|\n{{R from remote talk page}}\n}}";

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