#!/usr/bin/perl
#
# a "PMWHO" for the ARC
#
# Created by Marshall Morgan (marshall@netdoor.com) on 03/17/98
# for use with USR/3COM Total Control HiPerARC Terminal Servers (known v4.0.x)
#
# perl mods by Ben Brown (ben@netdoor.com)
#
# Based on original work by:
#
# Created by Carlos.Canau@EUnet.pt with cfgmaker from Tobias Oetiker
# <oetiker@ee.ethz.ch> as skeleton
#
# Switches and ping added by David Hamilton (dhamilton@voyager.net) on 1-28/2003
use SNMP_Session;
use BER;
use Socket;
%snmpget::OIDS = (  'usrCfgNetIfName' =>  '1.3.6.1.4.1.429.4.1.7.1.2',
                    'usrNetLogicalId' =>  '1.3.6.1.4.1.429.4.1.7.1.7',
                    'usrCfgNetUserName' => '1.3.6.1.4.1.429.4.1.7.1.9',
                    'usrIpAddress' => '1.3.6.1.4.1.429.4.19.13.1.9.0.0.0.0',
                 );

my($community,$router) = split /\@/, $ARGV[0];
die <<USAGE  unless $community && $router;

USAGE: hiperarc.pl 'community'\@'usr3comarc'

EXAMPLE:  hiperarc.pl public\@arc1.domain.com

USAGE

my @ifname = snmpgettable($router,$community, 'usrCfgNetIfName');
my @netlogicalid = snmpgettable($router,$community, 'usrNetLogicalId');
my @ipaddr = snmpgettable($router,$community, 'usrIpAddress');
my @username = snmpgettable($router,$community, 'usrCfgNetUserName');

#  OUTPUT Section

while (!($#netlogicalid == $#ipaddr)) {
  shift @netlogicalid;
  shift @ifname;
  shift @username;
}

## join arrays for sort
for ($i = 0; $i <= $#netlogicalid; $i++) {
  $info[$i] = $ifname[$i] . "|" . $username[$i] . "|" . $netlogicalid[$i];
}

## sort according to the int value of the third field (see above ^^^^^)

sub mysort { int((split(/\|/, $a))[2]) <=> int((split(/\|/, $b))[2]); }
@blah = sort mysort @info;

## put back, now in order
$i = 0;
foreach (@blah) {
# print "DEBUG: <$blah[$i]>\n";
  ($ifname[$i],$username[$i],$netlogicalid[$i]) = split(/\|/, $blah[$i]);
  $i++;
}

print <<EOF;
Port User            Host/Inet/Dest   Type    Dir Status         Start   Idle
---- --------------- ---------------- ------- --- ------------- ------ ------
EOF

while (scalar @ifname) {
  $intslot = shift @ifname;
  $uname = shift @username;
  $addr = shift @ipaddr;
  if ($uname ne "") {
  $port = (split /:/, (split /\//, $intslot)[0])[1] . (split /:/, (split /\//, $intslot)[1])[1];

  printf("%-6.6s%-16.16s%-17.17s%-23.23s%s\n","S$port ",$uname,$addr,"Netwrk  In  ESTABLISHED","       99     99");
  }
}

exit(0);

### ===============================================================

sub snmpgettable{
  my($host,$community,$var) = @_;
  my($next_oid,$enoid,$orig_oid,
     $response, $bindings, $binding, $value, $inoid,$outoid,
     $upoid,$oid,@table,$tempo);
  die "Unknown SNMP var $var\n"
    unless $snmpget::OIDS{$var};
 
  $orig_oid = encode_oid(split /\./, $snmpget::OIDS{$var});
  $enoid=$orig_oid;
  srand();
  my $session = SNMP_Session->open ($host ,
                                 $community,
                                 161);
  for(;;)  {
    if ($session->getnext_request_response(($enoid))) {
      $response = $session->pdu_buffer;
      ($bindings) = $session->decode_get_response ($response);
      ($binding,$bindings) = decode_sequence ($bindings);
      ($next_oid,$value) = decode_by_template ($binding, "%O%@");
      # quit once we are outside the table
      last unless BER::encoded_oid_prefix_p($orig_oid,$next_oid);
      $tempo = pretty_print($value);
      #print "$var: '$tempo'\n";
      $tempo=~s/\t/ /g;
      $tempo=~s/\n/ /g;
      $tempo=~s/^\s+//;
      $tempo=~s/\s+$//;
      push @table, $tempo;
    
    } else {
      die "No answer from $ARGV[0]\n";
    }
    $enoid=$next_oid;
  }
  $session->close ();   
  return (@table);
}