#!/usr/bin/perl
#
# Petr Simandl, www.simandl.cz
print "Content-type: text/html\n\n";
print "\n";
#nocache!
$porty=`sudo /usr/local/bin/rtl83xx_asus 6a:61:62:00:00:02\@eth0 link-status | grep ^eth | sed 's/://g' | sed 's/eth0\\///g'`;
#print "$porty\n
";
@pole = split("\n",$porty);
#print "@pole\n
";
$pocet=scalar(@pole);
#print "$pocet\n
";
#print "![](../images/logo.png "\\"jablonka.cz\\"")
";
print "";
print "";
for ($i = 0; $i < 24; $i=$i+2)
{
if (index($pole[$i],"LINK")!=-1)
{
print "| $pole[$i] | ";
}
else
{
print "$pole[$i] | ";
}
}
print "
";
for ($i = 1; $i < 25; $i=$i+2)
{
if (index($pole[$i],"LINK")!=-1)
{
print "| $pole[$i] | ";
}
else
{
print "$pole[$i] | ";
}
}
print "
";
print "
";
$adresa = "$ENV{'REMOTE_ADDR'}";
$server = "$ENV{'SERVER_NAME'}";
$date = `date`;
print "
$date\n
";
print "";