X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=3eb351951c628c705b6c6d0a79cb57323809e0ac;hb=ec2bc54f842a3b684ce9375511f4ab2098717fe1;hp=c8decb72e1b3b5c39e34e2fd3f283d0f23741b54;hpb=2e3638e69f84390b8e911093aa71a7c9382dfc0f;p=spider.git diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index c8decb72..3eb35195 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -124,13 +124,11 @@ sub start $user->wantdxitu(0) unless defined $user->{wantdxitu}; $user->wantusstate(0) unless defined $user->{wantusstate}; - # sort out registration - if ($main::reqreg == 1) { - $self->{registered} = $user->registered; - } elsif ($main::reqreg == 2) { + # sort out registration (who wanted 2???) Note registration *could* be used even when reqreg == 0 + if ($main::reqreg == 2) { $self->{registered} = !$user->registered; } else { - $self->{registered} = 1; + $self->{registered} = $user->registered; } # send the relevant MOTD @@ -1237,7 +1235,7 @@ sub send_motd my $self = shift; my $motd; - unless ($self->{registered}) { + unless ($self->registered) { $motd = "${main::motd}_nor_$self->{lang}"; $motd = "${main::motd}_nor" unless -e $motd; } @@ -1252,5 +1250,7 @@ sub send_motd } $self->send_file($motd) if -e $motd; } + + 1; __END__