Using Cli Interactively; Using A Script To Access The Cli - HP P2000 G3 Cli Reference Manual

Using CLI interactively

By default the CLI is an interactive application. When you are logged into the CLI, the CLI waits for a
command to be entered and then responds to it.
The following example shows interactively starting a Telnet session, logging into the CLI, executing a
command to show free (available) disks, and exiting the CLI:
$: telnet 172.22.5.55
172.22.5.55 login: monitor
Password: ********
product
System Name: Test
System Location: Lab
Version: version
# show disks free
Location Serial Number
Rate*(Gb/s) SP Health
-------------------------------------------------------------------------------
1.2
3.0
-------------------------------------------------------------------------------
Info: * Rates may vary. This is normal behavior.
Success: Command completed successfully. (2011-10-20 12:46:41)
# exit

Using a script to access the CLI

The following example shows how to construct a Perl script to communicate with the CLI via Telnet.
cLogin is called at the start of the script to log a user into the CLI. The script uses the command-line
parameters specified as the IP address, username, and password. After the user has been logged in,
other commands can be sent to the CLI.
use Net::Telnet;
sub cLogin {
$telnet->open($_[0]);
$telnet->waitfor(/(login|username)[: ]*$/i);
$telnet->print("$_[1]");
$telnet->waitfor(/password[: ]*$/i);
$telnet->print("$_[2]");
# either got a login or a prompt
@ok = $telnet->waitfor(/(#|login:*) /i);
if ($debug_commands == 1) { print "-"; print @ok; print "-\n"; }
if ($ok[1] =~ m/login/gi)
{
return 0;
}
else
{
return 1;
}
}
$ipAddr = $ARGV[0];
$username = $ARGV[1];
$password = $ARGV[2];
$telnet = new Net::Telnet ( Timeout=>10,
Errmode=>'die',
Prompt => '/\# $/i');
16 Using the CLI
Health Reason
SN
OK
Vendor Rev How Used
vendor rev AVAIL
Type Size
SAS 146.8GB