irc-бот

[Mix]

непонятная фигня с ping-pong, бот заползает на канал, но затем вылетает с ping timeout

while ($irc->recv($mеss, $MAX_SIZE)) {

print $mеss;

}

if ($mеss =~ /^PING\s:/) {

$irc->send("PONG $serv\n") || die "Error PONG repply\n";

непойму в чем дело

Comments

[rixi]

А его не клинит в цикле while? Т.е. после цикла он что-то еще делает?

[Mix]

rixi

не, не клинит, он заходит и висит, но когда сервер шлет ему PING, он зараза не может почему то ответить PONG, и сервер его выбрасывает

[Mix]

упс, не подумал, все таки клинит

помоему эта часть

if ($mеss =~ /^PING\s:/) { $irc->send("PONG $serv\n") || die "Error PONG repply\n";

не выполняется вообще

можно ли чем нибудь заменить, вот этот цикл

while ($irc->recv($mеss, $MAX_SIZE)) { print $mеss; }

[rixi]

Mix последнюю } поставь в конце цикла обработки полученных данных, чтоб не только print выполнялся для $mess, но и пинг и все остальное..

[Mix]

слава rixi!!!

спасибо!!!!все получилось!!!