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

Use abbreviate_noderange routine to put out noderanges instead of lists of nodes, in final report

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@3722 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2009-07-07 17:10:27 +00:00
parent 06ec99b808
commit 16b9741443
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,6 +19,7 @@ package xCAT::SINV;
use strict;
use xCAT::MsgUtils;
use xCAT::NodeRange;
use xCAT::NodeRange qw/noderange abbreviate_noderange/;
use xCAT::Utils;
use Fcntl qw(:flock);
use Getopt::Long;
@ -1124,6 +1125,7 @@ sub diffoutput
return @info;
}
#------------------------------------------------------------------------------
=head3 writereport
@ -1181,10 +1183,16 @@ sub writereport
$nodelist .= ',';
}
}
chop $nodelist;
# convert to noderanges if possible
my $nodearray;
$nodearray->{0} = \@nodearray;
my $newnodelist = abbreviate_noderange($nodearray->{0});
if ($ignorefirsttemplate ne "YES")
{ # report first template
$rsp->{data}->[0] = "$nodelist\n";
$rsp->{data}->[0] = "$newnodelist\n";
if ($::OUTPUT_FILE_HANDLE)
{
print $::OUTPUT_FILE_HANDLE $rsp->{data}->[0];
@ -1472,7 +1480,7 @@ sub storeresults
close(XCOLL);
close FILE;
system("/bin/rm $newtempfile");
#system("/bin/rm $newtempfile");
# capture errors
#