#!/usr/bin/perl
use IO::Socket;
my $host = $ARGV[0]; #setting variables needed for bot
my $port = $ARGV[1];
my $nick = $ARGV[2];
my $owner = $ARGV[3];
system("color 02"); # This sets the console window to green text (windows based systems)
print q(
[[ Welcome to Baboonbot v1.0! ]]
[[ Coded by: Tainted ]]
[[ http://www.peatballs.org ]]
[[ taintedbloop@gmail.com ]]
);
print "Arguments: [host: $host] [port: $port] [nick: $nick] [owner: $owner]\n\n"; #confirming arguments to the user
my $sock = new IO::Socket::INET ( # starting a socket connection
PeerAddr => $host, # server
PeerPort => $port, # port
Proto => 'tcp', # protocol
) or die "Could not open connection to $host\n $1"; # in case it fails to connect
print $sock "NICK $nick\r\n"; # Nickname to send to server
print $sock "USER $nick * 8 :BaboonBot v1.0\r\n"; # User to send to server
sleep(1); # sleep to avoid JOINing too early .. i think its a good idea. sleep(seconds)
print $sock "JOIN #bots\r\n"; # Joins channel #bots
while (my $data = <$sock>) {
chop $data;
if ($data =~ /^PING(.*)$/i) { #checks to see if the server sent the word PING, this is necessary to avoid being disconnected
print $sock "PONG $1\r\n"; # PONG is the reply to PING
} else {
print "$data\n"; # print the raw data recieved from the server
}
}