2 # show active connections
4 # Copyright (c) 2001 Dirk Koopman G1TLH
10 return (1, $self->msg('e5')) if $self->priv < 1;
14 push @out, "Cnum Call Address/Port State Type Dir.";
16 foreach my $call (sort keys %Msg::conns) {
17 my $r = $Msg::conns{$call};
18 my $addr = "$r->{peerhost}/$r->{peerport}";
20 if ($c =~ /^Server\s+(\S+)$/) {
24 push @out, sprintf(" %3d %-9s %-27.27s %3s %7s %8s",
27 $r->{csort}, $r->{sort});
31 push @out, "$count Connections";