X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;ds=sidebyside;f=perl-itkacl-2.0%2Fitkacl.i;fp=perl-itkacl-2.0%2Fitkacl.i;h=0000000000000000000000000000000000000000;hb=5ea73ea3a1ffa23ca598fac117830664b66a2ebf;hp=f58703c171512351665b38d9ec4fec25031d1753;hpb=55f933b88c9d9992b1ec0ed7c13a621032f7637d;p=itkacl

diff --git a/perl-itkacl-2.0/itkacl.i b/perl-itkacl-2.0/itkacl.i
deleted file mode 100644
index f58703c..0000000
--- a/perl-itkacl-2.0/itkacl.i
+++ /dev/null
@@ -1,20 +0,0 @@
-/* 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);
-	}
-	
-%}
-