projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a313d9c
)
fix init list and add pc92a/d to pc16/17 handlers
author
minima
<minima>
Wed, 3 Jan 2007 11:41:35 +0000
(11:41 +0000)
committer
minima
<minima>
Wed, 3 Jan 2007 11:41:35 +0000
(11:41 +0000)
perl/DXProt.pm
patch
|
blob
|
history
perl/DXProtHandle.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index ba4f21d94f71bfbe98211a6c2775face7c245f9f..1da81e95b2c98a6b9ca2bdac3a41a13186d7823f 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-771,7
+771,7
@@
sub send_pc92_config
dbg('DXProt::send_pc92_config') if isdbg('trace');
# send 'my' configuration for all users and pc92 capable nodes
dbg('DXProt::send_pc92_config') if isdbg('trace');
# send 'my' configuration for all users and pc92 capable nodes
- my @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} && $
self
->{do_pc92} } DXChannel::get_all();
+ my @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} && $
_
->{do_pc92} } DXChannel::get_all();
my @localnodes = map { my $r = Route::get($_->{call}); $r ? $r : () } @dxchan;
$self->send_route_pc92($main::mycall, \&pc92c, scalar @localnodes, @localnodes);
my @localnodes = map { my $r = Route::get($_->{call}); $r ? $r : () } @dxchan;
$self->send_route_pc92($main::mycall, \&pc92c, scalar @localnodes, @localnodes);
diff --git
a/perl/DXProtHandle.pm
b/perl/DXProtHandle.pm
index 5715902c2cfa1c0fe8ed487237bbb33b80f73abf..20eb37e417db85cb7d9ec2e9158b796df14f32e2 100644
(file)
--- a/
perl/DXProtHandle.pm
+++ b/
perl/DXProtHandle.pm
@@
-473,8
+473,10
@@
sub handle_16
$user->lastin($main::systime) unless DXChannel::get($call);
$user->put;
}
$user->lastin($main::systime) unless DXChannel::get($call);
$user->put;
}
- $self->route_pc16($origin, $line, $parent, @rout) if @rout;
-
+ if (@rout) {
+ $self->route_pc16($origin, $line, $parent, @rout);
+ $self->route_pc92a($main::mycall, undef, $parent, @rout);
+ }
}
# remove a user
}
# remove a user
@@
-541,6
+543,7
@@
sub handle_17
$uref = Route->new($ucall) unless $uref; # throw away
$self->route_pc17($origin, $line, $parent, $uref);
$uref = Route->new($ucall) unless $uref; # throw away
$self->route_pc17($origin, $line, $parent, $uref);
+ $self->route_pc92d($main::mycall, undef, $parent, $uref);
}
# link request
}
# link request