loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.1.1.1, 1999/10/13 17:48:52	version 1.3, 1999/12/16 20:30:55
Line 1	Line 1
# The LearningOnline Network	# The LearningOnline Network
# User Authentication Module	# User Authentication Module
# 5/21/99,5/22,5/25,5/26,5/27,5/29,6/2,6/11,6/14,6/15 Gerd Kortemeyer	# 5/21/99,5/22,5/25,5/26,5/27,5/29,6/2,6/11,6/14,6/15
	# 16/11,12/16 Gerd Kortemeyer

package Apache::lonauth;	package Apache::lonauth;

Line 23 sub success {	Line 24 sub success {
} else {	} else {
my $now=time;	my $now=time;
$cookie="$username\_$now\_$domain\_$authhost";	$cookie="$username\_$now\_$domain\_$authhost";
	my $userroles=Apache::lonnet::reply(
	"dump:$domain:$username:roles",
	$authhost);
	$userroles=~s/&/\n/g;
{	{
my $idf=Apache::File->new(">$lonids/$cookie.id");	my $idf=Apache::File->new(">$lonids/$cookie.id");
print $idf "Name: $username\n";	print $idf "username=$username\n";
	print $idf "userdomain=$domain\n";
	print $idf "userhome=$authhost\n";
	print $idf "$userroles\n";
}	}
}	}
$cookie="lonID=$cookie; path=/";	$cookie="lonID=$cookie; path=/";