From 9da2fd67d2bb74209a2523246e98e2b2bcc97c7a Mon Sep 17 00:00:00 2001 From: "hadaq@CountingHouse" Date: Tue, 2 Jul 2013 16:47:08 +0200 Subject: [PATCH] added new servers to hmon_cpu --- hmon/permanent/hmon_cpu.pl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/hmon/permanent/hmon_cpu.pl b/hmon/permanent/hmon_cpu.pl index 919e6d9..dfb3037 100755 --- a/hmon/permanent/hmon_cpu.pl +++ b/hmon/permanent/hmon_cpu.pl @@ -30,7 +30,8 @@ my $fqa = QA::OpenQAFile(); # irq: servicing interrupts # softirq: servicing softirqs -my @srv = qw(lxhadeb01 lxhadeb02 lxhadeb03 lxhadeb04 lxhadeb05 lxhadeb06 lxhadesdaq hadesdaq01 hadesdaq02 hades30 hades31 hades33); +#my @srv = qw(lxhadeb01 lxhadeb02 lxhadeb03 lxhadeb04 lxhadeb05 lxhadeb06 lxhadesdaq hadesdaq01 hadesdaq02 hades30 hades31 hades33); +my @srv = qw(lxhadeb02 lxhadeb03 lxhadeb04 lxhadeb05 lxhadeb06 lxhadeb07 lxhadesdaq hadesdaq01 hadesdaq02 hades30 hades31 hades33); my $template .= "\n\n
"; @@ -64,11 +65,11 @@ while(1) { my $maxstr = ""; my $busystr = ""; if (defined $laststore->{0}->{0}->{'idle'}) { - $str = Hmon::MakeTitle(7,7,"Server CPU Usage"); + $str = Hmon::MakeTitle(7,8,"Server CPU Usage"); $str .= $template; for(my $s = 0; $s < scalar @srv; $s++) { $str .= "\n
$srv[$s]"; - for(my $c = 0; $c < 32; $c++) { + for(my $c = 0; $c < 64; $c++) { if (defined $laststore->{$s}->{$c}->{'idle'} && defined $store->{$s}->{$c}->{'idle'}) { my $this = $store->{$s}->{$c}; my $last = $laststore->{$s}->{$c}; @@ -111,4 +112,4 @@ while(1) { sleep 1; } - } \ No newline at end of file + } -- 2.43.0