add missing WSJTX.pm

[spider.git] / perl / WSJTX.pm

diff --git a/perl/WSJTX.pm b/perl/WSJTX.pm
new file mode 100644 (file)
index 0000000..389b8b2
--- /dev/null
+++ b/perl/WSJTX.pm
@@ -0,0 +1,41 @@
+#
+# WSJTX logging and control protocol decoder etc
+#
+#
+
+package WSJTX;
+
+use strict;
+use warnings;
+use 5.22.1;
+
+use JSON;
+
+my $json;
+
+sub handle
+{
+       my ($self, $handle, $data) = @_;
+
+       my $lth = length $data;
+       dbgdump('udp', "UDP IN lth: $lth", $data);
+
+}
+
+sub finish
+{
+
+}
+
+sub per_sec
+{
+
+}
+
+sub per_minute
+{
+
+}
+
+
+1;