16.09.2007, 01:20
|
|
Участник форума
Регистрация: 22.05.2007
Сообщений: 144
С нами:
9985348
Репутация:
119
|
|
Так вроде ..
PHP код:
#!/usr/bin/perl
use IO::Socket;
$server = "irc.antichat.net";
$nick = "ant0ha";
$user = "bot"
$channel = "#antichat";
$port = '7771';
$connect = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => 'tcp';) or die "Connect error\n";
print $connect "NICK $nick\r\n";
print $connect "USER $user \r\n";
while ($input = <$connect>) {
if ($input =~ /^PING(.*)$/i) {
print $connect "PONG $1\r\n";
}
}
print $connect "JOIN $channel\r\n";
while ($input = <$connect>) {
chop $input;
if ($input =~ /^PING(.*)$/i) {
print $connect "PONG $1\r\n";
} else {
print "$input\n";
}
}
print $connect "PRIVMSG $channel :Hi\r\n";
|
|
|