summaryrefslogtreecommitdiffstats
path: root/web/attachments/146541-perl-path.patch
diff options
context:
space:
mode:
authorHolger Weiss <holger@zedat.fu-berlin.de>2013-09-29 22:03:24 (GMT)
committerHolger Weiss <holger@zedat.fu-berlin.de>2013-09-29 22:03:24 (GMT)
commit0b6423f9c99d9edf8c96fefd0f6c453859395aa1 (patch)
tree1c2b6b21704a294940f87c7892676998d8371707 /web/attachments/146541-perl-path.patch
downloadsite-0b6423f9c99d9edf8c96fefd0f6c453859395aa1.tar.gz
Import Nagios Plugins site
Import the Nagios Plugins web site, Cronjobs, infrastructure scripts, and configuration files.
Diffstat (limited to 'web/attachments/146541-perl-path.patch')
-rw-r--r--web/attachments/146541-perl-path.patch43
1 files changed, 43 insertions, 0 deletions
diff --git a/web/attachments/146541-perl-path.patch b/web/attachments/146541-perl-path.patch
new file mode 100644
index 0000000..35e1718
--- /dev/null
+++ b/web/attachments/146541-perl-path.patch
@@ -0,0 +1,43 @@
1--- plugins-scripts/subst.in.orig 2005-08-12 15:53:26.000000000 -0700
2+++ plugins-scripts/subst.in 2005-08-12 15:53:51.000000000 -0700
3@@ -1,24 +1,5 @@
4 #!/usr/bin/awk
5
6-function which(c,path) {
7- cmd = "test -x " c;
8-
9- if (system(cmd)==0) {
10- return c;
11- }
12-
13- sub(/\/.*\//,"",c);
14- for (dir in path) {
15- cmd = "test -x " path[dir] "/" c;
16- if (system(cmd)==0) {
17- return path[dir] "/" c;
18- }
19- }
20-
21-
22- return c;
23-}
24-
25 # used to replace "use lib utils.pm" with "use lib @libexecdir"
26 #
27 function led() {
28@@ -58,15 +39,6 @@
29 sub(/\=.*$/,"='@trusted_path@' # autoconf-derived");
30 }
31
32-# Specific programs
33-
34-#
35-/^[^#]/ && /(\/.*)?\/(bin|sbin|lib|libexec)\// {
36- match($0,/(\/.*)?\/(bin|sbin|lib|libexec)\/[-_a-zA-Z0-9]+/);
37- start=RSTART+RLENGTH;
38- c=substr($0,RSTART,RLENGTH);
39- sub(c,which(c,path));
40-}
41
42 {
43 print;