diff options
| author | pbuetow <puppet@mx.buetow.org> | 2012-07-04 17:20:31 +0200 |
|---|---|---|
| committer | pbuetow <puppet@mx.buetow.org> | 2012-07-04 17:20:31 +0200 |
| commit | 75eb9dceec5ead9e64758e947e952192fd3582e5 (patch) | |
| tree | d9a403eb2f32fb8642fd990a9454160e202aba82 /lib/Loadbars/Main.pm | |
| parent | 7b17c31ead4d39b97db265969df1a4cd3e8799f2 (diff) | |
add new hotkeys for increase and decrease net interface speed reference value
Diffstat (limited to 'lib/Loadbars/Main.pm')
| -rw-r--r-- | lib/Loadbars/Main.pm | 22 |
1 files changed, 16 insertions, 6 deletions
diff --git a/lib/Loadbars/Main.pm b/lib/Loadbars/Main.pm index 4a7a8ae..06c0657 100644 --- a/lib/Loadbars/Main.pm +++ b/lib/Loadbars/Main.pm @@ -521,6 +521,16 @@ sub loop ($@) { display_info "Set sample cpu average $C{cpuaverage}"; } + elsif ( $key_name eq 's' ) { + $C{factor} += 0.1; + display_info "Set scale factor to $C{factor}"; + } + elsif ( $key_name eq 'x' or $key_name eq 'z' ) { + $C{factor} -= 0.1; + display_info "Set scale factor to $C{factor}"; + + } + elsif ( $key_name eq 'd' ) { ++$C{netaverage}; display_info "Set sample net average $C{netaverage}"; @@ -532,13 +542,13 @@ sub loop ($@) { display_info "Set sample net average $C{netaverage}"; } - elsif ( $key_name eq 's' ) { - $C{factor} += 0.1; - display_info "Set scale factor to $C{factor}"; + elsif ( $key_name eq 'f' ) { + $net_max_bytes *= 2; + display_info "Set net interface speed reference to " . ($net_max_bytes / $I{bytes_mbit}) . 'mbit/s'; } - elsif ( $key_name eq 'x' or $key_name eq 'z' ) { - $C{factor} -= 0.1; - display_info "Set scale factor to $C{factor}"; + elsif ( $key_name eq 'v') { + $net_max_bytes = int($net_max_bytes / 2); + display_info "Set net interface speed reference to " . ($net_max_bytes / $I{bytes_mbit}) . 'mbit/s'; } elsif ( $key_name eq 'left' ) { |