version 1.24, 2008/12/19 14:29:13
|
version 1.26, 2020/03/15 23:04:05
|
Line 116 sub remove_noise {
|
Line 116 sub remove_noise {
|
} |
} |
|
|
sub encrypted { |
sub encrypted { |
my ($uri,$force_enc) = @_; |
my ($uri,$force_enc,$cid) = @_; |
if (!$force_enc && $env{'request.role.adv'}) { return($uri); } |
if (!$force_enc && $env{'request.role.adv'}) { return($uri); } |
my $seed=&encryptseed(); |
my $seed=&encryptseed($cid); |
unless ($seed) { |
unless ($seed) { |
return $uri; |
return $uri; |
} |
} |
Line 168 sub encrypt_ref {
|
Line 168 sub encrypt_ref {
|
if ($href !~ /^https?\:/) { |
if ($href !~ /^https?\:/) { |
# IE really wants an extension |
# IE really wants an extension |
my ($extension) = ($href =~ m/(\.[^.]*)$/); |
my ($extension) = ($href =~ m/(\.[^.]*)$/); |
$href = &Apache::lonenc::encrypted($href,$force_enc); |
my $newhref = &Apache::lonenc::encrypted($href,$force_enc); |
$href .= $extension; |
unless ($newhref eq $href) { |
|
$href = $newhref.$extension; |
|
} |
} |
} |
$token->[2]->{$name}=$href; |
$token->[2]->{$name}=$href; |
} |
} |