A VMS Perl script to monitor a cluster and send e-mail out when the cluster changes, either by adding or removing nodes
perl nodewatch.pl
or
@nodewatch
Nodewatch is a small (relatively speaking) perl script that uses VMS::System to keep track of what nodes are in the cluster. It just loops, over and over again with a configurable wait time, checking this list. If a node appears or disappears, e-mail is sent.
Most of this script is actually taken up by the smail subroutine, which does the actual mail sending. It's suitable for cut-n-pasting if you want it. The only real reason it's in the script rather than in a module is so the code will be standalone.
VMS::System, Perl 5.004 or higher built with sockets