Lines Matching refs:host
15 our $host;
33 return $host if defined $host;
36 $host = ghname() if defined &ghname;
37 return $host if defined $host;
42 eval { local $SIG{__DIE__}; $host = (gethostbyname('me'))[0] };
43 if ($@) { return $host = $ENV{'SYS$NODE'}; }
47 # there any other logicals which TCP/IP stacks use for the host name?)
48 $host = $ENV{'ARPANET_HOST_NAME'} || $ENV{'INTERNET_HOST_NAME'} ||
51 return $host if $host;
55 if ($rslt !~ /IVVERB/) { ($host) = $rslt =~ /^(\S+)/; }
56 return $host if $host;
59 $host = '';
60 croak "Cannot get host name of local machine";
64 ($host) = gethostbyname('localhost');
65 chomp($host = `hostname 2> NUL`) unless defined $host;
66 return $host;
69 $host = 'localhost';
70 return $host;
82 $host = "\0" x 65; ## preload scalar
83 syscall(&SYS_gethostname, $host, 65) == 0;
92 $host = "\0" x 65; ## preload scalar
93 syscall(&SYS_systeminfo, &SI_HOSTNAME, $host, 65) != -1;
100 $host = `(hostname) 2>/dev/null`; # bsdish
108 $host = (POSIX::uname())[1];
114 $host = `uname -n 2>/dev/null`; ## sysVish
121 ($host,$a,$b,$c,$d)=split(/[:\. ]/,`/com/host`,6);
125 || croak "Cannot get host name of local machine";
128 $host =~ tr/\0\r\n//d;
129 $host;
144 $host = hostname;
152 and the file F</com/host>. If all that fails it C<croak>s.