package tasks::BadImageTagger;
=pod
=begin metadata
Bot: AnomieBOT
Task: BadImageTagger
BRFA: None
Status: On hold
Created: 2012-03-20
Add {{tl|restricted use}} to files listed at [[MediaWiki:Bad image list]], and
remove it from files not listed at that page.
=end metadata
=cut
use utf8;
use strict;
use Data::Dumper;
use POSIX;
use Date::Parse;
use AnomieBOT::Task qw/bunchlist/;
use vars qw/@ISA/;
@ISA=qw/AnomieBOT::Task/;
sub new {
my $class=shift;
my $self=$class->SUPER::new();
$self->{'next'}=0;
bless $self, $class;
return $self;
}
=pod
=for info
Coding pending need. Not approved yet.
=cut
sub approved {
return 0;
}
sub run {
my ($self, $api)=@_;
my $res;
$api->task('BadImageTagger', 0, 10, qw/d::Redirects d::Templates d::Talk/);
my $screwup="Errors? [[User:AnomieBOT/shutoff/BadImageTagger]]";
# Spend a max of 5 minutes on this task before restarting
my $starttime=time();
my $endtime=time()+300;
# Get template list
my %templates=$api->redirects_to_resolved('Template:Restricted use');
if(exists($templates{''})){
if($templates{''}{'code'} eq 'shutoff'){
$api->warn("Task disabled: ".$templates{''}{'content'}."\n");
return 300;
}
$api->warn("Failed to get Template:Restricted use redirects: ".$templates{''}{'error'}."\n");
return 60;
}
# Get the bad image list
$res=$api->query(prop=>'revisions',rvprop=>'content',titles=>'MediaWiki:Bad image list');
if($res->{'code'} eq 'shutoff'){
$api->warn("Task disabled: ".$res->{'content'}."\n");
return 300;
}
if($res->{'code'} ne 'success'){
$api->warn("Failed to get bad image list: ".$res->{'error'}."\n");
next;
}
my $txt=(values %{$res->{'query'}{'pages'}})[0]{'revisions'}[0]{'*'};
my @pages=($txt=~/^\*.*?\[\[:?(.*?)\]\]/gm);
my %files=();
my $iter=$api->iterator(
titles => bunchlist(500, @pages),
prop => 'imageinfo',
iiprop => '',
iilimit => 1,
redirects => 1,
);
while(my $f=$iter->next){
if(!$f->{'_ok_'}){
$api->warn("Could not retrieve image info from iterator: ".$f->{'error'}."\n");
return 60;
}
next unless $f->{'imagerepository'} eq 'local' || $f->{'imagerepository'} eq 'shared';
$files{$f->{'title'}}=$f;
}
# Load list of transclusions of {{badimage}}
my %bl=();
$iter=$api->iterator(
generator => 'embeddedin',
geititle => $templates{'Template:Restricted use'},
geinamespace => '6|7',
geilimit => 'max',
);
while(my $p=$iter->next){
if(!$p->{'_ok_'}){
$api->warn("Could not retrieve transclusions from iterator: ".$p->{'error'}."\n");
return 60;
}
$bl{$p->{'title'}}=1;
}
# First, tag any images needing tagging
foreach my $f (keys %files) {
if(!exists($bl{$f})){
my $tok=$api->edittoken($f, EditRedir => 1);
next if $tok->{'code'} eq 'invalidtitle';
if($tok->{'code'} eq 'shutoff'){
$api->warn("Task disabled: ".$tok->{'content'}."\n");
return 300;
}
if($tok->{'code'} eq 'pageprotected'){
$api->warn("Cannot edit $f: ".$tok->{'error'}."\n");
$api->whine("[[:$f]] is protected", "I cannot tag [[:$f]] with {{tl|restricted use}}, as the page is protected. Please tag it manually.");
next;
}
if($tok->{'code'} eq 'botexcluded'){
$api->warn("Excluded from $f: ".$tok->{'error'}."\n");
$api->whine("Excluded from [[:$f]]", "I cannot tag [[:$f]] with {{tl|restricted use}}, as the page contains a bot exclusion template applying to me. Please tag it manually.");
next;
}
if($tok->{'code'} ne 'success'){
$api->warn("Failed to get edit token for $f: ".$tok->{'error'}."\n");
next;
}
my $txt="{{restricted use}}\n".($tok->{'revisions'}[0]{'*'}//'');
$api->log("Tagging $f");
my $r=$api->edit($tok, $txt, "Tagging image listed at [[MediaWiki:Bad image list]] with {{restricted use}}. $screwup", 1, 1);
if($r->{'code'} ne 'success'){
$api->warn("Write failed on $f: ".$r->{'error'}."\n");
next;
}
}
}
# Next, untag any images needing untagging
foreach my $f (keys %bl) {
my $istalk=$f=~/^File talk:/;
next if(!$istalk && exists($files{$f}));
my $tok=$api->edittoken($f, EditRedir => 1, imageinfo => { prop=>'', limit=>1 });
if($tok->{'code'} eq 'shutoff'){
$api->warn("Task disabled: ".$tok->{'content'}."\n");
return 300;
}
if($tok->{'code'} eq 'pageprotected'){
$api->warn("Cannot edit $f: ".$tok->{'error'}."\n");
$api->whine("[[:$f]] is protected", "I cannot remove {{tl|restricted use}} from [[:$f]], as the page is protected. Please untag it manually.");
next;
}
if($tok->{'code'} eq 'botexcluded'){
$api->warn("Excluded from $f: ".$tok->{'error'}."\n");
$api->whine("Excluded from [[:$f]]", "I cannot remove {{tl|restricted use}} from [[:$f]], as the page contains a bot exclusion template applying to me. Please untag it manually.");
next;
}
if($tok->{'code'} ne 'success'){
$api->warn("Failed to get edit token for $f: ".$tok->{'error'}."\n");
next;
}
my $intxt=($tok->{'revisions'}[0]{'*'}//'');
my $outtxt=$api->process_templates($intxt, sub {
my $name=shift;
return undef unless exists($templates{"Template:$name"});
return '';
});
$outtxt=~s/^\s*|\s*$//g;
#$outtxt='{{db-imagepage}}' if($tok->{'ns'}==6 && $tok->{'imagerepository'} ne 'local');
if($intxt ne $outtxt){
$api->log("Untagging $f");
my $summary=$istalk?'Removing {{restricted use}} from file talk page; it will be added to the file page if necessary.':'Removing {{restricted use}} from image not listed at [[MediaWiki:Bad image list]].';
my $r=$api->edit($tok, $outtxt, "$summary $screwup", 1, 1);
if($r->{'code'} ne 'success'){
$api->warn("Write failed on $f: ".$r->{'error'}."\n");
next;
}
} else {
$api->warn("Tried to remove {{restricted use}} from $f, but I couldn't find it!");
}
}
return $starttime+3600-time();
}
1;
