From bcf099764f49e68ef016964e420b906e7900623e Mon Sep 17 00:00:00 2001 From: minima Date: Sun, 20 Feb 2005 23:27:13 +0000 Subject: [PATCH] normalise PC19 version nos --- perl/DXProt.pm | 2 +- perl/DXProtout.pm | 2 +- perl/cluster.pl | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) 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)) { -- 2.43.0