#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
my $c = $call;
my $addr;
- if ($c =~ /^Server\s+(\S+)$/) {
+ if ($c =~ /^Server\s+(\S+)/) {
$addr = $1;
$c = "Server";
} else {
- $addr = "$r->{peerhost}/$r->{peerport}";
+ $addr = "AGW Port ($r->{agwport})" if exists $r->{agwport};
+ $addr = "BPQ Stream ($r->{bpqstream})" if exists $r->{bpqstream};
+
+ $addr ||= "$r->{peerhost}/$r->{peerport}";
+ $addr ||= "Unknown";
}
my $csort = $r->{csort} || '';
my $sort = $r->{sort} || '';