From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 26 Feb 2008 17:31:02 +0000 (+0000)
Subject: make sure rproc isn't trashed in AGWMsg.pm
X-Git-Tag: 1.55~10
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=71620f62f33c447fbc6e54e8c2681b8742e421a6;p=spider.git

make sure rproc isn't trashed in AGWMsg.pm
---

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