From 75eb9dceec5ead9e64758e947e952192fd3582e5 Mon Sep 17 00:00:00 2001 From: pbuetow Date: Wed, 4 Jul 2012 17:20:31 +0200 Subject: add new hotkeys for increase and decrease net interface speed reference value --- lib/Loadbars/Main.pm | 22 ++++++++++++++++------ 1 file changed, 16 insertions(+), 6 deletions(-) (limited to 'lib/Loadbars/Main.pm') 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' ) { -- cgit v1.2.3