|
|
| |
Net::ILO(3) |
User Contributed Perl Documentation |
Net::ILO(3) |
Net::ILO - Interface to HP Integrated Lights-Out
use Net::ILO;
my $ilo = Net::ILO->new({
address => '192.168.128.10',
username => 'Administrator',
password => 'secret',
});
# returns 'on' or 'off'
my $power_status = $ilo->power or die $ilo->error;
$ilo->power('off');
$ilo->power('reset');
my $mac01 = $ilo->mac01;
my $mac02 = $ilo->mac02;
my $macilo = $ilo->macilo;
# see METHODS for complete listing
The Net::ILO module is an interface to a subset of Hewlett-Packards Integrated
Lights-Out out-of-band management system. HP's API is XML-based and cumbersome
to use; this module aims to simplify accessing the iLO from Perl while
retaining as much functionality as possible.
Not every iLO function is implemented here, however most common
ones are.
This module is based on the sixth edition of the "HP
Integrated Lights-Out Management Processor Scripting and Command Line
Resource Guide" and has been successfully tested with the following
server types:
DL360/G3
DL360/G4
DL360/G4p
DL360/G5
DL360/G6
DL360/G7 ** see note below
DL380/G3
DL380/G4
DL380/G5
It should work with other server models; feedback (either way) is
much appreciated.
Note: iLO 3 support is in BETA, and still being tested.
Wherever possible, I have mimicked HP's API to maintain consistency. However,
certain names have been changed to reflect a more common usage, for example,
what HP calls 'DNS_NAME' is referred to as 'hostname' by Net::ILO.
Boolean types are represented in the documentation as either 'Yes'
or 'No'. When ILO returns a boolean response, it is shortened to 'Y' or 'N'.
Either form is acceptable when passing a value to your server's iLO.
Power and UID statuses are an exception; their states can be
either 'on' or 'off'.
The interface is extensive and methods have been grouped by function for easier
digestion.
- new()
-
my $ilo = Net::ILO->new({
address => '192.168.131.185',
username => 'Administrator',
password => 'secret',
});
# can also use a hash rather than hashref
my $ilo = Net::ILO->new(
address => '192.168.131.185',
username => 'Administrator',
password => 'secret',
);
Creates a new ILO object, but does not attempt a connection.
Parameters are passed as an anonymous hash or hashref.
Required paramters:
None, however trying to call any method without setting at
least the address, username and password will fail. You may however, set
these later using their associated methods if you want.
Optional parameters:
address - hostname or IP of remote machine's iLO
port - default is 443, you may specify another port here
username - username for logging in to iLO
password - password for logging in to iLO
version - version of iLO API to use, '1', '2' or '3'. versions 1 and 2 are
the same and correspond to iLO and iLO 2 respectively, if version
'3' is used the module will use the new iLO 3 interface. if not
specified the version will be detected automatically (recommended)
debug - debug level (default 0). Increasing this number (to a maximum of 3)
displays more diagnostic information to the screen, such as the
data sent to and received from iLO, the Perl data structure
created from the XML received, etc.
- address()
-
# connect to a different machine
$ilo->address('192.168.131.186');
print $ilo->power;
Returns or sets the address of the remote machine to connect
to.
Please note that a lot of the data gathered (power state
excluded) is cached. Connecting to machine A, calling mac01(),
then connecting to machine B and calling mac01() will return the
same data. It is recommended that you instantiate a new object for each
server you connect to.
- port()
-
# your company's machines use a non-standard SSL port
$ilo->port(447);
Returns or sets the port to connect to the remote server on.
Port 443 is assumed if not specified.
- username()
-
$ilo->username('jane_doe');
# do some non-admin tasks
# power-cycling machine requires elevated privileges
$ilo->username('Administrator');
$ilo->power('reset');
Returns or sets the username to use when logging in.
- password()
-
# try both passwords, we forgot which one was good
$ilo->password('foobar');
# all methods return false on failure
if (!$ilo->power) {
$ilo->password('barfoo');
}
Returns or sets the password to use when logging in.
- error()
-
$ilo->address('127.0.0.1');
my $power_status = $ilo->power or die $ilo->error;
Unable to establish SSL connection with 127.0.0.1:443
[IO::Socket::INET6 configuration failederror:00000000:lib(0):func(0):reason(0)] at /somescript.pl line 14.
Returns the last error reported, if any. All methods return
false when an error is encountered, and
$ilo->error is set to the error message
reported by the remote machine. Note that on success, error() is
not cleared, and so should not be used to determine whether an error
occurred.
Every single method which interacts with the remote machine
may throw an error, so it is very important that you check to ensure the
command succeeded. Error checking has been omitted from most examples
for brevity.
- power()
-
my $power_status = $ilo->power;
if ($power_status eq 'off') {
$ilo->power('on');
}
else {
$ilo->power('reset');
}
Calling this method without parameters will return the current
power state of the machine, either 'on' or 'off'. Passing any of the
following to this method will attempt to change the power state:
on
off
reset
- power_consumption()
-
# something like 340
print $ilo->power_consumption;
Returns the current power consumption in watts.
This method is only available when using iLO 2 and above.
Calling it on an older machine will cause the following error to be
returned:
Method not supported by this iLO version
- hostname
-
# default is ILO0000000000 where 000... is your serial number
my $machine_name = $ilo->hostname;
Returns the hostname of the remote machine. This is also the
name shown when logging in to the iLO interface, in the SSL cert,
etc.
For information on changing the hostname, see the
network() method.
- domain_name()
-
# maybe ilo.somecompany.net
my $domain_name = $ilo->domain_name;
Returns the DNS domain name of the remote machine.
For information on changing the domain name, see the
network() method.
- dhcp_enabled()
-
# either 'Y' or 'N'
print $ilo->dhcp_enabled;
Returns 'Y' if DHCP is enabled for the iLO networking, and 'N'
if a static IP address is in use.
- ip_address()
-
# network dependent, something like 192.168.1.129
print $ilo->ip_address;
Returns the IP address of the iLO processor. Note that the IP
can NOT be changed using this method. For managing network settings, see
network().
- subnet_mask()
-
# network dependent, something like 255.255.255.0
print $ilo->subnet_mask;
Returns the subnet mask of the iLO processor.
- gateway()
-
# you guessed it, network dependent
print $ilo->gateway;
Returns the default gateway in use for the iLO networking.
- network()
-
$ilo->network({
name => 'testbox01',
domain_name => 'mydomain.com',
dhcp_enabled => 'no',
ip_address => '192.168.128.10',
subnet_mask => '255.255.255.0',
gateway => '192.168.128.1',
}) or die $ilo->error;
Allows you to modify the network configuration of the iLO
processor. The following parameters are allowed, see individual methods
above for more detail:
name
domain_name
dhcp_enabled
ip_address
subnet_mask
gateway
If any parameter is not specified, current values are
used.
Setting dhcp_enabled to 'yes' causes all IP related settings
to have no effect.
If the IP address is changed here, address() is updated
with the new information.
Networking changes cause the iLO processor to reset, it should
become available again within 30 seconds.
The rationale behind seperate methods for viewing and changing
network settings is as follows:
Network configuration generally needs to be modified as a
package, for example, changing both the IP address and default gateway.
Without a separate method, calling the ip_address() method as a
setter could cause you to lose connectivity.
- model()
-
# ProLiant DL380 G5
print $ilo->model;
Returns the model name of the machine.
- serialID()
-
# unique to your machine
print $ilo->serialID;
Returns the serial number of the remote machine.
- cpus()
-
my $cpus = $ilo->cpus;
print "Number of CPUs: ", scalar @$cpus, "\n\n";
foreach my $cpu (@$cpus) {
print " CPU: ", $cpu->{name}, "\n";
print "Speed: ", $cpu->{speed}, "\n";
print "Cores: ", $cpu->{cores}, "\n";
}
# yields the following on a single CPU Xeon:
#
# Number of CPUs: 1
#
# CPU: Proc 1
# Speed: 2000 MHz
# Cores: 4 of 4 cores; 4 threads
Returns arrayref containing information about each CPU.
Included is the CPU name (eg. Proc 1, Proc 2, etc.), speed in MHz and
number of cores.
- ramslots()
-
my $ramslots = $ilo->ramslots or die $ilo->error;
print "DIMM slots: ", scalar @$ramslots, "\n\n";
foreach my $slot (@$ramslots) {
print " Slot: ", $slot->{location}, "\n";
print " Size: ", $slot->{size}, "\n";
print "Speed: ", $slot->{speed}, "\n" if defined $slot->{speed};
}
# yields the following on a DL360/G5 with 8 GB of RAM:
#
# DIMM slots: 8
#
# Slot: DIMM 1A
# Size: 2048 MB
# Speed: 667 MHz
#
# Slot: DIMM 2C
# Size: 1024 MB
# Speed: 667 MHz
#
# Slot: DIMM 3A
# Size: 2048 MB
# Speed: 667 MHz
#
# Slot: DIMM 4C
# Size: 1024 MB
# Speed: 667 MHz
#
# Slot: DIMM 5B
# Size: 1024 MB
# Speed: 667 MHz
#
# Slot: DIMM 6D
# Size: not installed
#
# Slot: DIMM 7B
# Size: 1024 MB
# Speed: 667 MHz
#
# Slot: DIMM 8D
# Size: not installed
Returns arrayref containing information about installed memory
modules. Includes slot name, module size and module speed. Speed is
undefined when slot is empty.
- mac01()
-
my $eth0_mac = $ilo->mac01;
Returns the mac address associated with the machine's primary
NIC (aka eth0).
This method is not supported by pre-generation 4 hardware.
- mac02()
-
my $eth1_mac = $ilo->mac02;
Returns the mac address associated with the machine's
secondary NIC (aka eth1).
This method is not supported by pre-generation 4 hardware.
- mac03()
-
my $eth2_mac = $ilo->mac03;
Returns the mac address associated with the machine's tertiary
NIC, if installed. Note that mac addresses for add-on cards will not be
available via this method.
- mac04()
-
my $eth3_mac = $ilo->mac04;
Returns the mac address associated with the machine's
quaternary NIC, if installed. Note that mac addresses for add-on cards
will not be available via this method.
- macilo()
-
my $ilo_mac = $ilo->macilo;
Returns the mac address associated with the machine's iLO
interface.
This method is not supported by pre-generation 4 hardware.
- biosdate()
-
# format is 11/30/2006
print $ilo->biosdate;
Returns the release date of the system's BIOS.
- fans()
-
my $fans = $ilo->fans;
foreach my $fan (@$fans) {
print " Name: ", $fan->{name}, "\n";
print "Location: ", $fan->{location}, "\n";
print " Speed: ", $fan->{speed}, "\n";
print " Unit: ", $fan->{unit}, "\n";
print " Status: ", $fan->{status}, "\n\n";
}
# Name: Fan Block 1
# Location: Power Supply
# Speed: 34
# Unit: Percentage
# Status: Ok
#
# Name: Fan Block 2
# Location: CPU 2
# Speed: 29
# Unit: Percentage
# Status: Ok
#
# Name: Fan Block 3
# Location: CPU 1
# Speed: 34
# Unit: Percentage
# Status: Ok
Returns arrayref containing the status of the fan block(s)
installed in the system. 'status' will be 'Ok' or 'Failed'.
- temperatures()
-
my $temperatures = $ilo->temperatures;
foreach my $sensor (@$temperatures) {
print " Name: ", $sensor->{name}, "\n";
print "Location: ", $sensor->{location}, "\n";
print " Value: ", $sensor->{value}, "\n";
print " Unit: ", $sensor->{unit}, "\n";
print " Caution: ", $sensor->{caution}, "\n";
print "Critical: ", $sensor->{critical}, "\n";
print " Status: ", $sensor->{status}, "\n\n";
}
# Name: Temp 1
# Location: I/O Board
# Value: 49
# Unit: Celsius
# Caution: 80
# Critical: 90
# Status: Ok
#
# Name: Temp 2
# Location: Ambient
# Value: 19
# Unit: Celsius
# Caution: 80
# Critical: 90
# Status: Ok
#
# Name: Temp 3
# Location: CPU 1
# Value: 32
# Unit: Celsius
# Caution: 80
# Critical: 90
# Status: Ok
#
# Name: Temp 4
# Location: CPU 1
# Value: 32
# Unit: Celsius
# Caution: 80
# Critical: 90
# Status: Ok
#
# Name: Temp 5
# Location: Power Supply
# Value: 28
# Unit: Celsius
# Caution: 80
# Critical: 90
# Status: Ok
Returns arrayref containing the status of the temperature
sensor(s) installed in the system. 'status' will be 'Failed' if the
temperature exceeds the critical threshold.
- power_supplies()
-
my $power_supplies = $ilo->power_supplies;
foreach my $power_supply (@$power_supplies) {
print " Name: ", $power_supply->{name}, "\n";
print "Status: ", $power_supply->{status}, "\n\n";
}
# Name: Power Supply 1
# Status: Ok
Returns arrayref containing the status of the power supplies
installed in the system. 'status' will be 'Ok' or 'Failed'.
- reset()
-
# iLO web interface is hung, try resetting it
$ilo->reset;
Resets the iLO management processor.
- license()
-
# 25 characters, according to HP
$ilo->license('1111122222333334444455555');
Activates iLO advanced pack licensing. An error will be
returned if the key is not valid or if it is already in use.
- fw_type()
-
# either 'iLO', 'iLO2' or 'iLO3'
print $ilo->fw_type;
Returns the type of iLO management processor in the remote
machine. Possible values are 'iLO', 'iLO2' and 'iLO3', depending on how
modern the server is.
- fw_version()
-
# something like 1.26
print $ilo->fw_version;
Returns the version of iLO firmware currently running.
- fw_date()
-
# format is Nov 17 2006
print $ilo->fw_date;
Returns the date the iLO firmware was released.
- ssh_status()
-
# either 'Y' or 'N'
print $ilo->ssh_status;
# disable SSH access to iLO
$ilo->ssh_status('No');
Returns or modifies whether SSH access is enabled on the iLO.
Gives 'Y' if SSH is enabled and 'N' if SSH is disabled.
- ssh_port()
-
if ($ilo->ssh_port == 22) {
$ilo->ssh_port(12345);
}
Returns or sets the port iLO will listen on for incoming SSH
connections. This should be an integer between 0 and 65535.
Changing the SSH port causes the iLO processor to reset, it
should become available again within about 30 seconds.
- http_port()
-
# default is 80
print $ilo->http_port;
$ilo->http_port(8000);
Returns or sets the port iLO's http service listens on. Valid
port numbers are between 0 and 65535.
Changing the HTTP port causes the iLO processor to reset, it
should become available again within about 30 seconds.
- https_port()
-
# default is 443
print $ilo->https_port;
$ilo->https_port(554);
Returns or sets the port iLO's https service listens on. Valid
port numbers are between 0 and 65535.
Changing the HTTPS port causes the iLO processor to reset, it
should become available again within about 30 seconds.
- session_timeout()
-
# default is 30
print $ilo->session_timeout;
Returns the current session timeout in minutes. This applies
to all sessions, eg. http, https, ssh, etc.
- add_user()
-
# add a user with admin privileges
$ilo->add_user({
name => 'John Doe',
username => 'jdoe',
password => 'secret',
admin => 'Yes',
});
# add a regular user with no privileges
$ilo->add_user({
name => 'Jim Beam',
username => 'jbeam',
password => 'secret',
});
# add a regular user with full privileges (aside from managing users)
#
# for a detailed discussion of what each privilege provides, please see
# the document 'HP Integrated Lights-Out Management Processor Scripting and
# Command Line Resource Guide'
#
# if unspecified, default for each privilege is 'No'.
$ilo->add_user({
name => 'Jack Daniels',
username => 'jdaniels',
password => 'secret',
remote_console_privilege => 'Yes',
reset_privilege => 'Yes',
virtual_media_privilege => 'Yes',
config_ilo_privilege => 'Yes',
view_logs_privilege => 'Yes',
clear_logs_privilege => 'Yes',
update_ilo_privilege => 'Yes',
})
Adds an iLO user. Admin users have full priveleges, including
the ability to add and remove other users. Non-admin users have
configurable privileges which default to disabled. The subset of
permissions implemented is listed above. Users can log in to iLO via any
interface, ie. HTTPS, SSH, etc. When adding a non-admin user, passing in
the parameter admin => 'No' is also acceptable.
- mod_user()
-
# change current user's password
# in this case username is optional
$ilo->mod_user({
password => 'supersecret',
});
# change another user's password
# this requires administrator privileges
$ilo->mod_user({
username => 'guest',
password => 'changem3!',
});
Method for modifying existing user accounts. Currently this
method is only able to change user's passwords; it cannot change
permission levels.
Passwords may consist of up to 39 printable characters. If you
exceed the maximum password length, an error to that effect will be
returned.
If you update the current user's password the stored password
used for logging in will be updated automatically.
- del_user()
-
# you're fired!
$ilo->del_user('jbeam');
Removes an existing user from the iLO.
- uid()
-
if ($ilo->uid eq 'on') {
$ilo->uid('off');
}
Get the status of or control the machine's UID light.
Called without parameters simply returns the current status,
either 'on' or 'off'.
You may pass values 'on' or 'off' to this method however be
careful not to set the uid light to on when it is currently on, and vice
versa, as this could throw an error, depending on iLO firmware
version.
An error will be returned if you pass an invalid state.
$ilo->uid('blinking') or die $ilo->error;
State blinking is not valid at /somescript.pl line 13.
- "User login name was not found"
- General authentication error, eg. bad username or password when logging
in.
Could also mean you attempted to change the settings (eg.
password) for a user which doesn't exist
- "Method not supported by this iLO version"
- Either your machine / iLO firmware version is too old, or the method you
called requires a more advanced license than you have.
- "State %s is not valid"
- An invalid UID state was passed to uid(). Valid states are 'on' and
'off'.
- "Unable to establish SSL connection with %s:%d [%s]"
- An error occurred while connecting to iLO. The message in brackets is
propagated from IO::Socket::SSL, and is rarely useful.
- "Error transmitting command to server"
- A connection was established, but something went wrong while sending the
command to the remote iLO. Try reconnecting, and ensure that your network
settings are correct.
- "No response received from remote machine"
- A connection was established and a command successfully sent to the iLO,
but no data was received. Again, ensure that your network settings are
correct.
There could also be something wrong with the remote iLO
management processor. Troubleshooting is beyond the scope of this
document.
- "Error parsing response: %s"
- An error occurred while parsing the XML response from the iLO. The error
message is propagated from XML::Simple, and could mean HP changed the iLO
API.
IO::Socket::SSL
XML::Simple
Nicholas Lewis, "<nick.lewis at
gmail.com>"
Please report any bugs or feature requests to "bug-net-ilo
at rt.cpan.org", or through the web interface at
<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-ILO>. I will be
notified, and then you'll automatically be notified of progress on your bug as
I make changes.
You can find documentation for this module with the perldoc command.
perldoc Net::ILO
You can also look for information at:
- RT: CPAN's request tracker
<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Net-ILO>
- AnnoCPAN: Annotated CPAN documentation
<http://annocpan.org/dist/Net-ILO>
- CPAN Ratings
<http://cpanratings.perl.org/d/Net-ILO>
- Search CPAN
<http://search.cpan.org/dist/Net-ILO>
Copyright 2011 Nicholas Lewis, all rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
Visit the GSP FreeBSD Man Page Interface. Output converted with ManDoc. |