--- loncom/lond	2001/11/16 06:19:33	1.55
+++ loncom/lond	2001/11/16 16:26:01	1.56
@@ -16,9 +16,9 @@
 # 03/24 Gerd Kortemeyer
 # 04/02 Scott Harrison
 # 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: lond,v 1.55 2001/11/16 06:19:33 harris41 Exp $
+# $Id: lond,v 1.56 2001/11/16 16:26:01 harris41 Exp $
 ###
 
 # based on "Perl Cookbook" ISBN 1-56592-243-3
@@ -567,6 +567,7 @@ sub make_new_child {
 		     }
 # -------------------------------------------------------------------- makeuser
                    } elsif ($userinput =~ /^makeuser/) {
+    	             my $oldumask=umask(0077);
 		     if ($wasenc==1) {
                        my 
                        ($cmd,$udom,$uname,$umode,$npass)=split(/:/,$userinput);
@@ -642,6 +643,7 @@ sub make_new_child {
 		     } else {
 		       print $client "refused\n";
 		     }
+		     umask($oldumask);
 # -------------------------------------------------------------- changeuserauth
                    } elsif ($userinput =~ /^changeuserauth/) {
 		     if ($wasenc==1) {