home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Kompuutteri Kaikille K-CD 2002 #8
/
K-CD_2002-08.iso
/
WatzNew
/
data.cab
/
PING.pl
< prev
next >
Wrap
Text File
|
2000-06-18
|
694b
|
20 lines
#%DESCRIPTION%|=|Pings specified host using shell's "ping <hostname>" command
#%HOST%|?|watznew.com|Enter host name or IP address
#%TITLE%|=|PING #%HOST%
#%MESSAGE%|=|%1
# ------------------------------------------------------------------------------
# PING script by A.I.Studio / Igor Afanasyev
# ------------------------------------------------------------------------------
require 'strings.lib'; # string routines
# ------------------------------------------------------------------------------
$host = $ENV{'HOST'};
# ------------------------------------------------------------------------------
$s = `ping $host`;
$s = &ProcessDosResponse($s);
print "MSG: $s\n";