make sure rproc isn't trashed in AGWMsg.pm

diff --git a/cmd/set/agwengine.pl b/cmd/set/agwengine.pl
index 6d0fa864dcac2ea759d06825fed9d867bba8900a..a691e264791ecf6ff399b7c24eea1ef7a7218a11 100644 (file)
--- a/cmd/set/agwengine.pl
+++ b/cmd/set/agwengine.pl
@@ -8,6 +8,7 @@ my $self = shift;
 return (1, $self->msg('e5')) if $self->priv < 9;
 unless ($AGWMsg::enable) {
        $AGWMsg::enable = 1;
+       AGWMsg::init();
        return (1, $self->msg('agwe'));
 }
 return (1);

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index 4d1068ff35707ca813b03d5ad2dbf86d7da07705..90f469d82afe107d174bbaefcb904a115c6a495a 100644 (file)
--- a/perl/AGWMsg.pm
+++ b/perl/AGWMsg.pm
@@ -51,8 +51,11 @@ $connectinterval = 60;
 sub init
 {
        return unless $enable;
-       $rproc = shift;
        
+       # only set $rproc if there is something to set rproc from!
+       my $rp = shift;
+       $rproc = $rp if defined $rp;
+
        finish();
 
        dbg("AGW initialising and connecting to $addr/$port ...");

diff --git a/perl/Version.pm b/perl/Version.pm
index 65bf24fcb346cdfc60463d9b33bffa837f596f54..f9ffc1c6a6faa2b27a620196d2dd5570c4207531 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
-$build = '209';
+$build = '210';
 
 1;

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";
        }