From 5167e718e090d2869a02cdba98760c069a8948c3 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 26 Nov 2009 12:58:28 +0000
Subject: [PATCH] add logging of PC92A ip addresses

---
 perl/DXProtHandle.pm | 16 +++++++++++++---
 perl/Msg.pm          |  4 ++++
 perl/Version.pm      |  2 +-
 3 files changed, 18 insertions(+), 4 deletions(-)

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 90e7f471..c5d4bf4e 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1404,15 +1404,25 @@ sub _add_thingy
 	my @rout;
 
 	if ($call) {
+		my $ncall = $parent->call;
 		if ($is_node) {
-			dbg("ROUTE: added node $call to " . $parent->call) if isdbg('routelow');
+			dbg("ROUTE: added node $call to $ncall") if isdbg('routelow');
 			@rout = $parent->add($call, $version, Route::here($here), $ip);
 			my $r = Route::Node::get($call);
 			$r->PC92C_dxchan($dxchan->call, $hops) if $r;
+			if ($ip) {
+				$r->ip($ip);
+				Log('DXProt', "PC92A $call -> $ip on $ncall");
+			}
 		} else {
-			dbg("ROUTE: added user $call to " . $parent->call) if isdbg('routelow');
+			dbg("ROUTE: added user $call to $ncall") if isdbg('routelow');
 			@rout = $parent->add_user($call, Route::here($here), $ip);
-			$dxchan->tell_buddies('loginb', $call, $parent->call) if $dxchan;
+			$dxchan->tell_buddies('loginb', $call, $ncall) if $dxchan;
+			my $r = Route::User::get($call);
+			if ($ip) {
+				$r->ip($ip);
+				Log('DXProt', "PC92A $call -> $ip on $ncall");
+			}
 		}
 		if ($pc92_slug_changes && $parent == $main::routeroot) {
 			$things_add{$call} = Route::get($call);
diff --git a/perl/Msg.pm b/perl/Msg.pm
index c9b58a48..531bff73 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -196,6 +196,10 @@ sub pid_gone
 sub peerhost
 {
 	my $self = shift;
+	my $ip;
+	unless ($self->{peerhost}) {
+		$self->{peerhost} = $self->{sock}->peerhost;
+	}
 	return $self->{peerhost};
 }
 
diff --git a/perl/Version.pm b/perl/Version.pm
index 8c8f5500..605dca63 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.55';
 $subversion = '0';
-$build = '56';
+$build = '57';
 
 1;
-- 
2.43.0