3 use vars qw( @ISA @EXPORT_OK );
4 use vars qw( $pid_dir $me $pid_file $sigint $sigterm $logfile );
11 #this is a simple refactoring of the stuff from freeside-queued, just to
12 #avoid duplicate code. eventually this should use something from CPAN.
15 @EXPORT_OK = qw( daemonize1 drop_root daemonize2 sigint sigterm logfile );
17 $pid_dir = '/var/run';
22 $pid_file = "$pid_dir/$me";
23 $pid_file .= '.'.shift if scalar(@_);
26 chdir "/" or die "Can't chdir to /: $!";
27 open STDIN, '/dev/null' or die "Can't read /dev/null: $!";
28 defined(my $pid = fork) or die "Can't fork: $!";
30 print "$me started with pid $pid\n"; #logging to $log_file\n";
31 exit unless $pid_file;
32 my $pidfh = new IO::File ">$pid_file" or exit;
33 print $pidfh "$pid\n";
37 #sub REAPER { my $pid = wait; $SIG{CHLD} = \&REAPER; $kids--; }
38 #$SIG{CHLD} = \&REAPER;
41 $SIG{INT} = sub { warn "SIGINT received; shutting down\n"; $sigint++; };
42 $SIG{TERM} = sub { warn "SIGTERM received; shutting down\n"; $sigterm++; };
46 my $freeside_gid = scalar(getgrnam('freeside'))
47 or die "can't find freeside group\n";
50 #if freebsd can't setuid(), presumably it can't setgid() either. grr fleabsd
54 $> = $FS::UID::freeside_uid;
55 $< = $FS::UID::freeside_uid;
56 #freebsd is sofa king broken, won't setuid()
58 $> = $FS::UID::freeside_uid;
62 open STDOUT, '>/dev/null' or die "Can't write to /dev/null: $!";
63 setsid or die "Can't start a new session: $!";
64 open STDERR, '>&STDOUT' or die "Can't dup stdout: $!";
66 $SIG{__DIE__} = \&_die;
67 $SIG{__WARN__} = \&_logmsg;
69 warn "$me starting\n";
72 sub sigint { $sigint; }
73 sub sigterm { $sigterm; }
75 sub logfile { $logfile = shift; } #_logmsg('test'); }
79 unlink $pid_file if -e $pid_file;
84 chomp( my $msg = shift );
85 my $log = new IO::File ">>$logfile";
88 print $log "[". time2str("%a %b %e %T %Y",time). "] [$$] $msg\n";