From 71620f62f33c447fbc6e54e8c2681b8742e421a6 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 26 Feb 2008 17:31:02 +0000
Subject: [PATCH 1/1] make sure rproc isn't trashed in AGWMsg.pm

---
 cmd/set/agwengine.pl | 1 +
 perl/AGWMsg.pm       | 5 ++++-
 perl/Version.pm      | 2 +-
 perl/cluster.pl      | 4 ++--
 4 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/cmd/set/agwengine.pl b/cmd/set/agwengine.pl
index 6d0fa864..a691e264 100644
--- 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 4d1068ff..90f469d8 100644
--- 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 65bf24fc..f9ffc1c6 100644
--- 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 0fe3b575..4b7abd58 100755
--- 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";
 	}
-- 
2.43.0