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

Revision as of 17:02, 25 December 2015

Latest revision as of 23:07, 27 August 2025

(12 intermediate revisions by 7 users not shown)

Line 39:

'ini' => 'ini',

'sh' => 'bash',

'css' => 'css',

'js' => 'js',

'json' => 'json',

'html' => 'html',

);

Line 61 ⟶ 65:

my $class=shift;

my $self=$class->SUPER::new();

$self->{'pages'}={};

$self->{'loadexisting'}=1;

$self->{'order'}=-1000;

$self->{'pagesfail'}={}0;

return $self;

}

sub build_sources {

my $self = shift;

my $basedir=$AnomieBOT::API::basedir;

$basedir=~s{/$}{};

if(!-d $basedir){

$self->{'fail'}=1;

AnomieBOT::API->warn("Cannot find source directory\n");

return $self;

}

$self->{'summary'}='Updating published sources: ';

if(!open(X, "<:utf8", 'ChangeLog')){

$self->{'fail'}=1;
AnomieBOT::API->warn("Cannot load changelog: $!\n");

return $self;

}

local $_;

Line 105 ⟶ 116:

while(my $dir=shift @dirs){

if(!opendir(D, $dir)){

$self->{'fail'}=1;

AnomieBOT::API->warn("Cannot open directory $dir: $!\n");

return $self;

}

Line 124 ⟶ 136:

next if ($stat[2]&(S_IROTH))!=(S_IROTH);

if(!open(X, '<:utf8', $p)){

$self->{'fail'}=1;

AnomieBOT::API->warn("Cannot open file $p: $!\n");

return $self;

}

do {

Line 150 ⟶ 163:

$parser->output_string(\$x);

$parser->parse_string_document($pages{$pp});

$pages{"$pp/doc"}="<templatestyles src=\"User:$mainbot/source-docs.css\"/>\n$x" if($parser->content_seen);

# Handle embedded notices and metadata

Line 275 ⟶ 288:

$self->{'pages'}={%pages};

$self->{'tasklists'}=\%tasklists;

return $self;

}

sub run {

my ($self, $api)=@_;

return undef if $self->{'fail'};

$self->build_sources() unless defined( $self->{'pages'} );

return undef if $self->{'fail'};

my @keys=keys(%{$self->{'pages'}});

Line 297 ⟶ 314:

my $iter=$api->iterator(

list => 'allpages',

apprefix => $api->user.'/source/',

apnamespace => '2',

aplimit => 'max'

Line 395 ⟶ 412:

$res=$res->{'content'}//'';

$res=~s/\s*$//;

my $txt="{{#ifeq:{{PAGESIZE:{{FULLPAGENAME}}}}|0|\n{{ombox\n| type = delete\n| image = [[File:Shutdown button.svg|40px|link={{fullurl:Special:Block|wpTarget=".uri_escape($bot)."&wpExpiry=indefinite&wpHardBlock=1&wpAutoBlock=0&wpCreateAccount=0&wpReason=other&wpReason-other=Bot%20malfunctioning:%20}}|Emergency block button]]\n| text = To disable the task {{SUBPAGENAME}}, enter your reasoning in this page. If the task is currently running, the bot may make one more edit before noticing that it has been shut off, but rest assured it ''will'' notice.\n}}\n|{{ombox\n| text = To re-enable the task, blank the page.\n}}\n}}";

unless($res=~/(?:^|\n)\Q$txt\E(?:$|\n)/){

$api->whine("Please fix [[Template:Editnotices/Group/User:$bot/shutoff]]", "To display the proper editnotice on shutoff pages for the AnomieBOT bot [[User:$bot]], please ensure that [[Template:Editnotices/Group/User:$bot/shutoff]] contains the following text:\n<pre>$txt</pre>\nThanks.");

Line 421 ⟶ 438:

$text=~s/\x02BOT\x03/$bot/go;

$text=~s/\s+$//o;

$tok->{'revisions'}[0]{'slots'}{'main'}{'*'}=~s/\s+$//o if !exists($tok->{'missing'});

if(exists($tok->{'missing'}) ||

$tok->{'revisions'}[0]{'*slots'}{'main'}{'contentmodel'} ne $text){'wikitext' ||

my $r=$api->edit($tok, $text, $self->{'summaryrevisions'}, [0,]{'slots'}{'main'}{'*'} 1ne $text);{

my $r=$api->edit($tok, $text, $self->{'summary'}, 0, 1, contentmodel => 'wikitext' );

if($r->{'code'} ne 'success'){

$api->warn("Write error for $page: ".$r->{'error'}."\n");

Line 458 ⟶ 476:

}

return 60 if($tok->{'code'} ne 'success');

if(($tok->{'revisions'}[0]{'slots'}{'main'}{'*'} // '') ne $txt){

my $r=$api->edit($tok, $txt, 'Redirect useless unwatched talk page to someplace useful.', 1, 1);

if($r->{'code'} ne 'success'){

Line 475 ⟶ 493:

my $t=$file; $t=~s{^.*/}{}; $t=~s/\.pm$//;

return '99 Invalid metadata (no "Bot")' unless exists($metadata{'bot'});

return '99 Invalid metadata (no/bad "Task")' unless(exists($metadata{'task'}) && $metadata{'task'} eq $t);

return '99 Invalid metadata (no "BRFA")' unless exists($metadata{'brfa'});

return '99 Invalid metadata (no "Status")' unless exists($metadata{'status'});

return '99 Invalid metadata (no/bad "Created")' unless(exists($metadata{'created'}) && $metadata{'created'}=~/^\d{4}-\d\d-\d\d$/);

if(exists($metadata{'+brfa'})){

return '99 Invalid metadata (no "+Status")' unless exists($metadata{'+status'});

return '99 Invalid metadata (mismatched +BRFA/+Status)' if scalar(@{$metadata{'+status'}}) != scalar(@{$metadata{'+brfa'}});

}

if(exists($metadata{'ondemand'})){

return '99 Invalid metadata (bad "OnDemand")' unless($metadata{'ondemand'} eq 'true' || $metadata{'ondemand'} eq 'false');

}

if(exists($metadata{'shutoff'})){

return '99 Invalid metadata (bad "Shutoff")' unless($metadata{'shutoff'} eq 'true' || $metadata{'shutoff'} eq 'false');

}

if(exists($metadata{'exclusion'})){

return '99 Invalid metadata (bad "Exclusion")' unless($metadata{'exclusion'} eq 'true' || $metadata{'exclusion'} eq 'false');

}

my $status=$metadata{'status'};

Line 497 ⟶ 515:

AnomieBOT::API::load($file);

my $task='tasks::'.$metadata{'task'};

return '99 Invalid metadata (missing "approved" method)' unless $task->can('approved');

my $botnum=$task->approved;

Line 508 ⟶ 526:

return "01 Current" if $botnum>0;

return "02 On demand" if(exists($metadata{'ondemand'}) && $metadata{'ondemand'} eq 'true');

return '99 Invalid metadata ("Status: Approved" but not running or OnDemand)';

}

return "03 In trial" if($status=~/^In trial/ && $botnum>0);

return '99 Invalid metadata (Running with a non-running Status)' if $botnum>0;

return "04 In development" if($status eq 'Coding' || $status eq 'On hold');

return "06 Past" if $status=~/^(?:Completed|Inactive) \d{4}-\d{2}-\d{2}$/;

return '99 Invalid metadata (bad "BRFA")' if($metadata{'brfa'} eq 'N/A');

return "05 Awaiting approval" if($status eq 'BRFA');

return "07 Withdrawn" if $status eq 'Withdrawn';

return "08 Rejected" if $status=~/^Rejected \d{4}-\d{2}-\d{2}$/;

return '99 Invalid metadata (no match for Status)';

}