--- loncom/auth/lonauth.pm	2005/11/10 19:19:08	1.71
+++ loncom/auth/lonauth.pm	2006/01/19 22:14:38	1.73
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.71 2005/11/10 19:19:08 www Exp $
+# $Id: lonauth.pm,v 1.73 2006/01/19 22:14:38 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -40,7 +40,7 @@ use Apache::lonnet;
 use Apache::lonmenu();
 use Fcntl qw(:flock);
 use Apache::lonlocal;
-use POSIX qw(mktime);
+use POSIX qw(strftime);
 
 my %FORM;
 
@@ -114,6 +114,8 @@ sub success {
     my %userenv=Apache::lonnet::dump('environment',$domain,$username);
     my ($tmp) = keys(%userenv);
     if ($tmp !~ /^(con_lost|error|no_such_host)/i) {
+	# default remote control to off
+	if ($userenv{'remote'} ne 'on') { $userenv{'remote'} = 'off'; }
 	foreach my $key (keys(%userenv)) {
 	    $userenv.="environment.$key=$userenv{$key}\n";
 	}
@@ -154,17 +156,7 @@ sub success {
            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);
-	}
+        my $timezone=POSIX::strftime("%Z",localtime(time));
         print $idf "server.timezone=$timezone\n";
 	print $idf "request.course.fn=\n";
 	print $idf "request.course.uri=\n";