v6.1.1: Feature: warning messages for invalid accounts

This commit is contained in:
Juerd Waalboer 2024-04-25 00:55:12 +02:00
parent 33b08f99ea
commit f2d09b4da5
5 changed files with 36 additions and 19 deletions

View file

@ -24,9 +24,6 @@ sub username($self, $cart, $name, @) {
return REJECT, "Sorry, 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);
return REJECT, "That name is not available."
if defined parse_user($name, 1);

View file

@ -27,11 +27,7 @@ sub read_products() {
my @split = RevBank::Prompt::split_input($line);
if (grep /\0SEPARATOR/, @split) {
warn "Invalid character in $filename line $linenr.\n";
next;
}
if (grep /\0/, @split) {
if (not @split or ref $split[0] or grep /\0/, @split) {
warn "Invalid value in $filename line $linenr.\n";
next;
}