Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

18_WBS.pm - improvements, described here

Browse Source 
http://forum.fhem.de/index.php/topic,21281.0.html

git-svn-id: https://svn.fhem.de/fhem/trunk@5195 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2014-03-10 21:03:45 +00:00
parent fb86c366ab
commit 4b32fb32b6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/contrib/WBS/18_WBS.pm
View File

@ -67,7 +67,7 @@ sub WBS_Define($)
{ {
# define <NAME> WBS TYPE CODE # define <NAME> WBS TYPE CODE
my ($self, $defs) = @_; my ($self, $defs) = @_;
Log 0, "WBS|DEFINE: " . Dumper(@_); # Log 0, "WBS|DEFINE: " . Dumper(@_);
my @a = split(/ /, $defs); my @a = split(/ /, $defs);
return "WBS|Define|ERROR: Unknown argument count " . int(@a) . " , usage define <NAME> WBS TYPE CODE" if(int(@a) != 4); return "WBS|Define|ERROR: Unknown argument count " . int(@a) . " , usage define <NAME> WBS TYPE CODE" if(int(@a) != 4);
my $mod = $a[1]; my $mod = $a[1];
@ -131,7 +131,7 @@ sub WBS_Parse($$)
my $fc = uc(substr($reading,0,1)); my $fc = uc(substr($reading,0,1));
$wbs->{STATE} = "$fc: $value | " . TimeNow(); $wbs->{STATE} = "$fc: $value | " . TimeNow();
# Changed # Changed
$wbs->{CHANGED}[0] = "$reading:$value"; $wbs->{CHANGED}[0] = "$reading: $value";
return $wbs_name; return $wbs_name;
} }
################################################################################ ################################################################################