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 # This legacy library is deprecated and will be removed in a future
   6 # release of perl.
   7 #
   8 # In particular, this should not be used as an example of modern Perl
   9 # programming techniques.
  10 #
  11 # Suggested alternative: Sys::Hostname
  12
  13 warn( "The 'hostname.pl' legacy library is deprecated and will be"
  14       . " removed in the next major release of perl. Please use the"
  15       . " Sys::Hostname module instead." );
  16
  17 sub hostname
  18 {
  19         local(*P,@tmp,$hostname,$_);
  20         if (open(P,"hostname 2>&1 |") && (@tmp = <P>) && close(P))
  21         {
  22                 chop($hostname = $tmp[$#tmp]);
  23         }
  24         elsif (open(P,"uname -n 2>&1 |") && (@tmp = <P>) && close(P))
  25         {
  26                 chop($hostname = $tmp[$#tmp]);
  27         }
  28         else
  29         {
  30                 die "$0: Cannot get hostname from 'hostname' or 'uname -n'\n";
  31         }
  32         @tmp = ();
  33         close P; # Just in case we failed in an odd spot....
  34         $hostname;
  35 }
  36
  37 1;