#$no = 'No'; # ditto for no
#$user_interval = 11*60; # the interval between unsolicited prompts if no traffic
+package main;
+
+# set default paths, these should be overwritten by DXVars.pm
+use vars qw($data $system $cmd $localcmd $userfn $clusteraddr $clusterport $yes $no $user_interval $lang $local_data);
+
+$lang = 'en'; # default language
+$yes = 'Yes'; # visual representation of yes
+$no = 'No'; # ditto for no
+$user_interval = 11*60; # the interval between unsolicited prompts if no traffic
+
+
# make sure that modules are searched in the order local then perl
BEGIN {
umask 002;
mkdir "$root/local_cmd", 02774 unless -d "$root/local_cmd";
# locally stored data lives here
- my $local_data = "$root/local_data";
+ $local_data = "$root/local_data";
mkdir $local_data, 02774 unless -d $local_data;
+ $data = "$root/data";
+ $system = "$root/sys";
+ $cmd = "$root/cmd";
+ $localcmd = "$root/local_cmd";
+ $userfn = "$data/users";
# try to create and lock a lockfile (this isn't atomic but
# should do for now
use IsoTime;
use BPQMsg;
use RBN;
-
+use DXCIDR;
use Data::Dumper;
use IO::File;
use POSIX ":sys_wait_h";
use Web;
-use vars qw($version $build $gitversion $gitbranch);
-
use strict;
use Local;
$no //= 'No'; # ditto for no
$user_interval //= 11*60; # the interval between unsolicited prompts if no traffic
-
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
$starttime = 0; # the starting time of the cluster
our $allowslashcall; # Allow / in connecting callsigns (ie PA0/G1TLH, or even PA0/G1TLH/2)
+use vars qw($version $subversion $build $gitversion $gitbranch);
+
# send a message to call on conn and disconnect
sub already_conn
{
return \&new_channel;
}
-our $ceasing;
+my $ceasing;
# cease running this program, close down all the connections nicely
sub cease
cluck("ceasing") if $ceasing;
return if $ceasing++;
+
+ dbg("DXSpider Ceasing");
unless ($is_win) {
$SIG{'TERM'} = 'IGNORE';
UDPMsg::finish();
# end everything else
+ QSL::finish();
RBN::finish();
- DXUser::finish();
DXDupe::finish();
# close all databases
$l->close_server;
}
+ DXUser::finish();
+
LogDbg('cluster', "DXSpider v$version build $build (git: $gitbranch/$gitversion) using perl $^V on $^O ended");
dbg("bye bye everyone - bye bye");
dbgclose();
sub setup_start
{
-
#############################################################
#
# The start of the main line of code
$SIG{__DIE__} = $w;
}
+
# setup location of motd & issue
localdata_mv($motd);
$motd = localdata($motd);
my ($year) = (gmtime)[5];
$year += 1900;
LogDbg('cluster', "DXSpider v$version build $build (git: $gitbranch/$gitversion) using perl $^V on $^O started");
- dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH");
+ LogDbg('cluster', "Copyright (c) 1998-$year Dirk Koopman G1TLH");
+ LogDbg('cluster', "Capabilities: ve7cc rbn");
# load Prefixes
dbg("loading prefixes ...");
}
}
+
# start listening for incoming messages/connects
dbg("starting listeners ...");
my $conn = IntMsg->new_server($clusteraddr, $clusterport, \&login);
dbg("External Port: $l->[0] $l->[1] using ${pkg}::${login}");
}
+
dbg("AGW Listener") if $AGWMsg::enable;
AGWrestart();
UDPMsg::init(\&new_channel);
# load bad words
- dbg("load badwords: " . (BadWords::load or "Ok"));
+ BadWords::load();
# prime some signals
unless ($DB::VERSION) {
$SIG{INT} = $SIG{TERM} = sub { $ending = 10; };
}
+ # get any bad IPs
+ DXCIDR::init();
+
unless ($is_win) {
$SIG{HUP} = 'IGNORE';
$SIG{CHLD} = sub { $zombies++ };
Mojo::IOLoop->start unless Mojo::IOLoop->is_running;
dbg("After Web::start_node");
+
}
setup_start();
exit(0);
+sub END
+{
+ unless ($ceasing) {
+ print "DXSpider Ending\n";
+ cease();
+ }
+}