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 |