From c001af008776b1822d9e99a28bfef500cf2d0844 Mon Sep 17 00:00:00 2001 From: djk Date: Mon, 15 Mar 1999 21:44:08 +0000 Subject: [PATCH] added sysop command --- cmd/sysop.pl | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 cmd/sysop.pl diff --git a/cmd/sysop.pl b/cmd/sysop.pl new file mode 100644 index 00000000..ba42ba60 --- /dev/null +++ b/cmd/sysop.pl @@ -0,0 +1,24 @@ +# +# the sysop command for allowing people who have privileges that +# are denied them by connecting remotely +# +# Copyright (c) 1999 Dirk Koopman +# + +my ($self, $line) = @_; +my $user = DXUser->get_current($self->call); +my $passwd = $user->passwd if $user; +my $lth = length $passwd; +$lth = 100 unless $lth; +my ($i, $r); +my @out; +my @list; + +for ($i = 0; $i < 5; ++$i) { + push @list, int rand($lth); +} + +$self->passwd(\@list); +$self->state('sysop'); +push @out, join(' ', @list); +return (1, @out); -- 2.43.0