projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
35f219e
)
fix hexstamps
author
minima
<minima>
Thu, 8 Jul 2004 07:59:49 +0000
(07:59 +0000)
committer
minima
<minima>
Thu, 8 Jul 2004 07:59:49 +0000
(07:59 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 9227652c43801b7879142b8728782034ac705a67..8347dd0e35617964f906ae6f864aad18f9a9902a 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-966,7
+966,7
@@
sub handle_19
# route out new nodes to legacy nodes
$self->route_pc19($origin, $line, @new) if @new;
# route out new nodes to legacy nodes
$self->route_pc19($origin, $line, @new) if @new;
- $self->route_pc59('A',
0
, $self->{call}, @rout) if @rout;
+ $self->route_pc59('A',
hexstamp()
, $self->{call}, @rout) if @rout;
}
# send local configuration
}
# send local configuration
@@
-2340,7
+2340,7
@@
sub disconnect
# broadcast to all other nodes that all the nodes connected to via me are gone
unless ($pc39flag && $pc39flag == 2) {
$self->route_pc21($main::mycall, undef, @rout) if @rout;
# broadcast to all other nodes that all the nodes connected to via me are gone
unless ($pc39flag && $pc39flag == 2) {
$self->route_pc21($main::mycall, undef, @rout) if @rout;
- $self->route_pc59('D',
0
, $main::mycall, $node);
+ $self->route_pc59('D',
hexstamp()
, $main::mycall, $node);
}
# delete all the unwanted nodes
}
# delete all the unwanted nodes