mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
38 lines
771 B
Perl
38 lines
771 B
Perl
#
|
|
# show active connections
|
|
#
|
|
# Copyright (c) 2001 Dirk Koopman G1TLH
|
|
#
|
|
# $Id$
|
|
#
|
|
|
|
my $self = shift;
|
|
return (1, $self->msg('e5')) if $self->priv < 1;
|
|
my @out;
|
|
my $count;
|
|
|
|
push @out, "Cnum Call Address/Port State Type Dir. Module";
|
|
|
|
foreach my $call (sort keys %Msg::conns) {
|
|
my $r = $Msg::conns{$call};
|
|
my $c = $call;
|
|
my $addr;
|
|
|
|
if ($c =~ /^Server\s+(\S+)$/) {
|
|
$addr = $1;
|
|
$c = "Server";
|
|
} else {
|
|
$addr = "$r->{peerhost}/$r->{peerport}";
|
|
}
|
|
my $csort = $r->{csort} || '';
|
|
my $sort = $r->{sort} || '';
|
|
push @out, sprintf(" %3d %-9s %-27.27s %3s %7s %8s %-8s",
|
|
$r->{cnum}, $c,
|
|
$addr, $r->{state},
|
|
$csort, $sort, ref $r);
|
|
|
|
$count++;
|
|
}
|
|
push @out, "$count Connections ($Msg::noconns Allocated)";
|
|
return (1, @out);
|