xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-05-30 17:46:38 +00:00
Code Issues Releases Wiki Activity

Use IO::Socket to check BMC console port

Browse Source
This commit is contained in:
Matt Ezell 2017-11-18 14:47:12 -05:00
parent 23f2b1c864
commit d862891201
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
xCAT-server/share/xcat/cons/openbmc
View File

@ -3,6 +3,7 @@
use Fcntl qw(:DEFAULT :flock);
use Time::HiRes qw(sleep);
use File::Path;
use IO::Socket;
BEGIN {
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : -d '/opt/xcat' ? '/opt/xcat' : '/usr';
}
@ -92,15 +93,25 @@ if ($ENV{SSHCONSOLEPORT}) {
}
#check if sshport is up
my $nmap_output = `/usr/bin/nmap $bmcip -p $sshport -Pn`;
while ($nmap_output =~ /0 hosts up/) {
my $sock = IO::Socket::INET->new(
PeerAddr => $bmcip,
PeerPort => $sshport,
Proto => "tcp",
Timeout => 10
);
while (!defined($sock)) {
$sleepint = 10 + int(rand(20));
print "No BMC active at IP $bmcip, retrying in $sleepint seconds (Hit Ctrl-E,c,o to skip)\n";
sleep ($sleepint);
acquire_lock();
sleep(0.1);
release_lock();
$nmap_output = `/usr/bin/nmap $bmcip -p $sshport -Pn`;
$sock = IO::Socket::INET->new(
PeerAddr => $bmcip,
PeerPort => $sshport,
Proto => "tcp",
Timeout => 10
);
}