This script is written in perl language.U can connect ur bot via ur website.i added few commands so the bot can response in ur commands.
TIP: the bot will be 24/7 online if ur website is running.U can close ur browser if u want after that the bot still running.
Code:
--------------
PERL CONNECT BOT IRC
-------------------
#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket::INET;
#Autoflush the output buffer
$| = 1;
#Create child process
my $pid = fork();
#If program is child process connect to irc
if ($pid == 0) {
my $socket = IO::Socket::INET->new(PeerAddr => 'global.irc.gr:6667');
print $socket "USER perl localhost global.irc.gr Celestrial\r\n";
print $socket "NICK Celestrial\r\n";
my $time = time();
while (my $line = <$socket>) {
chomp $line;
my @words = split (/\s+/, $line);
my $nickname = shift @words;
my $cmd = shift @words;
shift @words;
if ((substr($nickname, 0, 6) eq ':Ginzo!') and ($cmd eq 'PRIVMSG')) {
my $message = join (' ', @words);
$message = substr($message, 1);
print $socket "$message\r\n";
}
#Send PING to server every 1 min
if (time() - $time >= 60) {
print $socket "PING\r\n";
$time = time();
}
}
}
global.irc.gr:6667 -> load it in the server that u want
Celestrial -> its the name of the bot
Ginzo -> is the name that bot can understand who is his admin
PRVMSG -> its the command that bot can understand his admin