X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=8347dd0e35617964f906ae6f864aad18f9a9902a;hb=eb631a639a657f071f4711f6f4f5c585ab6364c6;hp=9227652c43801b7879142b8728782034ac705a67;hpb=870623b38dea43fbd5acf992d1e533cf3c6597cc;p=spider.git

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