mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FRITZBOX: freetz bugfix

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@7377 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
tpoitzsch
2014-12-31 13:11:09 +00:00
parent 7087f65747
commit 924c25a2b9
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
fhem/FHEM/72_FRITZBOX.pm
View File

@@ -1530,7 +1530,9 @@ FRITZBOX_Exec_Remote($$)
@output=$telnet->cmd($cmd);
$result = $output[0];
chomp $result;
FRITZBOX_Log $hash, 4, "Result '$result'";
my $log = join " ", @output;
chomp $log;
FRITZBOX_Log $hash, 4, "Result '$log'";
return $result;
}
elsif (ref \$cmd eq "REF")
@@ -1546,8 +1548,11 @@ FRITZBOX_Exec_Remote($$)
unless ($_ =~ /^sleep/)
{
@output=$telnet->cmd($_);
$result = join(" ",@output);
$result =~ s/(\r\n|\n\r|\n|\r|\s)$//;
$result = $output[0];
chomp $result;
my $log = join " ", @output;
chomp $log;
FRITZBOX_Log $hash, 4, "Result '$log'";
}
else
{
@@ -1556,7 +1561,6 @@ FRITZBOX_Exec_Remote($$)
$result = "";
}
push @resultArray, $result;
FRITZBOX_Log $hash, 5, "Result '$result'";
}
@{$cmd} = ();
FRITZBOX_Log $hash, 4, "Received ".int(@resultArray)." answer(s)";