From: minima <minima>
Date: Wed, 9 Mar 2005 09:39:57 +0000 (+0000)
Subject: add origin to pings
X-Git-Tag: R_1_52~112
X-Git-Url: http://dxspider.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=7e4216e6aa68e9f8631c50de2d1fe7c7c88391d2;p=spider.git

add origin to pings
---

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 7972bc3b..ac755b09 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1547,7 +1547,7 @@ sub handle_51
 	}
 
 	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);
 	
 }