--- loncom/Attic/lcuseradd 2001/11/15 22:38:12 1.17 +++ loncom/Attic/lcuseradd 2002/02/14 22:09:14 1.19 @@ -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.19 2002/02/14 22:09:14 harris41 Exp $ ### ############################################################################### @@ -151,7 +151,7 @@ else { unlink('/tmp/lock_lcpasswd'); exit 3; } - map {chomp} @input; + foreach (@input) {chomp;} } my ($username,$password1,$password2)=@input; @@ -164,8 +164,8 @@ if (($username ne $safeusername) or ($sa exit 9; } my $pbad=0; -map {if ((ord($_)<32)||(ord($_)>126)){$pbad=1;}} (split(//,$password1)); -map {if ((ord($_)<32)||(ord($_)>126)){$pbad=1;}} (split(//,$password2)); +foreach (split(//,$password1)) {if ((ord($_)<32)||(ord($_)>126)){$pbad=1;}} +foreach (split(//,$password2)) {if ((ord($_)<32)||(ord($_)>126)){$pbad=1;}} if ($pbad) { print "Error. A password entry had an invalid character.\n"; unlink('/tmp/lock_lcpasswd'); @@ -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<