User:Polbot/source/Use Polbot 1.p1

use strict; use Q::Polbot; use Perlwikipedia;

print "\nStarting polbot\n" ; my $pw=Perlwikipedia->new; $pw->{mech}->agent('Bot/WP/EN/Quadell/polbot');
 * 1) $pw->{debug} = 1;

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; } }

print "Processing\n"; foreach my $name (@reps) { print "$name : "; my $url = Polbot::Get_URL_from_name($name); print "$url\n"; if ($url =~ m/^http/) { my $wiki_code = Polbot::bio2wiki($url); $pw->edit($name, $wiki_code, "Auto-generating new article based on $url"); $pw->edit("Talk:$name", "", "Auto-adding WPbiography template");

print "Article created."; print "\n"; sleep 15; } }

print "\nDone.\n";