Simple wrapper for perl5 with LD_PRELOAD=libthr for amanda 3.*.

svn path=/head/; revision=263893

misc/Makefile

@@ -9,6 +9,7 @@
     SUBDIR += airoflash
     SUBDIR += alevt
     SUBDIR += amanda-client
+    SUBDIR += amanda-perl-wrapper
     SUBDIR += amanda-server
     SUBDIR += amanda25-client
     SUBDIR += amanda25-server

misc/amanda-perl-wrapper/Makefile

@@ -0,0 +1,39 @@
+# New ports collection makefile for:	amanda-perl-wrapper
+# Date created:		1 Nov 2010
+# Whom:			Jun Kuriyama <kuriyama@FreeBSD.org>
+#
+# $FreeBSD$
+#
+
+PORTNAME=	amanda-perl-wrapper
+PORTVERSION=	1.00
+CATEGORIES=	misc perl5
+MASTER_SITES=	# empty
+DISTFILES=	# empty
+
+MAINTAINER=	kuriyama@FreeBSD.org
+COMMENT=	Perl wrapper to use with Amanda (with libthr.so.* linked)
+
+USE_PERL5_RUN=	yes
+SUB_FILES=	perl-amanda.c
+SUB_LIST=	PREFIX=${LOCALBASE}
+PLIST_FILES=	bin/perl-amanda
+WRKSRC=		${WRKDIR}
+
+do-fetch:
+	@${DO_NADA}
+
+pre-build: apply-slist
+
+do-build:
+	cd ${WRKSRC} && ${CC} -o perl-amanda perl-amanda.c
+
+do-install:
+	${INSTALL_PROGRAM} ${WRKDIR}/perl-amanda ${PREFIX}/bin/
+
+.include <bsd.port.pre.mk>
+
+LIBTHR!=	${LS} /lib/libthr.so.* | ${TAIL} -1
+SUB_LIST+=	LIBTHR=${LIBTHR_CMD}
+
+.include <bsd.port.post.mk>

misc/amanda-perl-wrapper/files/perl-amanda.c.in

@@ -0,0 +1,24 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+
+int
+main(int argc, char *const argv[], char *const envp[])
+{
+  int i, len = 0;
+  char **argv2 = malloc(sizeof(char*) * (argc + 1));
+  argv2[0] = "%%LOCALBASE%%/bin/perl";
+  for (i = 1; i < argc + 1; i++) {
+    argv2[i] = argv[i];
+  }
+  for (i = 0; envp[i]; i++) {
+    len++;
+  }
+  char **envp2 = malloc(sizeof(char*) * (len + 2));
+  envp2[0] = "LD_PRELOAD=%%LIBTHR%%";
+  /* Copy last null, too. */
+  for (i = 0; i < len + 1; i++) {
+    envp2[i + 1] = envp[i];
+  }
+  return execve(argv2[0], argv2, envp2);
+}

misc/amanda-perl-wrapper/pkg-descr

@@ -0,0 +1 @@
+Simple wrapper for perl5 with LD_PRELOAD=libthr.