cmd/show/connect.pl

   1 #
   2 # show active connections
   3 #
   4 # Copyright (c) 2001 Dirk Koopman G1TLH
   5 #
   6 # $Id$
   7 #
   8
   9 my $self = shift;
  10 return (1, $self->msg('e5')) if $self->priv < 1;
  11 my @out;
  12 my $count;
  13
  14 push @out, "Cnum Call      Address/Port              State  Type   Dir.     Module";
  15
  16 foreach my $call (sort keys %Msg::conns) {
  17         my $r = $Msg::conns{$call};
  18         my $c = $call;
  19         my $addr;
  20
  21         if ($c =~ /^Server\s+(.*)$/) {
  22                 $addr = $1;
  23                 $addr =~ s/\s+using.*$//;
  24                 $c = "Server";
  25         } else {
  26                 $addr = "$r->{peerhost}/$r->{peerport}";
  27         }
  28         my $csort = $r->{csort} || '';
  29         my $sort = $r->{sort} || '';
  30         push @out,      sprintf(" %3d %-9s %-27.27s %3s %7s %8s %-8s",
  31                                                 $r->{cnum}, $c,
  32                                                 $addr, $r->{state},
  33                                                 $csort, $sort, ref $r);
  34
  35         $count++;
  36 }
  37 push @out, "$count Connections ($Msg::noconns Allocated)";
  38 return (1, @out);