version 1.5, 2004/11/11 20:05:56
|
version 1.8, 2004/12/17 21:44:19
|
Line 49 sub handler {
|
Line 49 sub handler {
|
# 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 |
&Apache::lonnet::logthis("args ".$r->args); |
my $redirect=&unencrypted($r->uri); |
&Apache::lonnet::logthis("uri ".$r->uri); |
if ($r->args) { $redirect.='?'.$r->args; } |
$r->internal_redirect(&unencrypted($r->uri).'?'.$r->args); |
$r->internal_redirect($redirect); |
return OK; |
return OK; |
} |
} |
} |
} |
Line 110 sub check_encrypt {
|
Line 110 sub check_encrypt {
|
return $str; |
return $str; |
} |
} |
|
|
|
sub check_decrypt { |
|
my ($str)=@_; |
|
if (ref($str)) { |
|
if ($$str=~m|^/enc/|) { $$str=&Apache::lonenc::unencrypted($$str); } |
|
return; |
|
} |
|
if ($str=~m|^/enc/|) { return &Apache::lonenc::unencrypted($str); } |
|
return $str; |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|