HP Remote Insight Lights-Out Edition II Guía De Usuario página 230

230 HP Remote Insight Lights-Out Edition II Guía de usuario
last READLOOP if($lastreply eq "");
}
Las secuencias de comandos PERL también pueden enviar una parte de
la secuencia de comandos XML, esperar respuesta y enviar más XML
posteriormente. Mediante esta técnica, es posible utilizar la respuesta producida
por un comando anterior como entrada a un comando posterior. Sin embargo,
la secuencia de comandos PERL debe enviar datos dentro de unos segundos o
transcurrirá el tiempo de espera del dispositivo y se desconectará.
Al utilizar la interfaz de secuencia de comandos XML con ficheros de comandos
PERL, se aplican las siguientes restricciones:
sleep(2); # wait 2 sec for more text.
$lastreply = Net::SSLeay::read($ssl);
}
sleep(2); # wait 2 sec for more text.
$lastreply = Net::SSLeay::read($ssl);
last READLOOP if($lastreply eq "");
}
print "READ: $lastreply\n" if $debug;
if($lastreply =~ m/STATUS="(0x[0-9A-
F]+)"[\s]+MESSAGE=
'(.*)'[\s]+\/>[\s]*(([\s]|.)*?)<\/RIBCL>/)
{
if($1 eq "0x0000")
{
print STDERR "$3\n" if $3;
}
else
{
print STDERR "ERROR: STATUS: $1, MESSAGE: $2\n";
}
}
}
$reply .= $lastreply;
closeSSLconnection($ssl);
return $reply;