#!/usr/bin/perl

########################################################################
#
# pmglobal Ver 2.1 beta2
#
# Portmaster   : ComOS 3.3.1
#
#######################################################################

require 'pm.pl';

$Host = $ARGV[0];
$Pass = $ARGV[1] || $Password;
portmaster::Connect("$Host", $Pass);

($HD, $Addr, $DefHost, $DefGate, $NetMask, $Unknown1, 
 $Status, $Version, $Unknown2, $Unknown3, $Unknown4,
 $NameServer1, $Domain, $Unknown5, $Telnet, $LogHost,
 $Assigned, $Unknown6, $Unknown7, $Unknown8, $Unknown9,
 $Radius1, $Radius2, $Unknown10, $Unknown11, $IPXAddr,
 $Unknown13, $Unknown14) = &portmaster::SysGlobal; 

$Domain =~ s/\"//g;

print "
          IP Address: $Addr
          IP Gateway: $DefGate
         IPX Address: $IPXAddr
              Status: $Status
             LogHost: $LogHost
             Netmask: $NetMask
          OS Version: $Version
         Name Server: $NameServer1
         Domain Name: $Domain
         Telnet Port: $Telnet
        Default Host: $DefHost
       Radius Server: $Radius1
       Radius Backup: $Radius2
  Assigned Addresses: $Assigned

[$Unknown1][$Unknown2][$Unknown3][$Unknown4]
[$Unknown5][$Unknown6][$Unknown7][$Unknown8]
[$Unknown9][$Unknown10][$Unknown11]
[$Unknown13][$Unknown14]
";

close(portmaster::DS);
