diff options
| author |   Andrey A. Chernov <ache@FreeBSD.org> | 1995-04-30 19:20:25 +0000 |
|---|---|---|
| committer | Andrey A. Chernov <ache@FreeBSD.org> | 1995-04-30 19:20:25 +0000 |
| commit | 0f2d75f87e1699bbb29b93fbdaf5d81d9e65d498 (patch) | |
| tree | e304f1afd317d4bba9c47ad5785bec3e85cc3eac /adduser | |
| parent | 51bc23372bc60cf247d110421fb63a67e4e037e4 (diff) | |
| download | pw-darwin-0f2d75f87e1699bbb29b93fbdaf5d81d9e65d498.tar.gz pw-darwin-0f2d75f87e1699bbb29b93fbdaf5d81d9e65d498.tar.zst pw-darwin-0f2d75f87e1699bbb29b93fbdaf5d81d9e65d498.zip | |
Don't accept usernames longer than 8 characters
Submitted by: Wolfram Schneider <wosch@cs.tu-berlin.de>
Diffstat (limited to 'adduser')
| -rw-r--r-- | adduser/adduser.perl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/adduser/adduser.perl b/adduser/adduser.perl index aefe84a..ab09e1d 100644 --- a/adduser/adduser.perl +++ b/adduser/adduser.perl @@ -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; |