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

ident files now can be marked as done

Browse Source
This commit is contained in:
gashapwn 2020-11-26 22:36:27 +00:00
parent e0d7030f6f
commit 210c71ef9d
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,7 +19,6 @@ sub create($){
my $id = $_[0]; my $id = $_[0];
my $fn1 = $FULL_PATH.$id.".ident"; my $fn1 = $FULL_PATH.$id.".ident";
# my $fn2 = $FULL_PATH.$id.".pub";
my $username; my $username;
my $shell_pref; my $shell_pref;
@ -57,11 +56,9 @@ sub create($){
} }
system($cmd); system($cmd);
# system("cat $FULL_PATH/$id.pub > /home/$username/.ssh/authorized_keys");
system("echo '$pub_key' > /home/$username/.ssh/authorized_keys"); system("echo '$pub_key' > /home/$username/.ssh/authorized_keys");
system("chmod 711 /home/$username"); system("chmod 711 /home/$username");
system("rm $fn1"); system("mv $fn1 $fn1.done");
# system("rm $FULL_PATH/$id.pub");
system("echo $username >> user_list.txt"); system("echo $username >> user_list.txt");
} }
close FILE; close FILE;