loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.266, 2004/11/27 17:23:08	version 1.269, 2004/12/24 19:26:33
Line 1312 sub user_authorization_type {	Line 1312 sub user_authorization_type {
my ($type,$otherinfo) = split(/:/,$result);	my ($type,$otherinfo) = split(/:/,$result);
if($type =~ /^krb/) {	if($type =~ /^krb/) {
$type = $result;	$type = $result;
}	} else {
&Reply( $replyfd, "$type:\n", $userinput);	$type .= ':';
	}
	&Reply( $replyfd, "$type\n", $userinput);
}	}

return 1;	return 1;
Line 1960 sub fetch_user_file_handler {	Line 1962 sub fetch_user_file_handler {
# Note that any regular files in the way of this path are	# Note that any regular files in the way of this path are
# wiped out to deal with some earlier folly of mine.	# wiped out to deal with some earlier folly of mine.

if (!&mkpath($udir.'/')) {	if (!&mkpath($udir.'/'.$ufile)) {
&Failure($client, "unable_to_create\n", $userinput);	&Failure($client, "unable_to_create\n", $userinput);
}	}

Line 2835 sub store_handler {	Line 2837 sub store_handler {
chomp($what);	chomp($what);
my @pairs=split(/\&/,$what);	my @pairs=split(/\&/,$what);
my $hashref = &tie_user_hash($udom, $uname, $namespace,	my $hashref = &tie_user_hash($udom, $uname, $namespace,
&GDBM_WRCREAT(), "P",	&GDBM_WRCREAT(), "S",
"$rid:$what");	"$rid:$what");
if ($hashref) {	if ($hashref) {
my $now = time;	my $now = time;