perl/WSJTX.pm

   1 #
   2 # WSJTX logging and control protocol decoder etc
   3 #
   4 #
   5
   6 package WSJTX;
   7
   8 use strict;
   9 use warnings;
  10 use 5.22.1;
  11
  12 use JSON;
  13 use DXDebug;
  14
  15 my $json;
  16
  17 sub new
  18 {
  19         return bless {}, 'WSJTX';
  20 }
  21
  22 sub handle
  23 {
  24         my ($self, $handle, $data) = @_;
  25
  26         my $lth = length $data;
  27         dbgdump('udp', "UDP IN lth: $lth", $data);
  28         return 1;
  29
  30 }
  31
  32 sub finish
  33 {
  34
  35 }
  36
  37 sub per_sec
  38 {
  39
  40 }
  41
  42 sub per_minute
  43 {
  44
  45 }
  46
  47
  48 1;