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

$file = $ARGV[0];
if (!$file) {
   print "Usage readTopo <hostname.domain> \n";
   exit;
}

System->set_rasport("7654");
System->set_home(System->home_dir());

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


TO->clearTopo($file);
$to = TO->readTopo($file,1);

my $err = $to->errorsHash();

foreach my $e (keys %$err) {
  print "$e = $err->{$e}\n";
}

print "readTopo done!\n";
