bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

adduser: use tab completion lists to catch some more clashes

Browse source
This commit is contained in:
Juerd Waalboer 2023-11-02 03:55:23 +01:00
parent 63b4144799
commit 78d9cd916f
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
plugins/adduser
View file

@ -1,5 +1,7 @@
#!perl #!perl
use List::Util qw(any);
HELP1 "adduser <name>" => "Create an account"; HELP1 "adduser <name>" => "Create an account";
sub command :Tab(adduser) ($self, $cart, $command, @) { sub command :Tab(adduser) ($self, $cart, $command, @) {
@ -25,6 +27,13 @@ sub username($self, $cart, $name, @) {
return REJECT, "That name already exists." return REJECT, "That name already exists."
if defined parse_user($name); if defined parse_user($name);
for my $plugin (RevBank::Plugins->new) {
my $id = $plugin->id;
return REJECT, "That name would clash with the '$id' plugin."
if any sub { $_ eq $name }, $plugin->Tab('command');
}
RevBank::Users::create( $name ); RevBank::Users::create( $name );
return ACCEPT; return ACCEPT;