get wsjtx to work

[spider.git] / perl / WSJTX.pm

diff --git a/perl/WSJTX.pm b/perl/WSJTX.pm
index 389b8b2193a50275282e91f48ce428156e0488b9..16f7b64a8055ba8db031f9197042426922c59f57 100644 (file)
--- 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