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.");
			}
		}
	}
}