Diff for /loncom/lond between versions 1.52 and 1.53

version 1.52, 2001/09/30 18:32:31 version 1.53, 2001/10/23 04:38:45
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 Scott Harrison  # 9/30,10/22 Scott Harrison
 #  #
 # based on "Perl Cookbook" ISBN 1-56592-243-3  # based on "Perl Cookbook" ISBN 1-56592-243-3
 # preforker - server who forks first  # preforker - server who forks first
Line 587  sub make_new_child { Line 587  sub make_new_child {
             print $pf "localauth:$npass\n";              print $pf "localauth:$npass\n";
        }         }
        print $client "ok\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");                                   my $pf = IO::File->new(">$passfilename");
             print $pf "none:\n";               print $pf "none:\n"; 

Removed from v.1.52  
changed lines
  Added in v.1.53


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>