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

create-user.pl now pulls shell enum from conf file

Browse Source
This commit is contained in:
gashapwn 2020-11-27 00:32:04 +00:00
parent d952598f08
commit b1557ae5f5
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,16 +2,26 @@
use warnings;
use strict;
use JSON;
my $WORKING_DIR = "/home/gashapwn/lyadmin/";
my $ACCOUNT_DIR = "test/";
my $FULL_PATH = "$WORKING_DIR$ACCOUNT_DIR";
my $CONF_PATH = $WORKING_DIR."lyadmin.conf.json";
my $SHELL_ENUM;
my $SHELL_ENUM = {
"SHELL_BASH" => "/usr/local/bin/bash",
"SHELL_KSH" => "/bin/ksh"
open FILE, $CONF_PATH or die "could not open file $CONF_PATH";
{
my $conf_str;
my $conf_obj;
local $/=undef;
$conf_str = <FILE>;
chomp $conf_str;
$conf_obj = decode_json($conf_str);
$SHELL_ENUM = $conf_obj->{"shell"};
};
close FILE;
my @g;
@ -28,13 +38,16 @@ sub create($){
open FILE, $fn1 or die "could not open file $fn1";
$username = <FILE>;
chomp $username;
$user_email = <FILE>;
chomp $user_email;
{
my $s0 = <FILE>;
chomp $s0;
unless($SHELL_ENUM->{$s0}){
die "invalid shell setting $s0 in file $id.ident";
}
$shell_pref = $SHELL_ENUM->{$s0};
}