From: minima Date: Wed, 8 Nov 2000 21:36:16 +0000 (+0000) Subject: fix cosmetic errors in for/oper for users X-Git-Tag: R_1_45~29 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=e7e2be52df572de51831fa1b4cde4018aef791a9;p=spider.git fix cosmetic errors in for/oper for users --- diff --git a/Changes b/Changes index d533d649..e15e2233 100644 --- a/Changes +++ b/Changes @@ -1,9 +1,12 @@ +08Nov00======================================================================= +1. fix cosmetic errors in for/oper for 'users'. 07Nov00======================================================================= 1. removed sh/call because the owner isn't happy about us using it. 2. change sh/qrz to the new interface. MUCH QUICKER! you will need a user id and password from qrz.com to use it and you will have to copy the /spider/perl/Internet.pm to /spider/local and alter it accordingly. Do -remember to set $allow=1 as well! +remember to set $allow=1 as well! The new interface comes courtesy of Fred +LLoyd, the proprietor of http://www.qrz.com 06Nov00======================================================================= 1. Added sh/qrz to the list of callbook services 05Nov00======================================================================= diff --git a/cmd/forward/opername.pl b/cmd/forward/opername.pl index 2da3d95b..314a9e37 100644 --- a/cmd/forward/opername.pl +++ b/cmd/forward/opername.pl @@ -9,25 +9,32 @@ my ($self, $line) = @_; my @f = split /\s+/, uc $line; my @out; -my $call; -if (@f == 0) { - return (1, $self->('e6')) if ($self->priv < 1); -} else { - foreach $call (@f) { - my $ref = DXUser->get_current($call); - if ($ref) { - my $name = $ref->name; - my $qth = $ref->qth; - my $lat = $ref->lat; - my $long = $ref->long; - my $node = $ref->homenode; - my $latlong = DXBearing::lltos($lat, $long) if $lat && $long; - DXProt::broadcast_all_ak1a(DXProt::pc41($call, 1, $name), $DXProt::me) if $name; - DXProt::broadcast_all_ak1a(DXProt::pc41($call, 2, $qth), $DXProt::me) if $qth; - DXProt::broadcast_all_ak1a(DXProt::pc41($call, 3, $latlong), $DXProt::me) if $latlong; - DXProt::broadcast_all_ak1a(DXProt::pc41($call, 4, $node), $DXProt::me) if $node; - } +if ($self->priv < 1) { + if (@f == 0) { + push @f, $self->call; + } else { + return (1, $self->msg('e5')); + } +} elsif (@f == 0) { + return (1, $self->msg('e6')); +} + +my $call; +foreach $call (@f) { + my $ref = DXUser->get_current($call); + if ($ref) { + my $name = $ref->name; + my $qth = $ref->qth; + my $lat = $ref->lat; + my $long = $ref->long; + my $node = $ref->homenode; + my $latlong = DXBearing::lltos($lat, $long) if $lat && $long; + DXProt::broadcast_all_ak1a(DXProt::pc41($call, 1, $name), $DXProt::me) if $name; + DXProt::broadcast_all_ak1a(DXProt::pc41($call, 2, $qth), $DXProt::me) if $qth; + DXProt::broadcast_all_ak1a(DXProt::pc41($call, 3, $latlong), $DXProt::me) if $latlong; + DXProt::broadcast_all_ak1a(DXProt::pc41($call, 4, $node), $DXProt::me) if $node; } } + return (1, @out);