|
|
@@ -3,11 +3,27 @@ |
|
|
|
use warnings; |
|
|
|
use strict; |
|
|
|
|
|
|
|
# provision.pl |
|
|
|
# script to provision a tilde instance |
|
|
|
# |
|
|
|
# This script is intended to be run on a fresh |
|
|
|
# OpenBSD install |
|
|
|
# |
|
|
|
# gashapwn |
|
|
|
# Nov 2020 |
|
|
|
|
|
|
|
|
|
|
|
my $pwuid; |
|
|
|
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 |
|
|
|
# installation |
|
|
|
if( ($admin_un) = `tail /etc/passwd | grep -v "nobody:"` =~ /([^:]+):[^:]+:[0-9]{4,}/){ |
|
|
|