loncom/lonenc.pm - diff

Return to lonenc.pm CVS log

Up to [LON-CAPA] / loncom

version 1.4, 2004/11/10 22:20:50	version 1.5, 2004/11/11 20:05:56
Line 82 sub unencrypted {	Line 82 sub unencrypted {
pack("H16",substr($uri,$encidx,16))	pack("H16",substr($uri,$encidx,16))
);	);
}	}
	$ENV{'request.enc'}=1;
return substr($decuri,0,$cmdlength);	return substr($decuri,0,$cmdlength);
}	}

Line 103 sub encrypted {	Line 104 sub encrypted {
return '/enc/'.$cmdlength.'/'.&Apache::lonnet::escape($encuri);	return '/enc/'.$cmdlength.'/'.&Apache::lonnet::escape($encuri);
}	}

	sub check_encrypt {
	my $str=shift;
	if ($ENV{'request.enc'}) { return &Apache::lonenc::encrypted($str); }
	return $str;
	}

1;	1;
__END__	__END__