From: Dirk Koopman Date: Wed, 13 Jun 2007 21:49:09 +0000 (+0100) Subject: Revert "fix 1.53 to work with old version method" X-Git-Tag: 1.55~174 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=88ef11b32fa79e140e65b0a52e5a263e70f3ba11 Revert "fix 1.53 to work with old version method" This reverts commit f6fdd9847c1f46b233be56296cad39ad949d25ae. --- 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 {