loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.31, 2000/12/13 16:41:43	version 1.33, 2000/12/13 22:45:56
Line 477 sub make_new_child {	Line 477 sub make_new_child {
my	my
($cmd,$udom,$uname,$upass,$npass)=split(/:/,$userinput);	($cmd,$udom,$uname,$upass,$npass)=split(/:/,$userinput);
chomp($npass);	chomp($npass);
	$upass=&unescape($upass);
	$npass=&unescape($npass);
my $proname=propath($udom,$uname);	my $proname=propath($udom,$uname);
my $passfilename="$proname/passwd";	my $passfilename="$proname/passwd";
if (-e $passfilename) {	if (-e $passfilename) {
Line 511 sub make_new_child {	Line 513 sub make_new_child {
my	my
($cmd,$udom,$uname,$umode,$npass)=split(/:/,$userinput);	($cmd,$udom,$uname,$umode,$npass)=split(/:/,$userinput);
chomp($npass);	chomp($npass);
	$npass=&unescape($npass);
my $proname=propath($udom,$uname);	my $proname=propath($udom,$uname);
my $passfilename="$proname/passwd";	my $passfilename="$proname/passwd";
if (-e $passfilename) {	if (-e $passfilename) {
Line 531 sub make_new_child {	Line 534 sub make_new_child {
}	}
unless ($fperror) {	unless ($fperror) {
if ($umode eq 'none') {	if ($umode eq 'none') {
} elsif ($umode eq 'kerberos') {	} elsif ($umode eq 'krb4') {
{	{
my $pf = IO::File->new(">$passfilename");	my $pf = IO::File->new(">$passfilename");
print $pf "kerberos:$npass\n";	print $pf "krb4:$npass\n";
}	}
print $client "ok\n";	print $client "ok\n";
} elsif ($umode eq 'internal') {	} elsif ($umode eq 'internal') {