">
CPU 5 min, 1 min, 5 sec - <% $queryvar{'ipaddr'} %>
<% my($filename, $name, @x,$str,$i,$val,@descr); $str = ""; @descr = &realtime($queryvar{'ipaddr'}, "CiscoCPU5min", 0); @x = &realtime($queryvar{'ipaddr'}, "CiscoCPU5min"); foreach $i (0..$#x) { $str .= ""; } $str .= "
"; $str .= &ninometer( "audimeter" , $x[$i], &mega( $x[$i] ), 100 ); $str .= "$descr[$i]"; $str .= "
"; return $str; %>
<% my($filename, $name, @x,$str,$i,$val,@descr); $str = ""; @descr = &realtime($queryvar{'ipaddr'}, "CiscoCPU1min", 0); @x = &realtime($queryvar{'ipaddr'}, "CiscoCPU1min"); foreach $i (0..$#x) { $str .= ""; } $str .= "
"; $str .= &ninometer( "audimeter" , $x[$i], &mega( $x[$i] ), 100 ); $str .= "$descr[$i]"; $str .= "
"; return $str; %>
<% my($filename, $name, @x,$str,$i,$val,@descr); $str = ""; @descr = &realtime($queryvar{'ipaddr'}, "CiscoCPU5sec", 0); @x = &realtime($queryvar{'ipaddr'}, "CiscoCPU5sec"); foreach $i (0..$#x) { $str .= ""; } $str .= "
"; $str .= &ninometer( "audimeter" , $x[$i], &mega( $x[$i] ), 100 ); $str .= "$descr[$i]"; $str .= "
"; return $str; %>

Memory
<% my($filename, $name, @x,$str,$i,$val,@descr,@test); $str = ""; @descr = &realtime($queryvar{'ipaddr'}, "CiscoMem", 0); @x = &realtime($queryvar{'ipaddr'}, "CiscoMem"); foreach $i (0..$#x) { $str .= ""; } $str .= "
"; $str .= &ninometer( "vumeter" , $x[$i], &mega( $x[$i] ), 100 ); $str .= "$descr[$i]"; $str .= "
"; return $str; %>