eed0db7897
The signatures feature has been "experimental" since Perl 5.20 (May 2014), but expected to stay. After 8 years I'm ready to take the risk :) Have added Perl v5.28 (June 2018) as the minimum requirement, even though the current revbank should work with 5.20, to see if this bothers any users. Perl v5.28 is in Debian "buster", which is now oldstable.
28 lines
674 B
Perl
28 lines
674 B
Perl
#!perl
|
|
|
|
HELP "adduser <name>" => "Create an account";
|
|
|
|
sub command :Tab(adduser) ($self, $cart, $command, @) {
|
|
$command eq 'adduser' or return NEXT;
|
|
|
|
if ($cart->size) {
|
|
return ABORT, "Create the account *before* scanning things.";
|
|
}
|
|
|
|
return "Name for the new account", \&username;
|
|
}
|
|
|
|
sub username($self, $cart, $name, @) {
|
|
return REJECT, "Sorry, whitespace is not allowed."
|
|
if $name =~ /\s/;
|
|
|
|
return REJECT, "That's too numeric to be a user name."
|
|
if defined parse_amount($name);
|
|
|
|
return REJECT, "That name already exists."
|
|
if defined parse_user($name);
|
|
|
|
RevBank::Users::create( $name );
|
|
|
|
return ACCEPT;
|
|
}
|