#!/usr/bin/perl

#--------------
#  Learn the hostname of the clusterExpress master
#  (we'll cheat and pull it out of $SGE_ROOT/$CELL/common/act_qmaster ... )
#--------------
$MASTER_HOST = `cat /usr/local/unicluster/sge/default/common/act_qmaster`;
chomp($MASTER_HOST);
print "Debug: master host should be $MASTER_HOST\n";


#--------------
#  Edit Univa gmond.conf to add a 2nd config file reference
#--------------

open(FH,">>/usr/local/unicluster/etc/gmond.conf") or die "Can't write to gmond.conf, perl says $!\n";
print FH <<EOF;

#### Post ClusterExpress Install - Convert Ganglia reporting to Unicast ... ###
include(\"/usr/local/unicluster/etc/gmond-unicast-config.conf\")

EOF
close(FH);


#--------------
#  Create the 2nd gmond.conf file that Ganglia will use
#--------------

open(FH,">/usr/local/unicluster/etc//gmond-unicast-config.conf") or die "Can't write to gmond.conf, perl says $!\n";
print FH <<EOF;

/* This is suplemental config data for ganglia to explicitly unicast status
   data to our master via direct UDP instead of the default multicast broadcasts ...
*/

host {
  location = "Amazon EC2"
  }


udp_send_channel {
  host = $MASTER_HOST
  port = 8649
}

udp_recv_channel {
  port = 8649
  family = inet4
}



EOF
close(FH)