2 # show the users on this cluster from the routing tables
4 # Copyright (c) 1998 Dirk Koopman G1TLH
11 my ($self, $line) = @_;
12 my @in = map { uc } split /\s+/, $line; # list of callsigns of nodes
16 if ($in[0] eq 'ALL') {
17 @list = keys %DXChannel::channels;
22 push @list, DXChannel::get_all_node_calls();
23 } elsif ($in =~ /^USE/) {
24 push @list, DXChannel::get_all_user_calls();
25 } elsif ($in =~ /^RBN|SKI/) {
26 push @list, map {$_->is_rbn ? $_->call : undef} DXChannel::get_all();
33 my $dt = difft($main::starttime, ' ');
34 push @out, sprintf "Transfered in:%-12.12s IN OUT", $dt;
35 push @out, "Callsign Lines Data Lines Data";
36 push @out, "-----------------------------------------------------------------------------";
37 push @list, $self->call unless @list;
38 foreach my $call (sort @list) {
39 next if $call eq $main::mycall;
40 my $dxchan = DXChannel::get($call);
42 my $conn = $dxchan->conn;
43 push @out, sprintf("%-9.9s %16s %16s %16s %16s", $call, comma($conn->{linesin}), comma($conn->{datain}), comma($conn->{linesout}), comma($conn->{dataout}));
47 push @out, "-----------------------------------------------------------------------------" if @out > 3;
48 push @out, sprintf("%-9.9s %16s %16s %16s %16s", "TOTALS", comma($Msg::total_lines_in), comma($Msg::total_in), comma($Msg::total_lines_out), comma($Msg::total_out));
56 return scalar reverse(join(",",unpack("(A3)*", reverse int($num))));