commit a4f32e6b5c875752bffe3087a8964c833036f167
from: jrmu <jrmu@ircnow.org>
date: Thu Jun 01 21:33:31 2023 UTC

Allow users to easily change iso path

commit - 1c2d62de0973a10a30d4bae5405037b32a47af5c
commit + a4f32e6b5c875752bffe3087a8964c833036f167
blob - 48265248e99b9921d429b4721ec3eef9a0c0749e
blob + f3831d91f8f8c401aa62b0f342ce2bd04c8786ea
--- install.pl
+++ install.pl
@@ -9,8 +9,9 @@ use File::Copy qw(copy);
 
 my $vmconf = "/etc/vm.conf";
 my $zonedir = "/var/nsd/zones/master/";
-my $hostname = "host.oddprotocol.org";
-my $ipv4path = "/home/error/ipv4s";
+my $hostname = "host.example.com";
+my $ipv4path = "/home/username/ipv4s";
+my $isopath = "/home/iso/install73.iso";
 my @ipv4s;
 if (!(-s "$ipv4path")) {
         print "No IPv4 addresses in $ipv4path!\n";
@@ -109,6 +110,7 @@ sub nextdns {
 	}
 	writefile($ipv4path, join("\n", @ipv4s));
 	my $success = setdns($fqdn, $ipv4) && setdns($fqdn, $ipv6) && setdns("ns1.$fqdn", $ipv4) && setdns("ns2.$fqdn", $ipv4);
+	print "IP: $ipv4 $ipv6\n";
 	return $success;
 }
 
@@ -135,8 +137,8 @@ sub createshell {
 	my $block = <<"EOF";
 vm "$username" {
 	owner $username
-	memory 1024M
-	cdrom "/home/iso/install70.iso"
+	memory 2048M
+	cdrom "$isopath"
 	disk /home/$username/$username.qcow2
 	interface { 
 		locked lladdr $lladdr