From f2c147d7ffa7b8dab43cbf0baf6834f8bb962fe0 Mon Sep 17 00:00:00 2001 From: djk Date: Tue, 22 Dec 1998 17:44:59 +0000 Subject: [PATCH] added merge.pl file --- cmd/merge.pl | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 cmd/merge.pl diff --git a/cmd/merge.pl b/cmd/merge.pl new file mode 100644 index 00000000..a17c736e --- /dev/null +++ b/cmd/merge.pl @@ -0,0 +1,31 @@ +# +# merge spot and wwv databases +# +# Copyright (c) 1998 - Dirk Koopman G1TLH +# +# $Id$ +# + +my ($self, $line) = @_; +my @f = split /\s+/, $line; + +# check for callsign +return (1, $self->msg('e5')) if $self->priv < 5; +return (1, $self->msg('e12')) if !$f[0]; + +my $call = uc $f[0]; +my $dxchan = DXChannel->get($call); +return (1, $self->msg('e10', $call)) unless $dxchan; +return (1, $self->msg('e13', $call)) unless $dxchan->is_ak1a(); + + +my ($spots, $wwv) = $f[1] =~ m{(\d+/\d+)} if $f[1]; +$spots = 10 unless $spots; +$wwv = 5 unless $wwv; + +# I know, I know - but is there any point? +$dxchan->send("PC25^$call^$main::mycall^$spots^$wwv^"); + +return (1, $self->msg('merge1', $call, $spots, $wwv)); + + -- 2.43.0