projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
WIP RBN
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 02e86a770ee7a6e3414d6b9f2280cc183d961289..1fc293f209ace278768b9aadf5d88c86c89fa951 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-146,7
+146,7
@@
use DXXml;
use DXSql;
use IsoTime;
use BPQMsg;
use DXSql;
use IsoTime;
use BPQMsg;
-
+use RBN;
use Data::Dumper;
use Data::Dumper;
@@
-346,7
+346,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 {