diff --git a/fhem/CHANGED b/fhem/CHANGED index b7a0a3842..6219125c8 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,5 +1,6 @@ # 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. + - feature: 47_OBIS: Add unofficial "set data " - bugfix: 93_DbRep: SQL syntax for Postgre maxValue deleteOther Forum:#134170 - bugfix: 93_DbRep: fix check of DbRep_afterproc, DbRep_beforeproc if should exec PERL code diff --git a/fhem/FHEM/47_OBIS.pm b/fhem/FHEM/47_OBIS.pm index a3079b9e4..6bfc0d4d9 100644 --- a/fhem/FHEM/47_OBIS.pm +++ b/fhem/FHEM/47_OBIS.pm @@ -109,6 +109,7 @@ sub OBIS_Initialize($) $hash->{DefFn} = "OBIS_Define"; $hash->{ParseFn} = "OBIS_Parse"; $hash->{GetFn} = "OBIS_Get"; + $hash->{SetFn} = "OBIS_Set"; $hash->{UndefFn} = "OBIS_Undef"; $hash->{AttrFn} = "OBIS_Attr"; $hash->{AttrList}= "do_not_notify:1,0 interval offset_feed offset_energy IODev channels directions alignTime pollingMode:on,off extChannels:on,off,auto unitReadings:on,off ignoreUnknown:on,off valueBracket:first,second,both resetAfterNoDataTime createPreValues:on,off httpAuthorization ". @@ -282,7 +283,10 @@ sub OBIS_Set($@) } } - return; + if ($opt eq "data") { + OBIS_Parse($hash,(pack 'H*', $value)); + } + return undef; } # Update-Routine