User:ST47/ARB

#!/usr/bin/perl
 
use strict;
use Perlwikipedia;
 
open(PW, "/home/st47/pass");
my $pass=<PW>;
close PW;
chomp($pass);
 
my $editor=new Perlwikipedia('Bot/WP/EN/ST47/AccReqBot');
$editor->login('AccReqBot', $pass);
 
my $accreq=$editor->get_text('Wikipedia:Request an account');
while ($accreq=~/
        ==\s?([^=\n]+)\s?==
        [^\{]+
        \Q{{account request\E
        [^\|]+
        \Q|username\E\s?=\s?
        ([^\n]+)
        [^\|]+
        \Q|e-mail address\E\s?=\s?
        ([^\n]+)
        [^\}]+
        \}\}
        (.*?)
        (?=(==|$))
/sgix){ 
        my $section=$1;
        my $username=$2;
        my $email=$3;
        my $content=$4;
        print "\n$username:";
        my $exists=&does_this_exist($username, $content);
        if ($exists eq "user") {
                &created($section, $username, $email, $content);
        } elsif ($exists eq "0") {
                &old($section, $content, $username);
        }
 
}
print "\nDone!\n";
my $log=$editor->get_text('User:ST47/ARBLog');
$editor->edit('User:ST47/ARBLog', '*Ran at ' . '~'x5 . '\n' . $log, 'Success!');
 
sub does_this_exist {
        my ($username, $content) = @_;
 
        if ($content =~ /\Q{{ACC|c}}\E/i) {
                print " {{ACC|c}}!";
                return "user";
        }
 
        my $res = $editor->{mech}->get('http://en.wikipedia.org/w/index.php?title=Special:Log/newusers&page=User:' . $username);
        my $log=$res->content;
 
        if ($log =~ /created new account/) {
                print " created by user";
                return "user";
        }
return 0;
}
 
sub created {
        my ($section, $username, $email, $content) = @_;
        my $accreq=$editor->get_text('Wikipedia:Request an account');
        my $accreqo=$accreq;
        print " removing $section";
        $accreq=~s/
                ==\s?\Q$section\E\s?==
                [^\{]+
                \{\{
                [^\}]+
                \}\}
                .*?
                ((?=(==|$)))
        /\1/six;
        if ($accreqo eq $accreq) {print " couldn't remove!"} else {
        $editor->edit('Wikipedia:Request an account', $accreq, "Removing $username, done.");
 
 
        my @Time=localtime;
        my $Monthn=$Time[4]+1;
        my $Month;
        if ($Monthn == 4) {$Month = "April"}
        if ($Monthn == 5) {$Month = "May"}
        if ($Monthn == 6) {$Month = "June"}
        my $Day=$Time[3];
 
        my $log=$editor->get_text("Wikipedia:Request an account/$Month 2007");
        unless ($log =~ /$username/) {
                $log=~s/\n{{Wikipedia:Request an account\/F/\n*{{useracc|$username}}\n{{Wikipedia:Request an account\/F/;
                $editor->edit("Wikipedia:Request an account/$Month 2007", $log, "Adding $username");
 
        my $talk = $editor -> get_text("User talk:$username");
        chomp $talk;
        $talk || $editor->edit("User talk:$username", '{' . '{sub' . 
'st:' . 'User:ST47/Welcome}} --~~' . '~~');
 
        }
        print " Archived";
}}
 
 
sub old {
        my ($section, $content, $username) = @_;
        if ($content =~ /
                \Q{{ACC|\E
                .+?
                \Q}}\E
                .+?
                ..:..,\s(..?)\s\w+\s2007
        /ix) {
                my $day = $1;
                if (($day + 3) < (localtime[3])) {
                        my $accreq=$editor->get_text('Wikipedia:Request an account');
                        my $accreqo=$accreq;
                        print " removing old $section";
                        $accreq=~s/
                                ==\s?\Q$section\E\s?==
                                .*?
                                (==|$)
                        /\1/six;
                        if ($accreqo eq $accreq) {print " couldn't remove!"} else {
                                $editor->edit('Wikipedia:Request an account', $accreq, "Removing $username, old.");
                        }
                }
        }
}