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

make lsdef help output alphabetical

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1956 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
nott 2008-07-29 17:43:47 +00:00
parent 840fb7b419
commit 230cc2f50b
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
xCAT-server/lib/xcat/plugins/DBobjectdefs.pm
View File

@ -454,13 +454,16 @@ sub processArgs
$rsp->{data}->[1] = "Attribute Description\n";
my @alreadydone; # the same attr may appear more then once
my @attrlist;
my $outstr = "";
foreach my $this_attr (@{$datatype->{'attrs'}})
{
my $attr = $this_attr->{attr_name};
my $desc = $this_attr->{description};
if (!defined($desc)) { # description key not there, so go to the corresponding entry in tabspec to get the description
if (!defined($desc)) {
# description key not there, so go to the corresponding
# entry in tabspec to get the description
my ($tab, $at) = split(/\./, $this_attr->{tabentry});
my $schema = xCAT::Table->getTableSchema($tab);
$desc = $schema->{descriptions}->{$at};
@ -472,15 +475,17 @@ sub processArgs
if (!grep(/^$attr$/, @alreadydone))
{
# $outstr .= "$attr\n\t\t- $desc \n\t\t(Table: $tab)\n\n";
#$outstr .= "$attr\n\t\t- $desc\n\n";
my $space = (length($attr)<7 ? "\t\t" : "\t");
$outstr .= "$attr:$space$desc\n\n";
push(@attrlist, "$attr:$space$desc\n\n");
}
push(@alreadydone, $attr);
}
chop($outstr); chop($outstr);
# print the output in alphabetical order
foreach my $a (sort @attrlist) {
$outstr .= "$a";
}
chop($outstr); chop($outstr);
$rsp->{data}->[2] = $outstr;
# the monitoring table is special