[freeside-commits] freeside/FS/FS Daemon.pm,1.2,1.3

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv22522/FS/FS

Modified Files:
	Daemon.pm 
Log Message:
have freeside-cdrd disable itself if there's no appropriate package definition, RT#4184

Index: Daemon.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Daemon.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- Daemon.pm	17 Mar 2006 14:56:27 -0000	1.2
+++ Daemon.pm	1 Nov 2008 22:12:46 -0000	1.3
@@ -12,7 +12,10 @@
 #avoid duplicate code.  eventually this should use something from CPAN.
 
 @ISA = qw(Exporter);
- at EXPORT_OK = qw( daemonize1 drop_root daemonize2 sigint sigterm logfile );
+ at EXPORT_OK = qw(
+  daemonize1 drop_root daemonize2 myexit logfile sigint sigterm
+);
+%EXPORT_TAGS = ( 'all' => [ @EXPORT_OK ] );
 
 $pid_dir = '/var/run';
 
@@ -74,6 +77,11 @@
 
 sub logfile { $logfile = shift; } #_logmsg('test'); }
 
+sub myexit {
+  unlink $pid_file if -e $pid_file;
+  exit;  
+}
+
 sub _die {
   my $msg = shift;
   unlink $pid_file if -e $pid_file;