normalise PC19 version nos

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 32d63b1f4d5c37608eb25d73f5cbe0649b71c99a..2bf621e1a1883d61776c0b689bb2c3b5961e917b 100644 (file)
--- 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 9792d161f9de0aafe254b001ffbfee5667474bce..d27730621559a9915709c1d3fdc5086bc6f1b4ed 100644 (file)
--- 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 d2d9dc6037db1d526d9d460d86dc450b0ee50305..6ad2a0ad8b3edce0dc05fdffe3a107cb99e41938 100755 (executable)
--- 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)) {