package main;
use strict;
use warnings;
use Net::SSH::Perl;
#Test_FB_abfrage
sub
PersonPresent($) {
my $host = "192.168.2.1";
my $user = "root";
my $landevice = $_[0];
my $ssh2fritzbox = Net::SSH::Perl->new($host, debug=>3, identity_files=>["/root/.ssh/id_rsa"]);
$ssh2fritzbox->login($user);
my($stdout, $stderr, $exit) = $ssh2fritzbox->cmd(". ~/.profile; /var/media/ftp/Intenso-RainbowLine-01/MyUtils/LanDeviceActive.pl $landevice");
Log 3, ">>> $landevice $exit";
return $exit;
}