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

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

(limited to 'adduser')

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;
-- 
cgit v1.2.3-56-ge451