 | Approved 2015-01-28, completed 2015-01-30 Wikipedia:Bots/Requests for approval/AnomieBOT II 3 |
package tasks::PageCreator3;
=pod
=begin metadata
Bot: AnomieBOT II
Task: PageCreator3
BRFA: Wikipedia:Bots/Requests for approval/AnomieBOT II 3
Status: Completed 2015-01-30
Created: 2015-01-18
Create redirects from [[Regional Indicator Symbol]] pairs to the corresponding flag article.
=end metadata
=cut
use utf8;
use strict;
use AnomieBOT::Task;
use Data::Dumper;
use vars qw/@ISA/;
@ISA=qw/AnomieBOT::Task/;
my $req="[[Wikipedia:Bots/Requests for approval/AnomieBOT II 3|request]]";
my %redirects = (
'🇦🇩' => 'Flag of Andorra',
'🇦🇪' => 'Flag of the United Arab Emirates',
'🇦🇫' => 'Flag of Afghanistan',
'🇦🇬' => 'Flag of Antigua and Barbuda',
'🇦🇮' => 'Flag of Anguilla',
'🇦🇱' => 'Flag of Albania',
'🇦🇲' => 'Flag of Armenia',
'🇦🇴' => 'Flag of Angola',
'🇦🇶' => 'Flags of Antarctica',
'🇦🇷' => 'Flag of Argentina',
'🇦🇸' => 'Flag of American Samoa',
'🇦🇹' => 'Flag of Austria',
'🇦🇺' => 'Flag of Australia',
'🇦🇼' => 'Flag of Aruba',
'🇦🇽' => 'Flag of Åland',
'🇦🇿' => 'Flag of Azerbaijan',
'🇧🇦' => 'Flag of Bosnia and Herzegovina',
'🇧🇧' => 'Flag of Barbados',
'🇧🇩' => 'Flag of Bangladesh',
'🇧🇪' => 'Flag of Belgium',
'🇧🇫' => 'Flag of Burkina Faso',
'🇧🇬' => 'Flag of Bulgaria',
'🇧🇭' => 'Flag of Bahrain',
'🇧🇮' => 'Flag of Burundi',
'🇧🇯' => 'Flag of Benin',
'🇧🇱' => 'Flag and coat of arms of Saint Barthélemy',
'🇧🇲' => 'Flag of Bermuda',
'🇧🇳' => 'Flag of Brunei',
'🇧🇴' => 'Flag of Bolivia',
'🇧🇶' => 'Flag of the Netherlands',
'🇧🇸' => 'Flag of the Bahamas',
'🇧🇹' => 'Flag of Bhutan',
'🇧🇻' => 'Flag of Norway',
'🇧🇼' => 'Flag of Botswana',
'🇧🇾' => 'Flag of Belarus',
'🇧🇿' => 'Flag of Belize',
'🇨🇦' => 'Flag of Canada',
'🇨🇨' => 'Flag of the Cocos (Keeling) Islands',
'🇨🇩' => 'Flag of the Democratic Republic of the Congo',
'🇨🇫' => 'Flag of the Central African Republic',
'🇨🇬' => 'Flag of the Republic of the Congo',
'🇨🇭' => 'Flag of Switzerland',
'🇨🇮' => 'Flag of Ivory Coast',
'🇨🇰' => 'Flag of the Cook Islands',
'🇨🇱' => 'Flag of Chile',
'🇨🇲' => 'Flag of Cameroon',
'🇨🇳' => 'Flag of China',
'🇨🇴' => 'Flag of Colombia',
'🇨🇷' => 'Flag of Costa Rica',
'🇨🇺' => 'Flag of Cuba',
'🇨🇻' => 'Flag of Cape Verde',
'🇨🇼' => 'Flag of Curaçao',
'🇨🇽' => 'Flag of Christmas Island',
'🇨🇾' => 'Flag of Cyprus',
'🇨🇿' => 'Flag of the Czech Republic',
'🇩🇪' => 'Flag of Germany',
'🇩🇯' => 'Flag of Djibouti',
'🇩🇰' => 'Flag of Denmark',
'🇩🇲' => 'Flag of Dominica',
'🇩🇴' => 'Flag of the Dominican Republic',
'🇩🇿' => 'Flag of Algeria',
'🇪🇨' => 'Flag of Ecuador',
'🇪🇪' => 'Flag of Estonia',
'🇪🇬' => 'Flag of Egypt',
'🇪🇭' => 'Flag of Western Sahara',
'🇪🇷' => 'Flag of Eritrea',
'🇪🇸' => 'Flag of Spain',
'🇪🇹' => 'Flag of Ethiopia',
'🇫🇮' => 'Flag of Finland',
'🇫🇯' => 'Flag of Fiji',
'🇫🇰' => 'Flag of the Falkland Islands',
'🇫🇲' => 'Flag of the Federated States of Micronesia',
'🇫🇴' => 'Flag of the Faroe Islands',
'🇫🇷' => 'Flag of France',
'🇬🇦' => 'Flag of Gabon',
'🇬🇧' => 'Flag of the United Kingdom',
'🇬🇩' => 'Flag of Grenada',
'🇬🇪' => 'Flag of Georgia (country)',
'🇬🇫' => 'Flag of French Guiana',
'🇬🇬' => 'Flag of Guernsey',
'🇬🇭' => 'Flag of Ghana',
'🇬🇮' => 'Flag of Gibraltar',
'🇬🇱' => 'Flag of Greenland',
'🇬🇲' => 'Flag of the Gambia',
'🇬🇳' => 'Flag of Guinea',
'🇬🇵' => 'Flag of Guadeloupe',
'🇬🇶' => 'Flag of Equatorial Guinea',
'🇬🇷' => 'Flag of Greece',
'🇬🇸' => 'Flag of South Georgia and the South Sandwich Islands',
'🇬🇹' => 'Flag of Guatemala',
'🇬🇺' => 'Flag of Guam',
'🇬🇼' => 'Flag of Guinea-Bissau',
'🇬🇾' => 'Flag of Guyana',
'🇭🇰' => 'Flag of Hong Kong',
'🇭🇲' => 'Flag of Australia',
'🇭🇳' => 'Flag of Honduras',
'🇭🇷' => 'Flag of Croatia',
'🇭🇹' => 'Flag of Haiti',
'🇭🇺' => 'Flag of Hungary',
'🇮🇩' => 'Flag of Indonesia',
'🇮🇪' => 'Flag of Ireland',
'🇮🇱' => 'Flag of Israel',
'🇮🇲' => 'Flag of the Isle of Man',
'🇮🇳' => 'Flag of India',
'🇮🇴' => 'Flag of the British Indian Ocean Territory',
'🇮🇶' => 'Flag of Iraq',
'🇮🇷' => 'Flag of Iran',
'🇮🇸' => 'Flag of Iceland',
'🇮🇹' => 'Flag of Italy',
'🇯🇪' => 'Flag of Jersey',
'🇯🇲' => 'Flag of Jamaica',
'🇯🇴' => 'Flag of Jordan',
'🇯🇵' => 'Flag of Japan',
'🇰🇪' => 'Flag of Kenya',
'🇰🇬' => 'Flag of Kyrgyzstan',
'🇰🇭' => 'Flag of Cambodia',
'🇰🇮' => 'Flag of Kiribati',
'🇰🇲' => 'Flag of Comoros',
'🇰🇳' => 'Flag of Saint Kitts and Nevis',
'🇰🇵' => 'Flag of North Korea',
'🇰🇷' => 'Flag of South Korea',
'🇰🇼' => 'Flag of Kuwait',
'🇰🇾' => 'Flag of the Cayman Islands',
'🇰🇿' => 'Flag of Kazakhstan',
'🇱🇦' => 'Flag of Laos',
'🇱🇧' => 'Flag of Lebanon',
'🇱🇨' => 'Flag of Saint Lucia',
'🇱🇮' => 'Flag of Liechtenstein',
'🇱🇰' => 'Flag of Sri Lanka',
'🇱🇷' => 'Flag of Liberia',
'🇱🇸' => 'Flag of Lesotho',
'🇱🇹' => 'Flag of Lithuania',
'🇱🇺' => 'Flag of Luxembourg',
'🇱🇻' => 'Flag of Latvia',
'🇱🇾' => 'Flag of Libya',
'🇲🇦' => 'Flag of Morocco',
'🇲🇨' => 'Flag of Monaco',
'🇲🇩' => 'Flag of Moldova',
'🇲🇪' => 'Flag of Montenegro',
'🇲🇫' => 'Flag of the Collectivity of Saint Martin',
'🇲🇬' => 'Flag of Madagascar',
'🇲🇭' => 'Flag of the Marshall Islands',
'🇲🇰' => 'Flag of the Republic of Macedonia',
'🇲🇱' => 'Flag of Mali',
'🇲🇲' => 'Flag of Burma',
'🇲🇳' => 'Flag of Mongolia',
'🇲🇴' => 'Flag of Macau',
'🇲🇵' => 'Flag of the Northern Mariana Islands',
'🇲🇶' => 'Flag of Martinique',
'🇲🇷' => 'Flag of Mauritania',
'🇲🇸' => 'Flag of Montserrat',
'🇲🇹' => 'Flag of Malta',
'🇲🇺' => 'Flag of Mauritius',
'🇲🇻' => 'Flag of the Maldives',
'🇲🇼' => 'Flag of Malawi',
'🇲🇽' => 'Flag of Mexico',
'🇲🇾' => 'Flag of Malaysia',
'🇲🇿' => 'Flag of Mozambique',
'🇳🇦' => 'Flag of Namibia',
'🇳🇨' => 'Flag of New Caledonia',
'🇳🇪' => 'Flag of Niger',
'🇳🇫' => 'Flag of Norfolk Island',
'🇳🇬' => 'Flag of Nigeria',
'🇳🇮' => 'Flag of Nicaragua',
'🇳🇱' => 'Flag of the Netherlands',
'🇳🇴' => 'Flag of Norway',
'🇳🇵' => 'Flag of Nepal',
'🇳🇷' => 'Flag of Nauru',
'🇳🇺' => 'Flag of Niue',
'🇳🇿' => 'Flag of New Zealand',
'🇴🇲' => 'Flag of Oman',
'🇵🇦' => 'Flag of Panama',
'🇵🇪' => 'Flag of Peru',
'🇵🇫' => 'Flag of French Polynesia',
'🇵🇬' => 'Flag of Papua New Guinea',
'🇵🇭' => 'Flag of the Philippines',
'🇵🇰' => 'Flag of Pakistan',
'🇵🇱' => 'Flag of Poland',
'🇵🇲' => 'Flag of Saint Pierre and Miquelon',
'🇵🇳' => 'Flag and coat of arms of the Pitcairn Islands',
'🇵🇷' => 'Flag of Puerto Rico',
'🇵🇸' => 'Palestinian flag',
'🇵🇹' => 'Flag of Portugal',
'🇵🇼' => 'Flag of Palau',
'🇵🇾' => 'Flag of Paraguay',
'🇶🇦' => 'Flag of Qatar',
'🇷🇪' => 'Flag of Réunion',
'🇷🇴' => 'Flag of Romania',
'🇷🇸' => 'Flag of Serbia',
'🇷🇺' => 'Flag of Russia',
'🇷🇼' => 'Flag of Rwanda',
'🇸🇦' => 'Flag of Saudi Arabia',
'🇸🇧' => 'Flag of the Solomon Islands',
'🇸🇨' => 'Flag of the Seychelles',
'🇸🇩' => 'Flag of Sudan',
'🇸🇪' => 'Flag of Sweden',
'🇸🇬' => 'Flag of Singapore',
'🇸🇭' => 'Flag of Saint Helena, Ascension and Tristan da Cunha',
'🇸🇮' => 'Flag of Slovenia',
'🇸🇯' => 'Flag of Norway',
'🇸🇰' => 'Flag of Slovakia',
'🇸🇱' => 'Flag of Sierra Leone',
'🇸🇲' => 'Flag of San Marino',
'🇸🇳' => 'Flag of Senegal',
'🇸🇴' => 'Flag of Somalia',
'🇸🇷' => 'Flag of Suriname',
'🇸🇸' => 'Flag of South Sudan',
'🇸🇹' => 'Flag of São Tomé and Príncipe',
'🇸🇻' => 'Flag of El Salvador',
'🇸🇽' => 'Flag of Sint Maarten',
'🇸🇾' => 'Flag of Syria',
'🇸🇿' => 'Flag of Swaziland',
'🇹🇨' => 'Flag of the Turks and Caicos Islands',
'🇹🇩' => 'Flag of Chad',
'🇹🇫' => 'Flags of Antarctica#Adélie Land/French Southern and Antarctic Territories',
'🇹🇬' => 'Flag of Togo',
'🇹🇭' => 'Flag of Thailand',
'🇹🇯' => 'Flag of Tajikistan',
'🇹🇰' => 'Flag of Tokelau',
'🇹🇱' => 'Flag of East Timor',
'🇹🇲' => 'Flag of Turkmenistan',
'🇹🇳' => 'Flag of Tunisia',
'🇹🇴' => 'Flag of Tonga',
'🇹🇷' => 'Flag of Turkey',
'🇹🇹' => 'Flag of Trinidad and Tobago',
'🇹🇻' => 'Flag of Tuvalu',
'🇹🇼' => 'Flag of the Republic of China',
'🇹🇿' => 'Flag of Tanzania',
'🇺🇦' => 'Flag of Ukraine',
'🇺🇬' => 'Flag of Uganda',
'🇺🇲' => 'Flag of the United States',
'🇺🇸' => 'Flag of the United States',
'🇺🇾' => 'Flag of Uruguay',
'🇺🇿' => 'Flag of Uzbekistan',
'🇻🇦' => 'Flag of Vatican City',
'🇻🇨' => 'Flag of Saint Vincent and the Grenadines',
'🇻🇪' => 'Flag of Venezuela',
'🇻🇬' => 'Flag of the British Virgin Islands',
'🇻🇮' => 'Flag of the United States Virgin Islands',
'🇻🇳' => 'Flag of Vietnam',
'🇻🇺' => 'Flag of Vanuatu',
'🇼🇫' => 'Flag of Wallis and Futuna',
'🇼🇸' => 'Flag of Samoa',
'🇾🇪' => 'Flag of Yemen',
'🇾🇹' => 'Flag and coat of arms of Mayotte',
'🇿🇦' => 'Flag of South Africa',
'🇿🇲' => 'Flag of Zambia',
'🇿🇼' => 'Flag of Zimbabwe',
);
sub new {
my $class=shift;
my $self=$class->SUPER::new();
bless $self, $class;
return $self;
}
=pod
=for info
Approved 2015-01-28, completed 2015-01-30<br />[[Wikipedia:Bots/Requests for approval/AnomieBOT II 3]]
=cut
sub approved {
return -200;
}
sub run {
my ($self, $api)=@_;
$api->task('PageCreator3', 0, 10, qw/d::Redirects/);
# Spend a max of 5 minutes on this task before restarting
my $endtime=time()+300;
# First, resolve redirects in the targets list
my %resolved = $api->resolve_redirects( values %redirects );
if ( exists( $resolved{''} ) ) {
$api->warn("Could not resolve redirects: ".$resolved{''}{'error'}."\n");
return 60;
}
my ($code, $target);
while ( ($code, $target) = each( %redirects ) ) {
next if exists($api->store->{$code});
$target = $api->apply_redirect_map( $target, \%resolved );
my $res = $api->query( titles => $target );
if ( $res->{'code'} ne 'success' ) {
$api->warn("Failed to test existence of $target: ".$res->{'error'}."\n");
return 60;
}
if ( exists( $res->{'query'}{'pages'}{'-1'} ) ) {
$api->warn("Target page $target does not exist\n");
next;
}
my $tok=$api->edittoken($code, EditRedir => 1);
if($tok->{'code'} eq 'shutoff'){
$api->warn("Task disabled: ".$tok->{'content'}."\n");
return 300;
}
if($tok->{'code'} ne 'success'){
$api->warn("Failed to get edit token for $code/".$tok->{'error'}."\n");
next;
}
if(!exists($tok->{'missing'})){
$api->log("$code already exists, skipping");
$api->store->{$code}=1;
next;
}
# Create page
my $summary = "Redirecting [[Regional Indicator Symbol]] [[$code]] to [[$target]] per $req";
my $txt = "#REDIRECT [[$target]]";
$api->log("$summary in $code");
my $r=$api->edit($tok, $txt, $summary, 0, 1);
if($r->{'code'} ne 'success'){
$api->warn("Write failed on $code: ".$r->{'error'}."\n");
next;
}
$api->store->{$code}=1;
# If we've been at it long enough, let another task have a go.
return 0 if time()>=$endtime;
}
$api->log("Task may be complete!");
return 600;
}
1;