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.71, 2005/11/10 19:19:08
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(mktime);

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='UTC';
	my $timediff=POSIX::mktime(localtime())-POSIX::mktime(gmtime());
	if ($timediff) {
	my $hours=int($timediff/3600);
	my $minutes=abs(int(($timediff-$hours*3600)/60));
	my $sign="+";
	if ($timediff<0) {
	$sign="-";
	}
	$timezone.=$sign.abs($hours).':'.substr("0$minutes",-2);
	}
	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";