successful multiuser creation test

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);
 }