projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
try to get the origin routing correct for non aranea pings
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 78c39f1635639091235e15a9b78b79e9172b6485..ac755b099d98c64450eb2a108aa59db057a0de4c 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-1541,13
+1541,13
@@
sub handle_51
my $line = shift;
my $origin = shift;
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);
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);
}
$thing->process($self);
}