freebsd-ports/mail/majordomo/files/patch-bh

--- request-answer.Dist	Fri Jan  7 03:10:18 2000
+++ request-answer	Sun Apr 16 23:15:50 2000
@@ -20,10 +20,23 @@
     shift(@ARGV); 
     shift(@ARGV); 
 }
-if (! -r $cf) {
-    die("$cf not readable; stopped");
+
+if (not sysopen CONFIG,$cf,O_RDONLY)
+{
+  die sprintf qq|Unable to sysopen config file "$cf"%s.\n|,$! ? ": $!" : '';
+}
+elsif ((stat CONFIG)[4] != $>)
+{
+  die qq|Config file "$cf" not owned by effective UID.\n|;
+}
+elsif (eval(join '',<CONFIG>),$@)
+{
+  die qq|Unable to eval "$cf": $@.\n|;
+}
+else
+{
+  close CONFIG;
 }
-require "$cf";
 
 chdir($homedir) || die("Can't chdir(\"$homedir\"): $!");
 unshift(@INC, $homedir);
@@ -51,7 +64,7 @@
 # Define all of the mailer properties:
 # It is possible that one or both of $sendmail_command and $bounce_mailer
 # are not defined, so we provide reasonable defaults.
-$sendmail_command = "/usr/lib/sendmail"
+$sendmail_command = "/usr/sbin/sendmail"
   unless defined $sendmail_command;
 $bounce_mailer = "$sendmail_command -f\$sender -t"
   unless defined $bounce_mailer;