projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
improve simple callsign checking
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index dfae3278efb914bf5bdc944be1ac91c393a7b2e9..a645da33f7325483e66bb348192595e3b9e99fc1 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-62,6
+62,7
@@
use DXDb;
use AnnTalk;
use WCY;
use DXDupe;
use AnnTalk;
use WCY;
use DXDupe;
+use BadWords;
use Data::Dumper;
use Fcntl ':flock';
use Data::Dumper;
use Fcntl ':flock';
@@
-72,7
+73,7
@@
package main;
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
-$version = "1.4
4
"; # the version no of the software
+$version = "1.4
5
"; # the version no of the software
$starttime = 0; # the starting time of the cluster
$lockfn = "cluster.lock"; # lock file name
@outstanding_connects = (); # list of outstanding connects
$starttime = 0; # the starting time of the cluster
$lockfn = "cluster.lock"; # lock file name
@outstanding_connects = (); # list of outstanding connects
@@
-323,6
+324,9
@@
DXUser->init($userfn, 1);
dbg('err', "starting listener ...");
Msg->new_server("$clusteraddr", $clusterport, \&login);
dbg('err', "starting listener ...");
Msg->new_server("$clusteraddr", $clusterport, \&login);
+# load bad words
+dbg('err', "load badwords: " . (BadWords::load or "Ok"));
+
# prime some signals
$SIG{INT} = \&cease;
$SIG{TERM} = \&cease;
# prime some signals
$SIG{INT} = \&cease;
$SIG{TERM} = \&cease;
@@
-364,7
+368,7
@@
DXProt->init();
# put in a DXCluster node for us here so we can add users and take them away
# put in a DXCluster node for us here so we can add users and take them away
-DXNode->new(
0
, $mycall, 0, 1, $DXProt::myprot_version);
+DXNode->new(
$DXProt::me
, $mycall, 0, 1, $DXProt::myprot_version);
# read in any existing message headers and clean out old crap
dbg('err', "reading existing message headers ...");
# read in any existing message headers and clean out old crap
dbg('err', "reading existing message headers ...");