make sure rproc isn't trashed in AGWMsg.pm

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 0fe3b575a98588be279dac7e658f24170219a8e3..4b7abd585696bf2dabd4f9c8be63cc43a7072a98 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -208,8 +208,8 @@ sub new_channel
                $dxchan = DXProt->new($call, $conn, $user);
        } elsif ($user->is_user) {
                $dxchan = DXCommandmode->new($call, $conn, $user);
-       } elsif ($user->is_bbs) {
-               $dxchan = BBS->new($call, $conn, $user);
+#      } elsif ($user->is_bbs) {                                  # there is no support so
+#              $dxchan = BBS->new($call, $conn, $user);               # don't allow it!!!
        } else {
                die "Invalid sort of user on $call = $sort";
        }