summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authormischa <mischa@rx.high5.nl>2019-01-11 19:41:25 +0100
committermischa <mischa@rx.high5.nl>2019-01-11 19:41:25 +0100
commitd7e6133028ad44ddb3fa44076c86a0e4549e291b (patch)
treef2e88fba7d56731c15049b32dee81b071e36497c
Initial public commit
-rw-r--r--_deploy.conf28
-rwxr-xr-xdeploy.pl289
-rw-r--r--vms/vm01.txt14
-rw-r--r--vms/vm02.txt12
4 files changed, 343 insertions, 0 deletions
diff --git a/_deploy.conf b/_deploy.conf
new file mode 100644
index 0000000..b7648eb
--- /dev/null
+++ b/_deploy.conf
@@ -0,0 +1,28 @@
+# Server config for <mac>-install.conf
+SERVER="server6"
+DOMAIN="openbsd.amsterdam"
+# IP / MAC config
+IP_PREFIX="46.23.93"
+IP_START=11
+IPV6_PREFIX="2a03:6000:6f62"
+IPV6_START=600
+MAC_PREFIX="fe:e1:bb:d4:c6"
+# .conf locations
+VMS="./vms"
+ETC="."
+IMAGES="."
+HTDOCS="."
+# vm.conf
+MEMORY="512M"
+DISKSIZE="50G"
+VMDUSERS="vmdusers"
+SWITCH="uplink_vlan931"
+INTERFACE="bridge921"
+# Optional second uplink
+#SWITCH2="uplink_vlan921"
+#INTERFACE2="bridge921"
+# dhcpd.conf
+ROUTER="46.23.93.1"
+DNS="46.23.80.26"
+SUBNET="46.23.93.0"
+NETMASK="255.255.255.0"
diff --git a/deploy.pl b/deploy.pl
new file mode 100755
index 0000000..548098f
--- /dev/null
+++ b/deploy.pl
@@ -0,0 +1,289 @@
+#!/usr/bin/env perl
+#
+# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
+#
+# vmm(4)/vmd(8) VM deploy script for OpenBSD Amsterdam
+# 2018/12/17 Version 3 - Perl again! :)
+# 2018/12/19 added: default disk and memory size VM options
+# 2018/12/20 added: extra interface option for a VM
+#
+use 5.024;
+use strict;
+use warnings;
+use autodie;
+use Cwd qw(cwd);
+use User::pwent;
+
+# fuction to parse _deploy.conf and vm*.txt files
+# all variables are stripped and added to either %vms or %conf
+sub get_variables {
+ my ($hash_name, @files) = @_;
+ my %hash;
+ my $filename;
+ my $vm_name;
+ my $vm_number;
+
+ for my $file (@files) {
+ # When hash is 'vms' use the vm_name as key
+ # Otherwise use 'conf' as key
+ if ($hash_name eq "vms") {
+ ($filename = $file) =~ s/.*\///;
+ ($vm_name = $filename) =~ s/\.txt//;
+ ($vm_number = $vm_name) =~ s/^vm//;
+ $hash{$vm_name}{'vm_number'} = $vm_number;
+ }
+
+ open my $fh, "<", "$file";
+ while (my $row = <$fh>) {
+ next if ($row =~ /^\s*($|#)/);
+ chomp ($row);
+ (my $key, my $val) = split(/=/, $row, 2);
+ if ($hash_name eq "vms") {
+ ($hash{$vm_name}{$key} .= $val) =~ s/^"+|"+$//g;
+ } else {
+ ($hash{$hash_name}{$key} .= $val) =~ s/^"+|"+$//g;
+ }
+ }
+ close $fh;
+ }
+ return %hash;
+}
+
+# function to render the vm.conf(5) file
+# if the disk image file doesn't exist "boot bsd.rd" is used
+# if the disk image file exists "boot bsd.rd" won't be used
+sub render_vm_conf {
+ my %conf = %{$_[0]};
+ my %vms = %{$_[1]};
+ my $_etc = $conf{'conf'}{'ETC'};
+
+ open my $fh_vm, ">", "$_etc/vm.conf";
+ printf $fh_vm "#\n# File generated by deploy.pl\n#\n";
+ printf $fh_vm "socket owner :%s\n\n", $conf{'conf'}{'VMDUSERS'};
+ printf $fh_vm "switch \"%s\" {\n", $conf{'conf'}{'SWITCH'};
+ printf $fh_vm "\tinterface %s\n", $conf{'conf'}{'INTERFACE'};
+ printf $fh_vm "}\n\n";
+
+ if ($conf{'conf'}{'SWITCH2'}) {
+ printf $fh_vm "switch \"%s\" {\n", $conf{'conf'}{'SWITCH2'};
+ printf $fh_vm "\tinterface %s\n", $conf{'conf'}{'INTERFACE2'};
+ printf $fh_vm "}\n\n";
+ }
+
+ for my $vm_name (sort keys %vms) {
+ my $_instance = $vms{$vm_name}{'instance'} || $vm_name;
+ my $_disk = $conf{'conf'}{'IMAGES'} . "/" . $_instance . ".img";
+ my $_disk2 = $conf{'conf'}{'IMAGES'} . "/" . $_instance . "_extra.img" if $vms{$vm_name}{'disk2'};
+ my $_owner = $vms{$vm_name}{'owner'} || $vms{$vm_name}{'username'};
+ my $_memory = $vms{$vm_name}{'memory'} || $conf{'conf'}{'MEMORY'};
+ my $_boot = $conf{'conf'}{'IMAGES'} . "/bsd.rd";
+ my $_switch = $vms{$vm_name}{'switch'} || $conf{'conf'}{'SWITCH'};
+ my $_switch2 = $vms{$vm_name}{'switch2'};
+ my $_mac = $vms{$vm_name}{'mac'} || $conf{'conf'}{'MAC_PREFIX'} . ":" . $vms{$vm_name}{'vm_number'};
+
+ printf $fh_vm "vm \"%s\" {\n", $_instance;
+ printf $fh_vm "\tdisable\n";
+ printf $fh_vm "\towner %s\n", $_owner;
+ printf $fh_vm "\tmemory %s\n", $_memory if $_memory;
+ printf $fh_vm "\tboot \"%s\"\n", $_boot if (! -e $_disk);
+ printf $fh_vm "\tdisk \"%s\"\n", $_disk;
+ printf $fh_vm "\tdisk \"%s\"\n", $_disk2 if $_disk2;
+ printf $fh_vm "\tinterface tap {\n";
+ printf $fh_vm "\t\tswitch \"%s\"\n", $_switch;
+ printf $fh_vm "\t\tlladdr %s\n", $_mac;
+ printf $fh_vm "\t}\n";
+ printf $fh_vm "\tinterface tap { switch \"%s\" }\n", $_switch2 if $_switch2;
+ printf $fh_vm "}\n";
+ }
+ close $fh_vm;
+}
+
+# function to render the dhcpd.conf(5) file
+# if the disk image file doesn't exist "auto_install" is used as filename
+# if the disk image file exists "auto_upgrade" is used as filename
+sub render_dhcpd_conf {
+ my %conf = %{$_[0]};
+ my %vms = %{$_[1]};
+ my $_etc = $conf{'conf'}{'ETC'};
+
+ open my $fh_dhcpd, ">", "$_etc/dhcpd.conf";
+ printf $fh_dhcpd "#\n# File generated by deploy.pl\n#\n";
+ printf $fh_dhcpd "option domain-name \"%s\";\n", $conf{'conf'}{'DOMAIN'};
+ printf $fh_dhcpd "option domain-name-servers %s;\n\n", $conf{'conf'}{'DNS'};
+ printf $fh_dhcpd "subnet %s netmask %s {\n", $conf{'conf'}{'SUBNET'}, $conf{'conf'}{'NETMASK'};
+ printf $fh_dhcpd "\toption routers %s;\n", $conf{'conf'}{'ROUTER'};
+ printf $fh_dhcpd "\tserver-name \"%s.%s\";\n", $conf{'conf'}{'SERVER'}, $conf{'conf'}{'DOMAIN'};
+
+ for my $vm_name (sort keys %vms) {
+ my $_instance = $vms{$vm_name}{'instance'} || $vm_name;
+ my $_disk = $conf{'conf'}{'IMAGES'} . "/" . $_instance . ".img";
+ my $_mac = $vms{$vm_name}{'mac'} || $conf{'conf'}{'MAC_PREFIX'} . ":" . $vms{$vm_name}{'vm_number'};
+ my $_ip = $vms{$vm_name}{'ip'} || $conf{'conf'}{'IP_PREFIX'} . "." . ($conf{'conf'}{'IP_START'} + $vms{$vm_name}{'vm_number'});
+ my $_hostname = $vms{$vm_name}{'hostname'};
+
+ printf $fh_dhcpd "\thost %s {\n", $_instance;
+ printf $fh_dhcpd "\t\thardware ethernet %s;\n", $_mac;
+ printf $fh_dhcpd "\t\tfixed-address %s;\n", $_ip;
+ if (! -e $_disk) {
+ printf $fh_dhcpd "\t\tfilename \"auto_install\";\n";
+ } else {
+ printf $fh_dhcpd "\t\tfilename \"auto_upgrade\";\n";
+ }
+ printf $fh_dhcpd "\t\toption host-name \"%s\";\n", $_hostname;
+ printf $fh_dhcpd "\t}\n";
+ }
+ printf $fh_dhcpd "}\n";
+ close $fh_dhcpd;
+}
+
+# function to render the <MAC>-install.conf file for initial
+# provisioning using autoinstall(8)
+sub render_install_conf {
+ my %conf = %{$_[0]};
+ my %vms = %{$_[1]};
+
+ printf "autoinstall(8) files:\n";
+ for my $vm_name (sort keys %vms) {
+ my $_instance = $vms{$vm_name}{'instance'} || $vm_name;
+ my $_disk = $conf{'conf'}{'IMAGES'} . "/" . $_instance . ".img";
+ my $_mac = $vms{$vm_name}{'mac'} || $conf{'conf'}{'MAC_PREFIX'} . ":" . $vms{$vm_name}{'vm_number'};
+ my $_htdocs = $conf{'conf'}{'HTDOCS'};
+
+ if (! -e $_disk) {
+ my $_hostname = $vms{$vm_name}{'hostname'};
+ my $_pass = qx(jot -rcs '' 20 33 126);
+ chomp ($_pass);
+ my $_ipv6 = $conf{'conf'}{'IPV6_PREFIX'} . ":" . ($conf{'conf'}{'IPV6_START'} + $vms{$vm_name}{'vm_number'}) . "::" . ($conf{'conf'}{'IP_START'} + $vms{$vm_name}{'vm_number'});
+ my $_ipv6_gateway = $conf{'conf'}{'IPV6_PREFIX'} . ":" . ($conf{'conf'}{'IPV6_START'} + $vms{$vm_name}{'vm_number'}) . "::1";
+ my $_username = $vms{$vm_name}{'username'};
+ my $_sshkey = $vms{$vm_name}{'sshkey'};
+
+ open my $fh_install, ">", "$_htdocs/$_mac-install.conf";
+ printf $fh_install "#\n# File generated by deploy.pl\n#\n";
+ printf $fh_install "System hostname = %s\n", $_hostname;
+ printf $fh_install "Password for root = %s\n", $_pass;
+ printf $fh_install "Which speed should com0 = 115200\n";
+ printf $fh_install "Network interfaces = vio0\n";
+ printf $fh_install "IPv4 address for vio0 = dhcp\n";
+ printf $fh_install "IPv6 address for vio0 = %s\n", $_ipv6;
+ printf $fh_install "IPv6 default router = %s\n", $_ipv6_gateway;
+ printf $fh_install "Setup a user = %s\n", $_username;
+ printf $fh_install "Password for user = %s\n", $_pass;
+ printf $fh_install "Public ssh key for user = %s %s\n", $_sshkey, $_pass;
+ printf $fh_install "Which disk is the root disk = sd0\n";
+ printf $fh_install "What timezone are you in = Europe/Amsterdam\n";
+ printf $fh_install "Location of sets = http\n";
+ printf $fh_install "Server = openbsd.amsterdam\n";
+ printf $fh_install "Set name(s) = -x* +xb* +xf* +site*\n";
+ printf $fh_install "Continue anyway = yes\n";
+ printf $fh_install "Continue without verification = yes\n";
+ close $fh_install;
+ printf "%16s %s created\n", $_instance, $_htdocs . "/" . $_mac . "-install.conf";
+ } elsif (-e $_disk && -e "$_htdocs/$_mac-install.conf") {
+ unlink "$_htdocs/$_mac-install.conf" or warn "Unable to unlink file: $!\n";
+ printf "%16s %s deleted\n", $_instance, $_htdocs . "/" . $_mac . "-install.conf";
+ }
+ }
+}
+
+# function to create accounts on the host for vmctl(8) access
+sub create_accounts {
+ my %conf = %{$_[0]};
+ my %vms = %{$_[1]};
+
+ printf "useradd(8) creation:\n";
+ for my $vm_name (sort keys %vms) {
+ my $_instance = $vms{$vm_name}{'instance'} || $vm_name;
+ my $_owner = $vms{$vm_name}{'owner'} || $vms{$vm_name}{'username'};
+ my $_group = $conf{'conf'}{'VMDUSERS'};
+ my $_sshkey = $vms{$vm_name}{'sshkey'};
+ my $id = getpwnam("$_owner");
+
+ if (! $id) {
+ my $output = qx(/usr/sbin/useradd -m -G $_group $_owner);
+ open my $fh_authorized, ">>", "/home/$_owner/.ssh/authorized_keys";
+ printf $fh_authorized "%s\n", $_sshkey;
+ close $fh_authorized;
+ printf "%16s %s account created\n", $_instance, $_owner;
+ }
+ }
+}
+
+# function to create the disk image files for vmm(4)/vmd(8)
+sub create_img_files {
+ my %conf = %{$_[0]};
+ my %vms = %{$_[1]};
+
+ printf "vmm(4)/vmd(8) files:\n";
+ for my $vm_name (sort keys %vms) {
+ my $_instance = $vms{$vm_name}{'instance'} || $vm_name;
+ my $_disk = $conf{'conf'}{'IMAGES'} . "/" . $_instance . ".img";
+ my $_disk_size = $vms{$vm_name}{'disk'} || $conf{'conf'}{'DISKSIZE'};
+ my $_disk2 = $conf{'conf'}{'IMAGES'} . "/" . $_instance . "_extra.img" if $vms{$vm_name}{'disk2'};
+ my $_disk2_size = $vms{$vm_name}{'disk2'} if $vms{$vm_name}{'disk2'};
+ if (! -e $_disk) {
+ my $output = qx(vmctl create $_disk -s $_disk_size 2>&1);
+ if ($? == 0) {
+ printf "%16s %s created (size %s)\n", $_instance, $_disk, $_disk_size;
+ } else {
+ printf "%16s %s NOT created!!!\n", $_instance, $_disk;
+ }
+ }
+ if ($_disk2) {
+ if (! -e $_disk2) {
+ my $output = qx(vmctl create $_disk2 -s $_disk2_size 2>&1);
+ if ($? == 0) {
+ printf "%16s %s created (size %s)\n", $_instance, $_disk2, $_disk2_size;
+ } else {
+ printf "%16s %s NOT created (size %s)!!!\n", $_instance, $_disk2, $_disk2_size;
+ }
+ }
+ }
+ }
+}
+
+# function to print all keys & values for debug purposes
+sub debug_parse {
+ my %conf = %{$_[0]};
+ my %vms = %{$_[1]};
+
+ for my $vm_name (sort keys %vms) {
+ for my $key (keys %{$vms{$vm_name}}) {
+ printf "VMS: %s %s = %s\n", $vm_name, $key, $vms{$vm_name}{$key};
+ }
+ }
+}
+
+# check if _deploy.conf exists in current working directory
+my %conf;
+my $dir = cwd;
+if (-e "$dir/_deploy.conf") {
+ %conf = get_variables('conf', './_deploy.conf');
+} else {
+ printf "Unable to find config file in current directory (%s).\n", $dir;
+ printf "Create the config file _deploy.conf in %s.\n", $dir;
+ exit 1;
+}
+
+# parse all vm*.txt files in the VMS directory
+my %vms;
+my @files = glob "$conf{'conf'}{'VMS'}/*.txt";
+%vms = get_variables('vms', @files);
+
+# run all functions
+#debug_parse(\%conf, \%vms);
+render_vm_conf(\%conf, \%vms);
+render_dhcpd_conf(\%conf, \%vms);
+render_install_conf(\%conf, \%vms);
+create_accounts(\%conf, \%vms);
+create_img_files(\%conf, \%vms);
diff --git a/vms/vm01.txt b/vms/vm01.txt
new file mode 100644
index 0000000..1197bb3
--- /dev/null
+++ b/vms/vm01.txt
@@ -0,0 +1,14 @@
+owner="testuser1"
+instance="superduper"
+mac="fe:e1:ab:dd:73:a4"
+ip="192.168.1.1"
+date="2019/01/01
+payment="60"
+donated=""
+name="Test User1"
+email="testuser1@example.com"
+sshkey="ssh-ed25519 AAAAC3NzDITE5AAAAik7Lmiq4l4gCoYCLkJ9wlqpNhR1gUnP5EnXJXzvMVl"
+hostname="deploytest1"
+username="deploytest1"
+memory="1G"
+note="Here be dragons"
diff --git a/vms/vm02.txt b/vms/vm02.txt
new file mode 100644
index 0000000..b4eccb9
--- /dev/null
+++ b/vms/vm02.txt
@@ -0,0 +1,12 @@
+date="2018/12/17"
+payment="70"
+donated="done"
+name="Test User2"
+email="testuser2@example.com"
+sshkey="ssh-ed25519 AAAAC3NzDI1NTE5AaaaIK7lMIQ4L4GcOyclKj9WLQPnHrGuP5ExjxZVmvLn"
+hostname="deploytest2"
+username="deploytest2"
+note="here be dragons!""
+switch="uplink_vlan921"
+disk="10G"
+disk2="50G"