1 /* SWIG interface for libitkacl */
4 /* Convert errors to Perl exceptions and keep the interface clean. */
6 extern int itkacl_check(char *realm, char *user, char *errmsg, size_t errmsgsize);
7 int check(char *realm, char *user)
10 int ret = itkacl_check(realm, user, errmsg, 1024);
12 /* printf("check '%s' vs. '%s' gave %d\n", user, realm, ret); */