Hallo,
bei den u.g. Code Auszügen vom CUL_TCM97001 Modul ist mir nicht klar wie das funktionieren soll.
Wo muss ich verbose 5 setzen damit eine log Ausgabe erfolgt?
sub checksum_W174 {
my $msg = shift;
Log3 "CUL_TCM97001 ", 4 , "CUL_TCM97001 W174 checksum calc for: $msg";
...
Log3 "CUL_TCM97001 ", 4 , "CUL_TCM97001 W174 checksum ok $CRC == ".hex($aReverse[8]);
sub checksum_W155 {
my $msg = shift;
Log3 "CUL_TCM97001 ", 5 , "CUL_TCM97001 W155 checksum calc for: $msg";
...
Log3 "CUL_TCM97001 ", 5 , "CUL_TCM97001 W155 checksum ok $CRC == ".hex($aReverse[8]);
sub checkCRC4 {
my $msg = shift;
...
Log3 "checkCRC4", 5, "CUL_TCM97001 checkCRC4 failed for msg=($msg) length<9";
...
Log3 "checkCRC4", 5, "CUL_TCM97001 checkCRC4 OK for msg=($msg)";
...
Log3 "checkCRC4", 5, "CUL_TCM97001 checkCRC4 FAILED for msg=($msg)";
sub isRain {
my $msg = shift;
...
Log3 "isRain", 5, "CUL_TCM97001 isRain failed for msg=($msg) length<9";
...
Log3 "isRain", 5, "CUL_TCM97001 isRain for msg=($msg) = FALSE";
...
Log3 "isRain", 5, "CUL_TCM97001 isRain for msg=($msg) = TRUE";
...
sub checkCRCKW9010 {
my $msg = shift;
Log3 "CUL_TCM97001", 5 , "CUL_TCM97001 checkCRCKW9010 crc calc for: $msg";
...
Log3 "CUL_TCM97001", 5 , "CUL_TCM97001 checkCRCKW9010 calc crc is: $CRC";
Log3 "CUL_TCM97001", 5 , "CUL_TCM97001 checkCRCKW9010 ref crc is :".hex($aReverse[8]);
Gruß Ralf