X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=dae0b3c75255df063bf1b9b018731c39f0b0e18a;hb=e1d5c2a325cb6b8674eab55c23f12445aae01f52;hp=bc27395b209944be8341a8749fa4438a939ccd90;hpb=bbb282d33d288e42a868cefdf8328bb966a3f5ba;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index bc27395b..dae0b3c7 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -269,7 +269,7 @@ sub new
 		my @rout = $ref->delete;
 		$self->route_pc21($main::mycall, undef, @rout) if @rout;
 	}
-	$main::routeroot->add($call, '5000', Route::here(1)) if $call ne $main::mycall;
+	$main::routeroot->add($call, '5000', Route::here(1), $self->{conn}->peerhost) if $call ne $main::mycall;
 
 	return $self;
 }
@@ -284,7 +284,7 @@ sub start
 	my $user = $self->{user};
 
 	# log it
-	my $host = $self->{conn}->{peerhost};
+	my $host = $self->{conn}->peerhost;
 	$host ||= "AGW Port #$self->{conn}->{agwport}" if exists $self->{conn}->{agwport};
 	$host ||= "unknown";