mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
35 lines
786 B
Perl
35 lines
786 B
Perl
#
|
|
# 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];
|
|
return (1, $self->msg('e11')) if $call eq $main::mycall;
|
|
|
|
my $ref = DXCluster->get_exact($call);
|
|
my $dxchan = $ref->dxchan if $ref;
|
|
return (1, $self->msg('e10', $call)) unless $ref;
|
|
return (1, $self->msg('e13', $call)) unless $ref->isa('DXNode');
|
|
|
|
|
|
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));
|
|
|
|
|