-#!/usr/binenv perl
+#!/usr/bin/env perl
#
# A basic listener and decoder of wsjtx packets
#
use WSJTX;
-our $udp_host = '0.0.0.0';
+our $udp_host = '::';
our $udp_port = 2237;
our $tcp_host = '::';
our $tcp_port = 2238;
dbginit('wsjtl');
-dbgadd('udp');
+
+
$uh = DXUDP->new;
$uh->start(host => $udp_host, port => $udp_port) or die "Cannot listen on $udp_host:$udp_port $!\n";
-$wsjtx = WSJTX->new();
-$uh->on(read => sub {wstjx->handle(@_)});
+$wsjtx = WSJTX->new(handle=>'2,5');
+$uh->on(read => \&_read);
Mojo::IOLoop->start() unless Mojo::IOLoop->is_running;
+sub _read
+{
+ my ($handle, $data) = @_;
+
+# say "before handle";
+
+ $wsjtx->handle($handle, $data);
+
+# say "after handle";
+
+# my $lth = length $data;
+# dbgdump('udp', "UDP IN lth: $lth", $data);
+}
+
exit;