HP XP20000/XP24000 Manual do Administrador - Página 10

Procurar online ou descarregar pdf Manual do Administrador para Interruptor HP XP20000/XP24000. HP XP20000/XP24000 50 páginas. Hp storageworks xp disk array configuration guide: vmware (a5951-96106, september 2010)
Também para HP XP20000/XP24000: Nota de lançamento (13 páginas), Manual de integração (29 páginas), Nota de lançamento (4 páginas), Manual de configuração (42 páginas), Manual de configuração (40 páginas), Manual de configuração (40 páginas), Manual de configuração (36 páginas), Manual de configuração (36 páginas), Manual de configuração (30 páginas), Manual de configuração (36 páginas), Nota de lançamento (5 páginas), Manual de configuração (46 páginas), Manual de configuração (46 páginas), Manual de referência (46 páginas), Manual de configuração (40 páginas), Manual de configuração (44 páginas), Manual de configuração (38 páginas), Manual de configuração (34 páginas), Manual de configuração (30 páginas), Manual de configuração (30 páginas)

Imprimir página
HP XP20000/XP24000 Manual do Administrador
command.pl example
#!/usr/bin/perl
use Net::Telnet;
my @stdinput = <STDIN>;
my $input;
my $output;
my $out;
my $host;
my $user;
my $pass;
my $local = 1;
my $cmd;
:
:
:
my $telnet = Net::Telnet->new(Host=>$host,Cmd_remove_mode=>1,Timeout=>180);
$telnet->login($user,$pass);
if ($ENV{'HORCMROOT'} ne "")
{
$cmd = "echo \"" . $input . "\" | " . $ENV{'HORCMROOT'} . "\\HORCM\\etc\\rmsra -auto timeout=" .
$ENV{RMSRATOV} . " testMU=" . $ENV{'RMSRATMU'} . " -XMLSTDOUT";
}
else
{
$cmd = "rm -f " . $txtname;
$telnet->cmd($cmd);
foreach my $line (@input)
{
$cmd = "echo \'" . $line . "\' >> " . $txtname;
$telnet->cmd($cmd);
}
$cmd = "cat " . $txtname . " | /HORCM/usr/bin/rmsra -auto timeout=" . $ENV{'RMSRATOV'} . "
testMU=" . $ENV{'RMSRATMU'} . " -XMLSTDOUT >" . $xmlname . " 2>" . $logname;
}
$telnet->cmd($cmd);
$cmd = "cat " . $logname . " >> " . $xmlname;
$telnet->cmd($cmd);
$cmd = "cat " . $xmlname;
my (@stdout, @stderr, $exit) = $telnet->cmd($cmd);
foreach my $line (@stdout)
{
if ($line =~ /^\s*<|wwn=/)
{
$output = $output . $line;
}
elsif ($line =~ /^\[RMSRA\]/)
{
print $line;
}
}
$out = "> " . $out;
open(OUT,$out);
print OUT $output;
close(OUT);
exit($exit/256);
10
Overview of HP StorageWorks XP Virtualization Adapter