JAM: added etraxp nodes for slow control. under dev

diff --git a/icinga/objects/daq2icinga.pl b/icinga/objects/daq2icinga.pl
index e61c4768ff030d25109ca18dd4155e76493bcbba..1f18baf00b8856ad541ba03bcd9561e7b5615f93 100755 (executable)
--- a/icinga/objects/daq2icinga.pl
+++ b/icinga/objects/daq2icinga.pl
@@ -115,6 +115,44 @@ foreach my $component(@subsystems)
        }
 
 }
+# add the slow control etrax nodes (fixed)
+
+print OUTFILE "\n###############################################################################\n";
+print OUTFILE "# Hosts for slow control:\n";
+print OUTFILE "###############################################################################\n";
+
+my @scsnodes;
+my $i;
+for ($i=1;$i<=50;$i++)
+{
+       my $index= 200+$i;
+       my $scnode=sprintf("etraxp%d",$index);
+       push(@scsnodes, $scnode);
+       push(@totalnodes, $scnode);
+       print OUTFILE "\n\# HOST DEFINITION $scnode \n";
+       print OUTFILE "define host{\n";
+       print      OUTFILE "     use         etrax\n";
+       my $hdef = sprintf("     host_name   %s \; assigned to slow control system\n",$scnode);
+       print OUTFILE $hdef;
+       my $adef = sprintf("     alias   %s_scs \n",$scnode);
+       print OUTFILE $adef;
+       print OUTFILE "}\n"; 
+}
+
+# define hostgroup of scs nodes:
+print OUTFILE "\n\n###############################################################################\n";
+print OUTFILE "# Hostgroup definition for all nodes\n";
+print OUTFILE "###############################################################################\n";
+print OUTFILE "define hostgroup{\n";
+print OUTFILE "     hostgroup_name  scs \n";
+print OUTFILE "     alias           etrax_scs\n";
+my $scsmembers = join(",", @scsnodes);
+print OUTFILE "     members $scsmembers \n";
+print OUTFILE "}\n"; 
+
+push(@totalsystems, "scs");
+
+
 # define hostgroup of all components:
 print OUTFILE "\n\n###############################################################################\n";
 print OUTFILE "# Hostgroup definition for all nodes\n";