[popfile-commit] engine/POPFile Configuration.pm,1.6,1.7

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/POPFile
In directory sc8-pr-cvs1:/tmp/cvs-serv5532/POPFile

Modified Files:
	Configuration.pm 
Log Message:
Added code to write the PID of POPFile to a popfile.pid file in the current directory which can be controlled with the new piddir option

Index: Configuration.pm
===================================================================
RCS file: /cvsroot/popfile/engine/POPFile/Configuration.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Configuration.pm	13 Feb 2003 21:24:17 -0000	1.6
--- Configuration.pm	28 Feb 2003 01:45:20 -0000	1.7
***************
*** 47,50 ****
--- 47,55 ----
  {
      my ( $self ) = @_;
+ 
+     # This is the location where we store the PID of POPFile in a file
+     # called popfile.pid
+     
+     $self->{configuration}{piddir} = './';
      
      return 1;
***************
*** 62,65 ****
--- 67,75 ----
      my ( $self ) = @_;
  
+     if ( open PID, ">$self->{configuration}{piddir}popfile.pid" ) {
+         print PID "$$\n"; 
+         close PID;
+     }
+ 
      return 1;
  }
***************
*** 75,78 ****
--- 85,90 ----
  {
      my ( $self ) = @_;
+     
+     unlink( "$self->{configuration}{piddir}popfile.pid" );
  }