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

provision.pl: added check for root user. added author header

Browse Source
This commit is contained in:
gashapwn 2020-11-28 20:50:18 +00:00
parent b778d6eaf3
commit 39b5e46b02
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
perl-script/provision.pl
View File

@ -3,11 +3,27 @@
use warnings; use warnings;
use strict; use strict;
# provision.pl
# script to provision a tilde instance
#
# This script is intended to be run on a fresh # This script is intended to be run on a fresh
# OpenBSD install # OpenBSD install
#
# gashapwn
# Nov 2020
my $pwuid;
my $admin_un; my $admin_un;
# Make sure we're running as root
$pwuid = getpwuid( $< );
if($pwuid ne "root"){
die "script must be run as root";
}
# Check /etc/passwd for the username created during # Check /etc/passwd for the username created during
# installation # installation
if( ($admin_un) = `tail /etc/passwd | grep -v "nobody:"` =~ /([^:]+):[^:]+:[0-9]{4,}/){ if( ($admin_un) = `tail /etc/passwd | grep -v "nobody:"` =~ /([^:]+):[^:]+:[0-9]{4,}/){