214
Remote Insight Lights-Out Edition II Manuel de l'utilisateur
}
Les scripts PERL peuvent également envoyer une partie du script XML, atten-
dre la réponse, puis envoyer davantage de script XML plus tard. Avec cette
technique, il est possible d'utiliser les réponses produites par une commande
antérieure dans une commande ultérieure. Cependant, le script PERL doit
envoyer les données dans les quelques secondes qui suivent, sinon le
périphérique s'interrompt et se déconnecte.
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;