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

fix exact match check on arrays

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2493 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2008-11-10 21:40:43 +00:00
parent 042089b13c
commit 1ffcad6692
1 changed files with 74 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

133
perl-xCAT/xCAT/SINV.pm
View File

@ -363,62 +363,66 @@ sub parse_and_run_sinv
my $tmpnodefile;
#
# Build Output file header
#
my $rsp = {};
$rsp->{data}->[0] = "Command started with following input.\n";
if ($cmd)
# Build Output header
if (($::VERBOSE) || ($outputfile))
{
$rsp->{data}->[1] = "$cmdtype cmd:$cmd.\n";
}
else
{
$rsp->{data}->[1] = "$cmdtype cmd:None.\n";
}
$rsp->{data}->[2] = "Template path:$templatepath.\n";
$rsp->{data}->[3] = "Template cnt:$templatecnt.\n";
$rsp->{data}->[4] = "Remove template:$rmtemplate.\n";
if ($outputfile)
{
$rsp->{data}->[5] = "Output file:$outputfile.\n";
}
else
{
$rsp->{data}->[5] = "Output file:None.\n";
}
$rsp->{data}->[6] = "Exactmatch:$exactmatch.\n";
$rsp->{data}->[7] = "Ignorefirst:$ignorefirsttemplate.\n";
if ($seednode)
{
$rsp->{data}->[8] = "Seed node:$seednode.\n";
}
else
{
$rsp->{data}->[8] = "Seed node:None.\n";
}
if ($options{'sinv_cmd_file'})
{
$rsp->{data}->[9] = "file:$options{'sinv_cmd_file'}.\n";
}
else
{
$rsp->{data}->[9] = "file:None.\n";
}
#write to output file the header
my $i = 0;
if ($::OUTPUT_FILE_HANDLE)
{
while ($i < 10)
#
my $rsp = {};
$rsp->{data}->[0] = "Command started with following input.\n";
if ($cmd)
{
print $::OUTPUT_FILE_HANDLE $rsp->{data}->[$i];
$i++;
$rsp->{data}->[1] = "$cmdtype cmd:$cmd.\n";
}
else
{
$rsp->{data}->[1] = "$cmdtype cmd:None.\n";
}
$rsp->{data}->[2] = "Template path:$templatepath.\n";
$rsp->{data}->[3] = "Template cnt:$templatecnt.\n";
$rsp->{data}->[4] = "Remove template:$rmtemplate.\n";
if ($outputfile)
{
$rsp->{data}->[5] = "Output file:$outputfile.\n";
}
else
{
$rsp->{data}->[5] = "Output file:None.\n";
}
$rsp->{data}->[6] = "Exactmatch:$exactmatch.\n";
$rsp->{data}->[7] = "Ignorefirst:$ignorefirsttemplate.\n";
if ($seednode)
{
$rsp->{data}->[8] = "Seed node:$seednode.\n";
}
else
{
$rsp->{data}->[8] = "Seed node:None.\n";
}
if ($options{'sinv_cmd_file'})
{
$rsp->{data}->[9] = "file:$options{'sinv_cmd_file'}.\n";
}
else
{
$rsp->{data}->[9] = "file:None.\n";
}
#write to output file the header
my $i = 0;
if ($::OUTPUT_FILE_HANDLE)
{
while ($i < 10)
{
print $::OUTPUT_FILE_HANDLE $rsp->{data}->[$i];
$i++;
}
print $::OUTPUT_FILE_HANDLE "\n";
}
if (!($outputfile))
{
xCAT::MsgUtils->message("I", $rsp, $callback);
}
print $::OUTPUT_FILE_HANDLE "\n";
}
if (($::VERBOSE) || ($::NOOUTPUTFILE))
{
xCAT::MsgUtils->message("I", $rsp, $callback);
}
# setup a tempfile for command output
@ -439,8 +443,8 @@ sub parse_and_run_sinv
# and then return inline after this code.
$processflg = "seednode";
@errresult = ();
@cmdresult = ();
@errresult = ();
@cmdresult = ();
$sub_req->(
{
command => [$cmdtype],
@ -1047,8 +1051,9 @@ sub diffoutput
} # end foreach templateline
# if nodearray matches template exactly,quit processing templates
if (@nodearray_noheader eq @template_noheader)
my $are_equal =
compare_arrays(\@nodearray_noheader, \@template_noheader);
if ($are_equal)
{
$matchedtemplate = $template;
$match = 1;
@ -1314,7 +1319,6 @@ sub rinvoutput
{
my $rsp = shift;
# Handle node structure, like rinv returns
my $errflg = 0;
@ -1455,11 +1459,11 @@ sub storeresults
system("/bin/rm $newtempfile");
# capture errors
#
#
if (@errresult)
{ # if errors
my $rsp = {};
my $i=0;
my $i = 0;
foreach my $line (@errresult)
{
$rsp->{data}->[$i] = "$line";
@ -1470,4 +1474,15 @@ sub storeresults
}
return;
}
sub compare_arrays
{
my ($first, $second) = @_;
return 0 unless @$first == @$second;
for (my $i = 0 ; $i < @$first ; $i++)
{
return 0 if $first->[$i] ne $second->[$i];
}
return 1;
}
1;