loncom/lonenc.pm - diff

Return to lonenc.pm CVS log

Up to [LON-CAPA] / loncom

version 1.5, 2004/11/11 20:05:56	version 1.8, 2004/12/17 21:44:19
Line 49 sub handler {	Line 49 sub handler {
# 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
&Apache::lonnet::logthis("args ".$r->args);	my $redirect=&unencrypted($r->uri);
&Apache::lonnet::logthis("uri ".$r->uri);	if ($r->args) { $redirect.='?'.$r->args; }
$r->internal_redirect(&unencrypted($r->uri).'?'.$r->args);	$r->internal_redirect($redirect);
return OK;	return OK;
}	}
}	}
Line 110 sub check_encrypt {	Line 110 sub check_encrypt {
return $str;	return $str;
}	}

	sub check_decrypt {
	my ($str)=@_;
	if (ref($str)) {
	if ($$str=~m\|^/enc/\|) { $$str=&Apache::lonenc::unencrypted($$str); }
	return;
	}
	if ($str=~m\|^/enc/\|) { return &Apache::lonenc::unencrypted($str); }
	return $str;
	}

1;	1;
__END__	__END__