[Xymon] Perl script to test EMC storage devices in xymon

Betsy,

Here's my first crack at a script to test EMC storage in xymon. I need to expand it to take a list of exceptions to customize disk full alerts for different volumes I think it needs more error checking and a way to check xymon env variables and get them from the client dir if they aren't set. But so far it works.

Comments very welcome. It's my first real perl script. Well done on taking the plunge on developing your own tests!

The lines:

my $REDDOT = '<IMG SRC="/xymon/gifs/red-recent.gif">'; my $YELLOWDOT = '<IMG SRC="/xymon/gifs/yellow-recent.gif">';

should be replaced with:

my $REDDOT = '&red'; my $YELLOWDOT = '&yellow';

Note that the insertion of the appropriate image is done on the xymon server, and should not be hard-coded to a particular image path.

A different approach you can take, is to generate a client message on behalf of your device - it looks like you are already doing the equivalent of [disk] and [uptime] sections, but if the information is accessible and already in a mostly similar format you may be able to fairly easily do [procs], [memory], [cpu], etc. I've done this for some appliances where I can pull some info via SNMP.

Client messages are pretty flexible - if a section isn't there (e.g. [ports]), the server just won't be able to generate a column report on it but otherwise doesn't care. One advantage of this approach is that you can then configure thresholds, etc just as you would for any other client, maintaining centralised test configuration.

You can add your own client message sections like your "nas_rep" test and run a server-side monitor on the client channel. See http://xymonton.org/monitors:check-client

The beauty of the xymon architecture - so many choices...

David.

-- David Baldwin - Senior Systems Administrator (Datacentres + Networks) Information and Communication Technology Services Australian Sports Commission http://ausport.gov.au Tel 02 62147830 Fax 02 62141830 PO Box 176 Belconnen ACT 2616 david.baldwin at ausport.gov.au Leverrier Street Bruce ACT 2617

Keep up to date with what's happening in Australian sport visit http://www.ausport.gov.au

This message is intended for the addressee named and may contain confidential and privileged information. If you are not the intended recipient please note that any form of distribution, copying or use of this communication or the information in it is strictly prohibited and may be unlawful. If you receive this message in error, please delete it and notify the sender.