loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.48, 2003/04/07 18:24:05	version 1.53, 2003/07/16 20:42:31
Line 126 sub success {	Line 126 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";
Line 232 sub handler {	Line 236 sub handler {
my $r = shift;	my $r = shift;

my $buffer;	my $buffer;
$r->read($buffer,$r->header_in('Content-length'));	$r->read($buffer,$r->header_in('Content-length'),0);
my @pairs=split(/&/,$buffer);	my @pairs=split(/&/,$buffer);
my $pair; my $name; my $value;	my $pair; my $name; my $value;
undef %FORM;	undef %FORM;