loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.52, 2003/06/06 02:24:49	version 1.54, 2003/07/17 15:24:46
Line 107 sub success {	Line 107 sub success {
$FORM{'interface'}=$userenv{'interface'};	$FORM{'interface'}=$userenv{'interface'};
}	}
$ENV{'environment.remote'}=$userenv{'remote'};	$ENV{'environment.remote'}=$userenv{'remote'};
	# --------------- Do not trust query string to be put directly into environment
	foreach ('imagesuppress','appletsuppress',
	'embedsuppress','fontenhance','blackwhite',
	'interface','localpath','localres') {
	$FORM{$_}=~s/[\n\r\=]//gs;
	}
# --------------------------------------------------------- Write first profile	# --------------------------------------------------------- Write first profile

{	{
Line 126 sub success {	Line 132 sub success {
print $idf "browser.mathml=$clientmathml\n";	print $idf "browser.mathml=$clientmathml\n";
print $idf "browser.unicode=$clientunicode\n";	print $idf "browser.unicode=$clientunicode\n";
print $idf "browser.os=$clientos\n";	print $idf "browser.os=$clientos\n";
	if ($FORM{'localpath'}) {
	print $idf "browser.localpath=$FORM{'localpath'}\n";
	print $idf "browser.localres=$FORM{'localres'}\n";
	}
print $idf "request.course.fn=\n";	print $idf "request.course.fn=\n";
print $idf "request.course.uri=\n";	print $idf "request.course.uri=\n";
print $idf "request.course.sec=\n";	print $idf "request.course.sec=\n";