Deine Events DISCONNECTED und CONNECTED kommen eigentlich vom DevIO Modul. CUL Verwendet das DevIO Modul zum Aufbau eines TCP Sockets.
sub
DevIo_Disconnected($)
{
my $hash = shift;
my $dev = $hash->{DeviceName};
my $name = $hash->{NAME};
my $baudrate;
($dev, $baudrate) = split("@", $dev);
return if(!defined($hash->{FD})); # Already deleted or RFR
my $l = $hash->{devioLoglevel}; # Forum #61970
Log3 $name, ($l ? $l:1), "$dev disconnected, waiting to reappear ($name)";
DevIo_CloseDev($hash);
$readyfnlist{"$name.$dev"} = $hash; # Start polling
DevIo_setStates($hash, "disconnected");
$hash->{DevIoJustClosed} = 1; # Avoid a direct reopen
DoTrigger($name, "DISCONNECTED");
}
Das hier ist das entscheidene
DoTrigger($name, "DISCONNECTED");
Kannst Du mal bitte ein list vom CUL Device machen.