loncom/lonenc.pm - diff

Return to lonenc.pm CVS log

Up to [LON-CAPA] / loncom

version 1.20, 2006/12/27 17:11:08	version 1.23, 2008/03/17 09:51:40
Line 34 use Crypt::IDEA;	Line 34 use Crypt::IDEA;
use Time::HiRes qw(gettimeofday);	use Time::HiRes qw(gettimeofday);
use LONCAPA;	use LONCAPA;


	#
	# If a module makes multiple SSI calls and some of the ssi calls result in a
	# resource for an encoded URL, and this can be done in an unprivileged role,
	# there must be a mechanism t oreset the 'request.enc' environment variable.
	# This sub centralizes that mechanism:
	#
	sub reset_enc {
	$env{'request.enc'} = 0;
	}

sub encryptseed {	sub encryptseed {
my ($cid) = @_;	my ($cid) = @_;
if (!defined($cid)) {	if (!defined($cid)) {
Line 56 sub encryptseed {	Line 67 sub encryptseed {
$seed=substr($seed.$seed,0,32);	$seed=substr($seed.$seed,0,32);
return pack("H32",$seed);	return pack("H32",$seed);
} else {	} else {
return;	return pack("H32",1);
}	}
}	}

Line 151 sub encrypt_ref {	Line 162 sub encrypt_ref {
my $html;	my $html;
if ($force_enc \|\| $env{'request.enc'}) {	if ($force_enc \|\| $env{'request.enc'}) {
while (my ($name,$value)= each(%{ $elements })) {	while (my ($name,$value)= each(%{ $elements })) {
if (!$value) { next; }	next if (!$value);
	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 !~ /^http:/) {
# IE really wants an extension	# IE really wants an extension