mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-22 00:07:10 +00:00
2546ef0cfa
got inter cluster linking working added talk, sh/c and sh/u commands changed sh/channel and sh/user to stat/channel and stat/user PC41 data and users should now be being stored
39 lines
776 B
Perl
39 lines
776 B
Perl
#
|
|
# show the users on this cluster from the routing tables
|
|
#
|
|
# Copyright (c) 1998 Dirk Koopman G1TLH
|
|
#
|
|
# $Id$
|
|
#
|
|
|
|
my ($self, $line) = @_;
|
|
my @list = map { uc } split /\s+/, $line; # list of callsigns of nodes
|
|
my @out;
|
|
my $node = (DXNode->get($main::mycall));
|
|
|
|
push @out, "Callsigns connected to $main::mycall";
|
|
my $call;
|
|
my $i = 0;
|
|
my @l;
|
|
my $nlist = $node->list;
|
|
my @val = values %{$nlist};
|
|
foreach $call (@val) {
|
|
if (@list) {
|
|
next if !grep $call->call eq $_, @list;
|
|
}
|
|
if ($i >= 5) {
|
|
push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
|
|
@l = ();
|
|
$i = 0;
|
|
}
|
|
my $s = $call->{call};
|
|
$s = sprintf "(%s)", $s if $call->{here} == 0;
|
|
push @l, $s;
|
|
$i++;
|
|
}
|
|
push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
|
|
|
|
|
|
return (1, @out);
|
|
|