arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

CRHS phase IV: add -I flag to give warning to the user about the node which defined in database but have no SLP response.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@8751 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle 2011-01-27 08:40:33 +00:00
parent 9c6508d6cd
commit 22ec8bfa56
1 changed files with 75 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

81
xCAT-server/lib/xcat/plugins/lsslp.pm
View File

@ -226,7 +226,7 @@ sub parse_args {
# Process command-line flags
#############################################
if (!GetOptions( \%opt,
qw(h|help V|Verbose v|version i=s x z w r s=s e=s t=s m c n C=s T=s updatehosts makedhcp resetnet vpdtable))) {
qw(h|help V|Verbose v|version i=s x z w r s=s e=s t=s m c n C=s T=s I updatehosts makedhcp resetnet vpdtable))) {
return( usage() );
}
@ -810,7 +810,7 @@ sub invoke_cmd {
# Need to check if the result is enough
########################################
if ( exists( $opt{C}) ) {
send_msg( $request, 0, "\n Begin to try again, this maybe takes long time \n" );
send_msg( $request, 0, "\n Begin to try again, this may takes long time \n" );
#my $uni_tmp = $unicast;
my %val_tmp = %$values;
my $rlt;
@ -1120,7 +1120,7 @@ sub format_output {
# -w flag for write to xCat database
###########################################
if ( exists( $opt{w} )) {
send_msg( $request, 0, "Begin to write into Database, this maybe change node name" );
send_msg( $request, 0, "Begin to write into Database, this may change node name" );
xCATdB( $outhash );
}
@ -1140,6 +1140,18 @@ sub format_output {
do_resetnet( $request, $outhash );
}
###########################################
# -I flat give the warning message for
# the no-response nodes
###########################################
if ( exists( $opt{I} ) ) {
my $outresult = integrity_check( $outhash );
if ($outresult)
{
send_msg( $request, 0, $outresult );
}
}
###########################################
# -r flag for raw response format
###########################################
@ -1205,6 +1217,63 @@ sub format_output {
}
send_msg( $request, 0, $result );
}
##########################################################################
# Give the warning message for the no-response nodes
##########################################################################
sub integrity_check {
my $datahash = shift;
my $findflag = 0;
my $result;
foreach my $existnode ( keys %::OLD_DATA_CACHE )
{
my $tmptype = uc(@{$::OLD_DATA_CACHE{$existnode}}[6]);
my $tmpmtm = @{$::OLD_DATA_CACHE{$existnode}}[0];
my $tmpsn = @{$::OLD_DATA_CACHE{$existnode}}[1];
my $tmpside = @{$::OLD_DATA_CACHE{$existnode}}[2];
if ( $tmptype eq TYPE_CEC or $tmptype eq TYPE_FRAME or $tmptype =~ /lpar/ )
{
next;
}
$findflag = 0;
foreach my $foundnode ( keys %$datahash )
{
my $newdata = $datahash->{$foundnode};
my $newtype = @$newdata[0];
my $newmtm = @$newdata[1];
my $newsn = @$newdata[2];
my $newside = @$newdata[3];
if( !$foundnode or !$newtype or !$newtype or !$newsn )
{
next;
}
if ( ($newtype eq $tmptype) and ($tmptype eq TYPE_BPA or $tmptype eq TYPE_FSP) )
{
# begin to match fsp/bpa
if (($newmtm eq $tmpmtm) and ($newsn eq $tmpsn) and ($newside eq $tmpside))
{
$findflag = 1;
last;
}
}elsif ( ($newtype eq $tmptype) and ($tmptype eq TYPE_HMC) )
{
# begin to match hmc
if (($newmtm eq $tmpmtm) and ($newsn eq $tmpsn))
{
$findflag = 1;
last;
}
}
}
if ($findflag eq 0 and $existnode ne "")
{
$result .= "\n Warning: The node $existnode has no response. \n";
}
}
return $result;
}
##########################################################################
@ -1257,7 +1326,7 @@ sub gethost_from_url_or_old {
# get the information of existed nodes to do the migration
if (!%::OLD_DATA_CACHE)
if ( !defined(%::OLD_DATA_CACHE))
{
# find out all the existed nodes' ipaddresses
my $hoststab = xCAT::Table->new('hosts');
@ -2041,7 +2110,7 @@ sub parse_responses {
if ( $hostname )
{
$outhash{$hostname} = \@severnode1;
}
}
$hostname = undef;
@ -2058,7 +2127,7 @@ sub parse_responses {
if ( $hostname )
{
$outhash{$hostname} = \@severnode2;
}
}
###########################################
# begin to define frame and cec