Phoenix RPC12 Series, Справочное руководство CLI

Страница: 15 / 245

16 Phoenix RPC12 Series CLI Reference Manual • September 2008
The example below and continuing on the next page shows how to construct a script
using a Perl library for
telnet
communication.
use Net::Telnet;
$mVer = "v.072006";
$mLine = "==========================================================";
$mStr = "Management Controller System Cloning Utility";
$nLine = "\n";
$cliDumpFile = "get_config_dump.txt";
$space = ' ';
$username = "";
$password = "";
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_comamnds == 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');