From: hadaq@CountingHouse <hadaq@CountingHouse>
Date: Tue, 2 Jul 2013 14:47:08 +0000 (+0200)
Subject: added new servers to hmon_cpu
X-Git-Tag: pre2018~134
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=9da2fd67d2bb74209a2523246e98e2b2bcc97c7a;p=hadesdaq.git

added new servers to hmon_cpu
---

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<table class=\"colorfields\">\n<tr><th>";
@@ -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<tr><th class=\"title\">$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
+  }