| 158 |
|
|
| 159 |
|
foreach my $net (sort keys %nets) { |
| 160 |
|
my $name = $stats{"net.$net.interface_name"}; |
| 161 |
< |
# FIXME should be able to discover interface speed |
| 162 |
< |
entry("Network interface $name IO", "net.$net.rx", "net.$net.tx", 100*$mib, "Network IO", "KiB/s", "rx", "tx", 0, $KIBIBYTES); |
| 161 |
> |
my $speed = int($stats{"net.$net.speed"}); |
| 162 |
> |
$speed = 100 if $speed == 0; |
| 163 |
> |
|
| 164 |
> |
# The speed is reported in Mbit/s; we want KiB/s. |
| 165 |
> |
$speed = int(($speed * 1000000) / (8 * $kib)); |
| 166 |
> |
|
| 167 |
> |
entry("Network interface $name IO", "net.$net.rx", "net.$net.tx", $speed, "Network IO", "KiB/s", "rx", "tx", 0, $KIBIBYTES); |
| 168 |
|
} |
| 169 |
|
|
| 170 |
|
if (exists $toplevel{"page"}) { |
| 184 |
|
|
| 185 |
|
if (exists $toplevel{"swap"}) { |
| 186 |
|
my $swapsize = $stats{"swap.total"}; |
| 187 |
< |
entry("Swap usage", "swap.used", undef, $swapsize, "Swap usage", "KiB", "used", undef, 1, $KIBIBYTES); |
| 187 |
> |
if ($swapsize ne "0") { |
| 188 |
> |
entry("Swap usage", "swap.used", undef, $swapsize, "Swap usage", "KiB", "used", undef, 1, $KIBIBYTES); |
| 189 |
> |
} |
| 190 |
|
} |
| 191 |
|
|
| 192 |
|
if (exists $toplevel{"user"}) { |
