loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.71, 2005/11/10 19:19:08	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(mktime);	use POSIX qw(strftime);

my %FORM;	my %FORM;

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