#!/usr/pkg/bin/perl
# By Dave Huang <khym@azeotrope.org>
# public domain

# path to snmpget - part of net-snmp package: http://net-snmp.sourceforge.net
$snmpget = "/usr/pkg/bin/snmpget";

# SNMP community name
$commname = "public";

$addr = $ARGV[0];
$offset = $ARGV[1];

# Get enterprises.atmel.atmelmib.atmelSys.EthStatisticsGRP.EthRxStatistics.0
$result = `$snmpget -Oq $addr $commname enterprises.410.1.1.7.1.0`;
$result =~ s/^.*"//;
$result =~ y/"\n //d;
@rxvals = unpack("V22", pack("H176", $result));

# Get enterprises.atmel.atmelmib.atmelSys.EthStatisticsGRP.EthTxStatistics.0
$result = `$snmpget -Oq $addr $commname enterprises.410.1.1.7.2.0`;
$result =~ s/^.*"//;
$result =~ y/"\n //d;
@txvals = unpack("V22", pack("H176", $result));

print "$rxvals[$offset]\n$txvals[$offset]\nunknown uptime\nethernet\n";