Fix1 for 10_EIB.pm

Begonnen von jussi.peltoniemi, 14 Juli 2015, 12:39:55

Vorheriges Thema - Nächstes Thema

jussi.peltoniemi


Below is a fix for module 10_EIB.pm in diff format from original to fixed version.

I have tested this fix with Berker Thermostat
http://catalogue.berker.com/en/international/catalogue/#75664590

I also tested with this thermostat that original code do not work.

425,431d424
<                 #       Change Sunday from 0 to 7 according knx datatype and perl wday definition
<                 # http://perldoc.perl.org/functions/localtime.html
<                 # http://www.knx.org/fileadmin/template/documents/downloads_support_menu/KNX_tutor_seminar_page/Advanced_documentation/05_Interworking_E1209.pdf
<                 if ($wday == 0)
<                 {
<                         $wday = 7
<                 }
433,435c426
<                 #       add wday as part of time according knx datatype
<                 my $fullval = $secs + ($mins<<8) + ($hours<<16) + ($wday<<21);
<                 #               my $fullval = $secs + ($mins<<8) + ($hours<<16);
---
>         my $fullval = $secs + ($mins<<8) + ($hours<<16);