diff options
Diffstat (limited to 'Loadbars/Main.pm')
| -rw-r--r-- | Loadbars/Main.pm | 329 |
1 files changed, 0 insertions, 329 deletions
diff --git a/Loadbars/Main.pm b/Loadbars/Main.pm index 420c265..b24a4a8 100644 --- a/Loadbars/Main.pm +++ b/Loadbars/Main.pm @@ -828,335 +828,6 @@ sub main_loop ($@) { exit Loadbars::Constants->SUCCESS; } -sub dispatch_table () { - my $hosts = ''; - - my $textdesc = <<END; -CPU stuff: - st = Steal in % [see man proc] (extended) - Color: Red - gt = Guest in % [see man proc] (extended) - Color: Red - sr = Soft IRQ usage in % (extended) - Color: White - ir = IRQ usage in % (extended) - Color: White - io = IOwait cpu sage in % - Color: Purple - id = Idle cpu usage in % (extended) - Color: Black - ni = Nice cpu usage in % - Color: Green - us = User cpu usage in % - Color: Yellow, dark yellow if to>50%, orange if to>50% - sy = System cpu sage in % - Blue, lighter blue if >30% - to = Total CPU usage, which is (100% - id) - pk = Max us+sy peak of last avg. samples (extended) - avg = System load average; desc. order: 1, 5 and 15 min. avg. - 1px horizontal line: Maximum sy+us+io of last 'avg' samples (extended) - Extended means: text display only if extended mode is turned on -Memory stuff: - Ram: System ram usage in % - Color: Dark grey - Swp: System swap usage in % - Color: Grey -Config file support: - Loadbars tries to read ~/.loadbarsrc and it's possible to configure any - option you find in --help but without leading '--'. For comments just use - the '#' sign. Sample config: - showcores=1 # Always show cores on startup - showtext=0 # Always don't display text on startup - extended=1 # Always use extended mode on startup - will always show all CPU cores in extended mode but no text display. -Examples: - loadbars --extended 1 --showcores 1 --height 300 --hosts localhost - loadbars --hosts localhost,server1.example.com,server2.example.com - loadbars --cluster foocluster (foocluster is in /etc/clusters [ClusterSSH]) -END - - # mode 1: Option is shown in the online help menu (stdout not sdl) - # mode 2: Option is shown in the 'usage' screen from the command line - # mode 4: Option is used to generate the GetOptions parameters for Getopt::Long - # Combinations: Like chmod(1) - - my %d = ( - average => { - menupos => 3, - help => 'Num of samples for avg. (more fluent animations)', - mode => 6, - type => 'i' - }, - average_hot_up => { - menupos => 4, - cmd => 'a', - help => 'Increases number of samples for calculating avg. by 1', - mode => 1 - }, - average_hot_dn => { - menupos => 5, - cmd => 'y', - help => 'Decreases number of samples for calculating avg. by 1', - mode => 1 - }, - - barwidth => { - menupos => 5, - help => 'Set bar width', - mode => 6, - type => 'i' - }, - windowwidth_hot_up => { - menupos => 90, - help => 'Increase window width by 100px', - cmd => 'right', - mode => 1, - }, - windowwidth_hot_dn => { - menupos => 91, - help => 'Decrease window width by 100px', - cmd => 'left', - mode => 1, - }, - windowheight_hot_up => { - menupos => 92, - help => 'Increase window height by 100px', - cmd => 'down', - mode => 1, - }, - windowheight_hot_dn => { - menupos => 93, - help => 'Decrease window height by 100px', - cmd => 'up', - mode => 1, - }, - - cluster => { - menupos => 6, - help => 'Cluster name from /etc/clusters', - var => \$C{cluster}, - mode => 6, - type => 's' - }, - configuration => { - menupos => 6, - cmd => 'c', - help => 'Show current configuration', - mode => 4 - }, - - extended => { - menupos => 6, - help => 'Toggle extended display (0 or 1)', - mode => 7, - type => 'i' - }, - extended_hot => { - menupos => 23, - cmd => 'e', - help => 'Toggle extended mode', - mode => 1 - }, - - factor => { - menupos => 7, - help => 'Set graph scale factor (1.0 means 100%)', - mode => 6, - type => 's' - }, - factor_hot_up => { - menupos => 8, - cmd => 's', - help => 'Increases graph scale factor by 0.1', - mode => 1 - }, - factor_hot_dn => { - menupos => 9, - cmd => 'x', - help => 'Decreases graph scale factor by 0.1', - mode => 1 - }, - - height => { - menupos => 10, - help => 'Set windows height', - mode => 6, - type => 'i' - }, - - help_hot => { - menupos => 11, - cmd => 'h', - help => 'Prints this help screen', - mode => 1 - }, - - hosts => { - menupos => 12, - help => - 'Comma sep. list of hosts; optional: user@ in front to each host', - var => \$hosts, - mode => 6, - type => 's' - }, - - maxwidth => { - menupos => 16, - help => 'Set max width', - mode => 6, - type => 'i' - }, - - quit_hot => { menupos => 16, cmd => 'q', help => 'Quits', mode => 1 }, - writeconfig_hot => { menupos => 16, cmd => 'w', help => 'Write config to config file', mode => 1 }, - - samples => { - menupos => 17, - help => 'Set number of samples until ssh reconnects', - mode => 6, - type => 'i' - }, - - showcores => { - menupos => 17, - help => 'Toggle core display (0 or 1)', - mode => 7, - type => 'i' - }, - showcores_hot => - { menupos => 17, cmd => '1', help => 'Toggle show cores', mode => 1 }, - - showmem => { - menupos => 17, - help => 'Toggle mem display (0 or 1)', - mode => 7, - type => 'i' - }, - showmem_hot => - { menupos => 17, cmd => 'm', help => 'Toggle show mem', mode => 1 }, - - showtexthost => { - menupos => 18, - help => 'Toggle hostname/num text display (0 or 1)', - mode => 7, - type => 'i' - }, - showtexthost_hot => { - menupos => 18, - cmd => 'u', - help => 'Toggle hostname/num text display', - mode => 1 - }, - - showtext => { - menupos => 19, - help => 'Toggle text display (0 or 1)', - mode => 7, - type => 'i' - }, - showtext_hot => { - menupos => 19, - cmd => 't', - help => 'Toggle text display', - mode => 1 - }, - - sshopts => - { menupos => 20, help => 'Set SSH options', mode => 6, type => 's' }, - ); - - my %d_by_short = map { - $d{$_}{cmd} => $d{$_} - - } grep { - exists $d{$_}{cmd} - - } keys %d; - - my $closure = sub ($;$) { - my ( $arg, @rest ) = @_; - - if ( $arg eq 'command' ) { - my ( $cmd, @args ) = @rest; - - my $cb = $d{$cmd}; - $cb = $d_by_short{$cmd} unless defined $cb; - - unless ( defined $cb ) { - system $cmd; - return 0; - } - - if ( length $cmd == 1 ) { - for my $key ( grep { exists $d{$_}{cmd} } keys %d ) { - do { $cmd = $key; last } if $d{$key}{cmd} eq $cmd; - } - } - - } - elsif ( $arg eq 'hotkeys' ) { - $textdesc . "Hotkeys:\n" . ( - join "\n", - map { - "$_\t- $d_by_short{$_}{help}" - - } grep { - $d_by_short{$_}{mode} & 1 and exists $d_by_short{$_}{help}; - - } sort { $d_by_short{$a}{menupos} <=> $d_by_short{$b}{menupos} } - sort keys %d_by_short - ); - - } - elsif ( $arg eq 'usage' ) { - $textdesc . ( - join "\n", - map { - if ( $_ eq 'help' ) - { - "--$_\t\t- $d{$_}{help}"; - } - else { - "--$_ <ARG>\t- $d{$_}{help}"; - } - - } grep { - $d{$_}{mode} & 2 - and exists $d{$_}{help} - - } sort { $d{$a}{menupos} <=> $d{$b}{menupos} } sort keys %d - ); - - } - elsif ( $arg eq 'options' ) { - map { - "$_=" - . $d{$_}{type} => - ( defined $d{$_}{var} ? $d{$_}{var} : \$C{$_} ); - - } grep { - $d{$_}{mode} & 4 and exists $d{$_}{type}; - - } sort keys %d; - } - }; - - $d{configuration}{cb} = sub { - say sort map { - "$_->[0] = $_->[1]" - - } grep { - defined $_->[1] - - } map { - [ $_ => exists $d{$_}{var} ? ${ $d{$_}{var} } : $C{$_} ] - - } keys %d; - }; - - return ( \$hosts, $closure ); -} - # Recursuve function sub get_cluster_hosts ($;$); |