loncom/lcuseradd - diff

Return to lcuseradd CVS log

Up to [LON-CAPA] / loncom

version 1.17, 2001/11/15 22:38:12	version 1.18, 2001/11/16 06:18:35
Line 225 print OUT "\n";	Line 225 print OUT "\n";
print OUT $password1;	print OUT $password1;
print OUT "\n";	print OUT "\n";
close OUT;	close OUT;
($>,$<)=($wwwid,0);
if ($?) {	if ($?) {
exit 8;	exit 8;
}	}
	($>,$<)=($wwwid,0);
&enable_root_capability;	&enable_root_capability;

# ------------------------------ Make final modifications to the user directory	# ------------------------------ Make final modifications to the user directory
Line 237 if ($?) {	Line 237 if ($?) {
# system('/bin/chmod','-R','0660',"/home/$safeusername");	# system('/bin/chmod','-R','0660',"/home/$safeusername");
system('/bin/chmod','0710',"/home/$safeusername");	system('/bin/chmod','0710',"/home/$safeusername");
mkdir "/home/$safeusername/public_html",0755;	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";	open OUT,">/home/$safeusername/public_html/index.html";
print OUT<<END;	print OUT<<END;
<html>	<html>