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->is_spider;
38 $sort = "AK1A " if $uref->is_ak1a;
39 $sort = "Clx " if $uref->is_clx;
40 $sort = "User " if $uref->is_user;
41 $sort = "BBS " if $uref->is_bbs;
42 $sort = "DXNet " if $uref->is_dxnet;
43 $sort = "ARClus" if $uref->is_arcluster;
45 push @out, $self->msg('snode3', $call);
48 if ($call eq $main::mycall) {
50 $ver = $main::version;
52 $ver = $clref->pcversion if $clref && $clref->pcversion;
55 my ($major, $minor, $subs) = unpack("AAA*", $ver) if $ver;
56 if ($sort eq 'Spider') {
57 push @out, $self->msg('snode2', $pcall, $sort, "$ver ");
59 push @out, $self->msg('snode2', $pcall, $sort, $ver ? "$major\-$minor.$subs" : " ");