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.
global.irc.gr:6667 -> load it in the server that u wantCode:-------------- 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(); } } }
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


LinkBack URL
About LinkBacks

Reply With Quote