X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=1c7466a8a2a59f18581a1501b0d1304210abd2d4;hb=0de1a272bd43c887020d9e03a4f56f44ab4bb080;hp=ef565eb7ddebae52ad0dac1246500f1b87b4d52a;hpb=d2b28488d70d97c2e467cd7c57077024b7241b45;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index ef565eb7..1c7466a8 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -239,7 +239,7 @@ sub new_channel
 				return;
 			}
 			if ($bumpexisting) {
-				my $ip = $conn->peerhost || 'unknown';
+				my $ip = $dxchan->hostname;
 				$dxchan->send_now('D', DXM::msg($lang, 'conbump', $call, $ip));
 				LogDbg('DXCommand', "$call bumped off by $ip, disconnected");
 				$dxchan->disconnect;
@@ -272,7 +272,7 @@ sub new_channel
 		my $lock = $user->lockout if $user;
 		if ($baseuser && $baseuser->lockout || $lock) {
 			if (!$user || !defined $lock || $lock) {
-				my $host = $conn->peerhost || "unknown";
+				my $host = $conn->peerhost;
 				LogDbg('DXCommand', "$call on $host is locked out, disconnected");
 				$conn->disconnect;
 				return;