From f2c147d7ffa7b8dab43cbf0baf6834f8bb962fe0 Mon Sep 17 00:00:00 2001
From: djk <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.34.1