--- loncom/auth/lonauth.pm	2005/10/24 21:32:42	1.70
+++ loncom/auth/lonauth.pm	2005/11/10 19:19:08	1.71
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.70 2005/10/24 21:32:42 albertel Exp $
+# $Id: lonauth.pm,v 1.71 2005/11/10 19:19:08 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -40,6 +40,7 @@ use Apache::lonnet;
 use Apache::lonmenu();
 use Fcntl qw(:flock);
 use Apache::lonlocal;
+use POSIX qw(mktime);
 
 my %FORM;
 
@@ -152,6 +153,19 @@ sub success {
            print $idf "browser.localpath=$FORM{'localpath'}\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.uri=\n";
 	print $idf "request.course.sec=\n";