mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-08 11:52:55 -04:00
34 lines
868 B
Plaintext
34 lines
868 B
Plaintext
$NetBSD: patch-ac,v 1.2 2011/01/29 19:39:14 spz Exp $
|
|
|
|
avoid the wrapper + -C trap
|
|
|
|
--- bounce-remind.orig 1996-12-09 16:49:46.000000000 +0000
|
|
+++ bounce-remind
|
|
@@ -17,13 +17,16 @@
|
|
|
|
$main'program_name = 'mj_bounce-remind';
|
|
|
|
-# Read and execute the .cf file
|
|
-$cf = $ENV{"MAJORDOMO_CF"} || "/etc/majordomo.cf";
|
|
+# Read and execute the .cf file. For security reasons, let the environment win
|
|
+$cf = "/etc/majordomo.cf";
|
|
if ($ARGV[0] eq "-C") {
|
|
$cf = $ARGV[1];
|
|
shift(@ARGV);
|
|
shift(@ARGV);
|
|
}
|
|
+if ($ENV{"MAJORDOMO_CF"}) {
|
|
+ $cf = $ENV{"MAJORDOMO_CF"};
|
|
+}
|
|
if (! -r $cf) {
|
|
die("$cf not readable; stopped");
|
|
}
|
|
@@ -33,6 +36,7 @@ require "$cf";
|
|
chdir("$homedir");
|
|
|
|
# All these should be in the standard PERL library
|
|
+unshift(@INC, $bindir);
|
|
unshift(@INC, $homedir);
|
|
|
|
# Set these here so that they can be interploated on the $mailer command line.
|