X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FWSJTX.pm;h=16f7b64a8055ba8db031f9197042426922c59f57;hb=b9241950296fe353177143eb3cdb02de6f9929f2;hp=389b8b2193a50275282e91f48ce428156e0488b9;hpb=26a25e640fb1b9c7806988cc949b557116c278bd;p=spider.git

diff --git a/perl/WSJTX.pm b/perl/WSJTX.pm
index 389b8b21..16f7b64a 100644
--- a/perl/WSJTX.pm
+++ b/perl/WSJTX.pm
@@ -10,16 +10,23 @@ use warnings;
 use 5.22.1;
 
 use JSON;
+use DXDebug;
 
 my $json;
 
+sub new
+{
+	return bless {}, 'WSJTX';
+}
+
 sub handle
 {
 	my ($self, $handle, $data) = @_;
 
 	my $lth = length $data;
 	dbgdump('udp', "UDP IN lth: $lth", $data);
-
+	return 1;
+	
 }
 
 sub finish