mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 00:36:25 +00:00
SMUtils.pm: Version 1.28.3
git-svn-id: https://svn.fhem.de/fhem/trunk@29571 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
parent
9cedac199b
commit
b12b3c4a08
@ -198,9 +198,9 @@ sub getClHash {
|
|||||||
$hash->{HELPER}{CL}{$i}->{NAME} = $defs{$outdev}{NAME};
|
$hash->{HELPER}{CL}{$i}->{NAME} = $defs{$outdev}{NAME};
|
||||||
$hash->{HELPER}{CL}{$i}->{NR} = $defs{$outdev}{NR};
|
$hash->{HELPER}{CL}{$i}->{NR} = $defs{$outdev}{NR};
|
||||||
$hash->{HELPER}{CL}{$i}->{PEER} = $defs{$outdev}{PEER}; # IP-Adresse des FHEMWEB Servers
|
$hash->{HELPER}{CL}{$i}->{PEER} = $defs{$outdev}{PEER}; # IP-Adresse des FHEMWEB Servers
|
||||||
$hash->{HELPER}{CL}{$i}->{SNAME} = $defs{$outdev}{SNAME}; # Name des aufrufenden FHEMWEB Devices
|
|
||||||
$hash->{HELPER}{CL}{$i}->{SSL} = $defs{$outdev}{SSL} ? 1 : 0; # SSL-Verbindung?
|
$hash->{HELPER}{CL}{$i}->{SSL} = $defs{$outdev}{SSL} ? 1 : 0; # SSL-Verbindung?
|
||||||
$hash->{HELPER}{CL}{$i}->{SPORT} = $defs{$defs{$outdev}{SNAME}}{PORT}; # Port des FHEMWEB SNAME! Devices
|
$hash->{HELPER}{CL}{$i}->{SNAME} = $defs{$outdev}{SNAME}; # Name des FHEMWEB Eltern-Devices
|
||||||
|
$hash->{HELPER}{CL}{$i}->{SPORT} = $defs{$defs{$outdev}{SNAME}}{PORT}; # Port des FHEMWEB Eltern-Devices
|
||||||
$hash->{HELPER}{CL}{$i}->{COMP} = 1;
|
$hash->{HELPER}{CL}{$i}->{COMP} = 1;
|
||||||
$i++;
|
$i++;
|
||||||
}
|
}
|
||||||
@ -208,10 +208,11 @@ sub getClHash {
|
|||||||
|
|
||||||
if (defined($hash->{HELPER}{CL}{1})) { # Clienthash auflösen zur Fehlersuche (aufrufende FHEMWEB Instanz)
|
if (defined($hash->{HELPER}{CL}{1})) { # Clienthash auflösen zur Fehlersuche (aufrufende FHEMWEB Instanz)
|
||||||
for (my $k=1; (defined($hash->{HELPER}{CL}{$k})); $k++ ) {
|
for (my $k=1; (defined($hash->{HELPER}{CL}{$k})); $k++ ) {
|
||||||
Log3 ($name, 4, "$name - Clienthash number: $k");
|
Log3 ($name, 5, "$name - Clienthash number: $k");
|
||||||
|
|
||||||
while (my ($key,$val) = each(%{$hash->{HELPER}{CL}{$k}})) {
|
while (my ($key,$val) = each(%{$hash->{HELPER}{CL}{$k}})) {
|
||||||
$val = $val // q{};
|
$val = $val // q{};
|
||||||
Log3 ($name, 4, "$name - Clienthash: $key -> $val");
|
Log3 ($name, 5, "$name - Clienthash: $key -> $val");
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user