2 # show/node [<node> | <node> ]
4 # This command either lists all nodes known about
5 # or the ones specified on the command line together
6 # with some information that is relavent to them
8 # This command isn't and never will be compatible with AK1A
10 # A special millenium treat just for G4PDQ
12 # Copyright (c) 2000 Dirk Koopman G1TLH
17 my ($self, $line) = @_;
18 return (1, $self->msg('e5')) unless $self->priv >= 1;
20 my @call = map {uc $_} split /\s+/, $line;
23 # search thru the user for nodes
25 @call = sort map { my $ref; (($ref = DXUser->get_current($_)) && $ref->sort ne 'U') ? $_ : () } DXUser::get_all_calls;
29 foreach $call (@call) {
30 my $clref = DXCluster->get_exact($call);
31 my $uref = DXUser->get_current($call);
34 my $pcall = sprintf "%-11s", $call;
35 push @out, $self->msg('snode1') unless @out > 0;
37 $sort = "Spider" if $uref->sort eq 'S';
38 $sort = "AK1A " if $uref->sort eq 'A';
39 $sort = "clx " if $uref->sort eq 'C';
40 $sort = "Fred " if $uref->sort eq 'U';
41 $sort = "BBS " if $uref->sort eq 'B';
43 push @out, $self->msg('snode3', $call);
46 if ($call eq $main::mycall) {
48 $ver = $main::version;
50 $ver = $clref->pcversion if $clref && $clref->pcversion;
53 my ($major, $minor, $subs) = unpack("AAA*", $ver) if $ver;
54 if ($sort eq 'Spider') {
55 push @out, $self->msg('snode2', $pcall, $sort, "$ver ");
57 push @out, $self->msg('snode2', $pcall, $sort, $ver ? "$major\-$minor.$subs" : " ");