tart up version no reporting in sh/node

diff --git a/Changes b/Changes
index 138b8740a60e5cabd4631ec89f4de6c9f62c5e53..86432dd566e3e43331699ea67cbde513fba0b79b 100644 (file)
--- a/Changes
+++ b/Changes
@@ -4,6 +4,7 @@ records, that can be an hour coming, are not thoughtlessly ignored, thus
 causing nodes to time out.
 2. Make sure that the 'over midnight' distance calculation actually does what
 is required!
 causing nodes to time out.
 2. Make sure that the 'over midnight' distance calculation actually does what
 is required!

+3. Tart up version number reporting in sh/node.

 05Jul07=======================================================================
 1. Try to make sure that the node config broadcasts are actually sent...
 03Jul07=======================================================================
 05Jul07=======================================================================
 1. Try to make sure that the node config broadcasts are actually sent...
 03Jul07=======================================================================

diff --git a/cmd/show/node.pl b/cmd/show/node.pl
index 063e2e4288942785e29e909b6158723d79caaa10..e5e0eba58a00bb9ebb1ae2ffb742ef260accc5b2 100644 (file)
--- a/cmd/show/node.pl
+++ b/cmd/show/node.pl
@@ -69,6 +69,7 @@ foreach $call (@call) {
        
        my ($major, $minor, $subs) = unpack("AAA*", $ver) if $ver;
        if ($uref->is_spider) {
        
        my ($major, $minor, $subs) = unpack("AAA*", $ver) if $ver;
        if ($uref->is_spider) {

+               $ver -= 53 if $ver > 54;

                $build = "build: " . $uref->build if $uref->build;
                push @out, $self->msg('snode2', $pcall, $sort, "$ver $build");
        } else {
                $build = "build: " . $uref->build if $uref->build;
                push @out, $self->msg('snode2', $pcall, $sort, "$ver $build");
        } else {

diff --git a/perl/Version.pm b/perl/Version.pm
index d6dc547597893b0a87243d03dd0085094f1d56cf..3f3d74400031dc6b520a26ed8a4fc07f6a8619fb 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
 
 $version = '1.54';
 $subversion = '0';

-$build = '103';
+$build = '104';

 
 1;
 
 1;