X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fwsjtl.pl;h=8915a2c8e8369a6e795716e0b38ca597cda601f1;hb=0527b7c5dc1f7e87eb6de0f7f6ce2f2ec27dd11e;hp=2fabfe9ed95cb335a514a466a43a283124134306;hpb=9c8f43f26a7db08c4ff6ef2213c95c9f509abe36;p=spider.git

diff --git a/perl/wsjtl.pl b/perl/wsjtl.pl
old mode 100644
new mode 100755
index 2fabfe9e..8915a2c8
--- a/perl/wsjtl.pl
+++ b/perl/wsjtl.pl
@@ -1,4 +1,4 @@
-#!/usr/binenv perl
+#!/usr/bin/env perl
 #
 # A basic listener and decoder of wsjtx packets
 #
@@ -70,7 +70,7 @@ use DXUDP;
 
 use WSJTX;
 
-our $udp_host = '0.0.0.0';
+our $udp_host = '::';
 our $udp_port = 2237;
 our $tcp_host = '::';
 our $tcp_port = 2238;
@@ -84,16 +84,31 @@ our %slot;			  # where the connected TCP client structures live
 
 
 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;