From bdfd7c92ecde366f85a512da02ae657133960b1f Mon Sep 17 00:00:00 2001 From: Paul Buetow Date: Sun, 24 Jun 2012 15:24:42 +0200 Subject: introduce net avg hotkeys --- lib/Loadbars/Main.pm | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) (limited to 'lib/Loadbars/Main.pm') diff --git a/lib/Loadbars/Main.pm b/lib/Loadbars/Main.pm index e20f2bd..4dbe9f7 100644 --- a/lib/Loadbars/Main.pm +++ b/lib/Loadbars/Main.pm @@ -482,13 +482,24 @@ sub loop ($@) { } elsif ( $key_name eq 'a' ) { ++$C{cpuaverage}; - display_info "Set sample average to $C{cpuaverage}"; + display_info "Set sample cpu average to $C{cpuaverage}"; } elsif ( $key_name eq 'y' or $key_name eq 'z' ) { my $avg = $C{cpuaverage}; --$avg; $C{cpuaverage} = $avg > 1 ? $avg : 2; - display_info "Set sample cpuaverage to $C{cpuaverage}"; + display_info "Set sample cpu average to $C{cpuaverage}"; + + } + elsif ( $key_name eq 'd' ) { + ++$C{netaverage}; + display_info "Set sample net average to $C{netaverage}"; + } + elsif ( $key_name eq 'c' ) { + my $avg = $C{netaverage}; + --$avg; + $C{netaverage} = $avg > 1 ? $avg : 2; + display_info "Set sample net average to $C{netaverage}"; } elsif ( $key_name eq 's' ) { -- cgit v1.2.3