Hallo Jockel
welche Version des EIB_Device.pm verwendest Du?
welche Version des EIB_Device.pm verwendest Du?
# Send group data # sendGroup SOCK DEST DATA sub sendGroup { my $Sock = shift; my $Dest = shift; my ($str) = @_; #print "SendGroupPacket: ", unpack("H*",$str), "\n"; my @msg = (0x0027,$Dest); # EIB_GROUP_PACKET push @msg, $str; sendRequest ($Sock, pack "nna*", @msg); ! #goto error unless my $answer = getRequest ($Sock); ! #my $head = unpack ("n", $answer); ! #goto error unless $head == 0x0027; return 1; error: print "sendGroup failed\n"; return undef; }
sub check_for_eibddata { . . . my $msg = decode($data); ! EIB_Item::receive_msg($msg) unless $msg->{'src'} eq "0.0.0"; . . }
sub check_for_eibddata { . . . my $msg = decode($data); ! EIB_Item::receive_msg($msg) unless $msg->{'src'} eq "0.0.0"; . . }
Wir verarbeiten personenbezogene Daten über die Nutzer unserer Website mithilfe von Cookies und anderen Technologien, um unsere Dienste bereitzustellen. Weitere Informationen findest Du in unserer Datenschutzerklärung.
Indem Du unten auf "ICH stimme zu" klickst, stimmst Du unserer Datenschutzerklärung und unseren persönlichen Datenverarbeitungs- und Cookie-Praktiken zu, wie darin beschrieben. Du erkennst außerdem an, dass dieses Forum möglicherweise außerhalb Deines Landes gehostet wird und bist damit einverstanden, dass Deine Daten in dem Land, in dem dieses Forum gehostet wird, gesammelt, gespeichert und verarbeitet werden.
Kommentar