projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f846b4d
)
add origin to pings
author
minima
<minima>
Wed, 9 Mar 2005 09:39:57 +0000
(09:39 +0000)
committer
minima
<minima>
Wed, 9 Mar 2005 09:39:57 +0000
(09:39 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 7972bc3bf83f6ba7baa677ed29ebac82e7fd0fb1..ac755b099d98c64450eb2a108aa59db057a0de4c 100644
(file)
--- 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);
}