use IO::File;
use Fcntl ':flock';
use POSIX ":sys_wait_h";
+use Version;
use Local;
package main;
use strict;
-use vars qw(@inqueue $systime $version $starttime $lockfn @outstanding_connects
+use vars qw(@inqueue $systime $starttime $lockfn @outstanding_connects
$zombies $root @listeners $lang $myalias @debug $userfn $clusteraddr
$clusterport $mycall $decease $is_win $routeroot $me $reqreg $bumpexisting
$allowdxby $dbh $dsn $dbuser $dbpass $do_xml $systime_days $systime_daystart
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
-$version = "1.53"; # the version no of the software
$starttime = 0; # the starting time of the cluster
-#@outstanding_connects = (); # list of outstanding connects
+@outstanding_connects = (); # list of outstanding connects
@listeners = (); # list of listeners
$reqreg = 0; # 1 = registration required, 2 = deregister people
$bumpexisting = 1; # 1 = allow new connection to disconnect old, 0 - don't allow it
$allowdxby = 0; # 1 = allow "dx by <othercall>", 0 - don't allow it
-use vars qw($VERSION $BRANCH $build $branch);
-($VERSION, $BRANCH) = dxver( q$Revision$);
-$main::build -= 2; # fudge (put back for now)
-
-
-
# send a message to call on conn and disconnect
sub already_conn
{
}
STDOUT->autoflush(1);
-# calculate build number
-$build += $main::version;
-$build = "$build.$branch" if $branch;
-
# try to load the database
if (DXSql::init($dsn)) {
$dbh = DXSql->new($dsn);