Title[wap11.eth0]: Wap11<BR>
MaxBytes[wap11.eth0]: 1250000<BR>
Target[wap11.eth0]: `/usr/local/mrtg-2/bin/wap11.pl wap11 public`<BR>
PageTop[wap11.eth0]:<BR>
 &lt;H1&gt;Wap11<BR>
 &lt;/H1&gt;<BR>
 &lt;TABLE&gt;<BR>
   &lt;TR&gt;&lt;TD&gt;System:&lt;/TD&gt;&lt;TD&gt;wap11.teuse.net&lt;/TD&gt;&lt;/TR&gt;<BR>
   &lt;TR&gt;&lt;TD&gt;Interface:&lt;/TD&gt;&lt;TD&gt;wireless&lt;/TD&gt;&lt;/TR&gt;<BR>
   &lt;TR&gt;&lt;TD&gt;IP:&lt;/TD&gt;&lt;TD&gt;wap11.teuse.net &lt;/TD&gt;&lt;/TR&gt;<BR>
  &lt;/TABLE&gt;<BR>
<P>
<HR>
<PRE>
#!/usr/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/bin/snmpget";

# SNMP community name

if (! $ARGV[0] ){
        print "useage: wap11.pl <ipadrress> <community>\n";
        exit;
}
if  (! $ARGV[1] ){
        print "useage: wap11.pl <ipadrress> <community>\n";
        exit;
}



$addr = $ARGV[0];
$commname = $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[0]\n$txvals[0]\nunknown uptime\n$addr\n";