[

define_tag:'lp_var_unpack',
	-description='Unpacks variables that were lp_var_pack.  Optionally can decrypt data.',
	-priority='replace',
	-required='object_to_unpack',
	-optional='password',
	-optional='encodehex',
	-optional='encodebase64',
	-optional='noencode';

	// save error so we won't overwrite it with our protect below
	local:'_ec' = error_code;
	local:'_em' = error_msg;
	lp_error_clearError;

	if: (local_defined:'noencode');
		local:'unpack' = #object_to_unpack;
	else: (local_defined:'encodehex');
		protect;
			handle_error;
				fail: -1, 'Invalid object passed - it was not hex encoded.';
			/handle_error;
	
			local:'unpack' = (decode_hex: #object_to_unpack);
		/protect;		
	else; // base64
		protect;
			handle_error;
				fail: -1, 'Invalid object passed - it was not base64 encoded.';
			/handle_error;
	
			local:'unpack' = (decode_base64: #object_to_unpack);
		/protect;
	/if;

	if: (local_defined:'password');
		protect;
			handle_error;
				fail: -1, 'Invalid object passed - it was not encrypted.';
			/handle_error;
	
			#unpack = (decrypt_blowfish2:-seed=#password,#unpack);
		/protect;
	/if;


	protect;
		handle_error;
			fail: -1, 'Invalid object passed - it was not compressed.';
		/handle_error;

		#unpack = (decompress:#unpack);
	/protect;

	protect;
		handle_error;
			fail: -1, 'Invalid object passed - it was not serialized.';
		/handle_error;

		#unpack->(unserialize:#unpack);
	/protect;

	// restore the error, if any
	error_code = #_ec;
	error_msg  = #_em;

	return: #unpack;

/define_tag;

]