X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=1fc293f209ace278768b9aadf5d88c86c89fa951;hb=dbeecf2c5b0e87c38b52edf992d41b122a676fcd;hp=02e86a770ee7a6e3414d6b9f2280cc183d961289;hpb=0be137c3bbf8516ccfa5fd2a88952595ee279a54;p=spider.git diff --git a/perl/cluster.pl b/perl/cluster.pl index 02e86a77..1fc293f2 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -146,7 +146,7 @@ use DXXml; use DXSql; use IsoTime; use BPQMsg; - +use RBN; use Data::Dumper; @@ -346,7 +346,9 @@ sub new_channel $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 {