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.
16 daemonize1 drop_root daemonize2 myexit logfile sigint sigterm
18 %EXPORT_TAGS = ( 'all' => [ @EXPORT_OK ] );
20 $pid_dir = '/var/run';
25 $pid_file = "$pid_dir/$me";
26 $pid_file .= '.'.shift if scalar(@_);
29 chdir "/" or die "Can't chdir to /: $!";
30 open STDIN, '/dev/null' or die "Can't read /dev/null: $!";
31 defined(my $pid = fork) or die "Can't fork: $!";
33 print "$me started with pid $pid\n"; #logging to $log_file\n";
34 exit unless $pid_file;
35 my $pidfh = new IO::File ">$pid_file" or exit;
36 print $pidfh "$pid\n";
40 #sub REAPER { my $pid = wait; $SIG{CHLD} = \&REAPER; $kids--; }
41 #$SIG{CHLD} = \&REAPER;
44 $SIG{INT} = sub { warn "SIGINT received; shutting down\n"; $sigint++; };
45 $SIG{TERM} = sub { warn "SIGTERM received; shutting down\n"; $sigterm++; };
49 my $freeside_gid = scalar(getgrnam('freeside'))
50 or die "can't find freeside group\n";
53 #if freebsd can't setuid(), presumably it can't setgid() either. grr fleabsd
57 $> = $FS::UID::freeside_uid;
58 $< = $FS::UID::freeside_uid;
59 #freebsd is sofa king broken, won't setuid()
61 $> = $FS::UID::freeside_uid;
65 open STDOUT, '>/dev/null' or die "Can't write to /dev/null: $!";
66 setsid or die "Can't start a new session: $!";
67 open STDERR, '>&STDOUT' or die "Can't dup stdout: $!";
69 $SIG{__DIE__} = \&_die;
70 $SIG{__WARN__} = \&_logmsg;
72 warn "$me starting\n";
75 sub sigint { $sigint; }
76 sub sigterm { $sigterm; }
78 sub logfile { $logfile = shift; } #_logmsg('test'); }
81 unlink $pid_file if -e $pid_file;
87 unlink $pid_file if -e $pid_file;
92 chomp( my $msg = shift );
93 my $log = new IO::File ">>$logfile";
96 print $log "[". time2str("%a %b %e %T %Y",time). "] [$$] $msg\n";