xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-05-22 11:42:05 +00:00
Code Issues Releases Wiki Activity

xCATprobe check xcat service node

Browse Source
This commit is contained in:
XuWei 2016-07-26 03:26:40 -04:00
parent fa16e12d48
commit 989548aef1
2 changed files with 914 additions and 473 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
xCAT-probe/lib/perl/probe_utils.pm
View File

@ -50,6 +50,8 @@ sub send_msg {
if ($output eq "stdout") {
print "$flag$msg\n";
} elsif($output) {
syswrite $output, "$flag$msg\n";
} else {
if (!open(LOGFILE, ">> $output")) {
return 1;
@ -324,20 +326,21 @@ sub is_tftp_ready {
sub is_dns_ready {
my $mnip = shift;
$mnip = shift if (($mnip) && ($mnip =~ /probe_utils/));
my $serverip = shift;
my $hostname = shift;
my $domain = shift;
my $output = `nslookup $mnip $mnip 2>&1`;
my $output = `nslookup $mnip $serverip 2>&1`;
if ($?) {
return 0;
} else {
chomp($output);
my $tmp = `echo "$output" |grep "Server:[\t\s]*$mnip" >/dev/null 2>&1`;
print "$tmp";
return 0 if ($?);
$tmp = `echo "$output"|grep "name ="|grep "$hostname\.$domain" >/dev/null 2>&1`;
return 0 if ($?);
my $tmp = grep {$_ =~ "Server:[\t\s]*$serverip"} split(/\n/, $output);
return 0 if ($tmp == 0);
$tmp = grep {$_ =~ "name = $hostname\.$domain"} split(/\n/, $output);
return 0 if ($tmp == 0);
return 1;
}
}

1372
xCAT-probe/subcmds/xcatmn
View File

File diff suppressed because it is too large Load Diff