Don't accept usernames longer than 8 characters

Submitted by: Wolfram Schneider <wosch@cs.tu-berlin.de>
This commit is contained in:
Andrey A. Chernov 1995-04-30 19:20:25 +00:00
parent 0c3f2f6436
commit 7439966a40
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=8190

View File

@ -32,7 +32,7 @@
#
# Email: Wolfram Schneider <wosch@cs.tu-berlin.de>
#
# $Id: adduser.perl,v 1.4 1995/03/08 22:44:37 ache Exp $
# $Id: adduser.perl,v 1.5 1995/04/09 03:34:10 ache Exp $
#
# read variables
@ -306,6 +306,10 @@ sub new_users_name {
while(1) {
$name = &confirm_list("Enter username", 1, "a-z0-9", "");
if (length($name) > 8) {
warn "Username is longer than 8 chars\a\n";
next;
}
last if (&new_users_name_valid($name) eq $name);
}
return $name;