From 7439966a40c9d6d09c5dba55c87f389991fca16f Mon Sep 17 00:00:00 2001
From: "Andrey A. Chernov" <ache@FreeBSD.org>
Date: Sun, 30 Apr 1995 19:20:25 +0000
Subject: [PATCH] Don't accept usernames longer than 8 characters Submitted by:
 Wolfram Schneider <wosch@cs.tu-berlin.de>

---
 usr.sbin/adduser/adduser.perl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/usr.sbin/adduser/adduser.perl b/usr.sbin/adduser/adduser.perl
index aefe84aa38b6..ab09e1d790d0 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;