diff --git a/fhem/contrib/HMCCU/88_HMCCUDEV.pm b/fhem/contrib/HMCCU/88_HMCCUDEV.pm index b4da57b9b..2a2fa1641 100644 --- a/fhem/contrib/HMCCU/88_HMCCUDEV.pm +++ b/fhem/contrib/HMCCU/88_HMCCUDEV.pm @@ -4,7 +4,7 @@ # # $Id:$ # -# Version 2.3 +# Version 2.4 # # (c) 2015 zap (zap01 t-online de) # @@ -22,6 +22,7 @@ # get channel [.] # get config [] # get configdesc [] +# get update # # attr ccureadings { 0 | 1 } # attr ccureadingformat { address | name } @@ -344,6 +345,12 @@ sub HMCCUDEV_Get ($@) HMCCU_SetState ($hash, "OK") if (exists ($hash->{STATE}) && $hash->{STATE} eq "Error"); return $ccureadings ? undef : $result; } + elsif ($opt eq 'update') { + $rc = HMCCU_GetUpdate ($hash, $hash->{ccuaddr}); + return HMCCUDEV_SetError ($hash, $rc) if ($rc < 0); + + return undef; + } elsif ($opt eq 'deviceinfo') { $result = HMCCU_GetDeviceInfo ($hash, $hash->{ccuaddr}); return HMCCUDEV_SetError ($hash, -2) if ($result eq ''); @@ -370,7 +377,7 @@ sub HMCCUDEV_Get ($@) return $res; } else { - my $retmsg = "HMCCUDEV: Unknown argument $opt, choose one of datapoint channel config configdesc deviceinfo:noArg"; + my $retmsg = "HMCCUDEV: Unknown argument $opt, choose one of datapoint channel update:noArg config configdesc deviceinfo:noArg"; if ($statechannel ne '') { $retmsg .= ' devstate:noArg'; } @@ -494,6 +501,10 @@ sub HMCCUDEV_SetError ($$)
Get description of configuration parameters for CCU device.
+
  • get <name> update +
    + Update datapoints / readings of device. +