Commit 401601e5 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Fix up usermod command. Failed for Mike the other day. Not sure why,

but whatever I did seemed to do the trick ...
parent a56b4bd8
......@@ -209,7 +209,6 @@ sub dowork() {
# MAKE SURE not to update the shell... if its someone who gets tcsh on
# paper, we don't want to paperbag them...
system("/usr/sbin/pw usermod $user -u $user_number -c \"$fullname\" ".
"-k /usr/share/skel -m -d /users/$user ".
"-g $project $groupargument") == 0
or print STDERR "Could not modify user $user on paper\n";
......@@ -239,10 +238,9 @@ sub dowork() {
# DO NOT mess with the quoting... you have to escape all the escapes,
# because perl does the escapes once, then ssh takes them again,
# so \\\" becomes " by the time the shell gets it.
$str = "$ssh $control_node " .
"/usr/sbin/pw usermod $user -u $user_number -c \\\"$fullname\\\" ".
"-k /usr/share/skel -m -d /users/$user -g $project ".
"$groupargument -s /bin/tcsh";
$str = "$ssh $control_node ".
"/usr/sbin/pw usermod $user -u $user_number ".
"-c \\\"$fullname\\\" -g $project $groupargument";
system($str) == 0
or print STDERR "Could not modify user $user on $control_node.\n";
system("$ssh $control_node ".
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