FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 03:06:37 +00:00
Code Issues Releases Wiki Activity

Working with tcptee.pl

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@849 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2011-03-10 17:40:56 +00:00
parent a3ba3e50a3
commit 7309cc8bfc
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fhem/FHEM/00_HMLAN.pm
View File

@ -258,6 +258,12 @@ HMLAN_Parse($$)
$dmsg = sprintf("A%02X%s", length($msg)/2, uc($msg));
$hash->{uptime} = HMLAN_uptime($msec);
} elsif($rmsg =~ m/R(........),(....),(........),(..),(....),(.*)/) {
my ($src, $d1, $msec, $d2, $rssi, $msg) =
($1, $2, $3, $4, $5, $6);
$dmsg = sprintf("A%02X%s", length($msg)/2, uc($msg));
$hash->{uptime} = HMLAN_uptime($msec);
} elsif($rmsg =~ m/HHM-LAN-IF,(....),(..........),(......),(......),(........),(....)/) {
my ($vers, $serno, $d1, $owner, $msec, $d2) =
(hex($1), $2, $3, $4, $5, $6);
@ -304,7 +310,7 @@ sub
HMLAN_SimpleWrite(@)
{
my ($hash, $msg, $nonl) = @_;
return if(!$hash);
return if(!$hash || AttrVal($hash->{NAME}, "dummy", undef));
Log 1, "SW: $msg";
$msg .= "\n" unless($nonl);
@ -425,6 +431,7 @@ HMLAN_Disconnected($)
return if(!defined($hash->{FD})); # Already deleted or RFR
Log 1, "$dev disconnected, waiting to reappear";
RemoveInternalTimer($hash);
HMLAN_CloseDev($hash);
$readyfnlist{"$name.$dev"} = $hash; # Start polling
$hash->{STATE} = "disconnected";