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

create-user.pl - changed to relative file paths. added root check. .gitignore - added vim backup files

Browse Source
This commit is contained in:
gashapwn 2020-11-29 23:26:34 +00:00
parent ed0c0ddc33
commit 72d1bf71f9
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

@ -5,3 +5,4 @@ test_*.txt
*/p[0-9].pl
notes.txt
user_list.txt
.#*

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

@ -4,11 +4,11 @@ use warnings;
use strict;
use JSON;
my $WORKING_DIR = "/home/gashapwn/lyadmin/";
my $ACCOUNT_DIR = "req/";
my $FULL_PATH = "$WORKING_DIR$ACCOUNT_DIR";
my $CONF_PATH = $WORKING_DIR."lyadmin.conf.json";
my $working_dir = "./";
my $account_dir = $working_dir."req/";
my $CONF_PATH = $working_dir."lyadmin.conf.json";
my $SHELL_ENUM;
open FILE, $CONF_PATH or die "could not open file $CONF_PATH";
@ -28,7 +28,7 @@ my @g;
sub create($){
my $id = $_[0];
my $fn1 = $FULL_PATH.$id.".ident";
my $fn1 = $account_dir.$id.".ident";
my $username;
my $shell_pref;
@ -77,7 +77,11 @@ sub create($){
close FILE;
}
@g = glob("$FULL_PATH*");
if(!(`id` =~ /uid=0/)){
die "please run this script as root";
}
@g = glob("$account_dir*");
@g = map { s/.*\/([^\/]*).ident$/$1/; $_ } grep {$_ =~ /ident$/} @g;
for my $fn (@g){