--- loncom/Attic/lcuseradd 2000/10/30 02:50:23 1.10 +++ loncom/Attic/lcuseradd 2000/10/30 03:08:28 1.12 @@ -157,6 +157,7 @@ close IN; my ($userid,$useroldcryptpwd); my @F; my @U; for my $l (@lines) { + chop $l; @F=split(/\:/,$l); if ($F[0] eq $username) {($userid,$useroldcryptpwd)=($F[2],$F[1]); @U=@F;} } @@ -213,10 +214,10 @@ $<=$wwwid; # unfool the program # Make final modifications to the user directory. # Add a public_html file with a stand-in index.html file. -system('/bin/chmod','-R','0640',"/home/$safeusername"); -system('/bin/chmod','0750',"/home/$safeusername"); -mkdir "/home/$safeusername/public_html",0750; -open OUT,">/home/$safeusername/public_html"; +system('/bin/chmod','-R','0660',"/home/$safeusername"); +system('/bin/chmod','0770',"/home/$safeusername"); +mkdir "/home/$safeusername/public_html",0770; +open OUT,">/home/$safeusername/public_html/index.html"; print OUT< @@ -239,7 +240,7 @@ This area provides for: END close OUT; - +system('/bin/chown','-R',"$safeusername:$safeusername","/home/$safeusername"); &disable_root_capability; unlink('/tmp/lock_lcpasswd'); exit 0;