/* SWIG interface for libitkacl */
%module itkacl

/* Convert errors to Perl exceptions and keep the interface clean. */
%inline %{
	extern int itkacl_check(char *realm, char *user, char *errmsg, size_t errmsgsize);
	int check(char *realm, char *user)
	{
		char errmsg[1024];
		int ret = itkacl_check(realm, user, errmsg, 1024);

		/* printf("check '%s' vs. '%s' gave %d\n", user, realm, ret); */
		if (ret == -1)
			die(errmsg);
		else
			return (ret == 0);
	}
	
%}