From 56f291d75dbb60afd7ed85e07a369801b02b09e7 Mon Sep 17 00:00:00 2001
From: hadaq <hadaq>
Date: Wed, 15 Feb 2012 16:40:13 +0000
Subject: [PATCH] JAM: first version of converter script from daq etrax setup
 to icinga config

---
 icinga/objects/daq2icinga.pl | 118 +++++++++++++++++++++++++++++++++++
 1 file changed, 118 insertions(+)
 create mode 100755 icinga/objects/daq2icinga.pl

diff --git a/icinga/objects/daq2icinga.pl b/icinga/objects/daq2icinga.pl
new file mode 100755
index 0000000..f359025
--- /dev/null
+++ b/icinga/objects/daq2icinga.pl
@@ -0,0 +1,118 @@
+#!/usr/bin/perl -w
+
+# dbl2dabc V0.1
+# convert etrax nodes from daq config to icinga hosts config file
+# v0.1: 15-Feb-2012 Joern Adamczewski-Musch, gsi
+#
+
+use English;
+use strict;
+use Getopt::Long;
+use FileHandle;
+use File::Path;
+use File::Basename;
+#use String::Scanf;
+
+
+
+my $daqpath = "/home/hadaq/trbsoft/daq/";
+my $dbfile = "trb.db";
+my @subsystems = ("cts","mdc","start","tof","rpc","shower");
+
+my $icinga_config_file = "./hosts_etrax.cfg";
+open( OUTFILE, '>', $icinga_config_file ) or die "Could not open $icinga_config_file: $! \n";
+
+print "Generating icinga config file $icinga_config_file ...\n";
+
+
+
+# first provide output file with standard header:
+
+print OUTFILE "###############################################################################\n";
+print OUTFILE "# Config File for Monitoring etrax nodes\n";
+print OUTFILE "#\n";
+print OUTFILE "# HOST DEFINITIONS\n";
+print OUTFILE "###############################################################################\n";
+
+
+foreach my $component(@subsystems)
+{
+	my $inputfile="$daqpath$component/$dbfile";
+	print " processing $inputfile ... \n";
+	my @validnodes;	
+	my $rev=open( IFILE, '<', $inputfile);
+	if(!$rev)
+		{
+			# we do not have file, just set empty number with template:
+			print "Could not open $inputfile .\n";
+		}
+	else
+		{
+	
+			my @hosts= <IFILE>;
+			my $numlongs = $#hosts + 1;
+			print "Using $numlongs entries from file $inputfile\n";
+			@hosts = sort @hosts;
+			foreach my $line (@hosts) {			
+				#ignore comments:
+				#- Remove all comments and whitespace:
+				next if ($line =~ /^\s*($|#)/);
+
+				# first define the host
+				
+				my @larray=split(/\s+/,$line);
+				my $nodename=$larray[1];
+				my $cid=$larray[0];
+				print "Found node $nodename of component $cid\n";
+				push(@validnodes, $nodename);
+				print OUTFILE "\n\# HOST DEFINITION $nodename \n";
+				print OUTFILE "define host{\n";
+				print      OUTFILE "     use         etrax\n";
+				my $hdef = sprintf("     host_name   %s \; assigned to %s \n",$nodename,$cid);
+				print OUTFILE $hdef;
+				my $adef = sprintf("     alias   %s_%s \n",$nodename,$cid);
+				print OUTFILE $adef;
+				# to do: figure out ip from hostname
+# 				$ip= sscanf("etraxp%d", $nodename);
+# 				print "Found ip adress $ip \n";
+# 				my fullip=sprintf("address                 192.168.101.%d\n",$ip);			
+# 				print OUTFILE $fullip;
+				print OUTFILE "}\n";
+				}
+			
+			
+			
+			
+			
+			
+			# define hostgroup for this file
+			if($#validnodes>0)
+				{
+					#sort(@validnodes);	
+					print OUTFILE "define hostgroup{\n";
+					print OUTFILE "     hostgroup_name  $component \n";
+					print OUTFILE "     alias           etrax_$component\n";
+					my $members = join(",", @validnodes);
+					print OUTFILE "     members $members \n";
+					print OUTFILE "}\n"; 
+				}
+			close(IFILE) || die "Couldn't close file $inputfile properly";
+		
+	}
+
+}
+# define hostgroup of all components:
+print OUTFILE "define hostgroup{\n";
+			print OUTFILE "     hostgroup_name  etrax \n";
+			print OUTFILE "     alias           all etrax nodes\n";
+			my $groupmembers = join(",", @subsystems);
+			print OUTFILE "     hostgroup_members $groupmembers \n";
+			print OUTFILE "}\n"; 
+
+#provide footer 
+
+
+
+close(OUTFILE) || die "Couldn't close file $icinga_config_file properly";
+
+print "\tdone.\n";
-- 
2.43.0