loncom/cgi/loncgi.pm - diff

Return to loncgi.pm CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.5, 2005/05/25 22:31:51	version 1.6, 2006/04/10 17:46:04
Line 150 sub transfer_profile_to_env {	Line 150 sub transfer_profile_to_env {
}	}
foreach my $envrow (@profile) {	foreach my $envrow (@profile) {
chomp($envrow);	chomp($envrow);
my ($envname,$envvalue)=split(/=/,$envrow);	my ($envname,$envvalue)=split(/=/,$envrow,2);
	$envname = &unescape($envname);
	$envvalue = &unescape($envvalue);
$Apache::lonnet::env{$envname} = $envvalue;	$Apache::lonnet::env{$envname} = $envvalue;
}	}
$Apache::lonnet::env{'user.environment'} = "$lonidsdir/$handle.id";	$Apache::lonnet::env{'user.environment'} = "$lonidsdir/$handle.id";
Line 160 sub transfer_profile_to_env {	Line 162 sub transfer_profile_to_env {
#############################################	#############################################
#############################################	#############################################

	sub escape {
	my $str=shift;
	$str =~ s/(\W)/"%".unpack('H2',$1)/eg;
	return $str;
	}

	# ----------------------------------------------------- Un-Escape Special Chars

	sub unescape {
	my $str=shift;
	$str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
	return $str;
	}


=pod	=pod

=back	=back