loncom/lonenc.pm - diff

Return to lonenc.pm CVS log

Up to [LON-CAPA] / loncom

version 1.19, 2006/12/24 21:22:33	version 1.22, 2007/10/05 18:33:29
Line 47 sub encryptseed {	Line 47 sub encryptseed {
my %descargs = ( 'one_time' => 1);	my %descargs = ( 'one_time' => 1);
my %course =	my %course =
&Apache::lonnet::coursedescription($cid,\%descargs);	&Apache::lonnet::coursedescription($cid,\%descargs);
my %seedhash =	$seed = $course{'internal.encseed'};
&Apache::lonnet::get('environment',['internal.encseed'],
$course{'domain'},$course{'num'});
$seed = $seedhash{'internal.encseed'};
}	}
}	}
if (defined($seed)) {	if (defined($seed)) {
Line 59 sub encryptseed {	Line 56 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 154 sub encrypt_ref {	Line 151 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