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

Working with tcptee.pl

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

9
FHEM/00_HMLAN.pm
View File

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