--- loncom/auth/lonauth.pm	2005/06/07 02:14:28	1.67
+++ 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.67 2005/06/07 02:14:28 www Exp $
+# $Id: lonauth.pm,v 1.73 2006/01/19 22:14:38 albertel 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(strftime);
 
 my %FORM;
 
@@ -49,27 +50,47 @@ sub success {
     my ($r, $username, $domain, $authhost,$lowerurl) = @_;
     my $lonids=$r->dir_config('lonIDsDir');
 
+    my $public=($username eq 'public' && $domain eq 'public');
+
 # See if old ID present, if so, remove
 
-    my $filename;
-    opendir(DIR,$lonids);
-    while ($filename=readdir(DIR)) {
-       if ($filename=~/^$username\_\d+\_$domain\_$authhost\.id$/) {
-	  unlink($lonids.'/'.$filename);
-       }
-    }
-    closedir(DIR);
+    my ($filename,$cookie,$userroles);
+    my $now=time;
 
-# Give them a new cookie
+    if ($public) {
+	my $max_public=100;
+	my $oldest;
+	my $oldest_time=0;
+	for(my $next=1;$next<=$max_public;$next++) {
+	    if (-e $lonids."/publicuser_$next.id") {
+		my $mtime=(stat($lonids."/publicuser_$next.id"))[9];
+		if ($mtime<$oldest_time || !$oldest_time) {
+		    $oldest_time=$mtime;
+		    $oldest=$next;
+		}
+	    } else {
+		$cookie="publicuser_$next";
+		last;
+	    }
+	}
+	if (!$cookie) { $cookie="publicuser_$oldest"; }
+    } else {
+	opendir(DIR,$lonids);
+	while ($filename=readdir(DIR)) {
+	    if ($filename=~/^$username\_\d+\_$domain\_$authhost\.id$/) {
+		unlink($lonids.'/'.$filename);
+	    }
+	}
+	closedir(DIR);
 
-    my $cookie;
-    my $now=time;
-    $cookie="$username\_$now\_$domain\_$authhost";
+# Give them a new cookie
 
+	$cookie="$username\_$now\_$domain\_$authhost";
+    
 # Initialize roles
 
-    my $userroles=Apache::lonnet::rolesinit($domain,$username,$authhost);
-
+	$userroles=Apache::lonnet::rolesinit($domain,$username,$authhost);
+    }
 # ------------------------------------ Check browser type and MathML capability
 
     my ($httpbrowser,$clientbrowser,$clientversion,$clientmathml,
@@ -93,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";
 	}
@@ -132,12 +155,18 @@ 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=POSIX::strftime("%Z",localtime(time));
+        print $idf "server.timezone=$timezone\n";
 	print $idf "request.course.fn=\n";
 	print $idf "request.course.uri=\n";
 	print $idf "request.course.sec=\n";
 	print $idf "request.role=cm\n";
         print $idf "request.role.adv=$env{'user.adv'}\n";
 	print $idf "request.host=$ENV{'REMOTE_ADDR'}\n";
+	if ($public) {
+	    print $idf "environment.remote=off\n";
+	}
 	if ($FORM{'interface'}) {
 	    $FORM{'interface'}=~s/\W//gs;
 	    print $idf "browser.interface=$FORM{'interface'}\n";
@@ -172,6 +201,8 @@ sub success {
 
 # ------------------------------------------------------------ Get cookie ready
 
+    if ($public or $lowerurl eq 'noredirect') { return $cookie; }
+
     $cookie="lonID=$cookie; path=/";
 # -------------------------------------------------------- Menu script and info
     my $windowinfo=&Apache::lonmenu::open($clientos);