Login
Login

User:Polbot/source/Use Polbot manual.p1



use strict;


use Q::Polbot;


use Perlwikipedia;


print "\nStarting polbot\n" ;


my $pw=Perlwikipedia->new();


    

  1. $pw->{debug} = 1;
    2. 



$pw->{mech}->agent('Bot/WP/EN/Quadell/polbot');


print "Logging in\n";


my $login_status=$pw->login('bot name','bot password');


die "I can't log in." unless ($login_status eq 0);


my @reps = ();


print "Opening rep list\n";


my $replist = $pw->get_text('User:Polbot/fullreplist');


my @lines = split(/\n/, $replist);


foreach my $line (@lines) {


if ($line =~ m/^\*\s*\[\[(.*)\]\](.*)$/) {


push @reps, "$1$2";


}


}


print scalar (@reps) . "\n";


print "Processing\n";


foreach my $line (@reps) {


$line =~ m/^(.*)\|(.*)$/;


my $name = $1;


my $url = $2;


print "$name: $url\n";


my $wiki_code = Polbot::bio2wiki($url);


$pw->edit($name, $wiki_code, "Auto-generating new article based on $url");


$pw->edit("Talk:$name", "{{WPBiography|class=start|priority=low|needs-infobox=yes|politician-work-group=yes}}", "Auto-adding WPbiography template");


print "Article created.";


print "\n";


sleep 15;


}


print "\nDone.\n";