5373fd28de
PR: 17820 Submitted by: Doug Barton <DougB@gorean.org> and Klaus Brunner <klaus@winf.htu.at>
49 lines
1.5 KiB
Plaintext
49 lines
1.5 KiB
Plaintext
--- resend.Dist Fri Jan 7 07:32:39 2000
|
|
+++ resend Sun Apr 16 23:15:50 2000
|
|
@@ -84,11 +84,23 @@
|
|
# Despite not having a place to send the remains of the body,
|
|
# it would be nice to send a message to root or postmaster, at least...
|
|
#
|
|
-if (! -r $cf) {
|
|
- die("$cf not readable; stopped");
|
|
-}
|
|
|
|
-require "$cf";
|
|
+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;
|
|
+}
|
|
|
|
chdir($homedir) || die("Can't chdir(\"$homedir\"): $!");
|
|
|
|
@@ -111,7 +123,7 @@
|
|
# XXX It is possible that owner-$opt_l won't be the right address, but we
|
|
# have little choice. Sending the bounces to $whoami_owner is an option,
|
|
# but might not clearly indicate the list name.
|
|
-$sendmail_command = $sendmail_command || "/usr/lib/sendmail";
|
|
+$sendmail_command = $sendmail_command || "/usr/sbin/sendmail";
|
|
$bounce_mailer = $bounce_mailer || "$sendmail_command -f\$sender -t";
|
|
&set_mail_from("owner-$opt_l");
|
|
&set_mail_sender("owner-$opt_l");
|
|
@@ -936,7 +948,7 @@
|
|
else {
|
|
# Painful, but we have to provide some kind of backwards
|
|
# compatibility and this is what 1.93 used
|
|
- $mailcmd = "/usr/lib/sendmail -f$sender -t";
|
|
+ $mailcmd = "/usr/sbin/sendmail -f$sender -t";
|
|
}
|
|
|
|
# clean up the addresses, for use on the sendmail command line
|