Envoi De L'en-Tête Xml Et Du Corps Du Script - HP Remote Insight Lights-Out Edition RILOE II Manuel De L'utilisateur

Envoi de l'en-tête XML et du corps du script
Une fois que la connexion a été établie, la première ligne de script envoyée doit
être un en-tête de document XML qui indique au serveur web HTTPS du péri-
phérique que le contenu suivant est un script XML. L'en-tête doit correspondre
exactement à l'en-tête utilisé dans l'exemple. Une fois que l'en-tête a été envoyé
dans son intégralité, le reste du script peut être envoyé. Dans cet exemple,
l'ensemble du script est envoyé en une seule fois. Par exemple :
# usage: sendscript(host, script)
# sends the xmlscript script to host, returns reply
sub sendscript($$)
{
last READLOOP if($lastreply eq "");
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 "")
{
sleep(2); # wait 2 sec for more text.
$lastreply = Net::SSLeay::read($ssl);
}
Scripts Perl 213