X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=ac755b099d98c64450eb2a108aa59db057a0de4c;hb=62df15dc544d86345ea75b2e72e5215f9841f430;hp=78c39f1635639091235e15a9b78b79e9172b6485;hpb=57740a288c82793988be72c9b5666087d636344f;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 78c39f16..ac755b09 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1541,13 +1541,13 @@ sub handle_51
 	my $line = shift;
 	my $origin = shift;
 
-	if (eph_dup($line)) {
+	if (eph_dup($line, 60)) {
 		dbg("PCPROT: dup PC51 detected") if isdbg('chanerr');
 		return;
 	}
 
 	my $thing = Thingy::Ping->new(origin=>$main::mycall);
-	$thing->from_DXProt(user=>$_[2], group=>$_[1], out=>$_[3], DXProt=>$line);
+	$thing->from_DXProt($_[2] eq $self->{call} ? (user=>$_[2]) : (user=>$self->{call}, o=>$_[2]), group=>$_[1], out=>$_[3], DXProt=>$line);
 	$thing->process($self);
 	
 }