loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.70, 2005/10/24 21:32:42	version 1.72, 2005/11/15 17:55:03
Line 40 use Apache::lonnet;	Line 40 use Apache::lonnet;
use Apache::lonmenu();	use Apache::lonmenu();
use Fcntl qw(:flock);	use Fcntl qw(:flock);
use Apache::lonlocal;	use Apache::lonlocal;
	use POSIX qw(strftime);

my %FORM;	my %FORM;

Line 152 sub success {	Line 153 sub success {
print $idf "browser.localpath=$FORM{'localpath'}\n";	print $idf "browser.localpath=$FORM{'localpath'}\n";
print $idf "browser.localres=$FORM{'localres'}\n";	print $idf "browser.localres=$FORM{'localres'}\n";
}	}
	print $idf "server.domain=".$r->dir_config('lonDefDomain')."\n";
	my $timezone=POSIX::strftime("%Z",localtime(time));
	print $idf "server.timezone=$timezone\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";