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

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

System->set_home("/opt/SUNWstade");

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

print $to->toC();

print stderr "topo2c done!\n";
