#$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;
$user_interval //= 11*60; # the interval between unsolicited prompts if no traffic
+$clusteraddr //= '127.0.0.1'; # cluster tcp host address - used for things like console.pl
+$clusterport //= 27754; # cluster tcp port
@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
{
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);
}
}
+
# 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();
$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();