Return to lonhttpd CVS log | Up to [LON-CAPA] / loncom |
version 1.9, 2003/07/30 15:28:56 | version 1.10, 2005/02/14 00:18:03 |
---|---|
Line 61 $pidfile="/home/httpd/perl/logs/lonhttpd | Line 61 $pidfile="/home/httpd/perl/logs/lonhttpd |
if (-e $pidfile) { | if (-e $pidfile) { |
open(LFH,"$pidfile"); | open(LFH,"$pidfile"); |
my $pide=<$LFH>; | my $pide=<LFH>; |
chomp($pide); | chomp($pide); |
close(LFH); | close(LFH); |
if (kill 0 => $pide) { die "already running"; } | if (kill 0 => $pide) { die "already running"; } |