added new servers to hmon_cpu

diff --git a/hmon/permanent/hmon_cpu.pl b/hmon/permanent/hmon_cpu.pl
index 919e6d95391a19bef1ef4a28e9b6bd336fa22f5c..dfb3037bb47661144f6f8398c4a7da87c1f6f431 100755 (executable)
--- 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
+  }