X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=e78d9a7a20fb0e2f2afe27e671e2cae00c430954;hb=765add8acca099e69f2b2cde2bb58a48a00852d3;hp=f6a32cce44f9ef97be30adf9cac8008de470032a;hpb=10cd15ab627d2df5fbce79eb1388424051309f1a;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index f6a32cce..e78d9a7a 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -216,6 +216,10 @@ sub start
 	my ($self, $line, $sort) = @_;
 	my $call = $self->{call};
 	my $user = $self->{user};
+
+	# log it
+	my $host = $self->{conn}->{peerhost} || "unknown";
+	Log('DXProt', "$call connected from $host");
 	
 	# remember type of connection
 	$self->{consort} = $line;
@@ -267,8 +271,6 @@ sub start
 
 	# send info to all logged in thingies
 	$self->tell_login('loginn');
-
-	Log('DXProt', "$call connected");
 }
 
 #