gashapwn/lyadmin
1
1
Fork 0
Code Issues 15 Pull Requests Releases 2 Wiki Activity

successful multiuser creation test

Browse Source
This commit is contained in:
gashapwn 2020-11-25 04:05:19 +00:00
parent e1021e8a3d
commit faea6e0dd7
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
perl-script/create-user.pl
View File

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