loncom/lonenc.pm - diff

Return to lonenc.pm CVS log

Up to [LON-CAPA] / loncom

version 1.2, 2004/03/31 05:29:23	version 1.4, 2004/11/10 22:20:50
Line 44 sub handler {	Line 44 sub handler {
my $handle=$lonid->value;	my $handle=$lonid->value;
$handle=~s/\W//g;	$handle=~s/\W//g;
my $lonidsdir=$r->dir_config('lonIDsDir');	my $lonidsdir=$r->dir_config('lonIDsDir');
	$ENV{'request.enc'}=1;
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) {	if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) {
# Initialize Environment	# Initialize Environment
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);	&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);
# Decrypt URL and redirect	# Decrypt URL and redirect
$r->internal_redirect(&unencrypted($r->uri));	&Apache::lonnet::logthis("args ".$r->args);
	&Apache::lonnet::logthis("uri ".$r->uri);
	$r->internal_redirect(&unencrypted($r->uri).'?'.$r->args);
return OK;	return OK;
}	}
}	}
Line 84 sub unencrypted {	Line 87 sub unencrypted {

sub encrypted {	sub encrypted {
my $uri=shift;	my $uri=shift;
	if ($ENV{'request.role.adv'}) { return($uri); }
my $seed=&encryptseed();	my $seed=&encryptseed();
unless ($seed) {	unless ($seed) {
return $uri;	return $uri;