From 552efdf55887b16b31e00a28678ba7f78fb37674 Mon Sep 17 00:00:00 2001 From: Marko Oldenburg Date: Fri, 8 Apr 2016 07:53:24 +0200 Subject: [PATCH] check path to sshpass and .ssh --- 74_HOMBOT.pm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/74_HOMBOT.pm b/74_HOMBOT.pm index ca04f89..2d9f363 100644 --- a/74_HOMBOT.pm +++ b/74_HOMBOT.pm @@ -70,10 +70,17 @@ sub HOMBOT_Define($$) { return "too few parameters: define HOMBOT " if( @a != 3 ); return "please check if ssh installed" unless( -X "/usr/bin/ssh" ); - return "please check if /opt/fhem/.ssh/known_hosts exist" unless( -R "/opt/fhem/.ssh/known_hosts" ); - return "please check if sshpass installed" unless( -X "/usr/bin/sshpass" ); + return "please check if /opt/fhem/.ssh/known_hosts exist" unless( -R "/opt/fhem/.ssh/known_hosts" ) || unless( -R "/root/.ssh/known_hosts" );; + return "please check if sshpass installed" unless( -X "/usr/bin/sshpass" ) || unless( -X "/usr/local/bin/sshpass" ); + my $sshpass; + my $knowhosts; + $sshpass = "/usr/bin/sshpass" unless( -X "/usr/bin/sshpass" ); + $sshpass = "/usr/local/bin/sshpass" unless( -X "/usr/local/bin/sshpass" ); + $knowhosts = "/opt/fhem/.ssh/known_hosts" unless( -R "/opt/fhem/.ssh/known_hosts" ) + $knowhosts = "/root/.ssh/known_hosts" unless( -R "/root/.ssh/known_hosts" ) + my $name = $a[0]; my $host = $a[2]; my $port = 6260;