version 1.2, 1999/11/16 19:14:15
|
version 1.3, 1999/11/22 17:23:13
|
Line 42 sub handler {
|
Line 42 sub handler {
|
my ($envname,$envvalue)=split(/=/,$profile[$envi]); |
my ($envname,$envvalue)=split(/=/,$profile[$envi]); |
$r->subprocess_env("profile.$envname" => "$envvalue"); |
$r->subprocess_env("profile.$envname" => "$envvalue"); |
} |
} |
|
$r->subprocess_env("user.environment" => "$lonidsdir/$handle.id"); |
$r->subprocess_env("request.state" => "construct"); |
$r->subprocess_env("request.state" => "construct"); |
return OK; |
return OK; |
} else { |
} else { |