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

Fix local shell for admins.

parent 71a5944a
#!/usr/bin/perl -wT #!/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 # {{{EMULAB-LICENSE
# #
...@@ -848,13 +848,13 @@ sub UpdateUser(;$) ...@@ -848,13 +848,13 @@ sub UpdateUser(;$)
$remshellarg = "-s $NOLOGIN"; $remshellarg = "-s $NOLOGIN";
} }
else { else {
# Leave local shell alone if an admin. # Admin users get a local shell.
$locshellarg = "-s $PBAG" if ($usr_admin) {
if (!$usr_admin); $locshellarg = "-s " . $shellpaths{"tcsh"};
# Special treatment for PROTUSER and GENIRACKs }
$locshellarg = "-s " . $shellpaths{"tcsh"} . " " else {
if ($usr_admin && ($user eq $PROTOUSER || $GENIRACK)); $locshellarg = "-s $PBAG"
}
if (!defined($usr_shell) || if (!defined($usr_shell) ||
!exists($shellpaths{$usr_shell})) { !exists($shellpaths{$usr_shell})) {
$remshellarg = "-s " . $shellpaths{"tcsh"}; $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