--- loncom/auth/lonauth.pm	2006/08/30 22:12:11	1.82
+++ loncom/auth/lonauth.pm	2006/09/19 21:36:24	1.83
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.82 2006/08/30 22:12:11 albertel Exp $
+# $Id: lonauth.pm,v 1.83 2006/09/19 21:36:24 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 GDBM_File;
 my %FORM;
 
 # ------------------------------------------------------------ Successful login
@@ -171,19 +171,19 @@ sub success {
 	}
 
 	$env{'user.environment'} = "$lonids/$cookie.id";
-	open(my $idf,">$lonids/$cookie.id");
-	unless (flock($idf,LOCK_EX)) {
+	
+	if (tie(my %disk_env,'GDBM_File',"$lonids/$cookie.id",
+		 &GDBM_WRCREAT(),0640)) {
+	    &add_to_env(\%disk_env,\%initial_env);
+	    &add_to_env(\%disk_env,\%userenv,'environment.');
+	    &add_to_env(\%disk_env,$userroles);
+	    &add_to_env(\%disk_env,$extra_env);
+	    untie(%disk_env);
+	} else {
 	    &Apache::lonnet::logthis("<font color=blue>WARNING: ".
-			   'Could not obtain exclusive lock in lonauth: '.$!);
-	    close($idf);
+			   'Could not create environment storage in lonauth: '.$!);
 	    return 'error: '.$!;
 	}
-
-	&add_to_env($idf,\%initial_env);
-	&add_to_env($idf,\%userenv,'environment.');
-	&add_to_env($idf,$userroles);
-	&add_to_env($idf,$extra_env);
-	close($idf);
     }
     $env{'request.role'}='cm';
     $env{'request.role.adv'}=$env{'user.adv'};
@@ -252,8 +252,8 @@ ENDSUCCESS
 sub add_to_env {
     my ($idf,$env_data,$prefix) = @_;
     while (my ($key,$value) = each(%$env_data)) {
-	print $idf (&escape($prefix.$key).'='.&escape($value)."\n");
-	$env{$prefix.$key} = $value;
+	$idf->{$prefix.$key} = $value;
+	$env{$prefix.$key}   = $value;
     }
 }