- my $pc92 = $dxchan->do_pc9x ? 'Y' : '';
- push @out, sprintf "%10s $sort $t$ping $obscount %5d %5d $iso $fin $fout $pc92", $call, $pingint, $lastt;
+ my $ipaddr;
+
+ if ($dxchan->conn->peerhost) {
+ my $addr = $dxchan->conn->peerhost;
+ $ipaddr = $addr if is_ipaddr($addr);
+ $ipaddr = 'local' if $addr =~ /^127\./ || $addr =~ /^::[0-9a-f]+$/;
+ }
+ $ipaddr = 'ax25' if $dxchan->conn->ax25;
+
+ push @out, sprintf "%10s $sort $t$ping $obscount %5d %5d $iso $fin $fout $pc92 $ipaddr", $call, $pingint, $lastt;