X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=d05af70a2936bd67c3ee9aec70b5a3142c8c0426;hb=6aca4e461103870de99b0ce452f21cf7fedeb54b;hp=bce0255fd4750002963821575ccd462f5173ddda;hpb=077c3e3a30c07735968cedd5d9da3ac0b51a7f42;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index bce0255f..d05af70a 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -133,6 +133,20 @@ sub normal
 		} else {
 			$self->state('prompt');
 		}
+	} elsif ($self->{state} eq 'sysop') {
+		my $passwd = $self->{user}->passwd;
+		my @pw = split / */, $passwd;
+		if ($passwd) {
+			my @l = @{$self->{passwd}};
+			my $str = "$pw[$l[0]].*$pw[$l[1]].*$pw[$l[2]].*$pw[$l[3]].*$pw[$l[4]]";
+			if ($cmdline =~ /$str/) {
+				$self->{priv} = $self->{user}->priv;
+			} else {
+				$self->send($self->msg('sorry'));
+			}
+		}
+		delete $self->{passwd};
+		$self->state('prompt');
 	} else {
 		@ans = run_cmd($self, $cmdline);           # if length $cmdline;