Envío Del Cuerpo De Secuencia De Comandos Y El Encabezado Xml - HP Remote Insight Lights-Out Edition II Guía De Usuario

Envío del cuerpo de secuencia de comandos y el
encabezado XML
Después de establecer la conexión, la primera línea de la secuencia de comandos
enviada debe ser un encabezado de documento XML, que le indica al servidor
Web HTTPS del dispositivo que el contenido siguiente es una secuencia de
comandos XML. El encabezado debe coincidir exactamente con el utilizado en
el ejemplo. Después de enviarlo completamente, se puede enviar el resto de la
secuencia. En este ejemplo, la secuencia de comandos se envía entera de una vez.
Por ejemplo:
# usage: sendscript(host, script)
# sends the xmlscript script to host, returns reply
sub sendscript($$)
{
my $host = shift;
my $script = shift;
my ($ssl, $reply, $lastreply, $res, $n);
$ssl = openSSLconnection($host);
# write header
$n = Net::SSLeay::ssl_write_all($ssl, '<?xml
version="1.0"?>'."\r\n");
rint "Wrote $n\n" if $debug;
# write script
$n = Net::SSLeay::ssl_write_all($ssl, $script);
print "Wrote $n\n$script\n" if $debug;
$reply = "";
$lastreply = "";
READLOOP:
while(1)
{
$n++;
$reply .= $lastreply;
$lastreply = Net::SSLeay::read($ssl);
die_if_ssl_error("ERROR: ssl read");
if($lastreply eq "")
{
Secuencia de comandos Perl 229