Let internal env variable override, still getting hostnames in request->{username}

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@13592 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2012-08-23 18:20:17 +00:00
parent d01a86fe6c
commit 89a683b796

View File

@ -695,10 +695,13 @@ sub process_request
my ($var, $value) = split(/=/, $envar, 2);
$ENV{$var} = $value;
}
# if DSH_FROM_USERID does not exist, set for internal calls
# if request->{username} exists, set DSH_FROM_USERID to it
# override input, this is what was authenticated
if (($request->{username}) && defined($request->{username}->[0])) {
$ENV{DSH_FROM_USERID} = $request->{username}->[0];
if (!($ENV{'DSH_FROM_USERID'})) {
if (($request->{username}) && defined($request->{username}->[0])) {
$ENV{DSH_FROM_USERID} = $request->{username}->[0];
}
}
if ($command eq "xdsh")
{