loncom/lonenc.pm - diff

Return to lonenc.pm CVS log

Up to [LON-CAPA] / loncom

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;
}	}