check path to sshpass and .ssh
This commit is contained in:
11
74_HOMBOT.pm
11
74_HOMBOT.pm
@ -70,10 +70,17 @@ sub HOMBOT_Define($$) {
|
|||||||
|
|
||||||
return "too few parameters: define <name> HOMBOT <HOST>" if( @a != 3 );
|
return "too few parameters: define <name> HOMBOT <HOST>" if( @a != 3 );
|
||||||
return "please check if ssh installed" unless( -X "/usr/bin/ssh" );
|
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 /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" );
|
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 $name = $a[0];
|
||||||
my $host = $a[2];
|
my $host = $a[2];
|
||||||
my $port = 6260;
|
my $port = 6260;
|
||||||
|
Reference in New Issue
Block a user