#!/opt/SUNWstade/bin/perl -I/opt/SUNWstade/lib
use Debug;
use PDM::ConfigFile;
use TO;
use System;
use Util;

# sendNewTopo
# sendNewTopo master_loc

$master = $ARGV[0]; # do not use this, may fail on sp on private nets.


close STDIN; close STDOUT; close STDERR;
Debug->level(2);

$local_p = $INC[0];
my($ix)  = rindex($local_p, "/");
$HOME    = substr($local_p,0,$ix);
$PORT    = System->getConfigPort($HOME);


$PIDfile = "$HOME/DATA/pid";

$wait = 0;

$rc = Util->waitForPID($PIDfile, 10 * 60);

System->set_home($HOME);
System->set_rasport($PORT);
$SIG{CHLD} = 'IGNORE';

$master  = Util->findMaster;

PDM::ConfigFile->configFromMaster(); # get latest config from master

my($renv, $devs, $hosts,$notifs) = PDM::ConfigFile->read();

System->set_renv($renv);

TO->clearTopo();
eval {
  $to = TO->readTopo();
};


if ($master) { # send to master
   $to->push($master, 1);
}
