Expand username limit to 16

diff --git a/adduser/adduser.perl b/adduser/adduser.perl
index 21227b1b574290c65aadfa48d9d3c4c17d968f54..7c5cd98119dbbe4ae38604f4c41466a2b5d49a84 100644 (file)
--- a/adduser/adduser.perl
+++ b/adduser/adduser.perl
@@ -24,7 +24,7 @@
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 #
-# $Id: adduser.perl,v 1.20 1996/11/20 01:07:46 wosch Exp $
+# $Id: adduser.perl,v 1.21 1996/11/27 22:04:55 ache Exp $
 
 
 # read variables
@@ -307,9 +307,9 @@ sub new_users_name {
     local($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";
+       $name = &confirm_list("Enter username", 1, "A-Za-z0-9_", "");
+       if (length($name) > 16) {
+           warn "Username is longer than 16 chars\a\n";
            next;
        }
        last if (&new_users_name_valid($name) eq $name);

diff --git a/adduser/rmuser.perl b/adduser/rmuser.perl
index d556eff2e35b9ab1ca2677e6a6eff4504946f0fb..c55862a1acdd229268d7a7547944864cde3c2de3 100644 (file)
--- a/adduser/rmuser.perl
+++ b/adduser/rmuser.perl
@@ -30,7 +30,7 @@
 #
 # Guy Helmer <ghelmer@alpha.dsu.edu>, 07/17/96
 #
-#      $Id: removeuser.perl,v 1.2 1996/08/11 13:03:25 wosch Exp $
+#      $Id: rmuser.perl,v 1.1 1996/11/17 03:51:33 wosch Exp $
 
 sub LOCK_SH {0x01;}
 sub LOCK_EX {0x02;}
@@ -231,8 +231,8 @@ sub get_login_name {
        chop $login_name;
        if (!($login_name =~ /[A-Za-z0-9_]/)) {
            print STDERR "Sorry, login name must contain alphanumeric characters only.\n";
-       } elsif (length($login_name) > 8 || length($login_name) == 0) {
-           print STDERR "Sorry, login name must be eight characters or less.\n";
+       } elsif (length($login_name) > 16 || length($login_name) == 0) {
+           print STDERR "Sorry, login name must be 16 characters or less.\n";
        } else {
            $done = 1;
        }