loncom/lcuseradd - diff

Return to lcuseradd CVS log

Up to [LON-CAPA] / loncom

version 1.10, 2000/10/30 02:50:23	version 1.11, 2000/10/30 02:57:47
Line 157 close IN;	Line 157 close IN;
my ($userid,$useroldcryptpwd);	my ($userid,$useroldcryptpwd);
my @F; my @U;	my @F; my @U;
for my $l (@lines) {	for my $l (@lines) {
	chop $l;
@F=split(/\:/,$l);	@F=split(/\:/,$l);
if ($F[0] eq $username) {($userid,$useroldcryptpwd)=($F[2],$F[1]); @U=@F;}	if ($F[0] eq $username) {($userid,$useroldcryptpwd)=($F[2],$F[1]); @U=@F;}
}	}
Line 216 $<=$wwwid; # unfool the program	Line 217 $<=$wwwid; # unfool the program
system('/bin/chmod','-R','0640',"/home/$safeusername");	system('/bin/chmod','-R','0640',"/home/$safeusername");
system('/bin/chmod','0750',"/home/$safeusername");	system('/bin/chmod','0750',"/home/$safeusername");
mkdir "/home/$safeusername/public_html",0750;	mkdir "/home/$safeusername/public_html",0750;
open OUT,">/home/$safeusername/public_html";	open OUT,">/home/$safeusername/public_html/index.html";
print OUT<<END;	print OUT<<END;
<HTML>	<HTML>
<HEAD>	<HEAD>
Line 239 This area provides for:	Line 240 This area provides for:
</HTML>	</HTML>
END	END
close OUT;	close OUT;
	system('/bin/chown','-R',"$safeusername:$safeusername","/home/$safeusername");
&disable_root_capability;	&disable_root_capability;
unlink('/tmp/lock_lcpasswd');	unlink('/tmp/lock_lcpasswd');
exit 0;	exit 0;