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

create-user.pl - added comments

Browse Source
This commit is contained in:
gashapwn 2020-11-30 05:05:17 +00:00
parent ccdf4eff1d
commit 518339026c
1 changed files with 26 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,6 +4,9 @@ use warnings;
use strict;
use JSON;
# create-user.pl
#
# processes new user request files
my $working_dir = "./";
my $account_dir = $working_dir."req/";
@ -14,6 +17,7 @@ my $SHELL_ENUM;
my @g;
# Given a username... prompts and creates that user
sub create($){
my $id = $_[0];
@ -24,13 +28,21 @@ sub create($){
my $user_email;
my $pub_key;
# read in username and validate
open FILE, $fn1 or die "could not open file $fn1";
$username = <FILE>;
chomp $username;
if(length($username) > 31 || !($username =~ /^[A-Za-z][A-Za-z0-9]+$/)){
printf("%s has an INVALID username\n", $id);
die ("oh no");
}
# read in email
$user_email = <FILE>;
chomp $user_email;
# read in shell and validate
{
my $s0 = <FILE>;
chomp $s0;
@ -40,15 +52,12 @@ sub create($){
$shell_pref = $SHELL_ENUM->{$s0};
}
# read in pub key
$pub_key = <FILE>;
chomp $pub_key;
if(length($username) > 31 || !($username =~ /^[A-Za-z][A-Za-z0-9]+$/)){
printf("%s has an INVALID username\n", $id);
die ("oh no");
}
{
# Prompt to make sure the username looks OK
my $cmd;
$cmd = "useradd -m -s " . $shell_pref . " " . $username;
printf("Y/N is this command OK?: %s\n", $cmd);
@ -57,20 +66,25 @@ sub create($){
die "invalid characters?!!";
}
# create the user
system($cmd);
system("echo '".$pub_key."' > /home/$username/.ssh/authorized_keys");
system("chmod 711 /home/$username");
system("mv $fn1 $fn1.done");
system("echo $username >> $ul_path");
# system("echo $username >> user_list.txt");
}
close FILE;
}
# MAIN starts here
# Checks if user is root
if(!(`id` =~ /uid=0/)){
die "please run this script as root";
}
# Adjusts the relative file paths based on where
# the script runs from
if( `pwd` =~ /perl-script\/?\s*$/){
$working_dir = "../";
$account_dir = $working_dir."req/";
@ -81,6 +95,8 @@ if( `pwd` =~ /perl-script\/?\s*$/){
die "please run this script with ./perl-script/ as the present working directory";
}
# Opens the conf file to read
# shell enums
open FILE, $conf_path or die "could not open file $conf_path";
{
my $conf_str;
@ -93,9 +109,11 @@ open FILE, $conf_path or die "could not open file $conf_path";
};
close FILE;
# Saves all new user requests to an array
@g = glob("$account_dir*");
@g = map { s/.*\/([^\/]*).ident$/$1/; $_ } grep {$_ =~ /ident$/} @g;
# Iterate and create the users
for my $fn (@g){
create($fn);
}