loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.67, 2005/06/07 02:14:28	version 1.68, 2005/07/05 21:30:14
Line 138 sub success {	Line 138 sub success {
print $idf "request.role=cm\n";	print $idf "request.role=cm\n";
print $idf "request.role.adv=$env{'user.adv'}\n";	print $idf "request.role.adv=$env{'user.adv'}\n";
print $idf "request.host=$ENV{'REMOTE_ADDR'}\n";	print $idf "request.host=$ENV{'REMOTE_ADDR'}\n";
	if ($username eq 'public' && $domain eq 'public') {
	print $idf "environment.remote=off\n";
	}
if ($FORM{'interface'}) {	if ($FORM{'interface'}) {
$FORM{'interface'}=~s/\W//gs;	$FORM{'interface'}=~s/\W//gs;
print $idf "browser.interface=$FORM{'interface'}\n";	print $idf "browser.interface=$FORM{'interface'}\n";
Line 172 sub success {	Line 175 sub success {

# ------------------------------------------------------------ Get cookie ready	# ------------------------------------------------------------ Get cookie ready

	if ($username eq 'public' && $domain eq 'public') {
	return $cookie;
	}
$cookie="lonID=$cookie; path=/";	$cookie="lonID=$cookie; path=/";
# -------------------------------------------------------- Menu script and info	# -------------------------------------------------------- Menu script and info
my $windowinfo=&Apache::lonmenu::open($clientos);	my $windowinfo=&Apache::lonmenu::open($clientos);