--- loncom/lond	2001/09/30 18:32:31	1.52
+++ loncom/lond	2001/10/23 04:38:45	1.53
@@ -16,7 +16,7 @@
 # 03/24 Gerd Kortemeyer
 # 04/02 Scott Harrison
 # 05/11,05/28,08/30 Gerd Kortemeyer
-# 9/30 Scott Harrison
+# 9/30,10/22 Scott Harrison
 #
 # based on "Perl Cookbook" ISBN 1-56592-243-3
 # preforker - server who forks first
@@ -587,7 +587,18 @@ sub make_new_child {
   	  		         print $pf "localauth:$npass\n";
 			       }
 			       print $client "ok\n";
-                             } elsif ($umode eq 'none') {
+			     } elsif ($umode eq 'unix') {
+			       {
+				 my $execpath="$perlvar{'lonDaemons'}/".
+				              "lcuseradd";
+			         my $se = IO::File->new("|$execpath");
+				 print $se "$uname\n";
+				 print $se "$npass\n";
+				 print $se "$npass\n";
+                                 my $pf = IO::File->new(">$passfilename");
+ 	  		         print $pf "unix:\n"; 
+			       }
+			     } elsif ($umode eq 'none') {
                                { 
                                  my $pf = IO::File->new(">$passfilename");
  	  		         print $pf "none:\n";