projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
change sh/dx backend to the Filter engine
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 6bd0c7440aeb1f0a9556bfdc0e7c4d2ba690a2e0..ebebcccc9ededbb062e9ec0e08eae71318249064 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-31,6
+31,7
@@
$yes = 'Yes'; # visual representation of yes
$no = 'No'; # ditto for no
$user_interval = 11*60; # the interval between unsolicited prompts if no traffic
$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;
# make sure that modules are searched in the order local then perl
BEGIN {
umask 002;
@@
-90,12
+91,11
@@
use DXVars;
use SysVar;
# order here is important - DXDebug snarfs Carp et al so that Mojo errors go into the debug log
use SysVar;
# order here is important - DXDebug snarfs Carp et al so that Mojo errors go into the debug log
-use DXDebug;
use Mojolicious 7.26;
use Mojo::IOLoop;
use Mojolicious 7.26;
use Mojo::IOLoop;
-
$DOWARN = 1;
$DOWARN = 1;
+use DXDebug;
use Msg;
use IntMsg;
use Internet;
use Msg;
use IntMsg;
use Internet;
@@
-147,7
+147,7
@@
use DXXml;
use DXSql;
use IsoTime;
use BPQMsg;
use DXSql;
use IsoTime;
use BPQMsg;
-
+use RBN;
use Data::Dumper;
use Data::Dumper;
@@
-349,7
+349,9
@@
sub new_channel
$user->startt($systime); # mark the start time of this connection
if ($user->is_node) {
$user->startt($systime); # mark the start time of this connection
if ($user->is_node) {
- $dxchan = DXProt->new($call, $conn, $user);
+ $dxchan = DXProt->new($call, $conn, $user);
+ } elsif ($user->is_rbn) {
+ $dxchan = RBN->new($newcall, $conn, $user);
} elsif ($user->is_user) {
$dxchan = DXCommandmode->new($newcall, $conn, $user);
} else {
} elsif ($user->is_user) {
$dxchan = DXCommandmode->new($newcall, $conn, $user);
} else {
@@
-566,14
+568,14
@@
sub setup_start
my $oldsort = $ref->sort;
if ($oldsort ne 'S') {
$ref->sort('S');
my $oldsort = $ref->sort;
if ($oldsort ne 'S') {
$ref->sort('S');
- dbg
"Resetting node type from $oldsort -> DXSpider ('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');
}
$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')"
;
+ dbg
("Resetting sysop user type from $oldsort -> User ('U')")
;
}
}
}
}