ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : €«мЁ­бЄЁе ‘ҐаЈҐ©                     2:5020/400     09 Mar 2003  19:31:00
 To : All
 Subject : Net::IRC
 -------------------------------------------------------------------------------- 
 

 
 работает то работает
 но коннектится только к локальным портам 127.0.0.1
 к удаленным серверам только через маперы (переадресовщики, локальиные
 прокси)
 странно...
 может таймают надо измениь? а как?
 я сморел там используеться ФУHКЦИЯ socket
 не у ково такого не было?
 
     $sock = Symbol::gensym();
     unless (socket( $sock, PF_INET, SOCK_STREAM, getprotobyname('tcp') )) {
         carp ("Can't create a new socket: $!");
  $self->error(1);
  return;
     }
 
     # This bind() stuff is so that people with virtual hosts can select
     # the hostname they want to connect with. For this, I dumped the
     # astonishingly gimpy IO::Socket. Talk about letting the interface
     # get in the way of the functionality...
 
     if ($self->hostname) {
  unless (bind( $sock, sockaddr_in( 0, inet_aton($self->hostname) ) )) {
      carp "Can't bind to ", $self->hostname, ": $!";
      $self->error(1);
      return;
  }
     }
 
     if (connect( $sock, sockaddr_in($self->port,
 inet_aton($self->server)) )) {
  $self->socket($sock);
 
     } else {
 # вотт в етом месте ошибку выдает
 # к локальным 127.0.0.1 нормально
 # может таймаут прибавить а как?
  carp (sprintf "=0=Can't connect to %s:%s!",
        $self->server, $self->port);
  $self->error(1);
  return;
     }
 --- ifmail v.2.15dev5
  * Origin: "MTU-Intel ISP" (2:5020/400)
 
 

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