HP XP20000/XP24000 Administrator's Manual - Page 10

Browse online or download pdf Administrator's Manual for Switch HP XP20000/XP24000. HP XP20000/XP24000 50 pages. Hp storageworks xp disk array configuration guide: vmware (a5951-96106, september 2010)
Also for HP XP20000/XP24000: Release Note (13 pages), Integration Manual (29 pages), Release Note (4 pages), Configuration Manual (42 pages), Configuration Manual (40 pages), Configuration Manual (40 pages), Configuration Manual (36 pages), Configuration Manual (36 pages), Configuration Manual (30 pages), Configuration Manual (36 pages), Release Note (5 pages), Configuration Manual (46 pages), Configuration Manual (46 pages), Reference Manual (46 pages), Configuration Manual (40 pages), Configuration Manual (44 pages), Configuration Manual (38 pages), Configuration Manual (34 pages), Configuration Manual (30 pages), Configuration Manual (30 pages)

Print Page
HP XP20000/XP24000 Administrator's Manual
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