1 # From: asherman@fmrco.com (Aaron Sherman)
5 local(*P,@tmp,$hostname,$_);
6 if (open(P,"hostname 2>&1 |") && (@tmp = <P>) && close(P))
8 chop($hostname = $tmp[$#tmp]);
10 elsif (open(P,"uname -n 2>&1 |") && (@tmp = <P>) && close(P))
12 chop($hostname = $tmp[$#tmp]);
16 die "$0: Cannot get hostname from 'hostname' or 'uname -n'\n";
19 close P; # Just in case we failed in an odd spot....