+ # try to load XML::Simple
+ DXXml::init();
+
+ # banner
+ my ($year) = (gmtime)[5];
+ $year += 1900;
+ LogDbg('cluster', "DXSpider V$version, build $build (git: $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(1);
+
+ # 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}");