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

modify depending on comments

Browse Source
This commit is contained in:
hu-weihua 2016-09-23 02:36:52 -04:00
parent e681e0fe99
commit 9abbcd4fbc
3 changed files with 22 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
xCAT-probe/lib/perl/LogParse.pm
View File

@ -62,7 +62,7 @@ sub new {
my $logfiledir = "/tmp/xcatprobedebug/";
mkpath("$logfiledir") unless (-d "$logfiledir");
$self->{debuglogpath} = $logfiledir;
$self->{debuglogfd};
$self->{debuglogfd} = undef;
}
bless($self, ref($class) || $class);
@ -94,8 +94,7 @@ sub obtain_candidate_mn_hostname_in_log {
push(@candidate_svr_hostname_inlog, $svr_hostname_short);
push(@candidate_svr_hostname_inlog, "$svr_hostname_short.$svr_hostname_domain");
if ($self->{debug}) {
my $tmpstr = "";
$tmpstr .= "$_ " foreach (@candidate_svr_hostname_inlog);
my $tmpstr = join(" ", @candidate_svr_hostname_inlog);
probe_utils->send_msg("stdout", "d", "The candidate MN hostname(s) in log are $tmpstr");
}
return @candidate_svr_hostname_inlog;
@ -180,9 +179,7 @@ sub obtain_one_second_logs {
if ($self->{debug}) {
my $logfile = "$self->{debuglogpath}/obtain_one_second_logs.$the_time_to_load";
my $fd;
open($fd, "> $logfile");
$self->{debuglogfd} = $fd;
open($self->{debuglogfd}, "> $logfile");
}
#read log for the first time
@ -554,13 +551,13 @@ sub convert_to_epoch_seconds {
$yday = $self->{current_ref_year};
$epoch_seconds = timelocal($s, $m, $h, $dday, $monthsmap{$mday}, $yday);
if ($epoch_seconds > $self->{current_ref_time}) {
$yday -= 1;
--$yday;
$epoch_seconds = timelocal($s, $m, $h, $dday, $monthsmap{$mday}, $yday);
}
# The time format looks like "15/Aug/2016:01:10:24"
} elsif ($timestr =~ /(\d+)\/(\w+)\/(\d+):(\d+):(\d+):(\d+)/) {
$epoch_seconds = timelocal($6, $5, $4, $1, $monthsmap{$2}, ($3 - 1900));
$epoch_seconds = timelocal($6, $5, $4, $1, $monthsmap{$2}, $3);
}
return $epoch_seconds;
}
@ -676,8 +673,7 @@ sub debuglogger {
my $self = shift;
my $msg = shift;
if ($self->{debug}) {
my $fd = $self->{debuglogfd};
print $fd "$msg\n";
print {$self->{debuglogfd}} "$msg\n";
}
}
1;

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

@ -540,7 +540,7 @@ sub parse_node_range {
my $noderange = shift;
$noderange= shift if (($noderange) && ($noderange =~ /probe_utils/));
my @nodeslist = `nodels $noderange`;
chomp($_) foreach(@nodeslist);
chomp @nodeslist;
return @nodeslist;
}
1;

23
xCAT-probe/subcmds/osdeploy
View File

@ -423,7 +423,7 @@ sub do_replay {
sub conclusion_report {
my $node_state_ref = shift;
probe_utils->send_msg("stdout", "", "==================conclusion_report=================");
probe_utils->send_msg("stdout", "", "==================osdeploy_probe_report=================");
if ($debug) {
print "---->the result of %node_state<------\n";
@ -431,17 +431,22 @@ sub conclusion_report {
}
if ($verbose) {
probe_utils->send_msg("stdout", "d", "----------node history state----------");
probe_utils->send_msg("stdout", "d", "----------node state history----------");
foreach my $node (keys %$node_state_ref) {
my $allhistorystate;
my $historystate;
probe_utils->send_msg("stdout", "d", "[$node]:");
if (@{ $node_state_ref->{$node}{allstatehistory} }) {
$allhistorystate .= "$::STATE_DESC{$_} " foreach (@{ $node_state_ref->{$node}{allstatehistory} });
probe_utils->send_msg("stdout", "d", "[$node] the history before last loop provision: $allhistorystate");
$allhistorystate .= "$::STATE_DESC{$_}=>" foreach (@{ $node_state_ref->{$node}{allstatehistory} });
$allhistorystate =~ s/=>$//g;
probe_utils->send_msg("stdout", "d", "Setps executed prior to last provisioning attempt:");
probe_utils->send_msg("stdout", "d", "$allhistorystate");
}
$historystate .= "$::STATE_DESC{$_} " foreach (@{ $node_state_ref->{$node}{statehistory} });
probe_utils->send_msg("stdout", "d", "[$node] last loop provision history: $historystate");
$historystate .= "$::STATE_DESC{$_}=>" foreach (@{ $node_state_ref->{$node}{statehistory} });
$historystate =~ s/=>$//g;
probe_utils->send_msg("stdout", "d", "Steps executed for last provisioning attempt:");
probe_utils->send_msg("stdout", "d", "$historystate");
}
probe_utils->send_msg("stdout", "d", "--------------------------------------");
}
@ -503,7 +508,7 @@ sub conclusion_report {
}
}
} else {
probe_utils->send_msg("stdout", "o", "All nodes provisioned successfully");
probe_utils->send_msg("stdout", "o", "All nodes provision successfully");
}
return 0;
}
@ -919,7 +924,9 @@ sub handle_cluster_msg {
set_node_state($node_state_ref, $node, $::STATE_POWERINGON);
} elsif ($status eq "booting") {
set_node_state($node_state_ref, $node, $::STATE_BOOTING);
}
} elsif ($status eq "failed") {
$node_state_ref->{$node}{done} = 1;
}
}
}
}