X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=ee9c92f103410f54bfc3c78d20c764fc8085b71d;hb=0aaec2fed8977d5e1cd02a4f1432bdde135a1044;hp=411b33b456bf1986abf705386f68d1415cf57f75;hpb=579810d363939640538f88a9caa86e01fe9c7709;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 411b33b4..ee9c92f1 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1774,7 +1774,7 @@ sub talk
 	
 	$line =~ s/\^/\\5E/g;			# remove any ^ characters
 	$self->send(DXProt::pc10($from, $to, $via, $line, $origin));
-	Log('talk', $self->call, $from, $via?$via:$main::mycall, $line) unless $origin && $origin ne $main::mycall;
+	Log('talk', $to, $from, $via?$via:$self->call, $line) unless $origin && $origin ne $main::mycall;
 }
 
 # send it if it isn't the except list and isn't isolated and still has a hop count