add show/route command

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

View File

@ -2,6 +2,7 @@
1. added a help file for forward/latlong and updated the admin manual to 1. added a help file for forward/latlong and updated the admin manual to
match. (g0vgs) match. (g0vgs)
2. Add spot2csv.pl to convert spot files into tab delimited .csv format. 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======================================================================= 31Dec00=======================================================================
1. add lat/long info to show/prefix 1. add lat/long info to show/prefix
30Dec00======================================================================= 30Dec00=======================================================================

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 and returns any information available for that callsign. This service
is provided for users of this software by http://www.qrz.com 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 === 0^SHOW/SATELLITE <name> [<hours> <interval>]^Show tracking data
Show the tracking data from your location to the satellite of your choice Show the tracking data from your location to the satellite of your choice
from now on for the next few hours. 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);

View File

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