From: minima <minima>
Date: Thu, 8 Jul 2004 07:59:49 +0000 (+0000)
Subject: fix hexstamps
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=eb631a639a657f071f4711f6f4f5c585ab6364c6;p=spider.git

fix hexstamps
---

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 9227652c..8347dd0e 100644
--- 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;
-	$self->route_pc59('A', 0, $self->{call}, @rout) if @rout;
+	$self->route_pc59('A', hexstamp(), $self->{call}, @rout) if @rout;
 }
 		
 # 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;
-		$self->route_pc59('D', 0, $main::mycall, $node);
+		$self->route_pc59('D', hexstamp(), $main::mycall, $node);
 	}
 
 	# delete all the unwanted nodes