From 91753bfdd4a0feab4970cf6eaac8085959140232 Mon Sep 17 00:00:00 2001 From: Subhendu Ghosh Date: Mon, 18 Mar 2002 05:15:04 +0000 Subject: [PATCH] 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 --- plugins-scripts/subst.in | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) 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]*=/ { -- 2.30.2