projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a163799
)
add PC21 delete for locally connecting nodes
author
minima
<minima>
Tue, 16 Jan 2007 11:06:49 +0000
(11:06 +0000)
committer
minima
<minima>
Tue, 16 Jan 2007 11:06:49 +0000
(11:06 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index baaea72dde04b32fe8edd7565d935c5dd288264a..010620a0f67725a5c8323d322a4b699a70787735 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-236,6
+236,14
@@
sub new
# add this node to the table, the values get filled in later
my $pkg = shift;
my $call = shift;
# add this node to the table, the values get filled in later
my $pkg = shift;
my $call = shift;
+
+ # if we have an entry already, then send a PC21 to all connect
+ # old style connections, because we are about to get the real deal
+ if (my $ref = Route::Node::get($call)) {
+ dbg("ROUTE: $call is already in the routing table, deleting") if isdbg('route');
+ my @rout = $ref->del_nodes;
+ $self->route_pc21($main::mycall, undef, @rout) if @rout;
+ }
$main::routeroot->add($call, '5000', Route::here(1)) if $call ne $main::mycall;
return $self;
$main::routeroot->add($call, '5000', Route::here(1)) if $call ne $main::mycall;
return $self;