#!/opt/bin/perl -I/opt/SUNWrasag/lib

$C = "/opt/SUNWrasag/System/cron_started";
@a = getpwuid($<);
if ($a[0] ne "root") {
  print "\nWarning: Should be running as root! \n";
}
print "\n";

open(O, "/usr/bin/crontab -l|");
while ($l = <O>) {
  print $l if ($l =~ /rasagent/);
}
close(O);
print "\n";

if (-f $C) {
  open(O, $C); $l = <O>; close(O);
  print "Network Storage Agent Cron started on : $l \n";
} else {
  print "Network Storage Agent Crons have not started yet!\n\n";
}
