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 | |
| parent | 7b17c31ead4d39b97db265969df1a4cd3e8799f2 (diff) | |
add new hotkeys for increase and decrease net interface speed reference value
| -rw-r--r-- | lib/Loadbars/HelpDispatch.pm | 18 | ||||
| -rw-r--r-- | lib/Loadbars/Main.pm | 22 |
2 files changed, 31 insertions, 9 deletions
diff --git a/lib/Loadbars/HelpDispatch.pm b/lib/Loadbars/HelpDispatch.pm index 19cdc42..c92b6ed 100644 --- a/lib/Loadbars/HelpDispatch.pm +++ b/lib/Loadbars/HelpDispatch.pm @@ -110,9 +110,21 @@ END mode => 6, type => 's' }, + netlink_hot_up => { + menupos => 9, + cmd => 'f', + help => 'Doubles net interface link speed reference', + mode => 1 + }, + netlink_hot_dn => { + menupos => 10, + cmd => 'v', + help => 'Halfs net interface link speed reference', + mode => 1 + }, barwidth => { - menupos => 9, + menupos => 11, help => 'Set bar width', mode => 6, type => 'i' @@ -176,13 +188,13 @@ END type => 's' }, factor_hot_up => { - menupos => 8, + menupos => 12, cmd => 's', help => 'Increases graph scale factor by 0.1', mode => 1 }, factor_hot_dn => { - menupos => 9, + menupos => 13, cmd => 'x', help => 'Decreases graph scale factor by 0.1', mode => 1 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' ) { |