|
version 1.55, 2001/11/16 06:19:33
|
version 1.56, 2001/11/16 16:26:01
|
|
Line 16
|
Line 16
|
| # 03/24 Gerd Kortemeyer |
# 03/24 Gerd Kortemeyer |
| # 04/02 Scott Harrison |
# 04/02 Scott Harrison |
| # 05/11,05/28,08/30 Gerd Kortemeyer |
# 05/11,05/28,08/30 Gerd Kortemeyer |
| # 9/30,10/22,11/13,11/15 Scott Harrison |
# 9/30,10/22,11/13,11/15,11/16 Scott Harrison |
| # |
# |
| # $Id$ |
# $Id$ |
| ### |
### |
|
Line 567 sub make_new_child {
|
Line 567 sub make_new_child {
|
| } |
} |
| # -------------------------------------------------------------------- makeuser |
# -------------------------------------------------------------------- makeuser |
| } elsif ($userinput =~ /^makeuser/) { |
} elsif ($userinput =~ /^makeuser/) { |
| |
my $oldumask=umask(0077); |
| if ($wasenc==1) { |
if ($wasenc==1) { |
| my |
my |
| ($cmd,$udom,$uname,$umode,$npass)=split(/:/,$userinput); |
($cmd,$udom,$uname,$umode,$npass)=split(/:/,$userinput); |
|
Line 642 sub make_new_child {
|
Line 643 sub make_new_child {
|
| } else { |
} else { |
| print $client "refused\n"; |
print $client "refused\n"; |
| } |
} |
| |
umask($oldumask); |
| # -------------------------------------------------------------- changeuserauth |
# -------------------------------------------------------------- changeuserauth |
| } elsif ($userinput =~ /^changeuserauth/) { |
} elsif ($userinput =~ /^changeuserauth/) { |
| if ($wasenc==1) { |
if ($wasenc==1) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lond CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom