projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
fbfd8dc
)
alter the order of auto for/oper in PC11 tests
author
minima
<minima>
Tue, 21 Aug 2001 11:13:55 +0000
(11:13 +0000)
committer
minima
<minima>
Tue, 21 Aug 2001 11:13:55 +0000
(11:13 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index b4be90c0f4a88fba2cb60363029c2fb9530a3c71..ab1e7572b45c426a374cbebd3da369d1100ec6d7 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-422,7
+422,7
@@
sub normal
my $node;
my $to = $user->homenode;
my $last = $user->lastoper || 0;
my $node;
my $to = $user->homenode;
my $last = $user->lastoper || 0;
- if ($
to ne $main::mycall && $send_opernam && $main::systime > $last + $DXUser::lastoperinterval && $to
&& ($node = Route::Node::get($to)) ) {
+ if ($
send_opernam && $to && $to ne $main::mycall && $main::systime > $last + $DXUser::lastoperinterval
&& ($node = Route::Node::get($to)) ) {
my $cmd = "forward/opernam $spot[4]";
# send the rcmd but we aren't interested in the replies...
my $dxchan = $node->dxchan;
my $cmd = "forward/opernam $spot[4]";
# send the rcmd but we aren't interested in the replies...
my $dxchan = $node->dxchan;