#!/usr/bin/perl
#Auswertung WAP11 ver 2.2

$addr =$ARGV[0];
$offset = $ARGV[1];
@inpf3 = `rm -f $addr.htm`;
@inpf2 = `wget --http-user=admin --http-passwd=admin --tries=2 --output-document=$addr.htm -q $addr/Status.htm`;

open (FILE, "<$addr.htm");

@inpf = <FILE>;

$rxvals = 64*@inpf[80];
$txvals = 64*@inpf[95];

print "$rxvals\r\n$txvals\r\nunknown uptime\nethernet\n";