--- loncom/lond	2000/07/21 00:40:37	1.18
+++ loncom/lond	2000/07/25 16:03:57	1.19
@@ -7,7 +7,7 @@
 # 12/7,12/15,01/06,01/11,01/12,01/14,2/8,
 # 03/07,05/31 Gerd Kortemeyer
 # 06/26 Scott Harrison
-# 06/29,06/30,07/14,07/15,07/17,07/20 Gerd Kortemeyer
+# 06/29,06/30,07/14,07/15,07/17,07/20,07/25 Gerd Kortemeyer
 #
 # based on "Perl Cookbook" ISBN 1-56592-243-3
 # preforker - server who forks first
@@ -38,6 +38,17 @@ while ($configline=<CONFIG>) {
 }
 close(CONFIG);
 
+# --------------------------------------------- Check if other instance running
+
+my $pidfile="$perlvar{'lonDaemons'}/logs/lond.pid";
+
+if (-e $pidfile) {
+   my $lfh=IO::File->new("$pidfile");
+   my $pide=<$lfh>;
+   chomp($pide);
+   if (kill 0 => $pide) { die "already running"; }
+}
+
 $PREFORK=4; # number of children to maintain, at least four spare
 
 # ------------------------------------------------------------- Read hosts file