Nodewatch

Synopsis

A VMS Perl script to monitor a cluster and send e-mail out when the cluster changes, either by adding or removing nodes

Usage

perl nodewatch.pl

or

@nodewatch

Description

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.

Author

Dan Sugalski

Requirements

VMS::System, Perl 5.004 or higher built with sockets


Last Updated: 23-November-1998
Questions or comments?
Write the webmaster