)
my $socknum = 92; # Eindeutige Nummer des Sockets
my $send_ip = "localhost"; # Sendeport (UDP, siehe Socket-Einstellungen)
my $send_port = "16010"; # Sendeport (UDP, siehe Socket-Einstellungen)
my $recv_ip = "localhost"; # Empfangsport (UDP, siehe Socket-Einstellungen)
my $recv_port = "16011"; # Empfangsport (UDP, siehe Socket-Einstellungen)
my $command = pack("H*","07F0009901044B070F");
my $reciv= '';
my $ack = pack("H*","07F3");
#***** Ende Definitionen***************
if (!$socket[$socknum]) { # socket erstellen
$socket[$socknum] = IO::Socket::INET->new(LocalPort => $recv_port,
Proto => "udp",
LocalAddr => $recv_ip,
PeerPort => $send_port,
PeerAddr => $send_ip,
ReuseAddr => 1
)
or return ("open of $recv_ip : $recv_port failed: $!");
$socksel->add($socket[$socknum]); # add socket to select
$plugin_socket_subscribe{$socket[$socknum]} = $plugname; # subscribe plugin
return "opened Socket $socknum";
}
plugin_log($plugname, $command);
my $commandhex = $command;
$commandhex =~ s/(.)/sprintf("0x%x ",ord($1))/eg;
plugin_log($plugname,'transmit : ' . $commandhex); #Zeigt im Pluginlog das fertige Datenpaket, dass ?bertragen wird
syswrite($socket[$socknum], $command);
return;
2012-10-14 22:28:12.746,AATestSchnittstelleComfoAir,ð™K 2012-10-14 22:28:12.747,AATestSchnittstelleComfoAir,transmit : 0x7 0xf0 0x0 0x99 0x1 0x4 0x4b 0x7 0xf 2012-10-14 22:28:12.891,AATestSchnittstelleComfoAir,ð™K 2012-10-14 22:28:12.891,AATestSchnittstelleComfoAir,transmit : 0x7 0xf0 0x0 0x99 0x1 0x4 0x4b 0x7 0xf
my $send_ip = "10.0.0.227"; # Sendeport (UDP, siehe Socket-Einstellungen) my $send_port = "16012"; # Sendeport (UDP, siehe Socket-Einstellungen) my $recv_ip = "10.0.1.10"; # Empfangsport (UDP, siehe Socket-Einstellungen) my $recv_port = "16011"; # Empfangsport (UDP, siehe Socket-Einstellungen)
)
))
Kommentar