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


#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);

$master  = Util->findMaster;

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

System->set_renv($renv);
System->set_rasport($PORT);

my ($host) = $renv->{hostname};

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

my ($to2);

my ($D) =  System->get_home() . "/DATA/topo";



# open the "golden" or current saved snapshot
if (open(O, "$D/$host")) 
{
    @lines = <O>; close(O);
    eval "@lines";
    if ($VAR1) 
    {
      $to2 =  $VAR1;
    }
  }

my $diff = TO->diff($to2, $to, 2);

open STDIN; open STDOUT; open STDERR;


foreach my $l (@$diff){
  print "$l->[2]\n\n";
}

Util->dump($diff, "/debug/diffs");

