[Summary view] [Print] [Text view]

   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;