--- loncom/Attic/lcuseradd 2001/11/15 22:38:12 1.17 +++ loncom/Attic/lcuseradd 2001/11/16 06:18:35 1.18 @@ -10,7 +10,7 @@ # YEAR=2001 # 10/21,11/13,11/15 Scott Harrison # -# $Id: lcuseradd,v 1.17 2001/11/15 22:38:12 harris41 Exp $ +# $Id: lcuseradd,v 1.18 2001/11/16 06:18:35 harris41 Exp $ ### ############################################################################### @@ -225,10 +225,10 @@ print OUT "\n"; print OUT $password1; print OUT "\n"; close OUT; -($>,$<)=($wwwid,0); if ($?) { exit 8; } +($>,$<)=($wwwid,0); &enable_root_capability; # ------------------------------ Make final modifications to the user directory @@ -237,7 +237,7 @@ if ($?) { # system('/bin/chmod','-R','0660',"/home/$safeusername"); system('/bin/chmod','0710',"/home/$safeusername"); mkdir "/home/$safeusername/public_html",0755; -system('/bin/chmod','2770',"/home/$safeusername/public_html"); +system('/bin/chmod','02770',"/home/$safeusername/public_html"); open OUT,">/home/$safeusername/public_html/index.html"; print OUT<