<%
my($filename, $name, @x,$str,$i,$val,@descr,$max,$p);
$max = 1;
$str = "";
@descr = &realtime($queryvar{'ipaddr'}, "IfOctets", 0);
@x = &realtime($queryvar{'ipaddr'}, "IfOctets");
foreach $i (0..$#x)
{
$max = ( $x[$i] > $max ) ? $x[$i] : $max;
}
$p = 1;
while( $p < $max )
{
$p *= 10;
}
$max = $p;
$max = ( $max == 0 ) ? 1 : $max;
foreach $i (0..$#x)
{
$val = "";
$val .= &mega( $x[$i] );
$val .= "Bit/s ";
$p = 100 * $x[$i] / $max;
$str .= " | ";
$str .= "$descr[$i]";
$str .= " | ";
$str .= &voltmeter( "bluebar.jpg", $p, $val, 200,20 );
$str .= " | ";
}
$str .= "
";
return $str;
%>
|