ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Lunkov                     2:5055/201.26  10 May 2002  22:37:56
 To : All
 Subject : irc-сервера
 -------------------------------------------------------------------------------- 
 

 
     Пытаюсь приконнектиться к сабжу. Коннект удаётся, но не дальше. Выводится
 риглашение сервера и нужно ввести NICK и USER. После ввода скрипт через
 некоторое время отваливается. Сообщения от сервера:
 
 :al.irc.local NOTICE AUTH :*** Looking up your hostname...
 :al.irc.local NOTICE AUTH :*** Checking ident...
 :al.irc.local NOTICE AUTH :*** Checking for open socks server...
 :al.irc.local NOTICE AUTH :*** Found your hostname
 ERROR :Closing Link: [127.0.0.1] (Ping timeout)
 
     Имхо, он на команды даже не реагирует. В чём может быть дело?
 
     Сам скрипт:
 
 #!/usr/bin/perl
 
 use Socket;
 use IO::Handle;
 
 $serversf="servers";        #файл со список серверов
 
 #NICK nickname
 $irc_nick="NICK qwer\n";  #ник на сервере <RFC2812>
 
 #USER username mode unused realname
 $irc_user="USER qwer x x :qwer\n";
 
 open SERVERS_HANDLE, "<$serversf" or die "$serversf not found!\n";
 @irc_server=<SERVERS_HANDLE>;
 close SERVERS_HANDLE;
 
 for $i(0..$#irc_server){
     ($irc_name,$irc_port)=split(/,/,$irc_server[$i]);
     $irc_ipaddr=inet_aton $irc_name;
     socket SOCK_HANDLE, AF_INET, SOCK_STREAM, 0 or die "socket error: $!";
     connect SOCK_HANDLE, sockaddr_in($irc_port, $irc_ipaddr) or die "connect
 error: $!";
     setsockopt SOCK_HANDLE, SOL_SOCKET, SO_KEEPALIVE, 1 or die "setsockopt
 error: $!";
     select SOCK_HANDLE;
     $|=1;
     select STDOUT;
     $|=1;
 
     while(<SOCK_HANDLE>){print}
     send SOCK_HANDLE, $irc_nick, 0;
     send SOCK_HANDLE, $irc_user, 0;
     while(<SOCK_HANDLE>){print}
 
     shutdown SOCK_HANDLE, 1;
 }
 -+-
     mailto: inzect0r_at_rambler.ru                      Sincerely yours, Alex
 --- registered Linux user number 225940.
  * Origin: Люди всегда будут такими, какими делают их женщины. (2:5055/201.26)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    irc-сервера   Alexander Lunkov   10 May 2002 22:37:56   Re: irc-сервера   Roman Yerin   11 May 2002 15:09:48   Re: irc-сервера   Alexey Kuzmin   15 May 2002 03:45:51