From: minima <minima>
Date: Sun, 20 Feb 2005 23:27:13 +0000 (+0000)
Subject: normalise PC19 version nos
X-Git-Tag: R_1_52~177
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=bcf099764f49e68ef016964e420b906e7900623e;p=spider.git

normalise PC19 version nos
---

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 32d63b1f..2bf621e1 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -223,7 +223,7 @@ sub init
 	$main::me->{metric} = 0;
 	$main::me->{pingave} = 0;
 	$main::me->{registered} = 1;
-	$main::me->{version} = 5251 + $main::version;
+	$main::me->{version} = 5252 + $main::version;
 	$main::me->{build} = $main::build;
 }
 
diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 9792d161..d2773062 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -142,7 +142,7 @@ sub pc19
 		my $conf = $ref->conf;
 		my $version = $ref->version;
 		$version = 5300 + int($version*100) if $version < 2;
-		$version = 5250 + int($version*100) if $version < 3;
+		$version = 5252 + int($version*100) if $version < 3;
 		my $str = "^$here^$call^$conf^$version";
 		if (length($s) + length($str) > $sentencelth) {
 			push @out, "PC19" . $s . sprintf "^%s^", get_hops(19);
diff --git a/perl/cluster.pl b/perl/cluster.pl
index d2d9dc60..6ad2a0ad 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -267,7 +267,7 @@ DXProt->init();
 Aranea->init();
 
 # put in a DXCluster node for us here so we can add users and take them away
-$routeroot = Route::Node->new($mycall, $version*100+5251, Route::here($main::me->here)|Route::conf($main::me->conf));
+$routeroot = Route::Node->new($mycall, $version*100+5252, Route::here($main::me->here)|Route::conf($main::me->conf));
 
 # make sure that there is a routing OUTPUT node default file
 #unless (Filter::read_in('route', 'node_default', 0)) {