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