lib/hostname.pl

   1 # From: asherman@fmrco.com (Aaron Sherman)
   2 #
   3 # This library is no longer being maintained, and is included for backward
   4 # compatibility with Perl 4 programs which may require it.
   5 #
   6 # In particular, this should not be used as an example of modern Perl
   7 # programming techniques.
   8 #
   9 # Suggested alternative: Sys::Hostname
  10 #
  11 sub hostname
  12 {
  13         local(*P,@tmp,$hostname,$_);
  14         if (open(P,"hostname 2>&1 |") && (@tmp = <P>) && close(P))
  15         {
  16                 chop($hostname = $tmp[$#tmp]);
  17         }
  18         elsif (open(P,"uname -n 2>&1 |") && (@tmp = <P>) && close(P))
  19         {
  20                 chop($hostname = $tmp[$#tmp]);
  21         }
  22         else
  23         {
  24                 die "$0: Cannot get hostname from 'hostname' or 'uname -n'\n";
  25         }
  26         @tmp = ();
  27         close P; # Just in case we failed in an odd spot....
  28         $hostname;
  29 }
  30
  31 1;