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

Revision as of 08:20, 4 April 2018

Latest revision as of 23:07, 27 August 2025

(6 intermediate revisions by 3 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->{'fail'}=0;

return $self;

}

sub build_sources {

my $self = shift;

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

Line 71 ⟶ 79:

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

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

return $self;

}

Line 78 ⟶ 86:

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

AnomieBOT::API->warn("Cannot load changelog: $!\n");

return $self;

}

local $_;

Line 110 ⟶ 118:

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

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

return $self;

}

Line 130 ⟶ 138:

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

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

return $self;

}

do {

Line 155 ⟶ 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 280 ⟶ 288:

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

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

return $self;

}

Line 286 ⟶ 293:

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

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

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

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

Line 304 ⟶ 314:

my $iter=$api->iterator(

list => 'allpages',

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

apnamespace => '2',

aplimit => 'max'

Line 402 ⟶ 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 428 ⟶ 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 465 ⟶ 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'){