#!/usr/bin/perl -I/opt/SUNWstade/lib

# This is a test program that will verify the Grid.idx, GridCodes and the
# X.grid file entries for proper format.  The expectation is to see the
# information entered in the X.grid file displayed in the output (PC, RA).
# This program is primarily for developing new grid entries for new events
# offline before committing the changes.
#
# The useage would be to enter the "type" line from the event as $ARGV[0]
#  ./test_grid dsp.LogEvent.micpc_unmounted



use Data::Dumper;
use State;
use System;
use Grid;

Debug->level(3);

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

my($renv) = PDM::ConfigFile->read();

System->set_renv($renv);

$ev_code = $ARGV[0];

my($type, $rest) = split(/\./, $ev_code, 2);


print "testing event '$ev_code'\n";

$ev       = Grid->getInfo($type, $comp, {code => $ev_code});

print "PRINT GRID DETAILS: \n";
print Dumper($ev);

