hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

add show/route command

Browse Source
This commit is contained in:
minima 2001-01-02 23:27:57 +00:00
parent 3298d47dab
commit 955db8c44f
4 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Changes
View File

@ -2,6 +2,7 @@
1. added a help file for forward/latlong and updated the admin manual to
match. (g0vgs)
2. Add spot2csv.pl to convert spot files into tab delimited .csv format.
3. Add show/route to see which interface a station is connected on.
31Dec00=======================================================================
1. add lat/long info to show/prefix
30Dec00=======================================================================

6
cmd/Commands_en.hlp
View File

@ -1351,6 +1351,12 @@ This command queries the QRZ callbook server on the internet
and returns any information available for that callsign. This service
is provided for users of this software by http://www.qrz.com
=== 0^SHOW/ROUTE <callsign> ...^Show the route to the callsign
This command allows you to see which node the callsigns specified are
connected via. It is a sort of inverse sh/config.
sh/route n2tly
=== 0^SHOW/SATELLITE <name> [<hours> <interval>]^Show tracking data
Show the tracking data from your location to the satellite of your choice
from now on for the next few hours.

25
cmd/show/route.pl Normal file
View File

@ -0,0 +1,25 @@
#
# show the routing to a node or station
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
# $Id$
#
my ($self, $line) = @_;
my @list = map { uc } split /\s+/, $line; # list of callsigns of nodes
my @out;
return (1, $self->msg('e6')) unless @list;
my $l;
foreach $l (@list) {
my $ref = DXCluster->get_exact($l);
if ($ref) {
push @out, $self->msg('route', $l, $ref->mynode->call, $ref->dxchan->call);
} else {
push @out, $self->msg('e7', $l);
}
}
return (1, @out);

1
perl/Messages
View File

@ -183,6 +183,7 @@ package DXM;
read1 => 'Sorry, no new messages for you',
read2 => 'Msg $_[0] not found',
read3 => 'Msg $_[0] not available',
route => '$_[0] on $_[1] via $_[2]',
sat1 => 'Tracking Table for $_[0] for the next $_[1] hours every $_[2] mins',
sat2 => 'dd/mm UTC Lat Lon Alt Km Az El Dist Km',
sat3 => 'Syntax: SH/SAT <name> [<hours> <interval>]',