added set/lockout
[spider.git] / cmd / show / node.pl
1 #
2 # show/node [<node> | <node> ] 
3
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 
7 #
8 # This command isn't and never will be compatible with AK1A
9 #
10 # A special millenium treat just for G4PDQ
11 #
12 # Copyright (c) 2000 Dirk Koopman G1TLH
13 #
14 # $Id$
15 #
16
17 my ($self, $line) = @_;
18 return (1, $self->msg('e5')) unless $self->priv >= 1;
19
20 my @call = map {uc $_} split /\s+/, $line; 
21 my @out;
22
23 # search thru the user for nodes
24 unless (@call) {
25         @call = sort map { my $ref; (($ref = DXUser->get_current($_)) && $ref->sort ne 'U') ? $_ : () } DXUser::get_all_calls;
26 }
27
28 my $call;
29 foreach $call (@call) {
30         my $clref = DXCluster->get_exact($call);
31         my $uref = DXUser->get_current($call);
32         my ($sort, $ver);
33         
34         my $pcall = sprintf "%-11s", $call;
35         push @out, $self->msg('snode1') unless @out > 0;
36         if ($uref) {
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;
44         } else {
45                 push @out, $self->msg('snode3', $call);
46                 next;
47         }
48         if ($call eq $main::mycall) {
49                 $sort = "Spider";
50                 $ver = $main::version;
51         } else {
52                 $ver = $clref->pcversion if $clref && $clref->pcversion;
53         }
54         
55         my ($major, $minor, $subs) = unpack("AAA*", $ver) if $ver;
56         if ($sort eq 'Spider') {
57                 push @out, $self->msg('snode2', $pcall, $sort, "$ver  ");
58         } else {
59                 push @out, $self->msg('snode2', $pcall, $sort, $ver ? "$major\-$minor.$subs" : "      ");
60         }
61 }
62
63 return (1, @out);
64
65
66
67