X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=f2bb29768169b02b953887dcc6395a42d7b7175d;hb=c02dc2d8b544b9d682c9a068ba13bdedf40ed3bf;hp=531bff7336fb969f19cf581f9d7b5f41f24c4a7d;hpb=7c7080ad7019d6e23a8ad401256122e81fa03a5a;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 531bff73..f2bb2976 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -193,14 +193,19 @@ sub pid_gone
 	}
 }
 
+sub ax25
+{
+	my $conn = shift;
+	return $conn->{csort} eq 'ax25';
+}
+
 sub peerhost
 {
-	my $self = shift;
-	my $ip;
-	unless ($self->{peerhost}) {
-		$self->{peerhost} = $self->{sock}->peerhost;
-	}
-	return $self->{peerhost};
+	my $conn = shift;
+	$conn->{peerhost} ||= 'ax25' if $conn->ax25;
+	$conn->{peerhost} ||= $conn->{sock}->peerhost if $conn->{sock} && $conn->{sock}->isa('IO::Socket::INET');
+	$conn->{peerhost} ||= 'UNKNOWN';
+	return $conn->{peerhost};
 }
 
 #-----------------------------------------------------------------