#!/usr/bin/perl
# SDF-COMMODE AUTO MODARATOR
use Net::Telnet;
#use strict;
use warnings;

# allowed masters
my @masters = ( 'pi','i0n',);
# BAD GUYS
my @enemys= ( '' );
# Varible Declarations
my $server = "";
my $buffer ="";

#Authentication info
my $host = 'sdf.lonestar.org';
my $username = 'comzor';
my $password = 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX';

# Function for checking username against list of masters
sub enemy_check {
my $name = shift;
# if submited with server, strip it out ( warning: this is sloppy :P )
if ($name =~ m/@/) { $name =~ s/@.*$//; }
foreach $enemy (@enemys) {
	if ($enemy =~ $name) {
		return 1;
	}
	}
	return 0;
}

# function for checking a string against a list of masters
sub master_check {
my $name = shift;
	#loop through array and compare
	# return 1 if master, 0 if not
	foreach my $mast (@masters) {
	if ($mast eq $name) {
		return 1;
	}
	}
	return 0;
}

# function for logging into a preval account at sdf
# usage: psh_login($user,$pass)
sub psh_login {
my $user= shift;
my $pass = shift;
#login to sdf, conect to a preval shell, and start com
$server = new Net::Telnet (Prompt => '/(.){1,4}/');
$server->open($host) or die "connect:[ $! ]";
$server->waitfor('/login:.*$/') or die "waiting for login...";
$server->print("$user");
$server->waitfor('/Password:.*$/') or die "waiting for pass...";
$server->print("$pass");
$server->waitfor('/Please\spress\syour\sBACKSPACE\skey:.*$/') or die "waiting for backspace prompt...";
$server->print("\b");
$server->waitfor('/\[CONTINUE\].*$/');
$server->print("");
$server->waitfor('/sdf/') or die "waiting for shell prompt...";
$server->print("com");
$server->waitfor('/COMMODE/');
}
psh_login($username, $password, $host) or die "login: $1 ";


# function for returning users in a room
sub who_in {

my $room = shift;
my $buf ="";
my $who_buffer ="";
my $cnt = 0;

#Empty input buffer to save processing time
$server->buffer_empty;
$server->print("W$room");
$server->waitfor('/members\sin.*\]/');
# read lines untill 2 newlines are read
do {
$buf = $server->getline();
	#if its a blank line, increment $cnt
	if ( !($buf =~ /\@/)) {  $cnt++; } else {
	$who_buffer = $who_buffer . $buf;
	}
} until ($cnt == 3);
$who_buffer =~ s/[\s\t]/ /;
$who_buffer =~ s/\n/ /;
@who = split(/\s/, $who_buffer);

foreach (@who) {
$_ =~ s/[\s\t]/ /;
};
$server->print("v@who");
$server->buffer_empty;
}

print "WARNING: Endlessloop...\n\n";

#Set the server not to time-out on an endless read
$server->timeout(undef);

#DONT SPAM LOBBY
$server->print("gbotlab");

#Empty input buffer to save processing time
$server->buffer_empty;

# Start a loop while $server exists
do {

#read input buffer one line at a time
 $buffer = $server->getline();
#  strip  esc chars
$buffer =~ s/\e\[[\d+\;?]+m//;
$buffer =~ s/\e\[\d+m//;
### Command Function Parsing ###
	# test funtion 1 pm enabled
	if ($buffer =~ m/\!poke/) {
	$server->print("vROAR!!!! ");
	}
	# Goto function (master protected) Pm enabled
	elsif ($buffer =~ m/^[\[|\*](.{1,8})[\]|\*]\s{1,8}!g\s(.*)/ ) {
		if ((master_check($1)) == 1) {
		$server->print("v yes, $1");
		$server->print("g$2");
		} else { $server->print("vYour not my master."); };

	}
	# PM Bomb (master protected) pm enabled
	elsif ($buffer =~ m/^[\[|\*](.{1,8})[\]|\*]\s{1,8}!b\s(.*)\-\-(.*)/) {
		if ((master_check($1)) == 1) {
			for (1 .. 20) {
			$server->print("s$2");
			$server->print("$3");
			}
		} else { $server->print("vYou're not my master."); };
	}
	#Dump this code (master enabled)
		elsif ($buffer =~ m/^[\[|\*](.{1,8})[\]|\*]\s{1,8}!dump/) {
		if ((master_check($1)) == 1) {
		# open itself and print contents to com
		open (ME, $0) or $server->("vERROR: [ $! ]");
			while (<ME>) {
			#if string contains password, replace with set amount of x's
			s/$password/XXXXXXXXXXXXXXXXXX/;
			$server->put("v$_");
			sleep 1;
			}
		close ME;
		} else { $server->print("vYou're not my master."); };
	}
	# Auto Zap (enemy aware)
	elsif ($buffer =~ m/^\[\d{2}:\d{2}:\d{2}\]\s(.*)\shas\sjoined\s/ ) {
		if ((enemy_check($1)) == 1) {
		$server->print("Z$1");
		$server->print("accessdenied");
		} else { #$server->print("v$1 clear");
		}
	}
	#Netris Cheat (master protected) pm enabled --STILL UNDER DEVOLPMENT--
	elsif ($buffer =~ m/^[\[|\*](.{1,8})[\]|\*]\s{1,8}!n\s(.*)/) {
		if ((master_check($1)) == 1) {
			$server->print("n$2");
			sleep 1;
			for (1 .. 5) {
			$buffer = $buffer . $server->getline();
			}
			$buffer = $server->getline ;

				if ($buffer =~ m/you\sare\sin/) {
					$server->print("vnotvalidplayer");
				} else {
					for (1.. 100) {
					$server->waitfor('/Netris/');
					$server->print(" ");
					}
				#flush netris game from input buffer
				$server->buffer_empty;
				}


		} else { $server->print("vYou're not my master."); };
	}
	# who test
	elsif ($buffer =~ m/^[\[|\*](.{1,8})[\]|\*]\s{1,8}!w\s(.*)/) {
	who_in($2);
	#$server->print("v@test");
	}
	# exit command (master checked) pm enabled
	elsif ($buffer =~ m/^[\[|\*](.{1,8})[\]|\*]\s{1,8}!q/) {
	if ((master_check($1)) == 1) {
	$server->print("vBye, Bye!");
	sleep 1;
	$server->put("q");
	$server->print("logout");
	die;
	} else { $server->print("vYou're not my master."); };
	}
	#elsif ($THIS_SHOULD_NOT_HAPPEN) {
	#die "huh?";
	#}
	else {
	#$server->print("a error: command not reconized");
	}
################################

print "$buffer";
$buffer = "";
} while ($server);
#this last newline must be here for !dump ThAnks for reading