[Midnightbsd-cvs] mports: lib/Magus: have the node script write a pid file.

[ctriv at midnightbsd.org]

Log Message:
-----------
have the node script write a pid file.  It's handy.

Modified Files:
--------------
    mports/Tools/lib/Magus:
        Config.pm (r1.7 -> r1.8)
    mports/Tools/magus/slave:
        magus.pl (r1.28 -> r1.29)

-------------- next part --------------
Index: Config.pm
===================================================================
RCS file: /home/cvs/mports/Tools/lib/Magus/Config.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -L Tools/lib/Magus/Config.pm -L Tools/lib/Magus/Config.pm -u -r1.7 -r1.8
--- Tools/lib/Magus/Config.pm
+++ Tools/lib/Magus/Config.pm
@@ -51,6 +51,7 @@
     CvsFlags       => '',
     CvsRoot        => '/home/cvs',
     SlaveSrcDir    => '/usr/src',
+    SlavePidFile   => '/var/run/magus.pid',
     %{ LoadFile(shift) },
   );
   
@@ -58,7 +59,6 @@
   $Config{SlaveDataDir}     ||= "$Magus::Root/slave-data";
   $Config{SlaveMportsDir}   ||= "$Config{SlaveDataDir}/mports";
   $Config{SlaveChrootsDir}  ||= "$Config{SlaveDataDir}/chroots"; 
-  $Config{SlaveResultsDir}  ||= "$Config{SlaveDataDir}/results";
   $Config{LostDBWaitPeriod} ||= 300;
 }
 
Index: magus.pl
===================================================================
RCS file: /home/cvs/mports/Tools/magus/slave/magus.pl,v
retrieving revision 1.28
retrieving revision 1.29
diff -L Tools/magus/slave/magus.pl -L Tools/magus/slave/magus.pl -u -r1.28 -r1.29
--- Tools/magus/slave/magus.pl
+++ Tools/magus/slave/magus.pl
@@ -123,6 +123,8 @@
 
 daemonize() unless $opts{f};
 
+create_pid_file();
+
 while (1) {
   eval { main() };
 
@@ -349,6 +351,21 @@
   }
 }
 
+
+=head2 create_pid_file()
+
+Create a pid file at SlavePidFile
+
+=cut
+
+sub create_pid_file {
+  my $fh;
+  my $file = $Magus::Config{SlavePidFile};
+  
+  open($fh, '>', $file) || die "Couldn't open $file: $!\n";
+  print $fh "$$\n";
+  close($fh) || die "Couldn't close $file: $!\n";
+}
     
 1;
 __END__