From 88ef11b32fa79e140e65b0a52e5a263e70f3ba11 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Wed, 13 Jun 2007 22:49:09 +0100 Subject: [PATCH] Revert "fix 1.53 to work with old version method" This reverts commit f6fdd9847c1f46b233be56296cad39ad949d25ae. --- .gitignore | 4 ---- data/.gitignore | 8 -------- perl/cluster.pl | 9 +++++++++ 3 files changed, 9 insertions(+), 12 deletions(-) delete mode 100644 .gitignore delete mode 100644 data/.gitignore diff --git a/.gitignore b/.gitignore deleted file mode 100644 index 43dd1b99..00000000 --- a/.gitignore +++ /dev/null @@ -1,4 +0,0 @@ -# standard things to ignore -connect/* -local -local_cmd diff --git a/data/.gitignore b/data/.gitignore deleted file mode 100644 index 628c2593..00000000 --- a/data/.gitignore +++ /dev/null @@ -1,8 +0,0 @@ -# things in data to ignore -bad* -debug -*.v? -log -dupefile -spots -*.db diff --git a/perl/cluster.pl b/perl/cluster.pl index e8e7cb05..8aade278 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -130,6 +130,15 @@ $bumpexisting = 1; # 1 = allow new connection to disconnect old, 0 - don't al $allowdxby = 0; # 1 = allow "dx by ", 0 - don't allow it +use vars qw($VERSION $BRANCH $build $branch); +$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$main::build += $VERSION; +$main::branch += $BRANCH; +$main::build -= 3; # fudge (put back for now) + + + # send a message to call on conn and disconnect sub already_conn { -- 2.43.0