version 1.3, 2004/11/09 21:16:31
|
version 1.4, 2004/11/10 22:20:50
|
Line 44 sub handler {
|
Line 44 sub handler {
|
my $handle=$lonid->value; |
my $handle=$lonid->value; |
$handle=~s/\W//g; |
$handle=~s/\W//g; |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
|
$ENV{'request.enc'}=1; |
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { |
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { |
# Initialize Environment |
# Initialize Environment |
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); |
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); |
# Decrypt URL and redirect |
# Decrypt URL and redirect |
$r->internal_redirect(&unencrypted($r->uri)); |
&Apache::lonnet::logthis("args ".$r->args); |
|
&Apache::lonnet::logthis("uri ".$r->uri); |
|
$r->internal_redirect(&unencrypted($r->uri).'?'.$r->args); |
return OK; |
return OK; |
} |
} |
} |
} |