FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-23 20:52:13 +00:00
Code Issues Releases Wiki Activity

55_weco.pm - added $Id and fixed attr bug

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@5514 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2014-04-12 21:02:43 +00:00
parent 77d817fc1f
commit 05f0cc1aa2
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/FHEM/55_weco.pm
View File

@ -1,4 +1,4 @@
# $Id: $ # $Id$
#################################################################################################### ####################################################################################################
# #
# 55_weco.pm # 55_weco.pm
@ -97,7 +97,8 @@ sub weco_send($) {
my ($data, $d, $r, $o); my ($data, $d, $r, $o);
my $a = $attr{$name}; my $a = $attr{$name};
while ( my ($key, $value) = each($a) ) { while ( my ($key, $value) = each($a) ) {
next if substr($key,4,1) ~~ ["I"] ; next if substr($key,0,4) ne 'weco';
next if substr($key,4,1) ~~ ["I"];
$key = substr($key,4,length($key)-4); $key = substr($key,4,length($key)-4);
($d, $r, $o) = split(":", $value); ($d, $r, $o) = split(":", $value);
if(defined($r)) { if(defined($r)) {