19 lines
410 B
Perl
19 lines
410 B
Perl
|
#!/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."
|
||
|
|
}
|
||
|
|
|