remove all references to ${main::}subversion

diff --git a/cmd/show/version.pl b/cmd/show/version.pl
index 7107570d969c0e5108b57bb48508b89c81285351..b57dd36c258d52a916fbf12748dc2e48055af736 100644 (file)
--- a/cmd/show/version.pl
+++ b/cmd/show/version.pl
@@ -9,7 +9,7 @@
 my @out;
 my ($year) = (gmtime($main::systime))[5];
 $year += 1900;
-push @out, "DX Spider Cluster version $main::version (build $main::subversion.$main::build git: $main::gitversion) on \u$^O";
+push @out, "DX Spider Cluster version $main::version (build $main::build git: $main::gitversion) on \u$^O";
 push @out, "Copyright (c) 1998-$year Dirk Koopman G1TLH";
 
 return (1, @out);

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 59deac9d13ead66155e7957b011bcbcfa246b733..91736470c87bd2f77df944a4bcfe54b6aeb0d780 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -246,7 +246,7 @@ sub init
        $main::me->{pingave} = 0;
        $main::me->{registered} = 1;
        $main::me->{version} = $main::version;
-       $main::me->{build} = "$main::subversion.$main::build";
+       $main::me->{build} = $main::build;
        $main::me->{do_pc9x} = 1;
        $main::me->update_pc92_next($pc92_short_update_period);
        $main::me->update_pc92_keepalive;

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index fc116f8e7ed3c191b7c538c7b8f87c176351d4ec..088d82e59f369df71d21c2288e7a49584b22a588 100644 (file)
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -130,7 +130,7 @@ sub pc17
 sub pc18
 {
        my $flags = shift;
-       return "PC18^DXSpider Version: $main::version Build: $main::subversion.$main::build Git: $main::gitversion$flags^$DXProt::myprot_version^";
+       return "PC18^DXSpider Version: $main::version Build: $main::build Git: $main::gitversion$flags^$DXProt::myprot_version^";
 }
 
 #

diff --git a/perl/Messages b/perl/Messages
index 71218892d93425f6b7e933a76a16f42f355a7bef..78ad316444eda4cecafe9aed234f529d55fe5dec 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -159,7 +159,7 @@ package DXM;
                                isow => '$_[0] is isolated; unset/isolate $_[0] first',
                                join => 'joining group $_[0]',
                                l1 => 'Sorry $_[0], you are already logged on on another channel',
-                               l2 => 'Hello $_[0], this is $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::subversion.$main::build',
+                               l2 => 'Hello $_[0], this is $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::build',
                                lang => 'Language is now English',
                                lange1 => 'set/language <lang> where <lang> is one of ($_[0])',
                                lange2 => 'failed to set language on $_[0]', 
@@ -584,7 +584,7 @@ package DXM;
                                isow => '$_[0] est isolé; utilisez d\'abord unset/isolate $_[0]',
                                join => 'Affiliation au groupe $_[0]',
                                l1 => 'Désolé $_[0], vous êtes déjà connecté sur un autre canal',
-                               l2 => 'Bonjour $_[0], bienvenue sur $main::mycall à $main::myqth\nServeur DXSpider V$main::version ($main::subversion.$main::build)',
+                               l2 => 'Bonjour $_[0], bienvenue sur $main::mycall à $main::myqth\nServeur DXSpider V$main::version ($main::build)',
                                lang => 'Je parle maintenant français',
                                lange1 => 'Syntaxe : set/language <langue>, où <langue> est à choisir parmi ($_[0])',
                                lange2 => 'Impossible de fixer la langue à $_[0]', 
@@ -1228,7 +1228,7 @@ package DXM;
                                isow => '$_[0] ist isoliert; unset/isolate $_[0] zuerst',
                                join => 'Trete Gespraechsgruppe $_[0] bei',
                                l1 => 'Sorry $_[0], Du bist bereits auf einem anderen Kanal eingeloggt',
-                               l2 => 'Moin $_[0], hier ist $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::subversion.$main::build',
+                               l2 => 'Moin $_[0], hier ist $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::build',
                                lang => 'Sprache ist jetzt Deutsch',
                                lange1 => 'set/language <lang> wobei <lang> ist eine von ($_[0])',
                                lange2 => 'Fehler beim Setzen der Sprache auf $_[0]',
@@ -1496,7 +1496,7 @@ package DXM;
                                isoaro => 'c\'e\' una filtro sulla rotta in uscita per $_[0]; eliminala con clear/route $_[0] prima',
                                isow => '$_[0] e\' isolato; unset/isolate $_[0] prima',
                                l1 => 'Spiacente $_[0], sei già collegato sun un altro canale',
-                               l2 => 'Benvenuto $_[0] sul Cluster $main::mycall a $main::myqth\nsoftware in uso DXSpider V$main::version build $main::subversion.$main::build',
+                               l2 => 'Benvenuto $_[0] sul Cluster $main::mycall a $main::myqth\nsoftware in uso DXSpider V$main::version build $main::build',
                                lang => 'La lingua selezionata e\' adesso Italiano',
                                lange1 => 'set/language <lingua> dove <lingua> e\' una tra ($_[0])',
                                lange2 => 'impostazione lingua fallita per $_[0]', 
@@ -1773,7 +1773,7 @@ package DXM;
                                isoaro => 'vystupni route filtr pro $_[0] uz existuje; zadej nejprve clear/route $_[0]',
                                isow => '$_[0] je izolovan; zadej nejprve unset/isolate $_[0]',
                                l1 => 'Lituji $_[0], uz jsi zalogovan na jinem kanalu',
-                               l2 => 'Ahoj $_[0], toto je $main::mycall, $main::myqth\npouzivajici DXSpider V$main::version build $main::subversion.$main::build',
+                               l2 => 'Ahoj $_[0], toto je $main::mycall, $main::myqth\npouzivajici DXSpider V$main::version build $main::build',
                                lang => 'Jazyk je nyni nastaven na Cestinu (napoveda zatim v procesu)',
                                lange1 => 'set/language <lang> kde <lang> je jedno z ($_[0])',
                                lange2 => 'selhalo nastaveni jazyka na $_[0]', 
@@ -2068,7 +2068,7 @@ package DXM;
                                isow => '$_[0] est isolado; unset/isolate $_[0] primeiro',
                                join => 'a juntar ao grupo $_[0]',
                                l1 => 'Desculpe $_[0], voc est ligado noutro canal',
-                               l2 => 'Ol $_[0], isto  $main::mycall em $main::myqth\nrunning DXSpider V$main::version build $main::subversion.$main::build',
+                               l2 => 'Ol $_[0], isto  $main::mycall em $main::myqth\nrunning DXSpider V$main::version build $main::build',
                                lang => 'Linguagem  agora o Portugus',
                                lange1 => 'set/language <ling> aonde <ling>  uma de ($_[0])',
                                lange2 => 'falha ao definir uma lngua em $_[0]', 

diff --git a/perl/Version.pm b/perl/Version.pm
index f7145cf7465e28b08992fff5759c9e4008ef6a18..6db53a72bf50737e3f09bdd2a499815a86f2d0eb 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -7,11 +7,10 @@
 
 package main;
 
-use vars qw($version $subversion $build $gitversion);
+use vars qw($version $build $gitversion);
 
 $version = '1.57';
-$subversion = '0';
-$build = '2';
-$gitversion = '61e7e87';
+$build = '3';
+$gitversion = '16c9326';
 
 1;

diff --git a/perl/cluster.pl b/perl/cluster.pl
index ddcf721448582d18f1100ec363586cf677c511ee..39c65c02d4d151a64efde0674e291725fe84236c 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -301,7 +301,7 @@ sub cease
                $l->close_server;
        }
 
-       LogDbg('cluster', "DXSpider V$version, build $subversion.$build (git: $gitversion) ended");
+       LogDbg('cluster', "DXSpider V$version, build $build (git: $gitversion) ended");
        dbg("bye bye everyone - bye bye");
        dbgclose();
        Logclose();
@@ -445,7 +445,7 @@ DXXml::init();
 # banner
 my ($year) = (gmtime)[5];
 $year += 1900;
-LogDbg('cluster', "DXSpider V$version, build $subversion.$build (git: $gitversion) started");
+LogDbg('cluster', "DXSpider V$version, build $build (git: $gitversion) started");
 dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH");
 
 # load Prefixes

diff --git a/perl/issue.pl b/perl/issue.pl
index 065c9abdc1971546d8e198d009c9b7e84ba5e13f..ea0c083fcf8a43efc426be75049083c7b5acb7b2 100755 (executable)
--- a/perl/issue.pl
+++ b/perl/issue.pl
@@ -20,7 +20,6 @@ use vars qw($root);
 my $fn = "$root/perl/Version.pm";
 my $desc = `git describe --long`;
 my ($v, $s, $b, $g) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
-$s ||= '0';            # account for missing subversion
 $b++;                  # to account for the commit that is about to happen
 
 open F, ">$fn" or die "issue.pl: can't open $fn $!\n";
@@ -33,10 +32,9 @@ print F qq(#
 
 package main;
 
-use vars qw(\$version \$subversion \$build \$gitversion);
+use vars qw(\$version \$build \$gitversion);
 
 \$version = '$v';
-\$subversion = '$s';
 \$build = '$b';
 \$gitversion = '$g';