3 use vars qw( @ISA @EXPORT_OK );
4 use vars qw( $pid_dir $me $pid_file $sigint $sigterm $NOSIG $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.
16 daemonize1 drop_root daemonize2 myexit logfile sigint sigterm
18 %EXPORT_TAGS = ( 'all' => [ @EXPORT_OK ] );
20 $pid_dir = '/var/run';
27 $pid_file = "$pid_dir/$me";
28 $pid_file .= '.'.shift if scalar(@_);
31 chdir "/" or die "Can't chdir to /: $!";
32 open STDIN, '/dev/null' or die "Can't read /dev/null: $!";
33 defined(my $pid = fork) or die "Can't fork: $!";
35 print "$me started with pid $pid\n"; #logging to $log_file\n";
36 exit unless $pid_file;
37 my $pidfh = new IO::File ">$pid_file" or exit;
38 print $pidfh "$pid\n";
42 #sub REAPER { my $pid = wait; $SIG{CHLD} = \&REAPER; $kids--; }
43 #$SIG{CHLD} = \&REAPER;
47 $SIG{INT} = sub { warn "SIGINT received; shutting down\n"; $sigint++; };
48 $SIG{TERM} = sub { warn "SIGTERM received; shutting down\n"; $sigterm++; };
53 my $freeside_gid = scalar(getgrnam('freeside'))
54 or die "can't find freeside group\n";
57 #if freebsd can't setuid(), presumably it can't setgid() either. grr fleabsd
61 $> = $FS::UID::freeside_uid;
62 $< = $FS::UID::freeside_uid;
63 #freebsd is sofa king broken, won't setuid()
65 $> = $FS::UID::freeside_uid;
69 open STDOUT, '>/dev/null' or die "Can't write to /dev/null: $!";
70 setsid or die "Can't start a new session: $!";
71 open STDERR, '>&STDOUT' or die "Can't dup stdout: $!";
73 $SIG{__DIE__} = \&_die;
74 $SIG{__WARN__} = \&_logmsg;
76 warn "$me starting\n";
79 sub sigint { $sigint; }
80 sub sigterm { $sigterm; }
82 sub logfile { $logfile = shift; } #_logmsg('test'); }
85 unlink $pid_file if -e $pid_file;
90 die @_ if $^S; # $^S = 1 during an eval(), don't break exception handling
92 unlink $pid_file if -e $pid_file;
97 chomp( my $msg = shift );
98 my $log = new IO::File ">>$logfile";
101 print $log "[". time2str("%a %b %e %T %Y",time). "] [$$] $msg\n";
102 flock($log, LOCK_UN);