From: Subhendu Ghosh <sghosh@users.sourceforge.net>
Date: Mon, 18 Mar 2002 05:15:04 +0000 (+0000)
Subject: function to update perl plugin scripts to find utils.pm
X-Git-Url: https://git.tokkee.org/?a=commitdiff_plain;h=91753bfdd4a0feab4970cf6eaac8085959140232;p=nagiosplug.git

function to update perl plugin scripts to find utils.pm


git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@8 f882894a-f735-0410-b71e-b25c423dba1c
---

diff --git a/plugins-scripts/subst.in b/plugins-scripts/subst.in
index cc0fd1b..9140157 100644
--- a/plugins-scripts/subst.in
+++ b/plugins-scripts/subst.in
@@ -19,8 +19,22 @@ function which(c,path) {
 	return c;
 }
 
+# used to replace "use lib utils.pm" with "use lib @libexecdir"
+#
+function led() {
+	led1 = "@libexecdir@";
+	led2 = "@exec_prefix@";
+	led3 = "@prefix@";
+	if ( match(led1, /^\$\{exec_prefix\}/ ) != 0 ) {
+		return "\"" led3 "/libexec\" " ;
+	
+	}
+	return led1;
+}
+
 BEGIN {
 	split(ENVIRON["PATH"] ":/sbin:/usr/sbin",path,/:/);
+
 }
 
 # scripting language (first line)
@@ -30,6 +44,10 @@ BEGIN {
 /^#! ?\/.*\/[a-z]{0,2}awk/ {sub(/^#! ?\/.*\/[a-z]{0,2}awk/,"#! @AWK@");}
 /^#! ?\/.*\/sh/ {sub(/^#! ?\/.*\/sh/,"#! @SHELL@");}
 
+# add to libexecdir to INC for perl utils.pm
+/^use/ { if (/lib/) { if (/utils.pm/ ) {sub(/utils.pm/,led() )} } }
+
+
 # Trusted path mechanism (deprecated)
 
 /^[ \t]*\$ENV[ \t]*\{[ \t'"]*PATH[ \t"']*\}[ \t]*=/ {