loncom/lcuseradd - diff

Return to lcuseradd CVS log

Up to [LON-CAPA] / loncom

version 1.9, 2000/10/30 02:42:17	version 1.10, 2000/10/30 02:50:23
Line 169 if (!defined($userid)) {	Line 169 if (!defined($userid)) {
}	}

# Construct new password entry (random salt)	# Construct new password entry (random salt)
my $newcryptpwd=crypt($newpwd,(join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]));	my $newcryptpwd=crypt($password1,(join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]));
$U[1]=$newcryptpwd;	$U[1]=$newcryptpwd;
my $userline=join(':',@U);	my $userline=join(':',@U);
my $rootid=&enable_root_capability;	my $rootid=&enable_root_capability;
Line 205 unless ($smbexist) {	Line 205 unless ($smbexist) {
close OUT;	close OUT;
}	}
open(OUT,"\|/usr/bin/smbpasswd -s $safeusername>/dev/null");	open(OUT,"\|/usr/bin/smbpasswd -s $safeusername>/dev/null");
print OUT $newpwd; print OUT "\n";	print OUT $password1; print OUT "\n";
print OUT $newpwd; print OUT "\n";	print OUT $password1; print OUT "\n";
close OUT;	close OUT;
$<=$wwwid; # unfool the program	$<=$wwwid; # unfool the program