added provision.pl. added check for /etc/passwd admin user.

This commit is contained in:
gashapwn 2020-11-28 20:12:32 +00:00
parent a54b0a4b53
commit 2901c397a7

18
perl-script/provision.pl Normal file
View File

@ -0,0 +1,18 @@
#!/usr/bin/perl
use warnings;
use strict;
# This script is intended to be run on a fresh
# OpenBSD install
my $admin_un;
# Check /etc/passwd for the username created during
# installation
if( ($admin_un) = `tail /etc/passwd` =~ /^([^:]+):[^:]+:[0-9]{4,}/){
printf("admin user will be set to %s\n", $admin_un);
}else{
die "create a non-root user & set user passsword before running this script."
}