version 1.4, 2004/11/10 22:20:50
|
version 1.6, 2004/11/14 07:54:41
|
Line 82 sub unencrypted {
|
Line 82 sub unencrypted {
|
pack("H16",substr($uri,$encidx,16)) |
pack("H16",substr($uri,$encidx,16)) |
); |
); |
} |
} |
|
$ENV{'request.enc'}=1; |
return substr($decuri,0,$cmdlength); |
return substr($decuri,0,$cmdlength); |
} |
} |
|
|
Line 103 sub encrypted {
|
Line 104 sub encrypted {
|
return '/enc/'.$cmdlength.'/'.&Apache::lonnet::escape($encuri); |
return '/enc/'.$cmdlength.'/'.&Apache::lonnet::escape($encuri); |
} |
} |
|
|
|
sub check_encrypt { |
|
my $str=shift; |
|
if ($ENV{'request.enc'}) { return &Apache::lonenc::encrypted($str); } |
|
return $str; |
|
} |
|
|
|
sub check_decrypt { |
|
my ($str)=@_; |
|
if ($$str=~m|^/enc/|) { $$str=&Apache::lonenc::unencrypted($$str); } |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|