NAME

IBM::StorageSystem::Health - Class for operations with a IBM StorageSystem logical health stati

VERSION

Version 0.01

SYNOPSIS

IBM::StorageSystem::Health - Class for operations with a IBM StorageSystem logical health stati

        use IBM::StorageSystem;
        
        my $ibm = IBM::StorageSystem->new(      user            => 'admin',
                                        host            => 'my-v7000',
                                        key_path        => '/path/to/my/.ssh/private_key'
                                ) or die "Couldn't create object! $!\n";

	# Simple one-liner to print the sensor status and value for any error conditions.
	map { print join ' -> ', ( $_->sensor, $_->value."\n" ) } 
		grep { $_->status =~ /ERROR/ } $ibm->get_healths;

	# e.g.
	# CLUSTER -> Alert found in component cluster
	# MDISK -> Alert found in component mdisk
	# NODE -> Alert found in component node

METHODS

host

Returns the host to which the health status applies - this may either be an individual storage, mangement, interface or multi-role node, or may be a cluster level status.

sensor

Returns the system or component sensor to which the health status applies.

status

Returns the health sensor status (e.g. OK, ERROR, etc.).

value

Returns the health sensor status description.

AUTHOR

Luke Poskitt, <ltp at cpan.org>

BUGS

Please report any bugs or feature requests to bug-ibm-v7000-health at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=IBM-StorageSystem-Health. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc IBM::StorageSystem::Health

You can also look for information at:

ACKNOWLEDGEMENTS

LICENSE AND COPYRIGHT

Copyright 2013 Luke Poskitt.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.