return (1, $self->msg('e5')) if $self->priv < 9;
unless ($AGWMsg::enable) {
$AGWMsg::enable = 1;
+ AGWMsg::init();
return (1, $self->msg('agwe'));
}
return (1);
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 ...");
$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";
}