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

98_weekprofile: handle references

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11138 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
risiko79 2016-03-28 14:28:21 +00:00
parent f444a9f0c3
commit 5d47d62da1
2 changed files with 20 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fhem/CHANGED
View File

@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it. # Do not insert empty lines here, update check depends on it.
- bugfix: 98_weekprofile: send reference profile to device
- feature: 10_pilight_ctrl | 30_pilight_switch: support protocol daycom - feature: 10_pilight_ctrl | 30_pilight_switch: support protocol daycom
- feature: 59_Weather: rewritten to use JSON API - feature: 59_Weather: rewritten to use JSON API
- bugfix: 49_SSCAM: "link_open" doesn't work after last update - bugfix: 49_SSCAM: "link_open" doesn't work after last update

33
fhem/FHEM/98_weekprofile.pm
View File

@ -193,7 +193,9 @@ sub weekprofile_sendDevProfile(@)
{ {
my ($device,$prf,$me) = @_; my ($device,$prf,$me) = @_;
my $type = weekprofile_getDeviceType($device,"SND"); my $type = weekprofile_getDeviceType($device,"SND");
return "Error device type not supported" if (!defined ($type)); return "Error device type not supported" if (!defined ($type));
return "profile has no data" if (!defined($prf->{DATA}));
if ($type eq "WEEKPROFILE") { if ($type eq "WEEKPROFILE") {
my $json = JSON->new; my $json = JSON->new;
@ -472,14 +474,9 @@ sub weekprofile_Get($$@)
my ($topic, $name) = weekprofile_splitName($params[0]); my ($topic, $name) = weekprofile_splitName($params[0]);
my ($prf,$idx) = weekprofile_findPRF($hash,$name,$topic); my ($prf,$idx) = weekprofile_findPRF($hash,$name,$topic,1);
return "profile $params[0] not found" if (!defined($prf)); return "profile $params[0] not found" if (!defined($prf));
if (defined($prf->{REF})) {
($topic, $name) = weekprofile_splitName($prf->{REF});
($prf,$idx) = weekprofile_findPRF($hash,$name,$topic);
}
return "profile $params[0] has no data" if (!defined($prf->{DATA})); return "profile $params[0] has no data" if (!defined($prf->{DATA}));
my $json = JSON->new; my $json = JSON->new;
@ -518,7 +515,7 @@ sub weekprofile_Get($$@)
$refs = substr($refs, 0, -1); $refs = substr($refs, 0, -1);
} else { } else {
my ($topic, $name) = weekprofile_splitName($params[0]); my ($topic, $name) = weekprofile_splitName($params[0]);
my ($prf,$idx) = weekprofile_findPRF($hash,$name,$topic); my ($prf,$idx) = weekprofile_findPRF($hash,$name,$topic,0);
return "profile $params[0] not found" unless ($prf); return "profile $params[0] not found" unless ($prf);
$refs = '0'; $refs = '0';
$refs = "$prf->{REF}" if ($prf->{REF}); $refs = "$prf->{REF}" if ($prf->{REF});
@ -551,11 +548,12 @@ sub weekprofile_Get($$@)
return "Unknown argument $cmd choose one of $list"; return "Unknown argument $cmd choose one of $list";
} }
############################################## ##############################################
sub weekprofile_findPRF(@) sub weekprofile_findPRF($$$$)
{ {
my ($hash, $name, $topic) = @_; my ($hash, $name, $topic, $followRef) = @_;
$topic = 'default' if (!$topic); $topic = 'default' if (!$topic);
$followRef = '0' if (!$followRef);
my $found = undef; my $found = undef;
my $idx = 0; my $idx = 0;
@ -569,6 +567,11 @@ sub weekprofile_findPRF(@)
} }
$idx = -1 if (!defined($found)); $idx = -1 if (!defined($found));
if ($followRef == 1 && defined($found) && defined($found->{REF})) {
($topic, $name) = weekprofile_splitName($found->{REF});
($found,$idx) = weekprofile_findPRF($hash,$name,$topic,0);
}
return ($found,$idx); return ($found,$idx);
} }
############################################## ##############################################
@ -623,7 +626,7 @@ sub weekprofile_Set($$@)
return "Error parsing profile data. No valid json format"; return "Error parsing profile data. No valid json format";
}; };
my ($found,$idx) = weekprofile_findPRF($hash,$name,$topic); my ($found,$idx) = weekprofile_findPRF($hash,$name,$topic,1);
if (defined($found)) { if (defined($found)) {
$found->{DATA} = $data; $found->{DATA} = $data;
# automatic we send master profile to master device # automatic we send master profile to master device
@ -664,7 +667,7 @@ sub weekprofile_Set($$@)
return "Error no devices given and no master device" if (@devices == 0); return "Error no devices given and no master device" if (@devices == 0);
my ($found,$idx) = weekprofile_findPRF($hash,$name,$topic); my ($found,$idx) = weekprofile_findPRF($hash,$name,$topic,1);
if (!defined($found)) { if (!defined($found)) {
Log3 $me, 1, "$me(Set): Error unknown profile $params[0]"; Log3 $me, 1, "$me(Set): Error unknown profile $params[0]";
return "Error unknown profile $params[0]"; return "Error unknown profile $params[0]";
@ -761,7 +764,7 @@ sub weekprofile_Set($$@)
return "Error topics not enabled" if (!$useTopics && ($topic ne 'default')); return "Error topics not enabled" if (!$useTopics && ($topic ne 'default'));
my ($delprf,$idx) = weekprofile_findPRF($hash,$name,$topic); my ($delprf,$idx) = weekprofile_findPRF($hash,$name,$topic,0);
return "Error unknown profile $params[0]" unless($delprf); return "Error unknown profile $params[0]" unless($delprf);
my $ref = weekprofile_hasREF($hash,$delprf); my $ref = weekprofile_hasREF($hash,$delprf);
return "Error profile $params[0] is referenced from $ref" if ($ref); return "Error profile $params[0] is referenced from $ref" if ($ref);
@ -787,7 +790,7 @@ sub weekprofile_Set($$@)
Log3 $me, 5, "$me(Set): found device $dev->{NAME}"; Log3 $me, 5, "$me(Set): found device $dev->{NAME}";
my ($prf,$idx) = weekprofile_findPRF($hash,$prfName,$topic); my ($prf,$idx) = weekprofile_findPRF($hash,$prfName,$topic,1);
next if (!defined($prf)); next if (!defined($prf));
Log3 $me, 4, "$me(Set): Send profile $topic:$prfName to $dev->{NAME}"; Log3 $me, 4, "$me(Set): Send profile $topic:$prfName to $dev->{NAME}";