From 80adc662d074bf6ea2c1c3d022fc39488d347ae6 Mon Sep 17 00:00:00 2001 From: fhemzap Date: Sun, 13 Mar 2016 17:40:09 +0000 Subject: [PATCH] HMCCU: Fixed RPC server start/stop git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@11062 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/contrib/HMCCU/FHEM/ccurpcd.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/fhem/contrib/HMCCU/FHEM/ccurpcd.pl b/fhem/contrib/HMCCU/FHEM/ccurpcd.pl index bf810bfc7..e0a62ae92 100755 --- a/fhem/contrib/HMCCU/FHEM/ccurpcd.pl +++ b/fhem/contrib/HMCCU/FHEM/ccurpcd.pl @@ -63,17 +63,17 @@ sub CheckProcess ($$) my ($prcname, $port) = @_; 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; foreach my $proc (@plist) { # Remove leading blanks, fix for MacOS. Thanks to mcdeck $proc =~ s/^\s+//; my @procattr = split /\s+/, $proc; - if ($procattr[1] != $$ && $procattr[7] =~ /perl$/ && - ($procattr[8] eq $prcname || $procattr[8] =~ /\/ccurpcd\.pl$/) && - $procattr[10] eq "$port") { + if ($procattr[0] != $$ && $procattr[4] =~ /perl$/ && + ($procattr[5] eq $prcname || $procattr[5] =~ /\/ccurpcd\.pl$/) && + $procattr[7] eq "$port") { Log "Process $proc is running connected to CCU port $port"; - return $procattr[1]; + return $procattr[0]; } }