HP iLO 3 Scripting and Command Line Guide - Business Support ...

10 PERL scripting
Using PERL with the XML scripting interface
The scripting interface provided enables administrators to manage virtually every aspect of the
device in an automated fashion. Primarily, administrators use tools like CPQLOCFG to assist
deployment efforts. Administrators using a non-Windows client can use PERL scripts to send XML
scripts to the iLO devices. Administrators can also use PERL to perform more complex tasks than
CPQLOCFG can perform.
This section discusses how to use PERL scripting in conjunction with the Lights-Out XML scripting
language. PERL scripts require a valid user ID and password with appropriate privileges.
Sample XML scripts for iLO devices and a sample PERL script are available on the HP website at:
http://www.hp.com/go/iLO3. Click iLO Sample Scripts under iLO Support and Downloads.
XML enhancements
Previous versions of iLO 3 firmware do not return properly formatted XML syntax. If the iLO 3
firmware determines the client utility does not support the return of properly formatted XML syntax,
the following message appears:
Scripting utility should be updated to the latest
version.
This message informs you to update to a later version of the CPQLOCFG scripting utility. The latest
version of CPQLOCFG is 3.5.0.
If you are using a utility other than CPQLOCFG (such as PERL), the following steps help ensure that
the iLO 3 firmware returns properly formatted XML. You must incorporate the following tag into
the script sent to iLO 3:
You can place this tag in either the PERL script or the XML script. Placement of this tag is important.
If you place this tag in the PERL script, the tag must be sent after and
before the XML script is sent. If you place the tag in the XML script, the tag must be placed before
. If you are using the PERL script provided by HP, you can add the
bold line in the following example to return properly formatted XML syntax.
For example:
• PERL script modification
…
# Open the SSL connection and the input file
my $client = new IO::Socket::SSL->new(PeerAddr => $host);
open(F, "