Forum Webscript.Ru

Программирование => Perl => Тема начата: AlieN от 27 Января 2003, 10:02:11

Название: Net::IRC не заходит на канал
Отправлено: AlieN от 27 Января 2003, 10:02:11

Начинаю думать что перл отстой :)
В общем трап такой:
взял скачал модуль NET::IRC версия # Net-IRC 0.72

И написал вот такой код:

#!/usr/bin/perl -w

use Net::IRC;
#use strict;

# create the IRC object
my $irc = new Net::IRC;

# Create a connection object.  You can have more than one "connection" per
# IRC object, but we\'ll just be working with one.
my $conn = $irc->newconn(
Server =>  \'192.168.5.156\',
Port => \'6667\',
Nick => \'TestAlieN\',
Ircname => \'I like to greet!\',
Username => \'dsfdsfdsfdsfds\'
);

$conn->{channel} = \'#day\';

sub on_connect {
my $conn = shift;
 
# when we connect, join our channel and greet it
$conn->join($conn->{channel});
$conn->privmsg($conn->{channel}, \'Hello everyone!\');
$conn->{connected} = 1;

}

# The end of MOTD (message of the day), numbered 376 signifies we\'ve connect
$conn->add_handler(\'376\', \\&on_connect);

# start IRC
$irc->start();
$conn->privmsg("#day", \'Hello everyone!\');


Так вот:
Результат на "/whois TestAlien"

Цитировать

TestAlieN is ~dsfdsfdsf@192.168.66.19 * I like to greet!
TestAlieN using irc.com.ru BisIntercom chat server
TestAlieN has been idle 20sec, signed on Mon Jan 27 09:56:02
testalien End of /WHOIS list.

т.е. бот к серверу приконнектился но на канал не заходит
Кто сталкивался с этой проблемой?

Название: Net::IRC не заходит на канал
Отправлено: Xander от 27 Января 2003, 13:26:32

AlieN
первое, что приходит в голову:
у тебя точно запускается on_connect?
Я может не совсем понял, на что именно вешается хэндлер, но может сервер просто не говорит того, на что он должен срабатывать?

Название: Net::IRC не заходит на канал
Отправлено: AlieN от 27 Января 2003, 22:06:31

Xander
Не наю......
я промучался 2 часа
уже теленетом пытался приконнектиться - все равно не получается :(

Цитировать

но может сервер просто не говорит того, на что он должен срабатывать?

Скорее всего,если тебе не сложно попробуй сам приконнектиться на irc.com.ru
порт 6667

Название: Net::IRC не заходит на канал
Отправлено: AlieN от 28 Января 2003, 02:23:38

Цитировать

но может сервер просто не говорит того, на что он должен срабатывать?

Именно так и есть :)
В общем с этим я разобрался

Теперь вопрос совершенно в другую тему:
можно ли средствами Perl снифить UDP-порт?
Естсвенно под виндами :)