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:
a4a03d4
)
add some more debugging
author
minima
<minima>
Tue, 16 Jan 2007 00:14:30 +0000
(
00:14
+0000)
committer
minima
<minima>
Tue, 16 Jan 2007 00:14:30 +0000
(
00:14
+0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 96d6c353317b6835bdef03fe89b4d6c10b0ee2c2..3407e9bc03c6a297eacc868c5a9d1adc1bf318c7 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-779,11
+779,13
@@
sub gen_pc92_update
my $node;
my @lines;
my $node;
my @lines;
- dbg('
DXProt::gen_pc92_update') if isdbg('trac
e');
+ dbg('
ROUTE: DXProt::gen_pc92_update start') if isdbg('rout
e');
# send 'my' configuration for all users and pc92 capable nodes
my @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} } DXChannel::get_all();
# send 'my' configuration for all users and pc92 capable nodes
my @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} } DXChannel::get_all();
+ dbg("ROUTE: all dxchan: " . join(',', map{$_->{call}} @dxchan)) if isdbg('route');
my @localnodes = map { my $r = Route::get($_->{call}); $r ? $r : () } @dxchan;
my @localnodes = map { my $r = Route::get($_->{call}); $r ? $r : () } @dxchan;
+ dbg("ROUTE: localnodes: " . join(',', map{$_->{call}} @localnodes)) if isdbg('route');
push @lines, pc92c($main::routeroot, @localnodes);
push @lines, pc92c($main::routeroot, @localnodes);
@@
-791,7
+793,9
@@
sub gen_pc92_update
# send out the configuration of all the directly connected PC92 nodes with current configuration
# but with the dates that the last config came in with.
@dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} && $_->{do_pc92} } DXChannel::get_all_nodes();
# send out the configuration of all the directly connected PC92 nodes with current configuration
# but with the dates that the last config came in with.
@dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} && $_->{do_pc92} } DXChannel::get_all_nodes();
+ dbg("ROUTE: pc92 dxchan: " . join(',', map{$_->{call}} @dxchan)) if isdbg('route');
@localnodes = map { my $r = Route::Node::get($_->{call}); $r ? $r : () } @dxchan;
@localnodes = map { my $r = Route::Node::get($_->{call}); $r ? $r : () } @dxchan;
+ dbg("ROUTE: pc92 localnodes: " . join(',', map{$_->{call}} @localnodes)) if isdbg('route');
foreach $node (@localnodes) {
if ($node && $node->lastid->{92}) {
my @rout = map {my $r = Route::get($_); $r ? ($r) : ()} $node->nodes, $node->users;
foreach $node (@localnodes) {
if ($node && $node->lastid->{92}) {
my @rout = map {my $r = Route::get($_); $r ? ($r) : ()} $node->nodes, $node->users;
@@
-803,13
+807,17
@@
sub gen_pc92_update
# send the configuration of all the directly connected 'external' nodes that don't handle PC92
# out with the 'external' marker on the first node.
@dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} && !$_->{do_pc92} } DXChannel::get_all_nodes();
# send the configuration of all the directly connected 'external' nodes that don't handle PC92
# out with the 'external' marker on the first node.
@dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} && !$_->{do_pc92} } DXChannel::get_all_nodes();
+ dbg("ROUTE: non pc92 dxchan: " . join(',', map{$_->{call}} @dxchan)) if isdbg('route');
@localnodes = map { my $r = Route::Node::get($_->{call}); $r ? $r : () } @dxchan;
@localnodes = map { my $r = Route::Node::get($_->{call}); $r ? $r : () } @dxchan;
+ dbg("ROUTE: non pc92 localnodes: " . join(',', map{$_->{call}} @localnodes)) if isdbg('route');
foreach $node (@localnodes) {
if ($node) {
my @rout = map {my $r = Route::User::get($_); $r ? ($r) : ()} $node->users;
push @lines, pc92c($node, @rout);
}
}
foreach $node (@localnodes) {
if ($node) {
my @rout = map {my $r = Route::User::get($_); $r ? ($r) : ()} $node->users;
push @lines, pc92c($node, @rout);
}
}
+
+ dbg('ROUTE: DXProt::gen_pc92_update end') if isdbg('route');
return @lines;
}
return @lines;
}