X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=68dd099ee457564acb15ddd1c2232553987b4f25;hb=d2b28488d70d97c2e467cd7c57077024b7241b45;hp=37e4c1dcafa7eda37c8de7db38eb7715f08ac22e;hpb=b77ffff21f9f6b8096de8abf032a904dfabba1f5;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 37e4c1dc..68dd099e 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -292,6 +292,7 @@ sub start
 	my $host = $self->{conn}->peerhost;
 	$host ||= "AGW Port #$self->{conn}->{agwport}" if exists $self->{conn}->{agwport};
 	$host ||= "unknown";
+	$self->{hostname} = $host if is_ipaddr($host);
 
 	Log('DXProt', "$call connected from $host");