Commit 14d6d0b0 authored by Leigh B Stoller's avatar Leigh B Stoller

Fix local shell for admins.

parent 71a5944a
#!/usr/bin/perl -wT
#
# Copyright (c) 2000-2013 University of Utah and the Flux Group.
# Copyright (c) 2000-2014 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -848,13 +848,13 @@ sub UpdateUser(;$)
$remshellarg = "-s $NOLOGIN";
}
else {
# Leave local shell alone if an admin.
# Admin users get a local shell.
if ($usr_admin) {
$locshellarg = "-s " . $shellpaths{"tcsh"};
}
else {
$locshellarg = "-s $PBAG"
if (!$usr_admin);
# Special treatment for PROTUSER and GENIRACKs
$locshellarg = "-s " . $shellpaths{"tcsh"} . " "
if ($usr_admin && ($user eq $PROTOUSER || $GENIRACK));
}
if (!defined($usr_shell) ||
!exists($shellpaths{$usr_shell})) {
$remshellarg = "-s " . $shellpaths{"tcsh"};
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment