From faea6e0dd7a65a2feb1a0c733ccf4a3e7748c498 Mon Sep 17 00:00:00 2001
From: gashapwn <gashapwn@lingy.in>
Date: Wed, 25 Nov 2020 04:05:19 +0000
Subject: [PATCH] successful multiuser creation test

---
 perl-script/create-user.pl | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/perl-script/create-user.pl b/perl-script/create-user.pl
index 02adb6c..0ae41e7 100644
--- a/perl-script/create-user.pl
+++ b/perl-script/create-user.pl
@@ -15,7 +15,7 @@ my $SHELL_ENUM = {
 
 my @g;
 
-sub fun1($){
+sub create($){
     my $id = $_[0];
     
     my $fn1 = $FULL_PATH.$id.".ident";
@@ -38,7 +38,6 @@ sub fun1($){
 	$shell_pref = $SHELL_ENUM->{$shell_var};
     }
 
-    # printf("checking username %s\n", $username);
     if(length($username) > 31 || !($username =~ /^[A-Za-z][A-Za-z0-9]+$/)){
 	printf("%s has an INVALID username\n", $id);
 	die ("oh no");
@@ -65,14 +64,10 @@ sub fun1($){
     close FILE;
 }
 
-fun1("00004");
-
-die "test 0";
-
 @g = glob("$FULL_PATH*");
 @g = map { s/.*\/([^\/]*).pub$/$1/; $_ } grep {$_ =~ /pub$/} @g;
 
 for my $fn (@g){
-    printf("%s\n", $fn);
+    create($fn);
 }