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

create user parses commands

Browse Source
This commit is contained in:
gashapwn 2020-11-25 03:33:03 +00:00
parent 0ae11d062b
commit 6d708c3dee
2 changed files with 60 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitignore vendored
View File

@ -2,3 +2,6 @@ venv/*
test/*
*~
test_*.txt
*/p0.pl
*/p1.pl
*/p2.pl

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

@ -8,8 +8,65 @@ my $ACCOUNT_DIR = "test/";
my $FULL_PATH = "$WORKING_DIR$ACCOUNT_DIR";
my $SHELL_ENUM = {
"SHELL_BASH" => "/bin/bash",
"SHELL_KSH" => "/bin/ksh"
};
my @g;
sub fun1($){
my $id = $_[0];
my $fn1 = $FULL_PATH.$id.".ident";
my $fn2 = $FULL_PATH.$id.".pub";
my $username;
# my $displayname;
# my $name_pref;
my $shell_pref;
my $user_email;
open FILE, $fn1 or die "could not open file";
$username = <FILE>;
chomp $username;
# $displayname = <FILE>;
# chomp $displayname;
# # Save this for later
# $name_pref = <FILE>;
# chomp $name_pref;
$user_email = <FILE>;
chomp $user_email;
{
my $shell_var = <FILE>;
chomp $shell_var;
# printf("\$shell_var: %s\n", $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]+$/)){
printf("%s has an INVALID username\n", $id);
die ("oh no");
}
# if(length($displayname) > 31 || $displayname =~ /^[A-Za-z0-9]+$/){
# printf("%s has an INVALID username\n", $id);
# }
{
my $cmd;
$cmd = "useradd -m -s $shell_pref $username";
printf("gonna run this command: %s\n", $cmd);
}
close FILE;
}
fun1("00000");
die "test 0";