From 7e4216e6aa68e9f8631c50de2d1fe7c7c88391d2 Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 9 Mar 2005 09:39:57 +0000 Subject: [PATCH] add origin to pings --- perl/DXProt.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); } -- 2.43.0