#!/opt/SUNWstade/bin/perl -I/opt/SUNWstade/lib
use System;
use PDM;
use Debug;
use Provider::NetConnect;

System->set_home("/opt/SUNWstade");
Debug->level(2);
my($renv, $dev, $host,$notifs) = PDM::ConfigFile->read();
System->set_renv($renv);


$e1 = &read_event("edoc.1");
$e2 = &read_event("edoc.2");

PDM->setMessages([$e1, $e2]);

Provider::NetConnect->RUN();


sub read_event {
  my($f) = @_;
  my $VAR1;
  open(O, "/opt/SUNWstade/sbin/$f");
  @a = <O>; close(O);
  eval "@a";
  return $VAR1;
}
