Release a new version of the Apache module, with the context support.
[itkacl] / perl-itkacl-2.0 / itkacl.i
1 /* SWIG interface for libitkacl */
2 %module itkacl
3
4 /* Convert errors to Perl exceptions and keep the interface clean. */
5 %inline %{
6         extern int itkacl_check(char *realm, char *user, char *errmsg, size_t errmsgsize);
7         int check(char *realm, char *user)
8         {
9                 char errmsg[1024];
10                 int ret = itkacl_check(realm, user, errmsg, 1024);
11
12                 /* printf("check '%s' vs. '%s' gave %d\n", user, realm, ret); */
13                 if (ret == -1)
14                         die(errmsg);
15                 else
16                         return (ret == 0);
17         }
18         
19 %}
20