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" );
}
|
