#!/usr/bin/perl -I/opt/SUNWrasag21/lib
use Ilist;
use Message;
use Util;
use Util::Http;
use CIM::Tree;

if (!$ARGV[0]) {
   print "Usage: c2s <toC file>\n";
   exit;
}

$file = $ARGV[0];
if ($file !~ /toc/) {
  $file .= ".toc";
}
open(O, $file);
@a = <O>; close(O);
$toC=  join("", @a);

$ed = Message->fromC($toC);
print $ed->toString;



