home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #8 / K-CD-8-2002.ISO / WatzNew / data.cab / PING.pl < prev    next >
Encoding:
Text File  |  2000-06-18  |  694 b   |  20 lines
  1. #%DESCRIPTION%|=|Pings specified host using shell's "ping <hostname>" command
  2. #%HOST%|?|watznew.com|Enter host name or IP address
  3. #%TITLE%|=|PING #%HOST%
  4. #%MESSAGE%|=|%1
  5.  
  6. # ------------------------------------------------------------------------------
  7. # PING script by A.I.Studio / Igor Afanasyev
  8. # ------------------------------------------------------------------------------
  9.  
  10. require 'strings.lib'; # string routines
  11.  
  12. # ------------------------------------------------------------------------------
  13.  
  14. $host = $ENV{'HOST'};
  15.  
  16. # ------------------------------------------------------------------------------
  17.  
  18. $s = `ping $host`;
  19. $s = &ProcessDosResponse($s);
  20. print "MSG: $s\n";