D-10 SMC Installation and User's Guide
}
}
close(SC);
}
#+
# The other events are just mail...
#-
$subj = "Console $ARGV[0] has Encountered Event $ARGV[1]
(Sequence $ARGV[2])";
open (SC, $ARGV[3]) ||
die "Can not open event context file - $ARGV[3] $!";
while ($l=<SC>) {
push @msg, $l;
}
close(SC);
if ($domail) {
foreach $to (@tolist) {
smtpmail($to, $subj, $whoami, $mf, @msg);
}
}
#
