1 /* SWIG interface for libitkacl */
12 /* Convert errors to Perl exceptions and keep the interface clean. */
16 struct itkacl_ctx *_ctx = NULL;
21 _ctx = itkacl_create_ctx(errmsg, sizeof(errmsg));
28 itkacl_free_ctx(_ctx);
31 int check(char *realm, char *user)
34 int ret = itkacl_check_with_ctx(_ctx, realm, user, errmsg, 1024);
36 /* printf("check '%s' vs. '%s' gave %d\n", user, realm, ret); */