diff --git a/fhem/FHEM/18_CUL_HOERMANN.pm b/fhem/FHEM/18_CUL_HOERMANN.pm index ca8c1d880..530f9fecf 100755 --- a/fhem/FHEM/18_CUL_HOERMANN.pm +++ b/fhem/FHEM/18_CUL_HOERMANN.pm @@ -13,7 +13,9 @@ CUL_HOERMANN_Initialize($) $hash->{Match} = "^R.........."; $hash->{DefFn} = "CUL_HOERMANN_Define"; $hash->{ParseFn} = "CUL_HOERMANN_Parse"; - $hash->{AttrList} = "IODev do_not_notify:1,0 ignore:0,1 showtime:1,0"; + $hash->{SetFn} = "CUL_HOERMANN_Set"; + $hash->{AttrList} = "IODev do_not_notify:1,0 ignore:0,1 showtime:1,0 ". + "disable:0,1 disabledForIntervals ". } @@ -32,6 +34,7 @@ CUL_HOERMANN_Define($$) $modules{CUL_HOERMANN}{defptr}{$a[2]} = $hash; $hash->{STATE} = "Defined"; + AssignIoPort($hash); return undef; } @@ -58,11 +61,25 @@ CUL_HOERMANN_Parse($$) } } +sub +CUL_HOERMANN_Set($@) +{ + my ($hash, @a) = @_; + + return "no set argument specified" if(int(@a) < 2); + return "Unknown argument $a[1], choose one of toggle:noArg" + if($a[1] ne "toggle"); + + return if(IsDisabled($name)); + + IOWrite($hash, "", "hn".$hash->{DEF}) +} + 1; =pod -=item summary Hoermann Garage door opener (read-only) -=item summary_DE Hoermann Garagenfernbedienung (nur lesen) +=item summary Hoermann Garage door opener +=item summary_DE Hoermann Garagenfernbedienung =begin html @@ -77,13 +94,19 @@ CUL_HOERMANN_Parse($$) Define
- Set
+ Set +
Get
@@ -93,6 +116,9 @@ CUL_HOERMANN_Parse($$)