2 # the sysop command for allowing people who have privileges that
3 # are denied them by connecting remotely
5 # Copyright (c) 1999 Dirk Koopman
8 my ($self, $line) = @_;
9 my $user = DXUser->get_current($self->call);
10 my $passwd = $user->passwd if $user;
11 my $lth = length $passwd;
12 $lth = 100 unless $lth;
17 for ($i = 0; $i < 5; ++$i) {
18 push @list, int rand($lth);
21 $self->passwd(\@list);
22 $self->state('sysop');
23 push @out, join(' ', @list);