mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-05-07 22:29:19 +00:00
HMCCU: Fixed RPC server start/stop
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@11062 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
parent
30418280fb
commit
e28db9aad8
@ -63,17 +63,17 @@ sub CheckProcess ($$)
|
|||||||
my ($prcname, $port) = @_;
|
my ($prcname, $port) = @_;
|
||||||
|
|
||||||
my $filename = $prcname;
|
my $filename = $prcname;
|
||||||
my $pdump = `ps -ef | grep $prcname | grep -v grep`;
|
my $pdump = `ps ax | grep $prcname | grep -v grep`;
|
||||||
my @plist = split "\n", $pdump;
|
my @plist = split "\n", $pdump;
|
||||||
foreach my $proc (@plist) {
|
foreach my $proc (@plist) {
|
||||||
# Remove leading blanks, fix for MacOS. Thanks to mcdeck
|
# Remove leading blanks, fix for MacOS. Thanks to mcdeck
|
||||||
$proc =~ s/^\s+//;
|
$proc =~ s/^\s+//;
|
||||||
my @procattr = split /\s+/, $proc;
|
my @procattr = split /\s+/, $proc;
|
||||||
if ($procattr[1] != $$ && $procattr[7] =~ /perl$/ &&
|
if ($procattr[0] != $$ && $procattr[4] =~ /perl$/ &&
|
||||||
($procattr[8] eq $prcname || $procattr[8] =~ /\/ccurpcd\.pl$/) &&
|
($procattr[5] eq $prcname || $procattr[5] =~ /\/ccurpcd\.pl$/) &&
|
||||||
$procattr[10] eq "$port") {
|
$procattr[7] eq "$port") {
|
||||||
Log "Process $proc is running connected to CCU port $port";
|
Log "Process $proc is running connected to CCU port $port";
|
||||||
return $procattr[1];
|
return $procattr[0];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user