#!perl
#
# BEGIN COPYRIGHT BLOCK
# This Program is free software; you can redistribute it and/or modify it under
# the terms of the GNU General Public License as published by the Free Software
# Foundation; version 2 of the License.
# 
# This Program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License along with
# this Program; if not, write to the Free Software Foundation, Inc., 59 Temple
# Place, Suite 330, Boston, MA 02111-1307 USA.
# 
# In addition, as a special exception, Red Hat, Inc. gives You the additional
# right to link the code of this Program with code not covered under the GNU
# General Public License ("Non-GPL Code") and to distribute linked combinations
# including the two, subject to the limitations in this paragraph. Non-GPL Code
# permitted under this exception must only link to the code of this Program
# through those well defined interfaces identified in the file named EXCEPTION
# found in the source code files (the "Approved Interfaces"). The files of
# Non-GPL Code may instantiate templates or use macros or inline functions from
# the Approved Interfaces without causing the resulting work to be covered by
# the GNU General Public License. Only Red Hat, Inc. may make changes or
# additions to the list of Approved Interfaces. You must obey the GNU General
# Public License in all respects for all of the Program code and other code used
# in conjunction with the Program except the Non-GPL Code covered by this
# exception. If you modify this file, you may extend this exception to your
# version of the file, but you are not obligated to do so. If you do not wish to
# provide this exception without modification, you must delete this exception
# statement from your version and license this file solely under the GPL without
# exception. 
# 
# 
# Copyright (C) 2001 Sun Microsystems, Inc. Used by permission.
# Copyright (C) 2005 Red Hat, Inc.
# All rights reserved.
# END COPYRIGHT BLOCK
#

sub uname
{
  local (@CommandLine) = @_;

  local($getall) = 0;
  local($getproc) = 0;
  local($getosrel) = 0;
  local($getosname) = 0;
  local($getosver) = 0;

  while ($_ = @CommandLine[0]) {
    PARSE_SWITCH: {
      if (/^-a\b/i) {# show all information
        $getall=1;
        shift(@CommandLine);
        last PARSE_SWITCH
      }
      if (/^-n\b/i) {# show node name
        $getnodename=1;
        shift(@CommandLine);
        last PARSE_SWITCH
      }
      if (/^-p\b/i) {# show processor
        $getproc=1;
        shift(@CommandLine);
        last PARSE_SWITCH
      }
      if (/^-r\b/i) {# show os release
        $getosrel=1;
        shift(@CommandLine);
        last PARSE_SWITCH
      }
      if (/^-s\b/i) {# show os name
        $getosname=1;
        shift(@CommandLine);
        last PARSE_SWITCH
      }
      if (/^-v\b/i) {# show os version
        $getosver=1;
        shift(@CommandLine);
        last PARSE_SWITCH
      }
      print "   ERROR: Unknown parameter: $_\n";
      shift(@CommandLine);
    }
  }

chomp(local($os) = `uname -s`);
local($nodename) = "";
local($proc) = "";
local($osrel) = "";
local($osname) = "";
local($osver) = "";
local($osrel1) = "";
local($osrel2) = "";
local($nodename1) = "";
local($retval) = "";
local($ret) = "";

if ($os eq "Windows_NT")
{
  chomp($nodename = `uname -n`); 
  chomp($proc = `uname -m`); lc($proc);
  if ($proc =~ /^[0-9]86.*/)
  {
    $proc = "i386";
  }
  else
  {
    $proc = "?";
  }
  chomp($osrel1 = `uname -r`);
  chomp($osrel2 = `uname -v`);
  $osrel = $osrel1.".".$osrel2;
  $osname = "WINNT";
  $osver = "???";
}
if ($os eq "WINNT")
{
  chomp($nodename = `uname -n`);
  chomp($proc = `uname -p`); lc($proc);
  chomp($osrel = `uname -r`);
  $osname = "WINNT";
  chomp($osver = `uname -v`);
} 

if ($os eq "SunOS")
{
  chomp($nodename = `uname -n`);
  chomp($proc = `uname -p`);
  chomp($osrel = `uname -r`);
  $osname = $os;
  chomp($osver = `uname -v`);
}
if ($os eq "IRIX" || $os eq "IRIX64")
{
  chomp($nodename = `uname -n`);
  chomp($proc = `uname -p`);
  chomp($osrel = `uname -r`);
  $osname = "IRIX";
  chomp($osver = `uname -v`);
}

if ($os eq "HP-UX")
{
  chomp($nodename = `uname -n`);
#  $proc = "hppa1.1";
  chomp($proc = `uname -m`);
  chomp($osrel = `uname -r`);
  $osname = $os;
  chomp($osver = `uname -v`);
}

if ($os eq "OSF1")
{
  chomp($nodename1 = `uname -n`);
  ($nodename) = ($nodename1 =~ /(\w+)\..*/);
  chomp($proc = `uname -m`);
  chomp($osrel = `uname -r`);
  $osname = $os;
  chomp($osver = `uname -v`);
}

if ($os eq "AIX")
{
  chomp($nodename = `uname -n`);
  $proc = "rs6000";
  chomp($osrel1 = `uname -v`);
  chomp($osrel2 = `uname -r`);
  $osrel = $osrel1.".".$osrel2;
  $osname = $os;
  $osver = "???";
}

if ($getall)
{
  $getosname = 1;
  $getnodename = 1;
  $getosrel = 1;
  $getosver = 1;
  $getproc = 1;
}

$retval = "";
$retval = $retval.($getosname ?		$osname :		"");
$retval = $retval.($getnodename ?	" ".$nodename :		"");
$retval = $retval.($getosrel ?		" ".$osrel :		"");
$retval = $retval.($getosver ?		" ".$osver :		"");
$retval = $retval.($getproc ?		" ".$proc :		"");

if ($retval eq "")
{
  $retval = $nodename;
}

($ret) = ($retval =~ /\s*(.*)/);

return "$ret";
}
1