Автор Тема: Net::IRC не заходит на канал  (Прочитано 2669 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн AlieN

  • Абыр!=)
  • Ветеран
  • *****
  • Сообщений: 1315
  • +0/-1
  • 2
    • Просмотр профиля
Net::IRC не заходит на канал
« : 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.

т.е. бот к серверу приконнектился но на канал не заходит
Кто сталкивался с этой проблемой?
The Chemical Brothers - Hey Boy Hey Girl (User Friendly Mix)
Peter Presta pres - Set Sail(Peter Presta Apple Jaxx Dub) She S.Sunshine Feat Mila - Bring The Beat Back (Club Mix) Jerry Ropero - Home Alone (Dub Mix)

Оффлайн Xander

  • санитар леса
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1780
  • +0/-0
  • 2
    • Просмотр профиля
Net::IRC не заходит на канал
« Ответ #1 : 27 Января 2003, 13:26:32 »
AlieN
первое, что приходит в голову:
у тебя точно запускается on_connect?
Я может не совсем понял, на что именно вешается хэндлер, но может сервер просто не говорит того, на что он должен срабатывать?
•••Jah\'d never let us down!•••

Оффлайн AlieN

  • Абыр!=)
  • Ветеран
  • *****
  • Сообщений: 1315
  • +0/-1
  • 2
    • Просмотр профиля
Net::IRC не заходит на канал
« Ответ #2 : 27 Января 2003, 22:06:31 »
Xander
Не наю......
я промучался 2 часа
уже теленетом пытался приконнектиться - все равно не получается :(


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

Скорее всего,если тебе не сложно попробуй сам приконнектиться на irc.com.ru
порт 6667
The Chemical Brothers - Hey Boy Hey Girl (User Friendly Mix)
Peter Presta pres - Set Sail(Peter Presta Apple Jaxx Dub) She S.Sunshine Feat Mila - Bring The Beat Back (Club Mix) Jerry Ropero - Home Alone (Dub Mix)

Оффлайн AlieN

  • Абыр!=)
  • Ветеран
  • *****
  • Сообщений: 1315
  • +0/-1
  • 2
    • Просмотр профиля
Net::IRC не заходит на канал
« Ответ #3 : 28 Января 2003, 02:23:38 »
Цитировать
но может сервер просто не говорит того, на что он должен срабатывать?

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

Теперь вопрос совершенно в другую тему:
можно ли средствами Perl снифить UDP-порт?
Естсвенно под виндами :)
The Chemical Brothers - Hey Boy Hey Girl (User Friendly Mix)
Peter Presta pres - Set Sail(Peter Presta Apple Jaxx Dub) She S.Sunshine Feat Mila - Bring The Beat Back (Club Mix) Jerry Ropero - Home Alone (Dub Mix)

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28