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

get to info in syslog for hierarchy

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5511 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2010-03-17 19:41:35 +00:00
parent fef18ac04e
commit 951c090c7d
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
xCAT-server/sbin/xcatd
View File

@ -1644,6 +1644,7 @@ sub validate {
}
}
# If we are still in, that means this rule is the first match and dictates behavior.
#print Dumper($request);
if ($rule->{rule}) {
my $logst;
my $rc;
@ -1666,7 +1667,22 @@ sub validate {
} else {
$request->{username}->[0] = $peername;
}
if ($request->{noderange} && defined($request->{noderange}->[0])) { $logst .= " to ".$request->{noderange}->[0]; }
if ($request->{noderange} && defined($request->{noderange}->[0]))
{
$logst .= " to ".$request->{noderange}->[0];
} else { # no noderange maybe a nodes
if ($request->{node} && defined($request->{node}->[0])) {
my @reqnodes = @{$request->{node}};
if (@reqnodes) {
$logst .= " to ";
foreach my $node (@reqnodes) {
$logst .= "$node,";
}
chop $logst;
}
}
}
# add each argument
my $args = $request->{arg};
my $arglist;