running OS installation script
/bin/installgolddisk: version 2013-10-22.01

Enter local time as MMDDhhmmYYYY


##</code><code>##

�©[34;47m/bin/installgolddisk: version 7-2015-12-14.01�©[0m

�©[34;47mEnter local time as MMDDhhmmYYYY�©[0m


##</code><code>##

sub ConnectTo {
    my $ip = $_[0];
    my $user = $_[1];
    my $pass = $_[2];

    my $obj = new Control::CLI ( Use => 'SSH',
                                 Timeout => 10800,
                                 Input_log => "$logprefix.input.log",
                                 Output_log => "$logprefix.output.log",
                                 Dump_log => "$logprefix.dump.log",
                                 Prompt =>  '.*[^boot:][m\?\$%#>:\r\n\012]\s?$',
                               );
    my $ok = $obj->connect( Host => $ip, Username => $user, Password => $pass, );
    my $ok = $obj->login( Password => $pass,);
    return $obj;
}

$MRV_obj = &ConnectTo($MRVIP, $MRVUser, $MRVPass);

$MRV_output = $MRV_obj->cmd("poweron server 1 usb\n\n");

my $Blade1Conn = $MRV_obj->cmd("connect server serial 1\n");

my $installprompttime = strftime ('%m%d%H%M%Y', gmtime);
$MRV_output = $MRV_obj->cmd("$installprompttime");