ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Sergey Halamov                       2:452/25.34    12 May 2002  14:18:45
 To : All
 Subject : Timeout in IO::Socket:INET
 -------------------------------------------------------------------------------- 
 

 
 Действия происходят под NT4.0, ActivePerl, Apache.
 
 Hиже приведенный фрагмент скрипта используется для проверки доступности
 сервера. В случае его недоступности процесс подвисает на несколько минут,
 хотя явно указан таймаут. Что неправильно ?
 Какой еще можно использовать способ определения доступности сервера,
 кроме Net::Ping ?
 use IO::Socket;
 
 $hostUp='images/On/server.gif';
 $hostDown='images/Off/server.gif';
 
 $basefile=$hostUp;
 
 $s = IO::Socket::INET->new(PeerAddr => "192.168.1.2:139",
                            Timeout  => 5,
                            Type     => SOCK_STREAM )
  or $basefile=$hostDown;
 
 close($socket);
 
 print "Content-Type: image/gif\n\n";
 
 open(PIC,"$basefile");
 binmode(PIC);
 binmode(STDOUT);
 print <PIC>;
 close(PIC);
     WBR, Sergey Halamov. |    pager: (0232)721244 #215050    |
 ... | e-mail: hsg@tut.by | http://hey.to/hsg | ICQ: #9242032 |
 --- GoldED/W32 v1.1.4.7
  * Origin: BSDi (2:452/25.34)
 
 

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