use Carp;
use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);
-use POSIX;
+use POSIX qw(_exit setsid);
use Sys::Syslog;
our $logger;
our @call_fds;
our $socket_path;
+sub fail ($) {
+ my ($m) = @_;
+ print STDERR "$0: prefork [$$]: $m\n";
+ flush STDERR;
+ _exit 127;
+}
+
sub server_quit ($) {
my ($m) = @_;
syslog(LOG_INFO, "$0 prefork [$$]: $m, quitting");
my $rbits = '';
vec($rbits, fileno(LISTEN), 1) = 1;
my $ebits = $rbits;
- my $nfound = select($rbits, '', $ebits, ($opts{check_interval} // 300));
+ my $nfound = select($rbits, '', $ebits, ($opts{check_interval} // 86400));
if ($nfound) {
if (accept(CALL, LISTEN)) {