NAME
SystemManagement::GSP - Perl extension for GSP remote system management
SYNOPSIS
use SystemManagement::GSP;
my $manage=SystemManagement::GSP->new( host => 'hostname' );
my $rc = $manage->is_powered_on();
if (!defined($rc)) {
die $manage->errmsg();
}
elsif ($rc==0) {
$manage->power_on();
}
else {
$manage->power_off();
}
DESCRIPTION
SystemManagement::GSP is used to control GSP-based telnet interfaces found on Hewlett-Packard Management Processors. It can be used to control system power on the attached system.
USAGE
- $manage = SystemManagement::GSP->new( host => 'hostname' )
-
Creates the management object. Valid parameters are:
host - IP or hostname to connect to (required) user - User to authenticate as (default: "Admin") password - Password to authenticate with (default: "Admin") timeout - Number of seconds to wait while connecting (default: 5) debug - Whether or not to report debugging info (default: 0) port - Port to connect to (default: "telnet(23)")
- $manage->errmsg()
-
Reports any textual error messages from a previous function call that failed with an "undef" value.
- $manage->establish_session()
-
Performs connection establishment, and returns "undef" if the connection fails. This is called automatically by any function that requires a session be established.
- $manage->power_on()
-
Returns "undef" on error, or "1" if power was turned on (or if power was already on).
- $manage->power_off()
-
Returns "undef" on error, or "1" if power was turned off (or if power was already off).
- $manage->power_cycle()
-
Returns "undef" on error, or "1" if power was cycled. Power can only be cycled if power is on to start with.
- $manage->is_powered_on()
-
Returns "undef" on error, or the power state of the system.
EXPORT
None by default.
SEE ALSO
PowerEdge::Rac
SystemManagement::ASMA
AUTHOR
Kees Cook, OSDL <kees@osdl.org>
COPYRIGHT AND LICENSE
Copyright (C) 2004 by Kees Cook, OSDL <kees@osdl.org>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.1 or, at your option, any later version of Perl 5 you may have available.