+sub handle_cmd
+{
+ my $self = shift;
+ my $ref = shift;
+ my ($t, $ts) = (time, '');
+ my $s;
+ $s = ref $ref ? join ', ',@$ref : $ref;
+
+ if (exists $cmdlist->{lasttime} != $t) {
+ $ts = tim($t);
+ $cmdlist->{lasttime} = $t;
+ }
+
+ chomp $s;
+ push @{$cmdlist->{data}}, [$ts, $s];
+}
+
+sub handle_def
+{
+ my $self = shift;
+ my $ref = shift;
+ my $s;
+ $s = ref $ref ? join ', ',@$ref : $ref;
+ my ($t, $ts) = (time, '');
+
+ if (exists $cmdlist->{lasttime} != $t) {
+ $ts = tim($t);
+ $cmdlist->{lasttime} = $t;
+ }
+
+ chomp $s;
+ push @{$cmdlist->{data}}, [$ts, $s];
+}
+
+sub handle_dx
+{
+ my $self = shift;
+ my $ref = shift;
+ my ($t, $ts) = (time, '');
+
+ if (exists $dxlist->{lasttime} != $t) {
+ $ts = tim($t);
+ $dxlist->{lasttime} = $t;
+ }
+ push @{$dxlist->{data}}, [$ts, @$ref[0,1,15,3,4,16], stim($ref->[2]) ];
+
+}
+
+sub handle_ann
+{
+ my $self = shift;
+ my $ref = shift;
+ my ($t, $ts) = (time, '');
+ my $s;
+ $s = ref $ref ? join ', ',@$ref : $ref;
+
+ if (exists $cmdlist->{lasttime} != $t) {
+ $ts = tim($t);
+ $cmdlist->{lasttime} = $t;
+ }
+
+ chomp $s;
+ push @{$cmdlist->{data}}, [$ts, @$ref[0,1,2]];
+}
+
+sub handle_wcy
+{
+ my $self = shift;
+ my $ref = shift;
+ my $s;
+ $s = ref $ref ? join ', ',@$ref : $ref;
+
+ chomp $s;
+ push @{$cmdlist->{data}}, [tim(), @$ref[10,4,5,3,6,2,7,8,9,1] ];
+}
+
+sub handle_wwv
+{
+ my $self = shift;
+ my $ref = shift;
+ my $s;
+ $s = ref $ref ? join ', ',@$ref : $ref;
+
+ chomp $s;
+ push @{$cmdlist->{data}}, [tim(), @$ref[6,2,3,4,5,1] ];
+}
+