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

Revision as of 00:18, 22 May 2009

Revision as of 17:20, 26 May 2009

Line 1:

{{ombox|type=notice|text= InApproved trial2009-05-26<br />[[Wikipedia:Bots/Requests for approval/AnomieBOT 30]]}}

<source lang="perl">

package tasks::OnThisDayTagger;

Line 9:

Task: OnThisDayTagger

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

Status: InApproved trial2009-05-26

Rate: Max 6 edits/minute

Created: 2009-05-14

Line 64:

=for info

InApproved trial2009-05-26<br />[[Wikipedia:Bots/Requests for approval/AnomieBOT 30]]

=cut

Line 76:

my $res;

$api->task('OnThisDayTagger', 0, 10, qw/d::TrialTalk d::Timestamp d::Templates d::Redirects/);

my $screwup=' Errors? [[User:'.$api->user.'/shutoff/OnThisDayTagger]]';

$api->store->{'maxotd'}=1 unless exists($api->store->{'maxotd'});

$api->store->{'nextday'}=1904 unless exists($api->store->{'nextday'});

my $x=$api->check_trial(1243457635, 'AnomieBOT 30');

return $$x if $x;

my $starttime=time;