+ $starttime = $systime = time;
+ $systime_days = int ($systime / 86400);
+ $systime_daystart = $systime_days * 86400;
+ $lang = 'en' unless $lang;
+
+ unless ($DB::VERSION) {
+ $SIG{INT} = $SIG{TERM} = \&cease;
+ }
+
+ # open the debug file, set various FHs to be unbuffered
+ dbginit($broadcast_debug ? \&DXCommandmode::broadcast_debug : undef);
+ foreach (@debug) {
+ dbgadd($_);
+ }
+ STDOUT->autoflush(1);
+
+
+ # try to load the database
+ if (DXSql::init($dsn)) {
+ $dbh = DXSql->new($dsn);
+ $dbh = $dbh->connect($dsn, $dbuser, $dbpass) if $dbh;
+ }
+
+ # try to load Encode and Git
+ {
+ local $^W = 0;
+ my $w = $SIG{__DIE__};
+ $SIG{__DIE__} = 'IGNORE';
+ eval { require Encode; };
+ unless ($@) {
+ import Encode;
+ $can_encode = 1;
+ }
+ $gitbranch = 'none';
+ $gitversion = 'none';
+ eval { require Git; };
+ unless ($@) {
+ import Git;
+
+ # determine the real version number
+ my $repo = Git->repository(Directory => "$root/.git");
+ if ($repo) {
+ my $desc = $repo->command_oneline(['describe', '--long'], STDERR => 0);
+ if ($desc) {
+ my ($v, $s, $b, $g) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
+ $s ||= '';
+ dbg("Git: $desc") if isdbg('git');
+ dbg("Git: V=$v S=$s B=$b g=$g") if isdbg('git');
+ $version = $v;
+ $build = $b || 0;
+ $gitversion = "$g\[r]";
+ }
+ my @branch = $repo->command([qw{branch}], STDERR=>0);
+ for (@branch) {
+ my ($star, $b) = split /\s+/;
+ if ($star eq '*') {
+ $gitbranch = $b;
+ last;
+ }
+ }
+ }
+ }
+ $SIG{__DIE__} = $w;
+ }
+
+ # try to load XML::Simple
+ DXXml::init();
+
+ # banner
+ my ($year) = (gmtime)[5];
+ $year += 1900;
+ LogDbg('cluster', "DXSpider V$version, build $build (git: $gitbranch/$gitversion) started");
+ dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH");
+
+ # load Prefixes
+ dbg("loading prefixes ...");
+ dbg(USDB::init());
+ my $r = Prefix::init();
+ confess $r if $r;
+
+ # load band data
+ dbg("loading band data ...");
+ Bands::load();
+
+ # initialise User file system
+ dbg("loading user file system ...");
+ DXUser::init(4); # version 4 == json format
+
+ # look for the sysop and the alias user and complain if they aren't there
+ {
+ die "\$myalias \& \$mycall are the same ($mycall)!, they must be different (hint: make \$mycall = '${mycall}-2';). Oh and don't forget to rerun create_sysop.pl!" if $mycall eq $myalias;
+ my $ref = DXUser::get($mycall);
+ die "$mycall missing, run the create_sysop.pl script and please RTFM" unless $ref && $ref->priv == 9;
+ my $oldsort = $ref->sort;
+ if ($oldsort ne 'S') {
+ $ref->sort('S');
+ dbg "Resetting node type from $oldsort -> DXSpider ('S')";
+ }
+ $ref = DXUser::get($myalias);
+ die "$myalias missing, run the create_sysop.pl script and please RTFM" unless $ref && $ref->priv == 9;
+ $oldsort = $ref->sort;
+ if ($oldsort ne 'U') {
+ $ref->sort('U');
+ dbg "Resetting sysop user type from $oldsort -> User ('U')";
+ }
+ }
+
+ # start listening for incoming messages/connects
+ dbg("starting listeners ...");
+ my $conn = IntMsg->new_server($clusteraddr, $clusterport, \&login);
+ $conn->conns("Server $clusteraddr/$clusterport using IntMsg");
+ push @listeners, $conn;
+ dbg("Internal port: $clusteraddr $clusterport using IntMsg");
+ foreach my $l (@main::listen) {
+ no strict 'refs';
+ my $pkg = $l->[2] || 'ExtMsg';
+ my $login = $l->[3] || 'login';
+
+ $conn = $pkg->new_server($l->[0], $l->[1], \&{"${pkg}::${login}"});
+ $conn->conns("Server $l->[0]/$l->[1] using ${pkg}::${login}");
+ push @listeners, $conn;
+ dbg("External Port: $l->[0] $l->[1] using ${pkg}::${login}");
+ }
+
+ dbg("AGW Listener") if $AGWMsg::enable;
+ AGWrestart();
+
+ dbg("BPQ Listener") if $BPQMsg::enable;
+ BPQMsg::init(\&new_channel);