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
  14 my $json;
  15
  16 sub handle
  17 {
  18         my ($self, $handle, $data) = @_;
  19
  20         my $lth = length $data;
  21         dbgdump('udp', "UDP IN lth: $lth", $data);
  22
  23 }
  24
  25 sub finish
  26 {
  27
  28 }
  29
  30 sub per_sec
  31 {
  32
  33 }
  34
  35 sub per_minute
  36 {
  37
  38 }
  39
  40
  41 1;