version 1.23, 2008/03/17 09:51:40
|
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 165 sub encrypt_ref {
|
Line 165 sub encrypt_ref {
|
next if (!$value); |
next if (!$value); |
next if ($value =~ /^\w+:/); # explict javascript: or http: link |
next if ($value =~ /^\w+:/); # explict javascript: or http: link |
my $href=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$value); |
my $href=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$value); |
if ($href !~ /^http:/) { |
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; |
} |
} |