loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.256, 2004/09/14 12:08:54	version 1.259, 2004/09/24 14:15:03
Line 2091 sub mkdir_user_file_handler {	Line 2091 sub mkdir_user_file_handler {
if (-e $udir) {	if (-e $udir) {
my $newdir=$udir.'/userfiles/'.$ufile;	my $newdir=$udir.'/userfiles/'.$ufile;
if (!-e $newdir) {	if (!-e $newdir) {
mkdir($newdir);	my @parts=split('/',$newdir);
	my $path;
	foreach my $part (@parts) {
	$path .= '/'.$part;
	if (!-e $path) {
	mkdir($path,0770);
	}
	}
if (!-e $newdir) {	if (!-e $newdir) {
&Failure($client, "failed\n", "$cmd:$tail");	&Failure($client, "failed\n", "$cmd:$tail");
} else {	} else {
Line 5033 sub get_auth_type	Line 5040 sub get_auth_type
Debug("Password info = $realpassword\n");	Debug("Password info = $realpassword\n");
my ($authtype, $contentpwd) = split(/:/, $realpassword);	my ($authtype, $contentpwd) = split(/:/, $realpassword);
Debug("Authtype = $authtype, content = $contentpwd\n");	Debug("Authtype = $authtype, content = $contentpwd\n");
my $availinfo = '';	return "$authtype:$contentpwd";
if($authtype eq 'krb4' or $authtype eq 'krb5') {
$availinfo = $contentpwd;
}

return "$authtype:$availinfo";
} else {	} else {
Debug("Returning nouser");	Debug("Returning nouser");
return "nouser";	return "nouser";