loncom/cgi/loncgi.pm - diff

Return to loncgi.pm CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.7, 2006/05/18 14:24:06	version 1.8, 2006/09/19 21:36:31
Line 59 use CGI::Cookie();	Line 59 use CGI::Cookie();
use Fcntl qw(:flock);	use Fcntl qw(:flock);
use LONCAPA;	use LONCAPA;
use LONCAPA::Configuration();	use LONCAPA::Configuration();
	use GDBM_File;

my $lonidsdir;	my $lonidsdir;

Line 143 Returns: undef	Line 144 Returns: undef
#############################################	#############################################
sub transfer_profile_to_env {	sub transfer_profile_to_env {
my ($handle)=@_;	my ($handle)=@_;
my @profile;	if (tie(my %disk_env,'GDBM_File',"$lonidsdir/$handle.id",&GDBM_READER(),
{	0640)) {
open(IDFILE, "<$lonidsdir/$handle.id");	%Apache::lonnet::env = %disk_env;
flock(IDFILE,LOCK_SH);	untie(%disk_env);
@profile=<IDFILE>;
close(IDFILE);
}
foreach my $envrow (@profile) {
chomp($envrow);
my ($envname,$envvalue)=split(/=/,$envrow,2);
$envname = &unescape($envname);
$envvalue = &unescape($envvalue);
$Apache::lonnet::env{$envname} = $envvalue;
}	}
$Apache::lonnet::env{'user.environment'} = "$lonidsdir/$handle.id";	$Apache::lonnet::env{'user.environment'} = "$lonidsdir/$handle.id";
return undef;	return undef;