--- 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 '',),$@) +{ + 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;