added provision.pl. added check for /etc/passwd admin user.
This commit is contained in:
parent
a54b0a4b53
commit
2901c397a7
18
perl-script/provision.pl
Normal file
18
perl-script/provision.pl
Normal 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."
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user