]> git.proxmox.com Git - pve-installer.git/blame - proxinstall
projects / pve-installer.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
fix #1603: create a new and unique machine-id
[pve-installer.git] / proxinstall
CommitLineData
6981164e 1#!/usr/bin/perl
89a12446 2
7becc472
DM		 3$ENV{DEBIAN_FRONTEND} = 'noninteractive';
4$ENV{LC_ALL} = 'C';
5
89a12446 6use strict;
6981164e
DM		 7use warnings;
8
89a12446 9use Getopt::Long;
62c05878 10use IPC::Open2;
89a12446
DM		 11use IPC::Open3;
12use IO::File;
89a12446
DM		 13use IO::Select;
14use Cwd 'abs_path';
7becc472 15use Gtk3 '-init';
ed0e6aea 16use Gtk3::WebKit2;
89a12446 17use Encode;
84761f93 18use String::ShellQuote;
7becc472 19use Data::Dumper;
a5af22f5 20use File::Basename;
e38884af 21use File::Path;
121ebc59 22use Time::HiRes;
89a12446 23
b9075af2
DM		 24use ProxmoxInstallerSetup;
25
26my $setup = ProxmoxInstallerSetup::setup();
27
89a12446
DM		 28my $opt_testmode;
29
7becc472
DM		 30if (!$ENV{G_SLICE} || $ENV{G_SLICE} ne "always-malloc") {
31 die "do not use slice allocator (run with 'G_SLICE=always-malloc ./proxinstall ...')\n";
32}
33
71590b6a 34if (!GetOptions('testmode=s' => \$opt_testmode)) {
89a12446
DM		 35 die "usage error\n";
36 exit (-1);
37}
38
6b900321
DM		 39my $zfstestpool = "test_rpool";
40my $zfspoolname = $opt_testmode ? $zfstestpool : 'rpool';
5772392c 41my $zfsrootvolname = "$setup->{product}-1";
5fd81672 42
18a9811e
TL		 43my $product_fullname = {
44 pve => 'Proxmox VE',
45 pmg => 'Proxmox MailGateway',
46};
47
5fd81672
DM		 48my $storage_cfg_zfs = <<__EOD__;
49dir: local
50 path /var/lib/vz
51 content iso,vztmpl,backup
52
239398be 53zfspool: local-zfs
5fd81672
DM		 54 pool $zfspoolname/data
55 sparse
56 content images,rootdir
57__EOD__
58
121ebc59
DM		 59my $storage_cfg_btrfs = <<__EOD__;
60dir: local
61 path /var/lib/vz
62 content iso,vztmpl,backup
63 disabled
64
65btrfs: local-btrfs
66 path /var/lib/pve/local-btrfs
67 content iso,vztmpl,backup,images,rootdir
68__EOD__
69
5fd81672
DM		 70my $storage_cfg_lvmthin = <<__EOD__;
71dir: local
72 path /var/lib/vz
73 content iso,vztmpl,backup
74
239398be 75lvmthin: local-lvm
5fd81672
DM		 76 thinpool data
77 vgname pve
78 content rootdir,images
79__EOD__
80
e2c51d7c
FG		 81my $storage_cfg_local = <<__EOD__;
82dir: local
83 path /var/lib/vz
84 content iso,vztmpl,backup,rootdir,images
85__EOD__
5fd81672 86
d2120e51
DM		 87sub file_read_firstline {
88 my ($filename) = @_;
89
90 my $fh = IO::File->new ($filename, "r");
91 return undef if !$fh;
92 my $res = <$fh>;
93 chomp $res if $res;
94 $fh->close;
95 return $res;
96}
97
71590b6a 98my $logfd = IO::File->new(">/tmp/install.log");
89a12446 99
c7429f77
DM		 100my $proxmox_libdir = $opt_testmode ?
101 Cwd::cwd() . "/testdir/var/lib/pve-installer" : "/var/lib/pve-installer";
97980bf2
DM		 102my $proxmox_cddir = $opt_testmode ? "../pve-cd-builder/tmp/data-gz/" : "/cdrom";
103my $proxmox_pkgdir = "${proxmox_cddir}/proxmox/packages/";
89a12446 104
e38884af 105my $boot_type = -d '/sys/firmware/efi' ? 'efi' : 'bios';
89a12446 106
32300628 107my $IPV4OCTET = "(?:25[0-5]|(?:2[0-4]|1[0-9]|[1-9])?[0-9])";
d2120e51 108my $IPV4RE = "(?:(?:$IPV4OCTET\\.){3}$IPV4OCTET)";
b6200603
DM		 109my $IPV6H16 = "(?:[0-9a-fA-F]{1,4})";
110my $IPV6LS32 = "(?:(?:$IPV4RE|$IPV6H16:$IPV6H16))";
111
112my $IPV6RE = "(?:" .
113 "(?:(?:" . "(?:$IPV6H16:){6})$IPV6LS32)|" .
114 "(?:(?:" . "::(?:$IPV6H16:){5})$IPV6LS32)|" .
115 "(?:(?:(?:" . "$IPV6H16)?::(?:$IPV6H16:){4})$IPV6LS32)|" .
116 "(?:(?:(?:(?:$IPV6H16:){0,1}$IPV6H16)?::(?:$IPV6H16:){3})$IPV6LS32)|" .
117 "(?:(?:(?:(?:$IPV6H16:){0,2}$IPV6H16)?::(?:$IPV6H16:){2})$IPV6LS32)|" .
118 "(?:(?:(?:(?:$IPV6H16:){0,3}$IPV6H16)?::(?:$IPV6H16:){1})$IPV6LS32)|" .
119 "(?:(?:(?:(?:$IPV6H16:){0,4}$IPV6H16)?::" . ")$IPV6LS32)|" .
120 "(?:(?:(?:(?:$IPV6H16:){0,5}$IPV6H16)?::" . ")$IPV6H16)|" .
121 "(?:(?:(?:(?:$IPV6H16:){0,6}$IPV6H16)?::" . ")))";
122
123my $IPRE = "(?:$IPV4RE|$IPV6RE)";
124
125
d2120e51
DM		 126my $ipv4_mask_hash = {
127 '128.0.0.0' => 1,
128 '192.0.0.0' => 2,
129 '224.0.0.0' => 3,
130 '240.0.0.0' => 4,
131 '248.0.0.0' => 5,
132 '252.0.0.0' => 6,
133 '254.0.0.0' => 7,
134 '255.0.0.0' => 8,
135 '255.128.0.0' => 9,
136 '255.192.0.0' => 10,
137 '255.224.0.0' => 11,
138 '255.240.0.0' => 12,
139 '255.248.0.0' => 13,
140 '255.252.0.0' => 14,
141 '255.254.0.0' => 15,
142 '255.255.0.0' => 16,
143 '255.255.128.0' => 17,
144 '255.255.192.0' => 18,
145 '255.255.224.0' => 19,
146 '255.255.240.0' => 20,
147 '255.255.248.0' => 21,
148 '255.255.252.0' => 22,
149 '255.255.254.0' => 23,
150 '255.255.255.0' => 24,
151 '255.255.255.128' => 25,
152 '255.255.255.192' => 26,
153 '255.255.255.224' => 27,
154 '255.255.255.240' => 28,
155 '255.255.255.248' => 29,
35f05681
FG		 156 '255.255.255.252' => 30,
157 '255.255.255.254' => 31,
158 '255.255.255.255' => 32
d2120e51
DM		 159};
160
fe44bd92
FG		 161my $ipv4_reverse_mask = [
162 '0.0.0.0',
163 '128.0.0.0',
164 '192.0.0.0',
165 '224.0.0.0',
166 '240.0.0.0',
167 '248.0.0.0',
168 '252.0.0.0',
169 '254.0.0.0',
170 '255.0.0.0',
171 '255.128.0.0',
172 '255.192.0.0',
173 '255.224.0.0',
174 '255.240.0.0',
175 '255.248.0.0',
176 '255.252.0.0',
177 '255.254.0.0',
178 '255.255.0.0',
179 '255.255.128.0',
180 '255.255.192.0',
181 '255.255.224.0',
182 '255.255.240.0',
183 '255.255.248.0',
184 '255.255.252.0',
185 '255.255.254.0',
186 '255.255.255.0',
187 '255.255.255.128',
188 '255.255.255.192',
189 '255.255.255.224',
190 '255.255.255.240',
191 '255.255.255.248',
192 '255.255.255.252',
193 '255.255.255.254',
194 '255.255.255.255',
195];
196
201a5120
OB		 197my $step_number = 0; # Init number for global function list
198
199my @steps = (
200 {
201 step => 'intro',
202 html => 'license.htm',
203 next_button => 'I a_gree',
204 function => \&create_intro_view,
205 },
206 {
207 step => 'intro',
208 html => 'page1.htm',
209 function => \&create_hdsel_view,
210 },
211 {
212 step => 'country',
213 html => 'country.htm',
214 function => \&create_country_view,
215 },
216 {
217 step => 'password',
218 html => 'passwd.htm',
219 function => \&create_password_view,
220 },
221 {
222 step => 'ipconf',
201a5120
OB		 223 html => 'ipconf.htm',
224 function => \&create_ipconf_view,
225 },
2e33c3f0
OB		 226 {
227 step => 'ack',
228 html => 'ack.htm',
229 next_button => '_Install',
230 function => \&create_ack_view,
231 },
201a5120
OB		 232 {
233 step => 'extract',
234 next_button => '_Reboot',
235 function => \&create_extract_view,
236 },
237);
238
239# GUI global variables
7becc472 240my ($window, $cmdbox, $inbox, $htmlview);
451b1da5 241my $prev_btn;
c6ed3b24 242my ($next, $next_fctn, $target_hd);
89a12446 243my ($progress, $progress_status);
201a5120 244
b6200603 245my ($ipversion, $ipaddress, $ipconf_entry_addr);
d2120e51
DM		 246my ($netmask, $ipconf_entry_mask);
247my ($gateway, $ipconf_entry_gw);
248my ($dnsserver, $ipconf_entry_dns);
89a12446
DM		 249my $hostname = 'proxmox';
250my $domain = 'domain.tld';
d2120e51 251my $cmdline = file_read_firstline("/proc/cmdline");
89a12446
DM		 252my $ipconf;
253my $country;
254my $timezone = 'Europe/Vienna';
89a12446 255my $keymap = 'en-us';
201a5120
OB		 256my $password;
257my $mailto = 'mail@example.invalid';
89a12446
DM		 258my $cmap;
259
c4ea5da3
TL		 260my $config = {
261 # TODO: add all the user-provided options for previous button
262 country => $country,
263 timezone => $timezone,
264 keymap => $keymap,
265
266 password => $password,
267 mailto => $mailto,
268
269 mngmt_nic => undef,
270 hostname => $hostname,
271 fqdn => undef,
272 ipaddress => undef,
273 netmask => undef,
274 gateway => undef,
201a5120
OB		 275};
276
aed81ff0
DM		 277# parse command line args
278
279my $config_options = {};
280
121ebc59 281if ($cmdline =~ m/\s(ext3|ext4|xfs)(\s.*)?$/) {
5c06ced5
DM		 282 $config_options->{filesys} = $1;
283} else {
aeb3d07f 284 $config_options->{filesys} = 'ext4';
5c06ced5 285}
aed81ff0
DM		 286
287if ($cmdline =~ m/hdsize=(\d+(\.\d+)?)[\s\n]/i) {
288 $config_options->{hdsize} = $1;
289}
290
291if ($cmdline =~ m/swapsize=(\d+(\.\d+)?)[\s\n]/i) {
292 $config_options->{swapsize} = $1;
293}
294
295if ($cmdline =~ m/maxroot=(\d+(\.\d+)?)[\s\n]/i) {
296 $config_options->{maxroot} = $1;
297}
298
299if ($cmdline =~ m/minfree=(\d+(\.\d+)?)[\s\n]/i) {
300 $config_options->{minfree} = $1;
301}
b6e875ca
DM		 302
303if ($setup->{product} eq 'pve') {
304 if ($cmdline =~ m/maxvz=(\d+(\.\d+)?)[\s\n]/i) {
305 $config_options->{maxvz} = $1;
306 }
aed81ff0 307}
89a12446
DM		 308
309my $postfix_main_cf = <<_EOD;
310# See /usr/share/postfix/main.cf.dist for a commented, more complete version
311
312myhostname=__FQDN__
313
314smtpd_banner = \$myhostname ESMTP \$mail_name (Debian/GNU)
315biff = no
316
317# appending .domain is the MUA's job.
318append_dot_mydomain = no
319
320# Uncomment the next line to generate "delayed mail" warnings
321#delay_warning_time = 4h
322
323alias_maps = hash:/etc/aliases
324alias_database = hash:/etc/aliases
325mydestination = \$myhostname, localhost.\$mydomain, localhost
968fa90b 326relayhost =
89a12446
DM		 327mynetworks = 127.0.0.0/8
328inet_interfaces = loopback-only
329recipient_delimiter = +
330
331_EOD
332
84761f93
DM		 333sub shellquote {
334 my $str = shift;
335
336 return String::ShellQuote::shell_quote($str);
337}
338
339sub cmd2string {
340 my ($cmd) = @_;
341
342 die "no arguments" if !$cmd;
343
344 return $cmd if !ref($cmd);
345
346 my @qa = ();
347 foreach my $arg (@$cmd) { push @qa, shellquote($arg); }
348
349 return join (' ', @qa);
350}
351
968fa90b 352sub syscmd {
89a12446
DM		 353 my ($cmd) = @_;
354
71590b6a 355 return run_command($cmd, undef, undef, 1);
89a12446 356}
968fa90b 357
89a12446
DM		 358sub run_command {
359 my ($cmd, $func, $input, $noout) = @_;
360
84761f93
DM		 361 my $cmdstr;
362 if (!ref($cmd)) {
363 $cmdstr = $cmd;
364 if ($cmd =~ m/|/) {
365 # see 'man bash' for option pipefail
366 $cmd = [ '/bin/bash', '-c', "set -o pipefail && $cmd" ];
367 } else {
368 $cmd = [ $cmd ];
369 }
370 } else {
371 $cmdstr = cmd2string($cmd);
372 }
373
89a12446 374 my $cmdtxt;
84761f93
DM		 375 if ($input && ($cmdstr !~ m/chpasswd/)) {
376 $cmdtxt = "# $cmdstr <<EOD\n$input";
89a12446
DM		 377 chomp $cmdtxt;
378 $cmdtxt .= "\nEOD\n";
379 } else {
84761f93 380 $cmdtxt = "# $cmdstr\n";
89a12446 381 }
4a5dbe69
DM		 382
383 if ($opt_testmode) {
384 print $cmdtxt;
385 STDOUT->flush();
386 }
387
89a12446
DM		 388 print $logfd $cmdtxt;
389
390 my $reader = IO::File->new();
391 my $writer = IO::File->new();
392 my $error = IO::File->new();
393
394 my $orig_pid = $$;
395
396 my $pid;
397 eval {
71590b6a 398 $pid = open3($writer, $reader, $error, @$cmd) || die $!;
89a12446
DM		 399 };
400
401 my $err = $@;
402
403 # catch exec errors
404 if ($orig_pid != $$) {
968fa90b
DM		 405 POSIX::_exit (1);
406 kill ('KILL', $$);
89a12446
DM		 407 }
408
409 die $err if $err;
410
411 print $writer $input if defined $input;
412 close $writer;
413
414 my $select = new IO::Select;
71590b6a
OB		 415 $select->add($reader);
416 $select->add($error);
89a12446
DM		 417
418 my ($ostream, $logout) = ('', '', '');
419
420 while ($select->count) {
421 my @handles = $select->can_read (0.2);
422
d2120e51 423 Gtk3::main_iteration() while Gtk3::events_pending();
89a12446
DM		 424
425 next if !scalar (@handles); # timeout
426
427 foreach my $h (@handles) {
428 my $buf = '';
429 my $count = sysread ($h, $buf, 4096);
430 if (!defined ($count)) {
431 my $err = $!;
432 kill (9, $pid);
433 waitpid ($pid, 0);
434 die "command '$cmd' failed: $err";
435 }
71590b6a 436 $select->remove($h) if !$count;
89a12446
DM		 437 if ($h eq $reader) {
438 $ostream .= $buf if !($noout || $func);
439 $logout .= $buf;
440 while ($logout =~ s/^([^\010\r\n]*)(\r|\n|(\010)+|\r\n)//s) {
441 my $line = $1;
442 &$func($line) if $func;
443 }
444
445 } elsif ($h eq $error) {
446 $ostream .= $buf if !($noout || $func);
447 }
448 print $buf;
449 STDOUT->flush();
450 print $logfd $buf;
451 }
452 }
453
454 &$func($logout) if $func;
455
456 my $rv = waitpid ($pid, 0);
457
458 return $? if $noout; # behave like standard system();
459
556b1466
DM		 460 if ($? == -1) {
461 die "command '$cmdstr' failed to execute\n";
462 } elsif (my $sig = ($? & 127)) {
463 die "command '$cmdstr' failed - got signal $sig\n";
464 } elsif (my $exitcode = ($? >> 8)) {
465 die "command '$cmdstr' failed with exit code $exitcode";
89a12446
DM		 466 }
467
468 return $ostream;
469}
470
471sub detect_country {
472
473 print "trying to detect country...\n";
62c05878
DM		 474 my $cpid = open2(\*TMP, undef, "traceroute -N 1 -q 1 -n 8.8.8.8");
475 return undef if !$cpid;
968fa90b 476
89a12446
DM		 477 my $country;
478
479 my $previous_alarm = alarm (10);
480 eval {
481 local $SIG{ALRM} = sub { die "timed out!\n" };
482 my $line;
483 while (defined ($line = <TMP>)) {
484 print $logfd "DC TRACEROUTE: $line";
485 if ($line =~ m/\s*\d+\s+(\d+\.\d+\.\d+\.\d+)\s/) {
486 my $geoip = `geoiplookup $1`;
487 print $logfd "DC GEOIP: $geoip";
488 if ($geoip =~ m/GeoIP Country Edition:\s*([A-Z]+),/) {
489 $country = lc ($1);
62c05878 490 print $logfd "DC FOUND: $country\n";
89a12446
DM		 491 last;
492 }
493 }
494 }
495 };
496
497 my $err = $@;
498
499 alarm ($previous_alarm);
500
501 close (TMP);
502
503 if ($err) {
504 print "unable to detect country - $err\n";
505 } elsif ($country) {
506 print "detected country: " . uc($country) . "\n";
507 } else {
508 print "unable to detect country\n";
509 }
510
511 return $country;
512}
513
514sub get_memtotal {
515
516 open (MEMINFO, "/proc/meminfo");
517
518 my $res = 512; # default to 512 if something goes wrong
519 while (my $line = <MEMINFO>) {
520 if ($line =~ m/^MemTotal:\s+(\d+)\s*kB/i) {
521 $res = int ($1 / 1024);
968fa90b 522 }
89a12446
DM		 523 }
524
525 close (MEMINFO);
526
527 return $res;
528}
529
530my $total_memory = get_memtotal();
531
532sub link_points_to {
533 my ($src, $dest) = @_;
534
535 my ($dev1,$ino1) = stat ($src);
536 my ($dev2,$ino2) = stat ($dest);
537
538 return 0 if !($dev1 && $dev2 && $ino1 && $ino2);
539
540 return $ino1 == $ino2 && $dev1 == $dev2;
541}
542
543sub find_stable_path {
544 my ($stabledir, $bdev) = @_;
545
a5af22f5 546 foreach my $path (<$stabledir/*>) {
71590b6a 547 if (link_points_to($path, $bdev)) {
a5af22f5 548 return wantarray ? ($path, basename($path)) : $path;
89a12446 549 }
89a12446 550 }
89a12446
DM		 551}
552
553sub find_dev_by_uuid {
554 my $bdev = shift;
555
71590b6a 556 my ($full_path, $name) = find_stable_path("/dev/disk/by-uuid", $bdev);
89a12446
DM		 557
558 return $name;
559}
560
561sub hd_list {
562
563 my $res = ();
564
565 if ($opt_testmode) {
76960140
TL		 566 my @disks = split /,/, $opt_testmode;
567
568 for my $disk (@disks) {
569 push @$res, [-1, $disk, int((-s $disk)/512), "TESTDISK"];
570 }
121ebc59 571 return $res;
89a12446
DM		 572 }
573
574 my $count = 0;
575
576 foreach my $bd (</sys/block/*>) {
577 next if $bd =~ m|^/sys/block/ram\d+$|;
578 next if $bd =~ m|^/sys/block/loop\d+$|;
579 next if $bd =~ m|^/sys/block/md\d+$|;
580 next if $bd =~ m|^/sys/block/dm-.*$|;
581 next if $bd =~ m|^/sys/block/fd\d+$|;
582 next if $bd =~ m|^/sys/block/sr\d+$|;
583
d2120e51 584 my $dev = file_read_firstline("$bd/dev");
89a12446 585 chomp $dev;
968fa90b 586
89a12446
DM		 587 next if !$dev;
588
589 my $info = `udevadm info --path $bd --query all`;
590 next if !$info;
591
592 next if $info !~ m/^E: DEVTYPE=disk$/m;
593
594 next if $info =~ m/^E: ID_CDROM/m;
2f4aa276 595 next if $info =~ m/^E: ID_FS_TYPE=iso9660/m;
89a12446
DM		 596
597 my ($name) = $info =~ m/^N: (\S+)$/m;
598
968fa90b 599 if ($name) {
89a12446
DM		 600 my $real_name = "/dev/$name";
601
d2120e51 602 my $size = file_read_firstline("$bd/size");
89a12446
DM		 603 chomp $size;
604 $size = undef if !($size && $size =~ m/^\d+$/);
605
d2120e51 606 my $model = file_read_firstline("$bd/device/model") || '';
89a12446
DM		 607 $model =~ s/^\s+//;
608 $model =~ s/\s+$//;
609 if (length ($model) > 30) {
610 $model = substr ($model, 0, 30);
611 }
612 push @$res, [$count++, $real_name, $size, $model] if $size;
613 } else {
614 print STDERR "ERROR: unable to map device $dev ($bd)\n";
615 }
616 }
617
618 return $res;
619}
620
621sub read_cmap {
8c094410 622 my $countryfn = "${proxmox_libdir}/country.dat";
89a12446
DM		 623 open (TMP, "<$countryfn") || die "unable to open '$countryfn' - $!\n";
624 my $line;
625 my $country = {};
626 my $countryhash = {};
627 my $kmap = {};
628 my $kmaphash = {};
629 while (defined ($line = <TMP>)) {
630 if ($line =~ m|^map:([^\s:]+):([^:]+):([^:]+):([^:]+):([^:]+):([^:]*):$|) {
631 $kmap->{$1} = {
632 name => $2,
633 kvm => $3,
634 console => $4,
635 x11 => $5,
636 x11var => $6,
637 };
638 $kmaphash->{$2} = $1;
639 } elsif ($line =~ m|^([a-z]{2}):([^:]+):([^:]*):([^:]*):$|) {
640 $country->{$1} = {
641 name => $2,
642 kmap => $3,
643 mirror => $4,
644 };
645 $countryhash->{lc($2)} = $1;
646 } else {
647 warn "unable to parse 'country.dat' line: $line";
648 }
649 }
650 close (TMP);
651
652 my $zones = {};
653 my $cczones = {};
654 my $zonefn = "/usr/share/zoneinfo/zone.tab";
655 open (TMP, "<$zonefn") || die "unable to open '$zonefn' - $!\n";
656 while (defined ($line = <TMP>)) {
657 next if $line =~ m/^\#/;
658 next if $line =~ m/^\s*$/;
659 if ($line =~ m|^([A-Z][A-Z])\s+\S+\s+(([^/]+)/\S+)\s|) {
660 my $cc = lc($1);
661 $cczones->{$cc}->{$2} = 1;
662 $country->{$cc}->{zone} = $2 if !defined ($country->{$cc}->{zone});
663 $zones->{$2} = 1;
664
665 }
666 }
667 close (TMP);
668
669 return {
670 zones => $zones,
671 cczones => $cczones,
672 country => $country,
673 countryhash => $countryhash,
674 kmap => $kmap,
675 kmaphash => $kmaphash,
676 }
677}
678
679# search for Harddisks
71590b6a 680my $hds = hd_list();
89a12446
DM		 681
682sub hd_size {
683 my ($dev) = @_;
684
685 foreach my $hd (@$hds) {
686 my ($disk, $devname, $size, $model) = @$hd;
1bd457bb 687 # size is always in 512B "sectors"! convert to KB
89a12446
DM		 688 return int($size/2) if $devname eq $dev;
689 }
690
eb4b1e56 691 die "no such device '$dev'\n";
89a12446
DM		 692}
693
89a12446 694sub get_partition_dev {
c6ed3b24
DM		 695 my ($dev, $partnum) = @_;
696
c9e6f67b
WL		 697 if ($dev =~ m|^/dev/sd([a-h]?[a-z]\|i[a-v])$|) {
698 return "${dev}$partnum";
a8692b68 699 } elsif ($dev =~ m|^/dev/xvd[a-z]$|) {
91749786 700 # Citrix Hypervisor blockdev
a8692b68 701 return "${dev}$partnum";
c9e6f67b 702 } elsif ($dev =~ m|^/dev/[hxev]d[a-z]$|) {
c6ed3b24
DM		 703 return "${dev}$partnum";
704 } elsif ($dev =~ m|^/dev/[^/]+/c\d+d\d+$|) {
705 return "${dev}p$partnum";
706 } elsif ($dev =~ m|^/dev/[^/]+/d\d+$|) {
707 return "${dev}p$partnum";
708 } elsif ($dev =~ m|^/dev/[^/]+/hd[a-z]$|) {
709 return "${dev}$partnum";
ed32cc83
WL		 710 } elsif ($dev =~ m|^/dev/nvme\d+n\d+$|) {
711 return "${dev}p$partnum";
89a12446 712 } else {
c6ed3b24 713 die "unable to get device for partition $partnum on device $dev\n";
89a12446
DM		 714 }
715
716}
717
8a50920c
DM		 718sub file_get_contents {
719 my ($filename, $max) = @_;
720
721 my $fh = IO::File->new($filename, "r") ||
722 die "can't open '$filename' - $!\n";
723
724 local $/; # slurp mode
725
726 my $content = <$fh>;
727
728 close $fh;
729
730 return $content;
731}
732
89a12446
DM		 733sub write_config {
734 my ($text, $filename) = @_;
735
71590b6a 736 my $fd = IO::File->new(">$filename") ||
eb4b1e56 737 die "unable to open file '$filename' - $!\n";
89a12446
DM		 738 print $fd $text;
739 $fd->close();
740}
741
742sub update_progress {
743 my ($frac, $start, $end, $text) = @_;
744
745 my $part = $end - $start;
746 my $res = $start + $frac*$part;
747
748 $progress->set_fraction ($res);
749 $progress->set_text (sprintf ("%d%%", int ($res*100)));
750 $progress_status->set_text ($text) if defined ($text);
751
550958aa
DM		 752 display_info() if $res < 0.9;
753
d2120e51 754 Gtk3::main_iteration() while Gtk3::events_pending();
89a12446
DM		 755}
756
80090926
DM		 757my $fssetup = {
758 ext3 => {
759 mkfs => 'mkfs.ext3 -F',
1f8d0104
DM		 760 mkfs_root_opt => '',
761 mkfs_data_opt => '-m 0',
80090926
DM		 762 root_mountopt => 'errors=remount-ro',
763 },
764 ext4 => {
765 mkfs => 'mkfs.ext4 -F',
1f8d0104
DM		 766 mkfs_root_opt => '',
767 mkfs_data_opt => '-m 0',
80090926
DM		 768 root_mountopt => 'errors=remount-ro',
769 },
770 xfs => {
771 mkfs => 'mkfs.xfs -f',
1f8d0104
DM		 772 mkfs_root_opt => '',
773 mkfs_data_opt => '',
80090926
DM		 774 root_mountopt => '',
775 },
776};
777
89a12446 778sub create_filesystem {
1f8d0104 779 my ($dev, $name, $type, $start, $end, $fs, $fe) = @_;
89a12446
DM		 780
781 my $range = $end - $start;
782 my $rs = $start + $range*$fs;
783 my $re = $start + $range*$fe;
784 my $max = 0;
785
80090926 786 my $fsdata = $fssetup->{$type} || die "internal error - unknown file system '$type'";
1f8d0104 787 my $opts = $name eq 'root' ? $fsdata->{mkfs_root_opt} : $fsdata->{mkfs_data_opt};
1464c7c9 788
71590b6a 789 update_progress(0, $rs, $re, "creating $name filesystem");
89a12446 790
71590b6a 791 run_command("$fsdata->{mkfs} $opts $dev", sub {
89a12446
DM		 792 my $line = shift;
793
794 if ($line =~ m/Writing inode tables:\s+(\d+)\/(\d+)/) {
795 $max = $2;
796 } elsif ($max && $line =~ m/(\d+)\/$max/) {
71590b6a 797 update_progress(($1/$max)*0.9, $rs, $re);
89a12446 798 } elsif ($line =~ m/Creating journal.*done/) {
71590b6a 799 update_progress(0.95, $rs, $re);
89a12446 800 } elsif ($line =~ m/Writing superblocks and filesystem.*done/) {
71590b6a 801 update_progress(1, $rs, $re);
968fa90b 802 }
89a12446
DM		 803 });
804}
805
806sub debconfig_set {
807 my ($targetdir, $dcdata) = @_;
808
809 my $cfgfile = "/tmp/debconf.txt";
71590b6a
OB		 810 write_config($dcdata, "$targetdir/$cfgfile");
811 syscmd("chroot $targetdir debconf-set-selections $cfgfile");
968fa90b 812 unlink "$targetdir/$cfgfile";
89a12446
DM		 813}
814
815sub diversion_add {
816 my ($targetdir, $cmd, $new_cmd) = @_;
817
71590b6a
OB		 818 syscmd("chroot $targetdir dpkg-divert --package proxmox " .
819 "--add --rename $cmd") == 0 ||
820 die "unable to exec dpkg-divert\n";
89a12446 821
71590b6a 822 syscmd("ln -sf ${new_cmd} $targetdir/$cmd") == 0 ||
968fa90b 823 die "unable to link diversion to ${new_cmd}\n";
89a12446
DM		 824}
825
826sub diversion_remove {
827 my ($targetdir, $cmd) = @_;
828
71590b6a 829 syscmd("mv $targetdir/${cmd}.distrib $targetdir/${cmd};") == 0 ||
89a12446 830 die "unable to remove $cmd diversion\n";
968fa90b 831
71590b6a 832 syscmd("chroot $targetdir dpkg-divert --remove $cmd") == 0 ||
89a12446
DM		 833 die "unable to remove $cmd diversion\n";
834}
835
121ebc59
DM		 836sub btrfs_create {
837 my ($partitions, $mode) = @_;
838
839 die "unknown btrfs mode '$mode'"
840 if !($mode eq 'single' || $mode eq 'raid0' ||
841 $mode eq 'raid1' || $mode eq 'raid10');
842
843 my $cmd = ['mkfs.btrfs', '-f'];
844
845 push @$cmd, '-d', $mode, '-m', $mode;
846
847 push @$cmd, @$partitions;
848
849 syscmd($cmd);
850}
851
5c06ced5 852sub zfs_create_rpool {
5fd81672 853 my ($vdev) = @_;
486c490d 854
c7779156
FG		 855 my $cmd = "zpool create -f -o cachefile=none";
856
857 $cmd .= " -o ashift=$config_options->{ashift}"
858 if defined($config_options->{ashift});
859
71590b6a 860 syscmd("$cmd $zfspoolname $vdev") == 0 ||
5c06ced5
DM		 861 die "unable to create zfs root pool\n";
862
71590b6a
OB		 863 syscmd("zfs create $zfspoolname/ROOT") == 0 ||
864 die "unable to create zfs $zfspoolname/ROOT volume\n";
3fcd8420
DM		 865
866 if ($setup->{product} eq 'pve') {
71590b6a 867 syscmd("zfs create $zfspoolname/data") == 0 ||
3fcd8420
DM		 868 die "unable to create zfs $zfspoolname/data volume\n";
869 }
5fd81672 870
71590b6a 871 syscmd("zfs create $zfspoolname/ROOT/$zfsrootvolname") == 0 ||
5772392c 872 die "unable to create zfs $zfspoolname/ROOT/$zfsrootvolname volume\n";
5c06ced5 873
2df572ae 874 # disable atime during install
71590b6a 875 syscmd("zfs set atime=off $zfspoolname") == 0 ||
5c06ced5 876 die "unable to set zfs properties\n";
c7779156
FG		 877
878 my $value = $config_options->{compress};
71590b6a 879 syscmd("zfs set compression=$value $zfspoolname")
c7779156
FG		 880 if defined($value) && $value ne 'off';
881
882 $value = $config_options->{checksum};
71590b6a 883 syscmd("zfs set checksum=$value $zfspoolname")
c7779156
FG		 884 if defined($value) && $value ne 'on';
885
886 $value = $config_options->{copies};
71590b6a 887 syscmd("zfs set copies=$value $zfspoolname")
c7779156 888 if defined($value) && $value != 1;
5c06ced5
DM		 889}
890
dc4ad419
FG		 891my $udevadm_trigger_block = sub {
892 my ($nowait) = @_;
893
894 sleep(1) if !$nowait; # give kernel time to reread part table
895
896 # trigger udev to create /dev/disk/by-uuid
71590b6a
OB		 897 syscmd("udevadm trigger --subsystem-match block");
898 syscmd("udevadm settle --timeout 10");
dc4ad419
FG		 899};
900
857c43a9
FG		 901my $clean_disk = sub {
902 my ($disk) = @_;
903
904 my $partitions = `lsblk --output kname --noheadings --path --list $disk`;
905 foreach my $part (split "\n", $partitions) {
906 next if $part eq $disk;
907 next if $part !~ /^\Q$disk\E/;
908 eval { syscmd("pvremove -ff -y $part"); };
063ae64a 909 eval { syscmd("zpool labelclear -f $part"); };
857c43a9
FG		 910 eval { syscmd("dd if=/dev/zero of=$part bs=1M count=16"); };
911 }
912};
913
c6ed3b24 914sub partition_bootable_disk {
d6e919d7 915 my ($target_dev, $maxhdsizegb, $ptype) = @_;
89a12446 916
c6ed3b24 917 die "too dangerous" if $opt_testmode;
89a12446 918
121ebc59 919 die "unknown partition type '$ptype'"
118d4f40 920 if !($ptype eq '8E00' || $ptype eq '8300' || $ptype eq 'BF01');
121ebc59 921
6ab785ef 922 syscmd("sgdisk -Z ${target_dev}");
1bd457bb 923 my $hdsize = hd_size($target_dev); # size in KB (1024 bytes)
c6ed3b24 924
9b4dc6e8 925 my $restricted_hdsize_mb = 0; # 0 ==> end of partition
d6e919d7
SI		 926 if ($maxhdsizegb) {
927 my $maxhdsize = $maxhdsizegb * 1024 * 1024;
928 if ($maxhdsize < $hdsize) {
929 $hdsize = $maxhdsize;
930 $restricted_hdsize_mb = int($hdsize/1024) . 'M';
931 }
c6ed3b24
DM		 932 }
933
934 my $hdgb = int($hdsize/(1024*1024));
3f6dfdf3 935 die "hardisk '$target_dev' too small (${hdgb}GB)\n" if $hdgb < 8;
c6ed3b24 936
43b5216c 937 # 1 - BIOS boot partition (Grub Stage2): first free 1M
118d4f40 938 # 2 - EFI ESP: next free 512M
43b5216c 939 # 3 - OS/Data partition: rest, up to $maxhdsize in MB
c6ed3b24
DM		 940
941 my $grubbootdev = get_partition_dev($target_dev, 1);
942 my $efibootdev = get_partition_dev($target_dev, 2);
a2876e48 943 my $osdev = get_partition_dev ($target_dev, 3);
aed81ff0 944
43b5216c 945 my $pcmd = ['sgdisk'];
89a12446 946
118d4f40
SI		 947 my $pnum = 2;
948 push @$pcmd, "-n${pnum}:1M:+512M", "-t$pnum:EF00";
35be9ba7 949
f810f5d0 950 $pnum = 3;
118d4f40 951 push @$pcmd, "-n${pnum}:513M:${restricted_hdsize_mb}", "-t$pnum:$ptype";
35be9ba7 952
f810f5d0 953 push @$pcmd, $target_dev;
b282cfe8 954
118d4f40 955 my $os_size = $hdsize - 513*1024; # 512M efi + 1M bios_boot + 1M alignment
89a12446 956
f810f5d0
DM		 957 syscmd($pcmd) == 0 ||
958 die "unable to partition harddisk '${target_dev}'\n";
89a12446 959
118d4f40
SI		 960 $pnum = 1;
961 $pcmd = ['sgdisk', '-a1', "-n$pnum:34:2047", "-t$pnum:EF02" , $target_dev];
962
963 syscmd($pcmd) == 0 ||
964 die "unable to create bios_boot partition '${target_dev}'\n";
965
dc4ad419
FG		 966 &$udevadm_trigger_block();
967
968 foreach my $part ($efibootdev, $osdev) {
969 syscmd("dd if=/dev/zero of=$part bs=1M count=256") if -b $part;
970 }
971
f810f5d0
DM		 972 return ($os_size, $osdev, $efibootdev);
973}
5c06ced5 974
c6ed3b24
DM		 975sub create_lvm_volumes {
976 my ($lvmdev, $os_size, $swap_size) = @_;
7bc4f6bd 977
f7d18efd
DM		 978 my $vgname = $setup->{product};
979
980 my $rootdev = "/dev/$vgname/root";
981 my $datadev = "/dev/$vgname/data";
9bb301fb 982 my $swapfile;
84761f93 983
2df572ae 984 # we use --metadatasize 250k, which results in "pe_start = 512"
c6ed3b24 985 # so pe_start is aligned on a 128k boundary (advantage for SSDs)
71590b6a 986 syscmd("/sbin/pvcreate --metadatasize 250k -y -ff $lvmdev") == 0 ||
eb4b1e56 987 die "unable to initialize physical volume $lvmdev\n";
71590b6a 988 syscmd("/sbin/vgcreate $vgname $lvmdev") == 0 ||
f7d18efd 989 die "unable to create volume group '$vgname'\n";
89a12446 990
c6ed3b24
DM		 991 my $hdgb = int($os_size/(1024*1024));
992 my $space = (($hdgb > 128) ? 16 : ($hdgb/8))*1024*1024;
89a12446 993
b6e875ca
DM		 994 my $rootsize;
995 my $datasize;
89a12446 996
b6e875ca 997 if ($setup->{product} eq 'pve') {
89a12446 998
b6e875ca
DM		 999 my $maxroot;
1000 if ($config_options->{maxroot}) {
1001 $maxroot = $config_options->{maxroot};
1002 } else {
1003 $maxroot = 96;
1004 }
7bc4f6bd 1005
b6e875ca
DM		 1006 $rootsize = (($hdgb > ($maxroot*4)) ? $maxroot : $hdgb/4)*1024*1024;
1007
1008 my $rest = $os_size - $swap_size - $rootsize; # in KB
7bc4f6bd 1009
b6e875ca 1010 my $minfree;
e093944c 1011 if (defined($config_options->{minfree})) {
1464c7c9 1012 $minfree = (($config_options->{minfree}*1024*1024) >= $rest ) ? $space :
b6e875ca
DM		 1013 $config_options->{minfree}*1024*1024 ;
1014 } else {
1015 $minfree = $space;
1016 }
1017
1018 $rest = $rest - $minfree;
1019
2ba9752e 1020 if (defined($config_options->{maxvz})) {
b6e875ca
DM		 1021 $rest = (($config_options->{maxvz}*1024*1024) <= $rest) ?
1022 $config_options->{maxvz}*1024*1024 : $rest;
1023 }
7bc4f6bd 1024
b6e875ca
DM		 1025 $datasize = $rest;
1026
1027 } else {
e093944c 1028 my $minfree = defined($config_options->{minfree}) ? $config_options->{minfree}*1024*1024 : $space;
b6e875ca 1029 $rootsize = $os_size - $minfree - $swap_size; # in KB
c6ed3b24 1030 }
7bc4f6bd 1031
9bb301fb 1032 if ($swap_size) {
71590b6a 1033 syscmd("/sbin/lvcreate -L${swap_size}K -nswap $vgname") == 0 ||
9bb301fb
FG		 1034 die "unable to create swap volume\n";
1035
1036 $swapfile = "/dev/$vgname/swap";
1037 }
89a12446 1038
71590b6a 1039 syscmd("/sbin/lvcreate -L${rootsize}K -nroot $vgname") == 0 ||
eb4b1e56 1040 die "unable to create root volume\n";
89a12446 1041
d1969047
FG		 1042 if ($datasize > 4*1024*1024) {
1043 my $metadatasize = $datasize/100; # default 1% of data
1044 $metadatasize = 1024*1024 if $metadatasize < 1024*1024; # but at least 1G
1045 $metadatasize = 16*1024*1024 if $metadatasize > 16*1024*1024; # but at most 16G
1046
1047 # otherwise the metadata is taken out of $minfree
1048 $datasize -= 2*$metadatasize;
1049
1050 # 1 4MB PE to allow for rounding
1051 $datasize -= 4*1024;
1052
71590b6a 1053 syscmd("/sbin/lvcreate -L${datasize}K -ndata $vgname") == 0 ||
b6e875ca 1054 die "unable to create data volume\n";
89a12446 1055
71590b6a 1056 syscmd("/sbin/lvconvert --yes --type thin-pool --poolmetadatasize ${metadatasize}K $vgname/data") == 0 ||
b6e875ca
DM		 1057 die "unable to create data thin-pool\n";
1058 } else {
1059 $datadev = undef;
1060 }
5fd81672 1061
71590b6a 1062 syscmd("/sbin/vgchange -a y $vgname") == 0 ||
eb4b1e56 1063 die "unable to activate volume group\n";
7bc4f6bd 1064
b6e875ca 1065 return ($rootdev, $swapfile, $datadev);
c6ed3b24 1066}
7bc4f6bd 1067
c6ed3b24
DM		 1068sub compute_swapsize {
1069 my ($hdsize) = @_;
89a12446 1070
c6ed3b24 1071 my $hdgb = int($hdsize/(1024*1024));
5c06ced5 1072
c6ed3b24 1073 my $swapsize;
9bb301fb 1074 if (defined($config_options->{swapsize})) {
c6ed3b24
DM		 1075 $swapsize = $config_options->{swapsize}*1024*1024;
1076 } else {
1077 my $ss = int ($total_memory / 1024);
1078 $ss = 4 if $ss < 4;
1079 $ss = ($hdgb/8) if $ss > ($hdgb/8);
cbdfeb36 1080 $ss = 8 if $ss > 8;
c6ed3b24
DM		 1081 $swapsize = $ss*1024*1024;
1082 }
d0d8ce3f
DM		 1083
1084 return $swapsize;
c6ed3b24 1085}
5c06ced5 1086
e38884af
SI		 1087sub prepare_systemd_boot_esp {
1088 my ($espdev, $targetdir) = @_;
1089
1090 my $espuuid = find_dev_by_uuid($espdev);
1091 my $espmp = "var/tmp/$espuuid";
1092 mkdir "$targetdir/$espmp";
1093
1094 syscmd("mount -n $espdev -t vfat $targetdir/$espmp") == 0 ||
1095 die "unable to mount ESP $espdev\n";
1096
1097 File::Path::make_path("$targetdir/$espmp/EFI/proxmox") ||
1098 die "unable to create directory $targetdir/$espmp/EFI/proxmox\n";
1099
f238dd03 1100 syscmd("chroot $targetdir bootctl --path /$espmp install") == 0 ||
e38884af
SI		 1101 die "unable to install systemd-boot loader\n";
1102 write_config("timeout 3\ndefault proxmox-*\n",
1103 "$targetdir/$espmp/loader/loader.conf");
e38884af
SI		 1104
1105 syscmd("umount $targetdir/$espmp") == 0 ||
1106 die "unable to umount ESP $targetdir/$espmp\n";
1107
1108}
121ebc59 1109
597db5de
TL		 1110sub prepare_grub_efi_boot_esp {
1111 my ($dev, $espdev, $targetdir) = @_;
1112
1113 syscmd("mount -n $espdev -t vfat $targetdir/boot/efi") == 0 ||
1114 die "unable to mount $espdev\n";
1115
1116 my $rc = syscmd("chroot $targetdir /usr/sbin/grub-install --target x86_64-efi --no-floppy --bootloader-id='proxmox' $dev");
1117 if ($rc != 0) {
1118 if ($boot_type eq 'efi') {
1119 die "unable to install the EFI boot loader on '$dev'\n";
1120 } else {
1121 warn "unable to install the EFI boot loader on '$dev', ignoring (not booted using UEFI)\n";
1122 }
1123 }
1124 # also install fallback boot file (OVMF does not boot without)
1125 mkdir("$targetdir/boot/efi/EFI/BOOT");
1126 syscmd("cp $targetdir/boot/efi/EFI/proxmox/grubx64.efi $targetdir/boot/efi/EFI/BOOT/BOOTx64.EFI") == 0 ||
1127 die "unable to copy efi boot loader\n";
1128
1129 syscmd("umount $targetdir/boot/efi") == 0 ||
1130 die "unable to umount $targetdir/boot/efi\n";
1131}
1132
c6ed3b24 1133sub extract_data {
fafc616c 1134 my ($basefile, $targetdir) = @_;
89a12446 1135
c6ed3b24 1136 die "target '$targetdir' does not exist\n" if ! -d $targetdir;
89a12446 1137
121ebc59
DM		 1138 my $starttime = [Time::HiRes::gettimeofday];
1139
c6ed3b24 1140 my $bootdevinfo = [];
84761f93 1141
c6ed3b24
DM		 1142 my $swapfile;
1143 my $rootdev;
e2c51d7c 1144 my $datadev;
84761f93 1145
121ebc59
DM		 1146 my $use_zfs = 0;
1147 my $use_btrfs = 0;
89092156 1148
c6ed3b24 1149 my $filesys = $config_options->{filesys};
89092156 1150
c6ed3b24
DM		 1151 if ($filesys =~ m/zfs/) {
1152 $target_hd = undef; # do not use this config
1153 $use_zfs = 1;
5772392c 1154 $targetdir = "/$zfspoolname/ROOT/$zfsrootvolname";
121ebc59
DM		 1155 } elsif ($filesys =~ m/btrfs/) {
1156 $target_hd = undef; # do not use this config
1157 $use_btrfs = 1;
c6ed3b24 1158 }
1464c7c9 1159
c6ed3b24
DM		 1160 if ($use_zfs) {
1161 my $i;
1162 for ($i = 5; $i > 0; $i--) {
1163 syscmd("modprobe zfs");
1164 last if -c "/dev/zfs";
1165 sleep(1);
1166 }
89092156 1167
c6ed3b24
DM		 1168 die "unable to load zfs kernel module\n" if !$i;
1169 }
89092156 1170
c6ed3b24 1171 eval {
89a12446 1172
89a12446 1173
c6ed3b24 1174 my $maxper = 0.25;
89a12446 1175
71590b6a 1176 update_progress(0, 0, $maxper, "create partitions");
c6ed3b24 1177
857c43a9
FG		 1178 syscmd("vgchange -an") if !$opt_testmode; # deactivate all detected VGs
1179
c6ed3b24 1180 if ($opt_testmode) {
89a12446 1181
6b900321
DM		 1182 $rootdev = abs_path($opt_testmode);
1183 syscmd("umount $rootdev");
121ebc59 1184
6b900321 1185 if ($use_btrfs) {
121ebc59 1186
1464c7c9 1187 die "unsupported btrfs mode (for testing environment)\n"
121ebc59
DM		 1188 if $filesys ne 'btrfs (RAID0)';
1189
1190 btrfs_create([$rootdev], 'single');
5c06ced5 1191
121ebc59 1192 } elsif ($use_zfs) {
5c06ced5 1193
121ebc59 1194 die "unsupported zfs mode (for testing environment)\n"
c6ed3b24
DM		 1195 if $filesys ne 'zfs (RAID0)';
1196
71590b6a 1197 syscmd("zpool destroy $zfstestpool");
5c06ced5 1198
5fd81672 1199 zfs_create_rpool($rootdev);
1464c7c9 1200
121ebc59
DM		 1201 } else {
1202
6b900321 1203 # nothing to do
121ebc59
DM		 1204 }
1205
1206 } elsif ($use_btrfs) {
1207
1208 my ($devlist, $btrfs_mode) = get_btrfs_raid_setup();
1209 my $btrfs_partitions = [];
1210 my $disksize;
1211 foreach my $hd (@$devlist) {
1212 my $devname = @$hd[1];
857c43a9 1213 &$clean_disk($devname);
121ebc59
DM		 1214 my ($size, $osdev, $efidev) =
1215 partition_bootable_disk($devname, undef, '8300');
1216 $rootdev = $osdev if !defined($rootdev); # simply point to first disk
1217 my $by_id = find_stable_path("/dev/disk/by-id", $devname);
1218 push @$bootdevinfo, { esp => $efidev, devname => $devname,
1219 osdev => $osdev, by_id => $by_id };
1220 push @$btrfs_partitions, $osdev;
1221 $disksize = $size;
5c06ced5 1222 }
c6ed3b24 1223
121ebc59
DM		 1224 &$udevadm_trigger_block();
1225
1226 btrfs_create($btrfs_partitions, $btrfs_mode);
1227
c6ed3b24
DM		 1228 } elsif ($use_zfs) {
1229
c6ed3b24
DM		 1230 my ($devlist, $bootdevlist, $vdev) = get_zfs_raid_setup();
1231
857c43a9
FG		 1232 foreach my $hd (@$devlist) {
1233 &$clean_disk(@$hd[1]);
1234 }
4fb6ac60
TL		 1235
1236 my $disksize;
c6ed3b24
DM		 1237 foreach my $hd (@$bootdevlist) {
1238 my $devname = @$hd[1];
118d4f40 1239
e38884af 1240 my ($size, $osdev, $efidev) =
d6e919d7 1241 partition_bootable_disk($devname, $config_options->{hdsize}, 'BF01');
4fb6ac60 1242
14aacec8 1243 zfs_mirror_size_check($disksize, $size) if $disksize;
4fb6ac60
TL		 1244
1245 push @$bootdevinfo, {
1246 esp => $efidev,
1247 devname => $devname,
1248 osdev => $osdev
1249 };
c6ed3b24 1250 $disksize = $size;
c6ed3b24
DM		 1251 }
1252
121ebc59 1253 &$udevadm_trigger_block();
c6ed3b24 1254
35c6f89c
DM		 1255 foreach my $di (@$bootdevinfo) {
1256 my $devname = $di->{devname};
1257 $di->{by_id} = find_stable_path ("/dev/disk/by-id", $devname);
1464c7c9 1258
e1fdd3d0 1259 my $osdev = find_stable_path ("/dev/disk/by-id", $di->{osdev}) || $di->{osdev};
c6ed3b24 1260
35c6f89c
DM		 1261 $vdev =~ s/ $devname/ $osdev/;
1262 }
1263
5fd81672 1264 zfs_create_rpool($vdev);
1464c7c9 1265
c6ed3b24
DM		 1266 } else {
1267
1268 die "target '$target_hd' is not a valid block device\n" if ! -b $target_hd;
1269
857c43a9
FG		 1270 &$clean_disk($target_hd);
1271
1464c7c9
DM		 1272 my ($os_size, $osdev, $efidev);
1273 ($os_size, $osdev, $efidev) =
d6e919d7 1274 partition_bootable_disk($target_hd, $config_options->{hdsize}, '8E00');
c6ed3b24 1275
121ebc59 1276 &$udevadm_trigger_block();
c6ed3b24 1277
35c6f89c 1278 my $by_id = find_stable_path ("/dev/disk/by-id", $target_hd);
1464c7c9 1279 push @$bootdevinfo, { esp => $efidev, devname => $target_hd,
35c6f89c 1280 osdev => $osdev, by_id => $by_id };
c6ed3b24 1281
35c6f89c 1282 my $swap_size = compute_swapsize($os_size);
e2c51d7c 1283 ($rootdev, $swapfile, $datadev) =
35c6f89c 1284 create_lvm_volumes($osdev, $os_size, $swap_size);
c6ed3b24 1285
35c6f89c 1286 # trigger udev to create /dev/disk/by-uuid
121ebc59 1287 &$udevadm_trigger_block(1);
89a12446
DM		 1288 }
1289
481671c3
DM		 1290 if ($use_zfs) {
1291 # to be fast during installation
71590b6a 1292 syscmd("zfs set sync=disabled $zfspoolname") == 0 ||
481671c3
DM		 1293 die "unable to set zfs properties\n";
1294 }
1295
71590b6a 1296 update_progress(0.03, 0, $maxper, "create swap space");
89a12446 1297 if ($swapfile) {
71590b6a 1298 syscmd("mkswap -f $swapfile") == 0 ||
89a12446
DM		 1299 die "unable to create swap space\n";
1300 }
1301
71590b6a 1302 update_progress(0.05, 0, $maxper, "creating filesystems");
89a12446 1303
c6ed3b24 1304 foreach my $di (@$bootdevinfo) {
f810f5d0 1305 next if !$di->{esp};
71590b6a 1306 syscmd("mkfs.vfat -F32 $di->{esp}") == 0 ||
c6ed3b24
DM		 1307 die "unable to initialize EFI ESP on device $di->{esp}\n";
1308 }
1309
121ebc59
DM		 1310 if ($use_zfs) {
1311 # do nothing
1312 } elsif ($use_btrfs) {
1313 # do nothing
1314 } else {
71590b6a 1315 create_filesystem($rootdev, 'root', $filesys, 0.05, $maxper, 0, 1);
89a12446
DM		 1316 }
1317
71590b6a 1318 update_progress(1, 0.05, $maxper, "mounting target $rootdev");
89a12446 1319
121ebc59
DM		 1320 if ($use_zfs) {
1321 # do nothing
121ebc59 1322 } else {
6e56032e
FG		 1323 my $mount_opts = 'noatime';
1324 $mount_opts .= ',nobarrier'
1325 if $use_btrfs || $filesys =~ /^ext\d$/;
1326
1327 syscmd("mount -n $rootdev -o $mount_opts $targetdir") == 0 ||
35c6f89c
DM		 1328 die "unable to mount $rootdev\n";
1329 }
89a12446 1330
35c6f89c
DM		 1331 mkdir "$targetdir/boot";
1332 mkdir "$targetdir/boot/efi";
89a12446 1333
5fd81672
DM		 1334 mkdir "$targetdir/var";
1335 mkdir "$targetdir/var/lib";
121ebc59 1336
f7d18efd
DM		 1337 if ($setup->{product} eq 'pve') {
1338 mkdir "$targetdir/var/lib/vz";
1339 mkdir "$targetdir/var/lib/pve";
1340
1341 if ($use_btrfs) {
1342 syscmd("btrfs subvolume create $targetdir/var/lib/pve/local-btrfs") == 0 ||
1343 die "unable to create btrfs subvolume\n";
1344 }
121ebc59 1345 }
89a12446 1346
8d7ddbde
TL		 1347 mkdir "$targetdir/mnt";
1348 mkdir "$targetdir/mnt/hostrun";
1349 syscmd("mount --bind /run $targetdir/mnt/hostrun") == 0 ||
1350 die "unable to bindmount run on $targetdir/mnt/hostrun\n";
1351
71590b6a 1352 update_progress(1, 0.05, $maxper, "extracting base system");
89a12446 1353
fafc616c
DM		 1354 my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size) = stat ($basefile);
1355 $ino || die "unable to open file '$basefile' - $!\n";
968fa90b 1356
c437cef5
DM		 1357 my $files = file_read_firstline("${proxmox_cddir}/proxmox/$setup->{product}-base.cnt") ||
1358 die "unable to read base file count\n";
89a12446
DM		 1359
1360 my $per = 0;
1361 my $count = 0;
1362
71590b6a 1363 run_command("unsquashfs -f -dest $targetdir -i $basefile", sub {
89a12446 1364 my $line = shift;
fafc616c 1365 return if $line !~ m/^$targetdir/;
89a12446
DM		 1366 $count++;
1367 my $nper = int (($count *100)/$files);
1368 if ($nper != $per) {
1369 $per = $nper;
0f3d1edd 1370 my $frac = $per > 100 ? 1 : $per/100;
71590b6a 1371 update_progress($frac, $maxper, 0.5);
89a12446
DM		 1372 }
1373 });
1374
71590b6a 1375 syscmd("mount -n -t tmpfs tmpfs $targetdir/tmp") == 0 ||
89a12446 1376 die "unable to mount tmpfs on $targetdir/tmp\n";
71590b6a 1377 syscmd("mount -n -t proc proc $targetdir/proc") == 0 ||
89a12446 1378 die "unable to mount proc on $targetdir/proc\n";
71590b6a 1379 syscmd("mount -n -t sysfs sysfs $targetdir/sys") == 0 ||
89a12446 1380 die "unable to mount sysfs on $targetdir/sys\n";
f238dd03 1381 if ($boot_type eq 'efi') {
dea730ea 1382 syscmd("mount -n -t efivarfs efivarfs $targetdir/sys/firmware/efi/efivars") == 0 ||
f238dd03
TL		 1383 die "unable to mount efivarfs on $targetdir/sys/firmware/efi/efivars: $!\n";
1384 }
8d7ddbde
TL		 1385 syscmd("chroot $targetdir mount --bind /mnt/hostrun /run") == 0 ||
1386 die "unable to re-bindmount hostrun on /run in chroot\n";
89a12446 1387
71590b6a 1388 update_progress(1, $maxper, 0.5, "configuring base system");
89a12446
DM		 1389
1390 # configure hosts
1391
968fa90b 1392 my $hosts =
89a12446 1393 "127.0.0.1 localhost.localdomain localhost\n" .
57cd2e0f 1394 "$ipaddress $hostname.$domain $hostname\n\n" .
89a12446
DM		 1395 "# The following lines are desirable for IPv6 capable hosts\n\n" .
1396 "::1 ip6-localhost ip6-loopback\n" .
1397 "fe00::0 ip6-localnet\n" .
1398 "ff00::0 ip6-mcastprefix\n" .
1399 "ff02::1 ip6-allnodes\n" .
1400 "ff02::2 ip6-allrouters\n" .
1401 "ff02::3 ip6-allhosts\n";
1402
71590b6a 1403 write_config($hosts, "$targetdir/etc/hosts");
89a12446 1404
71590b6a 1405 write_config("$hostname\n", "$targetdir/etc/hostname");
89a12446 1406
71590b6a 1407 syscmd("/bin/hostname $hostname") if !$opt_testmode;
89a12446
DM		 1408
1409 # configure interfaces
1410
b6200603
DM		 1411 my $ifaces = "auto lo\niface lo inet loopback\n\n";
1412
1413 my $ntype = $ipversion == 4 ? 'inet' : 'inet6';
1414
4a0331ab
DM		 1415 my $ethdev = $ipconf->{ifaces}->{$ipconf->{selected}}->{name};
1416
1417 if ($setup->{bridged_network}) {
1418 $ifaces .= "iface $ethdev $ntype manual\n";
1419
1420 $ifaces .=
1421 "\nauto vmbr0\niface vmbr0 $ntype static\n" .
1422 "\taddress $ipaddress\n" .
1423 "\tnetmask $netmask\n" .
1424 "\tgateway $gateway\n" .
1425 "\tbridge_ports $ethdev\n" .
1426 "\tbridge_stp off\n" .
1427 "\tbridge_fd 0\n";
1428 } else {
1429 $ifaces .= "auto $ethdev\n" .
1430 "iface $ethdev $ntype static\n" .
1431 "\taddress $ipaddress\n" .
1432 "\tnetmask $netmask\n" .
1433 "\tgateway $gateway\n";
1434 }
89a12446 1435
fe44bd92
FG		 1436 foreach my $iface (sort keys %{$ipconf->{ifaces}}) {
1437 my $name = $ipconf->{ifaces}->{$iface}->{name};
4a0331ab 1438 next if $name eq $ethdev;
fe44bd92
FG		 1439
1440 $ifaces .= "\niface $name $ntype manual\n";
1441 }
1442
71590b6a 1443 write_config($ifaces, "$targetdir/etc/network/interfaces");
89a12446
DM		 1444
1445 # configure dns
1446
39a0f44b 1447 my $resolvconf = "search $domain\nnameserver $dnsserver\n";
71590b6a 1448 write_config($resolvconf, "$targetdir/etc/resolv.conf");
89a12446 1449
5c06ced5
DM		 1450 # configure fstab
1451
1452 my $fstab = "# <file system> <mount point> <type> <options> <dump> <pass>\n";
1453
121ebc59
DM		 1454 if ($use_zfs) {
1455 # do nothing
1456 } elsif ($use_btrfs) {
1457 my $fsuuid;
1458 my $cmd = "blkid -u filesystem -t TYPE=btrfs -o export $rootdev";
1459 run_command($cmd, sub {
1460 my $line = shift;
1461
1462 if ($line =~ m/^UUID=([A-Fa-f0-9\-]+)$/) {
1463 $fsuuid = $1;
1464 }
1465 });
1466
1467 die "unable to detect FS UUID" if !defined($fsuuid);
1468
1469 $fstab .= "UUID=$fsuuid / btrfs defaults 0 1\n";
1470 } else {
80090926
DM		 1471 my $root_mountopt = $fssetup->{$filesys}->{root_mountopt} || 'defaults';
1472 $fstab .= "$rootdev / $filesys ${root_mountopt} 0 1\n";
7bc4f6bd 1473 }
a84ea010
DM		 1474
1475 # mount /boot/efi
1476 # Note: this is required by current grub, but really dangerous, because
1477 # vfat does not have journaling, so it triggers manual fsck after each crash
1478 # so we only mount /boot/efi if really required (efi systems).
4fb6ac60 1479 if ($boot_type eq 'efi' && !$use_zfs) {
a84ea010 1480 if (scalar(@$bootdevinfo)) {
f810f5d0 1481 my $di = @$bootdevinfo[0]; # simply use first disk
4fb6ac60
TL		 1482
1483 if ($di->{esp}) {
f810f5d0
DM		 1484 my $efi_boot_uuid = $di->{esp};
1485 if (my $uuid = find_dev_by_uuid ($di->{esp})) {
1486 $efi_boot_uuid = "UUID=$uuid";
1487 }
1464c7c9 1488
f810f5d0
DM		 1489 $fstab .= "${efi_boot_uuid} /boot/efi vfat defaults 0 1\n";
1490 }
a84ea010 1491 }
84761f93
DM		 1492 }
1493
a84ea010 1494
89a12446
DM		 1495 $fstab .= "$swapfile none swap sw 0 0\n" if $swapfile;
1496
1497 $fstab .= "proc /proc proc defaults 0 0\n";
1498
71590b6a
OB		 1499 write_config($fstab, "$targetdir/etc/fstab");
1500 write_config("", "$targetdir/etc/mtab");
968fa90b 1501
71590b6a 1502 syscmd("cp ${proxmox_libdir}/policy-disable-rc.d " .
968fa90b 1503 "$targetdir/usr/sbin/policy-rc.d") == 0 ||
89a12446 1504 die "unable to copy policy-rc.d\n";
71590b6a 1505 syscmd("cp ${proxmox_libdir}/fake-start-stop-daemon " .
968fa90b 1506 "$targetdir/sbin/") == 0 ||
89a12446
DM		 1507 die "unable to copy start-stop-daemon\n";
1508
71590b6a
OB		 1509 diversion_add($targetdir, "/sbin/start-stop-daemon", "/sbin/fake-start-stop-daemon");
1510 diversion_add($targetdir, "/usr/sbin/update-grub", "/bin/true");
1511 diversion_add($targetdir, "/usr/sbin/update-initramfs", "/bin/true");
89a12446 1512
72d2dcd0
SI		 1513 my $machine_id = run_command("systemd-id128 new");
1514 die "unable to create a new machine-id\n" if ! $machine_id;
1515 write_config($machine_id, "$targetdir/etc/machine-id");
1516
71590b6a 1517 syscmd("touch $targetdir/proxmox_install_mode");
89a12446 1518
e35d5efb 1519 my $grub_install_devices_txt = '';
3573c046 1520 foreach my $di (@$bootdevinfo) {
e35d5efb 1521 $grub_install_devices_txt .= ', ' if $grub_install_devices_txt;
ff863262 1522 $grub_install_devices_txt .= $di->{by_id} || $di->{devname};
3573c046
DM		 1523 }
1524
b1293fcb
FG		 1525 # Note: keyboard-configuration/xbkb-keymap is used by console-setup
1526 my $xkmap = $cmap->{kmap}->{$keymap}->{x11} // 'us';
1464c7c9 1527
89a12446
DM		 1528 debconfig_set ($targetdir, <<_EOD);
1529locales locales/default_environment_locale select en_US.UTF-8
1530locales locales/locales_to_be_generated select en_US.UTF-8 UTF-8
1531samba-common samba-common/dhcp boolean false
1532samba-common samba-common/workgroup string WORKGROUP
e953719f 1533postfix postfix/main_mailer_type select No configuration
b1293fcb 1534keyboard-configuration keyboard-configuration/xkb-keymap select $xkmap
814f5c39 1535d-i debian-installer/locale select en_US.UTF-8
3573c046 1536grub-pc grub-pc/install_devices select $grub_install_devices_txt
89a12446
DM		 1537_EOD
1538
89a12446 1539 my $pkg_count = 0;
97980bf2 1540 while (<${proxmox_pkgdir}/*.deb>) { $pkg_count++ };
89a12446 1541
121ebc59
DM		 1542 # btrfs/dpkg is extremely slow without --force-unsafe-io
1543 my $dpkg_opts = $use_btrfs ? "--force-unsafe-io" : "";
1544
89a12446 1545 $count = 0;
97980bf2 1546 while (<${proxmox_pkgdir}/*.deb>) {
89a12446
DM		 1547 chomp;
1548 my $path = $_;
97980bf2 1549 my ($deb) = $path =~ m/${proxmox_pkgdir}\/(.*\.deb)/;
71590b6a 1550 update_progress($count/$pkg_count, 0.5, 0.75, "extracting $deb");
89a12446 1551 print "extracting: $deb\n";
71590b6a 1552 syscmd("cp $path $targetdir/tmp/$deb") == 0 ||
89a12446 1553 die "installation of package $deb failed\n";
71590b6a 1554 syscmd("chroot $targetdir dpkg $dpkg_opts --force-depends --no-triggers --unpack /tmp/$deb") == 0 ||
968fa90b 1555 die "installation of package $deb failed\n";
71590b6a 1556 update_progress((++$count)/$pkg_count, 0.5, 0.75);
89a12446
DM		 1557 }
1558
3b11dce4
FG		 1559 # needed for postfix postinst in case no other NIC is active
1560 syscmd("chroot $targetdir ifup lo");
1561
121ebc59 1562 my $cmd = "chroot $targetdir dpkg $dpkg_opts --force-confold --configure -a";
89a12446 1563 $count = 0;
71590b6a 1564 run_command($cmd, sub {
89a12446
DM		 1565 my $line = shift;
1566 if ($line =~ m/Setting up\s+(\S+)/) {
71590b6a
OB		 1567 update_progress((++$count)/$pkg_count, 0.75, 0.95,
1568 "configuring $1");
89a12446
DM		 1569 }
1570 });
968fa90b 1571
89a12446
DM		 1572 unlink "$targetdir/etc/mailname";
1573 $postfix_main_cf =~ s/__FQDN__/${hostname}.${domain}/;
71590b6a 1574 write_config($postfix_main_cf, "$targetdir/etc/postfix/main.cf");
89a12446
DM		 1575
1576 # make sure we have all postfix directories
71590b6a 1577 syscmd("chroot $targetdir /usr/sbin/postfix check");
89a12446 1578 # cleanup mail queue
71590b6a 1579 syscmd("chroot $targetdir /usr/sbin/postsuper -d ALL");
89a12446 1580
6b5dc3d0 1581 # enable NTP (timedatectl set-ntp true does not work without DBUS)
71590b6a 1582 syscmd("chroot $targetdir /bin/systemctl enable systemd-timesyncd.service");
6b5dc3d0 1583
89a12446
DM		 1584 unlink "$targetdir/proxmox_install_mode";
1585
968fa90b 1586 # set timezone
89a12446
DM		 1587 unlink ("$targetdir/etc/localtime");
1588 symlink ("/usr/share/zoneinfo/$timezone", "$targetdir/etc/localtime");
71590b6a 1589 write_config("$timezone\n", "$targetdir/etc/timezone");
89a12446 1590
89a12446
DM		 1591 # set apt mirror
1592 if (my $mirror = $cmap->{country}->{$country}->{mirror}) {
1593 my $fn = "$targetdir/etc/apt/sources.list";
71590b6a 1594 syscmd("sed -i 's/ftp\\.debian\\.org/$mirror/' '$fn'");
89a12446
DM		 1595 }
1596
19edf8b7
DM		 1597 # create extended_states for apt (avoid cron job warning if that
1598 # file does not exist)
71590b6a 1599 write_config('', "$targetdir/var/lib/apt/extended_states");
19edf8b7 1600
c2657b8b 1601 # allow ssh root login
abcadb95 1602 syscmd(['sed', '-i', 's/^#\?PermitRootLogin.*/PermitRootLogin yes/', "$targetdir/etc/ssh/sshd_config"]);
861a26d4
DM		 1603
1604 if ($setup->{product} eq 'pmg') {
1605 # install initial clamav DB
1606 my $srcdir = "${proxmox_cddir}/proxmox/clamav";
05eb99e2 1607 foreach my $fn ("main.cvd", "bytecode.cvd", "daily.cvd", "safebrowsing.cvd") {
71590b6a 1608 syscmd("cp \"$srcdir/$fn\" \"$targetdir/var/lib/clamav\"") == 0 ||
861a26d4
DM		 1609 die "installation of clamav db file '$fn' failed\n";
1610 }
1611 syscmd("chroot $targetdir /bin/chown clamav:clamav -R /var/lib/clamav") == 0 ||
1612 die "unable to set owner for clamav database files\n";
1613 }
1614
58a09baa
DM		 1615 if ($setup->{product} eq 'pve') {
1616 # save installer settings
1617 my $ucc = uc ($country);
1618 debconfig_set($targetdir, "pve-manager pve-manager/country string $ucc\n");
1619 }
89a12446 1620
71590b6a 1621 update_progress(0.8, 0.95, 1, "make system bootable");
89a12446 1622
5c06ced5 1623 if ($use_zfs) {
71590b6a 1624 syscmd("sed -i -e 's/^GRUB_CMDLINE_LINUX=.*/GRUB_CMDLINE_LINUX=\"root=ZFS=$zfspoolname\\/ROOT\\/$zfsrootvolname boot=zfs\"/' $targetdir/etc/default/grub") == 0 ||
5c06ced5 1625 die "unable to update /etc/default/grub\n";
4fb6ac60 1626
e38884af
SI		 1627 if ($boot_type eq 'efi') {
1628 write_config("root=ZFS=$zfspoolname/ROOT/$zfsrootvolname boot=zfs", "$targetdir/etc/kernel/cmdline");
1629 }
1464c7c9 1630
5c06ced5 1631 }
23c337f5 1632
71590b6a
OB		 1633 diversion_remove($targetdir, "/usr/sbin/update-grub");
1634 diversion_remove($targetdir, "/usr/sbin/update-initramfs");
89a12446 1635
56207f2a
DM		 1636 my $kapi;
1637 foreach my $fn (<$targetdir/lib/modules/*>) {
1638 if ($fn =~ m!/(\d+\.\d+\.\d+-\d+-pve)$!) {
1639 die "found multiple kernels\n" if defined($kapi);
1640 $kapi = $1;
1641 }
1642 }
1643 die "unable to detect kernel version\n" if !defined($kapi);
1644
c6ed3b24 1645 if (!$opt_testmode) {
89a12446
DM		 1646
1647 unlink ("$targetdir/etc/mtab");
1648 symlink ("/proc/mounts", "$targetdir/etc/mtab");
71590b6a 1649 syscmd("mount -n --bind /dev $targetdir/dev");
89a12446 1650
71590b6a 1651 syscmd("chroot $targetdir /usr/sbin/update-initramfs -c -k $kapi") == 0 ||
89a12446
DM		 1652 die "unable to install initramfs\n";
1653
c6ed3b24
DM		 1654 foreach my $di (@$bootdevinfo) {
1655 my $dev = $di->{devname};
71590b6a 1656 syscmd("chroot $targetdir /usr/sbin/grub-install --target i386-pc --no-floppy --bootloader-id='proxmox' $dev") == 0 ||
f810f5d0
DM		 1657 die "unable to install the i386-pc boot loader on '$dev'\n";
1658
597db5de
TL		 1659 if (my $esp = $di->{esp}) {
1660 if ($use_zfs) {
1661 prepare_systemd_boot_esp($esp, $targetdir);
1662 } else {
1663 prepare_grub_efi_boot_esp($dev, $esp, $targetdir);
5e0d6dce 1664 }
1e61f3d8 1665 }
c6ed3b24 1666 }
89a12446 1667
71590b6a 1668 syscmd("chroot $targetdir /usr/sbin/update-grub") == 0 ||
c6ed3b24 1669 die "unable to update boot loader config\n";
89a12446 1670
f2afc0fc
TL		 1671 if ($use_zfs && $boot_type eq 'efi') {
1672 syscmd("chroot $targetdir /etc/kernel/postinst.d/zz-pve-efiboot") == 0 ||
1673 die "unable to generate systemd-boot config\n";
1674 }
03c686b7 1675
71590b6a 1676 syscmd("umount $targetdir/dev");
89a12446
DM		 1677 }
1678
968fa90b 1679 # cleanup
89a12446 1680
89a12446
DM		 1681 unlink "$targetdir/usr/sbin/policy-rc.d";
1682
71590b6a 1683 diversion_remove($targetdir, "/sbin/start-stop-daemon");
89a12446
DM		 1684
1685 # set root password
968fa90b 1686 my $octets = encode("utf-8", $password);
71590b6a
OB		 1687 run_command("chroot $targetdir /usr/sbin/chpasswd", undef,
1688 "root:$octets\n");
7053f98b 1689
038552a1 1690 if ($setup->{product} eq 'pmg') {
038552a1 1691 # save admin email
71590b6a
OB		 1692 write_config("section: admin\n\temail ${mailto}\n",
1693 "$targetdir/etc/pmg/pmg.conf");
038552a1
DM		 1694
1695 } elsif ($setup->{product} eq 'pve') {
7053f98b 1696
8acc47b5 1697 # create pmxcfs DB
7053f98b 1698
8acc47b5
DM		 1699 my $tmpdir = "$targetdir/tmp/pve";
1700 mkdir $tmpdir;
7053f98b 1701
8acc47b5
DM		 1702 # write vnc keymap to datacenter.cfg
1703 my $vnckmap = $cmap->{kmap}->{$keymap}->{kvm} || 'en-us';
71590b6a
OB		 1704 write_config("keyboard: $vnckmap\n",
1705 "$tmpdir/datacenter.cfg");
968fa90b 1706
8acc47b5 1707 # save admin email
71590b6a
OB		 1708 write_config("user:root\@pam:1:0:::${mailto}::\n",
1709 "$tmpdir/user.cfg");
5fd81672 1710
8acc47b5 1711 # write storage.cfg
d8c697d4 1712 my $storage_cfg_fn = "$tmpdir/storage.cfg";
8acc47b5 1713 if ($use_zfs) {
71590b6a 1714 write_config($storage_cfg_zfs, $storage_cfg_fn);
8acc47b5 1715 } elsif ($use_btrfs) {
71590b6a 1716 write_config($storage_cfg_btrfs, $storage_cfg_fn);
e2c51d7c 1717 } elsif ($datadev) {
71590b6a 1718 write_config($storage_cfg_lvmthin, $storage_cfg_fn);
e2c51d7c 1719 } else {
71590b6a 1720 write_config($storage_cfg_local, $storage_cfg_fn);
8acc47b5 1721 }
7053f98b 1722
8acc47b5
DM		 1723 run_command("chroot $targetdir /usr/bin/create_pmxcfs_db /tmp/pve /var/lib/pve-cluster/config.db");
1724
71590b6a 1725 syscmd("rm -rf $tmpdir");
8acc47b5 1726 }
89a12446
DM		 1727 };
1728
1729 my $err = $@;
1730
71590b6a 1731 update_progress(1, 0, 1, "");
89a12446
DM		 1732
1733 print $err if $err;
1734
1735 if ($opt_testmode) {
121ebc59
DM		 1736 my $elapsed = Time::HiRes::tv_interval($starttime);
1737 print "Elapsed extract time: $elapsed\n";
1738
71590b6a 1739 syscmd("chroot $targetdir /usr/bin/dpkg-query -W --showformat='\${package}\n'> final.pkglist");
89a12446
DM		 1740 }
1741
8d7ddbde
TL		 1742 syscmd("umount $targetdir/run");
1743 syscmd("umount $targetdir/mnt/hostrun");
71590b6a
OB		 1744 syscmd("umount $targetdir/tmp");
1745 syscmd("umount $targetdir/proc");
f238dd03 1746 syscmd("umount $targetdir/sys/firmware/efi/efivars");
71590b6a 1747 syscmd("umount $targetdir/sys");
6fbd1fb1
DM		 1748
1749 if ($use_zfs) {
71590b6a 1750 syscmd("zfs umount -a") == 0 ||
6fbd1fb1
DM		 1751 die "unable to unmount zfs\n";
1752 } else {
71590b6a 1753 syscmd("umount -d $targetdir");
6fbd1fb1 1754 }
89a12446 1755
5c06ced5 1756 if (!$err && $use_zfs) {
71590b6a 1757 syscmd("zfs set sync=standard $zfspoolname") == 0 ||
481671c3
DM		 1758 die "unable to set zfs properties\n";
1759
71590b6a 1760 syscmd("zfs set mountpoint=/ $zfspoolname/ROOT/$zfsrootvolname") == 0 ||
5c06ced5 1761 die "zfs set mountpoint failed\n";
1464c7c9 1762
71590b6a 1763 syscmd("zpool set bootfs=$zfspoolname/ROOT/$zfsrootvolname $zfspoolname") == 0 ||
5c06ced5 1764 die "zfs set bootfs failed\n";
71590b6a 1765 syscmd("zpool export $zfspoolname");
5c06ced5
DM		 1766 }
1767
89a12446
DM		 1768 die $err if $err;
1769}
1770
550958aa
DM		 1771my $last_display_change = 0;
1772
1773my $display_info_counter = 0;
1774
1775my $display_info_items = [
1776 "extract1-license.htm",
1777 "extract2-rulesystem.htm",
1778 "extract3-spam.htm",
1779 "extract4-virus.htm",
1780 ];
1781
1782sub display_info {
1783
1784 my $min_display_time = 15;
1785
1786 my $ctime = time();
1787
1788 return if ($ctime - $last_display_change) < $min_display_time;
1789
1790 my $page = $display_info_items->[$display_info_counter % scalar(@$display_info_items)];
1791
1792 $display_info_counter++;
1793
1794 display_html($page);
1795}
1796
89a12446
DM		 1797sub display_html {
1798 my ($filename) = @_;
1799
201a5120
OB		 1800 $filename = $steps[$step_number]->{html} if !$filename;
1801
a04ac176 1802 my $path = "${proxmox_libdir}/html/$filename";
c437cef5 1803
8a50920c
DM		 1804 my $url = "file://$path";
1805
1806 my $data = file_get_contents($path);
1807
1808 if ($filename eq 'license.htm') {
93f25df9
TL		 1809 my $license = eval { decode('utf8', file_get_contents("${proxmox_cddir}/EULA")) };
1810 if (my $err = $@) {
1811 die $err if !$opt_testmode;
1812 $license = "TESTMODE: Ignore non existent EULA...\n";
1813 }
3c866639 1814 my $title = "END USER LICENSE AGREEMENT (EULA)";
f91c161b 1815 $data =~ s/__LICENSE__/$license/;
8a50920c
DM		 1816 $data =~ s/__LICENSE_TITLE__/$title/;
1817 }
1818
ed0e6aea 1819 $htmlview->load_html($data, $url);
550958aa
DM		 1820
1821 $last_display_change = time();
7becc472
DM		 1822}
1823
201a5120
OB		 1824sub prev_function {
1825
1826 my ($text, $fctn) = @_;
1827
1828 $fctn = $step_number if !$fctn;
1829 $text = "_Previous" if !$text;
451b1da5 1830 $prev_btn->set_label ($text);
201a5120
OB		 1831
1832 $step_number--;
1833 $steps[$step_number]->{function}();
1834
71590b6a 1835 $prev_btn->grab_focus();
201a5120
OB		 1836}
1837
89a12446
DM		 1838sub set_next {
1839 my ($text, $fctn) = @_;
1840
1841 $next_fctn = $fctn;
201a5120
OB		 1842 my $step = $steps[$step_number];
1843 $text //= $steps[$step_number]->{next_button} // '_Next';
71590b6a 1844 $next->set_label($text);
968fa90b 1845
71590b6a 1846 $next->grab_focus();
89a12446 1847}
89a12446
DM		 1848
1849sub create_main_window {
1850
71590b6a
OB		 1851 $window = Gtk3::Window->new();
1852 $window->set_default_size(1024, 768);
84761f93 1853 $window->set_has_resize_grip(0);
71590b6a 1854 $window->set_decorated(0) if !$opt_testmode;
89a12446 1855
71590b6a 1856 my $vbox = Gtk3::VBox->new(0, 0);
89a12446 1857
782b4acd
DM		 1858 my $logofn = "$setup->{product}-banner.png";
1859 my $image = Gtk3::Image->new_from_file("${proxmox_libdir}/$logofn");
71590b6a 1860 $vbox->pack_start($image, 0, 0, 0);
89a12446 1861
71590b6a
OB		 1862 my $hbox = Gtk3::HBox->new(0, 0);
1863 $vbox->pack_start($hbox, 1, 1, 0);
89a12446 1864
7becc472
DM		 1865 # my $f1 = Gtk3::Frame->new ('test');
1866 # $f1->set_shadow_type ('none');
1867 # $hbox->pack_start ($f1, 1, 1, 0);
89a12446 1868
71590b6a
OB		 1869 my $sep1 = Gtk3::HSeparator->new();
1870 $vbox->pack_start($sep1, 0, 0, 0);
89a12446 1871
71590b6a
OB		 1872 $cmdbox = Gtk3::HBox->new();
1873 $vbox->pack_start($cmdbox, 0, 0, 10);
89a12446 1874
71590b6a
OB		 1875 $next = Gtk3::Button->new('_Next');
1876 $next->signal_connect(clicked => sub { $last_display_change = 0; &$next_fctn (); });
1877 $cmdbox->pack_end($next, 0, 0, 10);
201a5120
OB		 1878
1879
71590b6a
OB		 1880 $prev_btn = Gtk3::Button->new('_Previous');
1881 $prev_btn->signal_connect(clicked => sub { $last_display_change = 0; &prev_function (); });
1882 $cmdbox->pack_end($prev_btn, 0, 0, 10);
201a5120
OB		 1883
1884
71590b6a
OB		 1885 my $abort = Gtk3::Button->new('_Abort');
1886 $abort->set_can_focus(0);
1887 $cmdbox->pack_start($abort, 0, 0, 10);
1888 $abort->signal_connect(clicked => sub { exit (-1); });
89a12446 1889
71590b6a
OB		 1890 my $vbox2 = Gtk3::VBox->new(0, 0);
1891 $hbox->add($vbox2);
89a12446 1892
ed0e6aea 1893 $htmlview = Gtk3::WebKit2::WebView->new();
7becc472
DM		 1894 my $scrolls = Gtk3::ScrolledWindow->new();
1895 $scrolls->add($htmlview);
1464c7c9 1896
71590b6a
OB		 1897 my $hbox2 = Gtk3::HBox->new(0, 0);
1898 $hbox2->pack_start($scrolls, 1, 1, 0);
89a12446 1899
71590b6a 1900 $vbox2->pack_start($hbox2, 1, 1, 0);
89a12446 1901
71590b6a
OB		 1902 my $vbox3 = Gtk3::VBox->new(0, 0);
1903 $vbox2->pack_start($vbox3, 0, 0, 0);
89a12446 1904
7becc472 1905 my $sep2 = Gtk3::HSeparator->new;
71590b6a 1906 $vbox3->pack_start($sep2, 0, 0, 0);
89a12446 1907
71590b6a
OB		 1908 $inbox = Gtk3::HBox->new(0, 0);
1909 $vbox3->pack_start($inbox, 0, 0, 0);
89a12446 1910
71590b6a 1911 $window->add($vbox);
89a12446
DM		 1912
1913 $window->show_all;
71590b6a 1914 $window->realize();
89a12446
DM		 1915}
1916
1464c7c9 1917sub cleanup_view {
d2120e51
DM		 1918 $inbox->foreach(sub {
1919 my $child = shift;
1464c7c9 1920 $inbox->remove ($child);
d2120e51 1921 });
89a12446
DM		 1922}
1923
aed81ff0
DM		 1924# fixme: newer GTK3 has special properties to handle numbers with Entry
1925# only allow floating point numbers with Gtk3::Entry
e73c5fcf 1926
aed81ff0
DM		 1927sub check_float {
1928 my ($entry, $event) = @_;
1929
e73c5fcf
FG		 1930 return check_number($entry, $event, 1);
1931}
1932
1933sub check_int {
1934 my ($entry, $event) = @_;
1935
1936 return check_number($entry, $event, 0);
1937}
1938
1939sub check_number {
1940 my ($entry, $event, $float) = @_;
aed81ff0
DM		 1941
1942 my $val = $event->get_keyval;
1943
e73c5fcf 1944 if (($float && $val == ord '.') ||
aed81ff0
DM		 1945 $val == Gtk3::Gdk::KEY_ISO_Left_Tab ||
1946 $val == Gtk3::Gdk::KEY_Shift_L ||
1947 $val == Gtk3::Gdk::KEY_Tab ||
1948 $val == Gtk3::Gdk::KEY_Left ||
1949 $val == Gtk3::Gdk::KEY_Right ||
1950 $val == Gtk3::Gdk::KEY_BackSpace ||
1951 $val == Gtk3::Gdk::KEY_Delete ||
1952 ($val >= ord '0' && $val <= ord '9') ||
1953 ($val >= Gtk3::Gdk::KEY_KP_0 &&
1954 $val <= Gtk3::Gdk::KEY_KP_9)) {
1955 return undef;
1956 }
1957
1958 return 1;
1959}
1960
d2120e51 1961sub create_text_input {
89a12446
DM		 1962 my ($default, $text) = @_;
1963
71590b6a 1964 my $hbox = Gtk3::HBox->new(0, 0);
89a12446 1965
71590b6a
OB		 1966 my $label = Gtk3::Label->new($text);
1967 $label->set_size_request(150, -1);
1968 $label->set_alignment(1, 0.5);
1969 $hbox->pack_start($label, 0, 0, 10);
1970 my $e1 = Gtk3::Entry->new();
1971 $e1->set_width_chars(30);
1972 $hbox->pack_start($e1, 0, 0, 0);
1973 $e1->set_text($default);
89a12446
DM		 1974
1975 return ($hbox, $e1);
1976}
1977
89a12446
DM		 1978sub get_ip_config {
1979
fe44bd92
FG		 1980 my $ifaces = {};
1981 my $default;
89a12446 1982
fe44bd92
FG		 1983 my $links = `ip -o l`;
1984 foreach my $l (split /\n/,$links) {
1985 my ($index, $name, $flags, $state, $mac) = $l =~ m/^(\d+):\s+(\S+):\s+<(\S+)>.*\s+state\s+(\S+)\s+.*\s+link\/ether\s+(\S+)\s+/;
1986 next if !$name || $name eq 'lo';
89a12446 1987
fe44bd92
FG		 1988 my $driver = readlink "/sys/class/net/$name/device/driver" || 'unknown';
1989 $driver =~ s!^.*/!!;
1990
1991 $ifaces->{"$index"} = {
1992 name => $name,
1993 driver => $driver,
1994 flags => $flags,
1995 state => $state,
1996 mac => $mac,
1997 };
1998
1999 my $addresses = `ip -o a s $name`;
2000 foreach my $a (split /\n/,$addresses) {
2001 my ($family, $ip, $prefix) = $a =~ m/^\Q$index\E:\s+\Q$name\E\s+(inet|inet6)\s+($IPRE)\/(\d+)\s+/;
2002 next if !$ip;
32b6fbcf 2003 next if $a =~ /scope\s+link/; # ignore link local
fe44bd92
FG		 2004
2005 my $mask = $prefix;
2006
2007 if ($family eq 'inet') {
2008 next if !$ip =~ /$IPV4RE/;
2009 next if $prefix < 8 || $prefix > 32;
2010 $mask = @$ipv4_reverse_mask[$prefix];
2011 } else {
2012 next if !$ip =~ /$IPV6RE/;
2013 }
2014
2015 $default = $index if !$default;
2016
2017 $ifaces->{"$index"}->{"$family"} = {
2018 mask => $mask,
2019 addr => $ip,
2020 };
2021 }
2022 }
2023
2024
2025 my $route = `ip route`;
2026 my ($gateway) = $route =~ m/^default\s+via\s+(\S+)\s+/m;
89a12446
DM		 2027
2028 my $resolvconf = `cat /etc/resolv.conf`;
2029 my ($dnsserver) = $resolvconf =~ m/^nameserver\s+(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/m;
713790a4 2030 my ($domain) = $resolvconf =~ m/^domain\s+(\S+)$/m;
89a12446
DM		 2031
2032 return {
fe44bd92
FG		 2033 default => $default,
2034 ifaces => $ifaces,
89a12446
DM		 2035 gateway => $gateway,
2036 dnsserver => $dnsserver,
713790a4 2037 domain => $domain,
89a12446
DM		 2038 }
2039}
2040
2041sub display_message {
2042 my ($msg) = @_;
2043
71590b6a
OB		 2044 my $dialog = Gtk3::MessageDialog->new($window, 'modal',
2045 'info', 'ok', $msg);
89a12446
DM		 2046 $dialog->run();
2047 $dialog->destroy();
2048}
2049
2050sub display_error {
2051 my ($msg) = @_;
2052
71590b6a
OB		 2053 my $dialog = Gtk3::MessageDialog->new($window, 'modal',
2054 'error', 'ok', $msg);
89a12446
DM		 2055 $dialog->run();
2056 $dialog->destroy();
2057}
2058
fe44bd92
FG		 2059my $ipconf_first_view = 1;
2060
89a12446
DM		 2061sub create_ipconf_view {
2062
201a5120
OB		 2063 cleanup_view();
2064 display_html();
89a12446 2065
71590b6a
OB		 2066 my $vbox = Gtk3::VBox->new(0, 0);
2067 $inbox->pack_start($vbox, 1, 0, 0);
2068 my $hbox = Gtk3::HBox->new(0, 0);
2069 $vbox->pack_start($hbox, 0, 0, 10);
2070 my $vbox2 = Gtk3::VBox->new(0, 0);
2071 $hbox->add($vbox2);
89a12446 2072
ebc4f76f 2073 my $ipaddr_text = $config->{ipaddress} // "192.168.100.2";
fe44bd92
FG		 2074 my $ipbox;
2075 ($ipbox, $ipconf_entry_addr) =
71590b6a 2076 create_text_input($ipaddr_text, 'IP Address:');
fe44bd92 2077
ebc4f76f 2078 my $netmask_text = $config->{netmask} // "255.255.255.0";
fe44bd92
FG		 2079 my $maskbox;
2080 ($maskbox, $ipconf_entry_mask) =
71590b6a 2081 create_text_input($netmask_text, 'Netmask:');
fe44bd92
FG		 2082
2083 my $device_cb = Gtk3::ComboBoxText->new();
2084 $device_cb->set_active(0);
2085 $device_cb->set_visible(1);
2086
2087 my $get_device_desc = sub {
2088 my $iface = shift;
2089 return "$iface->{name} - $iface->{mac} ($iface->{driver})";
2090 };
2091
2092 my $device_active_map = {};
ebc4f76f 2093 my $device_active_reverse_map = {};
5b6ba737
FG		 2094
2095 my $device_change_handler = sub {
2096 my $current = shift;
d6524c52
TL		 2097
2098 my $new = $device_active_map->{$current->get_active()};
cd2d2a27 2099 return if defined($ipconf->{selected}) && $new eq $ipconf->{selected};
d6524c52
TL		 2100
2101 $ipconf->{selected} = $new;
5b6ba737 2102 my $iface = $ipconf->{ifaces}->{$ipconf->{selected}};
ebc4f76f 2103 $config->{mngmt_nic} = $iface->{name};
5b6ba737
FG		 2104 $ipconf_entry_addr->set_text($iface->{inet}->{addr} || $iface->{inet6}->{addr})
2105 if $iface->{inet}->{addr} || $iface->{inet6}->{addr};
2106 $ipconf_entry_mask->set_text($iface->{inet}->{mask} || $iface->{inet6}->{mask})
2107 if $iface->{inet}->{mask} || $iface->{inet6}->{mask};
2108 };
2109
fe44bd92
FG		 2110 my $i = 0;
2111 foreach my $index (sort keys %{$ipconf->{ifaces}}) {
2112 $device_cb->append_text(&$get_device_desc($ipconf->{ifaces}->{$index}));
ebc4f76f
TL		 2113 $device_active_map->{$i} = $index;
2114 $device_active_reverse_map->{$ipconf->{ifaces}->{$index}->{name}} = $i;
fe44bd92
FG		 2115 if ($ipconf_first_view && $index == $ipconf->{default}) {
2116 $device_cb->set_active($i);
5b6ba737 2117 &$device_change_handler($device_cb);
fe44bd92
FG		 2118 $ipconf_first_view = 0;
2119 }
71590b6a 2120 $device_cb->signal_connect('changed' => $device_change_handler);
fe44bd92
FG		 2121 $i++;
2122 }
2123
ebc4f76f
TL		 2124 if (my $nic = $config->{mngmt_nic}) {
2125 $device_cb->set_active($device_active_reverse_map->{$nic} // 0);
2126 } else {
2127 $device_cb->set_active(0);
2128 }
5b6ba737 2129
71590b6a
OB		 2130 my $devicebox = Gtk3::HBox->new(0, 0);
2131 my $label = Gtk3::Label->new("Management Interface:");
2132 $label->set_size_request(150, -1);
2133 $label->set_alignment(1, 0.5);
2134 $devicebox->pack_start($label, 0, 0, 10);
2135 $devicebox->pack_start($device_cb, 0, 0, 0);
fe44bd92 2136
71590b6a 2137 $vbox2->pack_start($devicebox, 0, 0, 2);
968fa90b 2138
ebc4f76f 2139 my $hn = $config->{fqdn} // "$setup->{product}." . ($ipconf->{domain} // "example.invalid");
1464c7c9 2140
968fa90b 2141 my ($hostbox, $hostentry) =
71590b6a
OB		 2142 create_text_input($hn, 'Hostname (FQDN):');
2143 $vbox2->pack_start($hostbox, 0, 0, 2);
89a12446 2144
71590b6a 2145 $vbox2->pack_start($ipbox, 0, 0, 2);
89a12446 2146
71590b6a 2147 $vbox2->pack_start($maskbox, 0, 0, 2);
89a12446 2148
ebc4f76f 2149 $gateway = $config->{gateway} // $ipconf->{gateway} || '192.168.100.1';
89a12446
DM		 2150
2151 my $gwbox;
d2120e51 2152 ($gwbox, $ipconf_entry_gw) =
71590b6a 2153 create_text_input($gateway, 'Gateway:');
89a12446 2154
71590b6a 2155 $vbox2->pack_start($gwbox, 0, 0, 2);
89a12446 2156
ebc4f76f 2157 $dnsserver = $config->{dnsserver} // $ipconf->{dnsserver} || $gateway;
89a12446
DM		 2158
2159 my $dnsbox;
d2120e51 2160 ($dnsbox, $ipconf_entry_dns) =
71590b6a 2161 create_text_input($dnsserver, 'DNS Server:');
89a12446 2162
71590b6a 2163 $vbox2->pack_start($dnsbox, 0, 0, 0);
89a12446
DM		 2164
2165 $inbox->show_all;
71590b6a 2166 set_next(undef, sub {
d2120e51
DM		 2167
2168 # verify hostname
1464c7c9 2169
89a12446 2170 my $text = $hostentry->get_text();
968fa90b 2171
89a12446
DM		 2172 $text =~ s/^\s+//;
2173 $text =~ s/\s+$//;
2174
ebc4f76f
TL		 2175 $config->{fqdn} = $text;
2176
ac3757a9 2177 my $namere = "([a-zA-Z0-9]([a-zA-Z0-9\-]*[a-zA-Z0-9])?)";
968fa90b 2178
24973868
WB		 2179 # Debian does not support purely numeric hostnames
2180 if ($text && $text =~ /^[0-9]+(?:\.|$)/) {
2181 display_message("Purely numeric hostnames are not allowed.");
2182 $hostentry->grab_focus();
2183 return;
2184 }
2185
a39bc1f2 2186 if ($text && $text =~ m/^(${namere}\.)*${namere}$/ && $text !~ m/.example.invalid$/ &&
89a12446
DM		 2187 $text =~ m/^([^\.]+)\.(\S+)$/) {
2188 $hostname = $1;
2189 $domain = $2;
d2120e51 2190 } else {
71590b6a 2191 display_message("Hostname does not look like a fully qualified domain name.");
d2120e51 2192 $hostentry->grab_focus();
89a12446
DM		 2193 return;
2194 }
d2120e51
DM		 2195
2196 # verify ip address
2197
2198 $text = $ipconf_entry_addr->get_text();
2199 $text =~ s/^\s+//;
2200 $text =~ s/\s+$//;
2201 if ($text =~ m!^($IPV4RE)$!) {
2202 $ipaddress = $text;
b6200603
DM		 2203 $ipversion = 4;
2204 } elsif ($text =~ m!^($IPV6RE)$!) {
1464c7c9 2205 $ipaddress = $text;
b6200603 2206 $ipversion = 6;
d2120e51 2207 } else {
71590b6a 2208 display_message("IP address is not valid.");
d2120e51
DM		 2209 $ipconf_entry_addr->grab_focus();
2210 return;
2211 }
ebc4f76f 2212 $config->{ipaddress} = $ipaddress;
d2120e51
DM		 2213
2214 $text = $ipconf_entry_mask->get_text();
2215 $text =~ s/^\s+//;
2216 $text =~ s/\s+$//;
b6200603
DM		 2217 if (($ipversion == 6) && ($text =~ m/^(\d+)$/) && ($1 >= 8) && ($1 <= 126)) {
2218 $netmask = $text;
2219 } elsif (($ipversion == 4) && defined($ipv4_mask_hash->{$text})) {
d2120e51
DM		 2220 $netmask = $text;
2221 } else {
71590b6a 2222 display_message("Netmask is not valid.");
d2120e51
DM		 2223 $ipconf_entry_mask->grab_focus();
2224 return;
2225 }
ebc4f76f 2226 $config->{netmask} = $netmask;
d2120e51
DM		 2227
2228 $text = $ipconf_entry_gw->get_text();
2229 $text =~ s/^\s+//;
2230 $text =~ s/\s+$//;
b6200603
DM		 2231 if (($ipversion == 4) && ($text =~ m!^($IPV4RE)$!)) {
2232 $gateway = $text;
2233 } elsif (($ipversion == 6) && ($text =~ m!^($IPV6RE)$!)) {
d2120e51
DM		 2234 $gateway = $text;
2235 } else {
71590b6a 2236 display_message("Gateway is not valid.");
d2120e51
DM		 2237 $ipconf_entry_gw->grab_focus();
2238 return;
2239 }
ebc4f76f 2240 $config->{gateway} = $gateway;
1464c7c9 2241
d2120e51
DM		 2242 $text = $ipconf_entry_dns->get_text();
2243 $text =~ s/^\s+//;
2244 $text =~ s/\s+$//;
b6200603
DM		 2245 if (($ipversion == 4) && ($text =~ m!^($IPV4RE)$!)) {
2246 $dnsserver = $text;
2247 } elsif (($ipversion == 6) && ($text =~ m!^($IPV6RE)$!)) {
d2120e51
DM		 2248 $dnsserver = $text;
2249 } else {
71590b6a 2250 display_message("DNS server is not valid.");
d2120e51
DM		 2251 $ipconf_entry_dns->grab_focus();
2252 return;
2253 }
ebc4f76f 2254 $config->{dnsserver} = $dnsserver;
1464c7c9 2255
d2120e51 2256 #print "TEST $ipaddress $netmask $gateway $dnsserver\n";
1464c7c9 2257
201a5120 2258 $step_number++;
2e33c3f0 2259 create_ack_view();
89a12446
DM		 2260 });
2261
2262 $hostentry->grab_focus();
2263}
2264
2e33c3f0
OB		 2265sub create_ack_view {
2266
2267 cleanup_view();
2268
2269 my $ack_template = "${proxmox_libdir}/html/ack_template.htm";
2270 my $ack_html = "${proxmox_libdir}/html/$steps[$step_number]->{html}";
2271 my $html_data = file_get_contents($ack_template);
2272
2273 my %config_values = (
a7d40341 2274 __target_hd__ => join(' | ', @{$config_options->{target_hds}}),
0470018e 2275 __target_fs__ => $config_options->{filesys},
0ddd2227 2276 __country__ => $cmap->{country}->{$country}->{name},
2e33c3f0
OB		 2277 __timezone__ => $timezone,
2278 __keymap__ => $keymap,
2279 __mailto__ => $mailto,
2280 __interface__ => $ipconf->{ifaces}->{$ipconf->{selected}}->{name},
2281 __hostname__ => $hostname,
2282 __ip__ => $ipaddress,
2283 __netmask__ => $netmask,
2284 __gateway__ => $gateway,
2285 __dnsserver__ => $dnsserver,
2286 );
2287
2288 while ( my ($k, $v) = each %config_values) {
2289 $html_data =~ s/$k/$v/g;
2290 }
2291
2292 write_config($html_data, $ack_html);
2293
2294 display_html();
2295
2296 set_next(undef, sub {
2297 $step_number++;
2298 create_extract_view();
2299 });
2300}
2301
89a12446
DM		 2302sub get_device_desc {
2303 my ($devname, $size, $model) = @_;
2304
d2120e51 2305 if ($size && ($size > 0)) {
1bd457bb 2306 $size = int($size/2048); # size in MB, from 512B "sectors"
89a12446 2307
d2120e51 2308 my $text = "$devname (";
89a12446
DM		 2309 if ($size >= 1024) {
2310 $size = int($size/1024); # size in GB
d2120e51 2311 $text .= "${size}GB";
89a12446 2312 } else {
d2120e51 2313 $text .= "${size}MB";
89a12446
DM		 2314 }
2315
d2120e51
DM		 2316 $text .= ", $model" if $model;
2317 $text .= ")";
2318
89a12446
DM		 2319 } else {
2320 return $devname;
2321 }
2322}
2323
2324sub update_layout {
2325 my ($cb, $kmap) = @_;
2326
2327 my $ind;
2328 my $def;
2329 my $i = 0;
2330 my $kmaphash = $cmap->{kmaphash};
2331 foreach my $layout (sort keys %$kmaphash) {
2332 $def = $i if $kmaphash->{$layout} eq 'en-us';
2333 $ind = $i if $kmap && $kmaphash->{$layout} eq $kmap;
2334 $i++;
2335 }
2336
71590b6a 2337 $cb->set_active($ind || $def || 0);
89a12446
DM		 2338}
2339
2340my $lastzonecb;
2341sub update_zonelist {
2342 my ($box, $cc) = @_;
2343
2344 my $cczones = $cmap->{cczones};
2345 my $zones = $cmap->{zones};
2346
2347 my $sel;
2348 if ($lastzonecb) {
2349 $sel = $lastzonecb->get_active_text();
2350 $box->remove ($lastzonecb);
2351 } else {
2352 $sel = $timezone; # used once to select default
2353 }
2354
bcbfab6b 2355 my $cb = $lastzonecb = Gtk3::ComboBoxText->new();
71590b6a 2356 $cb->set_size_request(200, -1);
89a12446 2357
71590b6a 2358 $cb->signal_connect('changed' => sub {
89a12446
DM		 2359 $timezone = $cb->get_active_text();
2360 });
2361
2362 my @za;
2363 if ($cc && defined ($cczones->{$cc})) {
2364 @za = keys %{$cczones->{$cc}};
2365 } else {
2366 @za = keys %$zones;
2367 }
2368 my $ind;
2369 my $i = 0;
2370 foreach my $zone (sort @za) {
2371 $ind = $i if $sel && $zone eq $sel;
71590b6a 2372 $cb->append_text($zone);
89a12446
DM		 2373 $i++;
2374 }
2375
71590b6a 2376 $cb->set_active($ind || 0);
89a12446
DM		 2377
2378 $cb->show;
71590b6a 2379 $box->pack_start($cb, 0, 0, 0);
89a12446
DM		 2380}
2381
2382sub create_password_view {
2383
71590b6a 2384 cleanup_view();
89a12446 2385
71590b6a
OB		 2386 my $vbox2 = Gtk3::VBox->new(0, 0);
2387 $inbox->pack_start($vbox2, 1, 0, 0);
2388 my $vbox = Gtk3::VBox->new(0, 0);
2389 $vbox2->pack_start($vbox, 0, 0, 10);
2390
2391 my $hbox1 = Gtk3::HBox->new(0, 0);
2392 my $label = Gtk3::Label->new("Password");
2393 $label->set_size_request(150, -1);
2394 $label->set_alignment(1, 0.5);
2395 $hbox1->pack_start($label, 0, 0, 10);
2396 my $pwe1 = Gtk3::Entry->new();
2397 $pwe1->set_visibility(0);
201a5120 2398 $pwe1->set_text($password) if $password;
71590b6a
OB		 2399 $pwe1->set_size_request(200, -1);
2400 $hbox1->pack_start($pwe1, 0, 0, 0);
2401
2402 my $hbox2 = Gtk3::HBox->new(0, 0);
2403 $label = Gtk3::Label->new("Confirm");
2404 $label->set_size_request(150, -1);
2405 $label->set_alignment(1, 0.5);
2406 $hbox2->pack_start($label, 0, 0, 10);
2407 my $pwe2 = Gtk3::Entry->new();
2408 $pwe2->set_visibility(0);
201a5120 2409 $pwe2->set_text($password) if $password;
71590b6a
OB		 2410 $pwe2->set_size_request(200, -1);
2411 $hbox2->pack_start($pwe2, 0, 0, 0);
2412
2413 my $hbox3 = Gtk3::HBox->new(0, 0);
2414 $label = Gtk3::Label->new("E-Mail");
2415 $label->set_size_request(150, -1);
2416 $label->set_alignment(1, 0.5);
2417 $hbox3->pack_start($label, 0, 0, 10);
2418 my $eme = Gtk3::Entry->new();
2419 $eme->set_size_request(200, -1);
201a5120 2420 $eme->set_text($mailto);
71590b6a 2421 $hbox3->pack_start($eme, 0, 0, 0);
89a12446
DM		 2422
2423
71590b6a
OB		 2424 $vbox->pack_start($hbox1, 0, 0, 5);
2425 $vbox->pack_start($hbox2, 0, 0, 5);
2426 $vbox->pack_start($hbox3, 0, 0, 15);
89a12446
DM		 2427
2428 $inbox->show_all;
2429
201a5120 2430 display_html();
89a12446
DM		 2431
2432 set_next (undef, sub {
2433
2434 my $t1 = $pwe1->get_text;
2435 my $t2 = $pwe2->get_text;
2436
2437 if (length ($t1) < 5) {
71590b6a 2438 display_message("Password is too short.");
89a12446
DM		 2439 $pwe1->grab_focus();
2440 return;
2441 }
2442
2443 if ($t1 ne $t2) {
71590b6a 2444 display_message("Password does not match.");
89a12446
DM		 2445 $pwe1->grab_focus();
2446 return;
2447 }
2448
2449 my $t3 = $eme->get_text;
2450 if ($t3 !~ m/^\S+\@\S+\.\S+$/) {
71590b6a 2451 display_message("E-Mail does not look like a valid address" .
89a12446
DM		 2452 " (user\@domain.tld)");
2453 $eme->grab_focus();
2454 return;
a39bc1f2 2455 }
89a12446 2456
a39bc1f2 2457 if ($t3 eq 'mail@example.invalid') {
71590b6a 2458 display_message("Please enter a valid E-Mail address");
a39bc1f2
FG		 2459 $eme->grab_focus();
2460 return;
89a12446
DM		 2461 }
2462
2463 $password = $t1;
2464 $mailto = $t3;
2465
201a5120 2466 $step_number++;
89a12446
DM		 2467 create_ipconf_view();
2468 });
2469
2470 $pwe1->grab_focus();
2471
2472}
2473
2474sub create_country_view {
2475
71590b6a 2476 cleanup_view();
89a12446
DM		 2477
2478 my $countryhash = $cmap->{countryhash};
2479 my $ctr = $cmap->{country};
2480
71590b6a
OB		 2481 my $vbox2 = Gtk3::VBox->new(0, 0);
2482 $inbox->pack_start($vbox2, 1, 0, 0);
2483 my $vbox = Gtk3::VBox->new(0, 0);
2484 $vbox2->pack_start($vbox, 0, 0, 10);
89a12446 2485
71590b6a
OB		 2486 my $w = Gtk3::Entry->new();
2487 $w->set_size_request(200, -1);
89a12446 2488
71590b6a
OB		 2489 my $c = Gtk3::EntryCompletion->new();
2490 $c->set_text_column(0);
89a12446 2491 $c->set_minimum_key_length(0);
71590b6a
OB		 2492 $c->set_popup_set_width(1);
2493 $c->set_inline_completion(1);
2494
2495 my $hbox2 = Gtk3::HBox->new(0, 0);
2496 my $label = Gtk3::Label->new("Time zone");
2497 $label->set_size_request(150, -1);
2498 $label->set_alignment(1, 0.5);
2499 $hbox2->pack_start($label, 0, 0, 10);
89a12446
DM		 2500 update_zonelist ($hbox2);
2501
71590b6a
OB		 2502 my $hbox3 = Gtk3::HBox->new(0, 0);
2503 $label = Gtk3::Label->new("Keyboard Layout");
2504 $label->set_size_request(150, -1);
2505 $label->set_alignment(1, 0.5);
2506 $hbox3->pack_start($label, 0, 0, 10);
89a12446 2507
bcbfab6b 2508 my $kmapcb = Gtk3::ComboBoxText->new();
89a12446
DM		 2509 $kmapcb->set_size_request (200, -1);
2510 foreach my $layout (sort keys %{$cmap->{kmaphash}}) {
2511 $kmapcb->append_text ($layout);
2512 }
2513
71590b6a 2514 update_layout($kmapcb);
89a12446
DM		 2515 $hbox3->pack_start ($kmapcb, 0, 0, 0);
2516
2517 $kmapcb->signal_connect ('changed' => sub {
2518 my $sel = $kmapcb->get_active_text();
2519 if (my $kmap = $cmap->{kmaphash}->{$sel}) {
2520 my $xkmap = $cmap->{kmap}->{$kmap}->{x11};
2521 my $xvar = $cmap->{kmap}->{$kmap}->{x11var};
2522 syscmd ("setxkbmap $xkmap $xvar") if !$opt_testmode;
2523 $keymap = $kmap;
2524 }
2525 });
2526
2527 $w->signal_connect ('changed' => sub {
2528 my ($entry, $event) = @_;
2529 my $text = $entry->get_text;
2530
2531 if (my $cc = $countryhash->{lc($text)}) {
71590b6a 2532 update_zonelist($hbox2, $cc);
89a12446 2533 my $kmap = $ctr->{$cc}->{kmap} || 'en-us';
71590b6a 2534 update_layout($kmapcb, $kmap);
89a12446
DM		 2535 }
2536 });
2537
2538 $w->signal_connect (key_press_event => sub {
2539 my ($entry, $event) = @_;
2540 my $text = $entry->get_text;
2541
7becc472
DM		 2542 my $val = $event->get_keyval;
2543
2544 if ($val == Gtk3::Gdk::KEY_Tab) {
89a12446 2545 my $cc = $countryhash->{lc($text)};
1464c7c9 2546
89a12446
DM		 2547 my $found = 0;
2548 my $compl;
7becc472 2549
4443aa27
DM		 2550 if ($cc) {
2551 $found = 1;
2552 $compl = $ctr->{$cc}->{name};
2553 } else {
2554 foreach my $cc (keys %$ctr) {
2555 my $ct = $ctr->{$cc}->{name};
2556 if ($ct =~ m/^\Q$text\E.*$/i) {
2557 $found++;
2558 $compl = $ct;
2559 }
2560 last if $found > 1;
89a12446 2561 }
89a12446 2562 }
4443aa27 2563
89a12446 2564 if ($found == 1) {
7becc472 2565 $entry->set_text($compl);
3df718ea 2566 $c->complete();
89a12446
DM		 2567 return undef;
2568 } else {
7becc472
DM		 2569 #Gtk3::Gdk::beep();
2570 print chr(7); # beep ?
89a12446
DM		 2571 }
2572
3df718ea
DM		 2573 $c->complete();
2574
7becc472
DM		 2575 my $buf = $w->get_buffer();
2576 $buf->insert_text(-1, '', -1); # popup selection
2577
89a12446
DM		 2578 return 1;
2579 }
2580
2581 return undef;
2582 });
1464c7c9 2583
7becc472 2584 my $ls = Gtk3::ListStore->new('Glib::String');
89a12446
DM		 2585 foreach my $cc (sort {$ctr->{$a}->{name} cmp $ctr->{$b}->{name} } keys %$ctr) {
2586 my $iter = $ls->append();
2587 $ls->set ($iter, 0, $ctr->{$cc}->{name});
2588 }
2589 $c->set_model ($ls);
2590
968fa90b 2591 $w->set_completion ($c);
89a12446 2592
71590b6a 2593 my $hbox = Gtk3::HBox->new(0, 0);
89a12446 2594
71590b6a
OB		 2595 $label = Gtk3::Label->new("Country");
2596 $label->set_alignment(1, 0.5);
2597 $label->set_size_request(150, -1);
2598 $hbox->pack_start($label, 0, 0, 10);
2599 $hbox->pack_start($w, 0, 0, 0);
89a12446 2600
71590b6a
OB		 2601 $vbox->pack_start($hbox, 0, 0, 5);
2602 $vbox->pack_start($hbox2, 0, 0, 5);
2603 $vbox->pack_start($hbox3, 0, 0, 5);
89a12446 2604
9d1f1ee3 2605 if ($country && $ctr->{$country}) {
89a12446
DM		 2606 $w->set_text ($ctr->{$country}->{name});
2607 }
2608
2609 $inbox->show_all;
2610
201a5120 2611 display_html();
89a12446
DM		 2612 set_next (undef, sub {
2613
2614 my $text = $w->get_text;
2615
2616 if (my $cc = $countryhash->{lc($text)}) {
2617 $country = $cc;
201a5120 2618 $step_number++;
89a12446
DM		 2619 create_password_view();
2620 return;
2621 } else {
71590b6a 2622 display_message("Please select a country first.");
89a12446
DM		 2623 $w->grab_focus();
2624 }
2625 });
2626
2627 $w->grab_focus();
2628}
2629
c6ed3b24
DM		 2630my $target_hd_combo;
2631my $target_hd_label;
2632
bd3a2e26 2633my $hdoption_first_setup = 1;
c6ed3b24 2634
c7779156
FG		 2635my $create_basic_grid = sub {
2636 my $grid = Gtk3::Grid->new();
2637 $grid->set_visible(1);
2638 $grid->set_column_spacing(10);
2639 $grid->set_row_spacing(10);
2640 $grid->set_hexpand(1);
2641
2642 $grid->set_margin_start(5);
2643 $grid->set_margin_end(5);
2644 $grid->set_margin_top(5);
2645 $grid->set_margin_bottom(5);
2646
2647 return $grid;
2648};
2649
2650my $create_label_widget_grid = sub {
2651 my ($labeled_widgets) = @_;
2652
2653 my $grid = &$create_basic_grid();
2654 my $row = 0;
2655
2656 for (my $i = 0; $i < @$labeled_widgets; $i += 2) {
2657 my $widget = @$labeled_widgets[$i+1];
2658 my $label = Gtk3::Label->new(@$labeled_widgets[$i]);
2659 $label->set_visible(1);
2660 $label->set_alignment (1, 0.5);
2661 $grid->attach($label, 0, $row, 1, 1);
2662 $widget->set_visible(1);
2663 $grid->attach($widget, 1, $row, 1, 1);
2664 $row++;
2665 }
2666
2667 return $grid;
2668};
2669
2670my $create_raid_disk_grid = sub {
2671 my $disk_labeled_widgets = [];
2672 for (my $i = 0; $i < @$hds; $i++) {
2673 my $disk_selector = Gtk3::ComboBoxText->new();
2674 $disk_selector->append_text("-- do not use --");
2675 $disk_selector->set_active(0);
2676 $disk_selector->set_visible(1);
2677 foreach my $hd (@$hds) {
2678 my ($disk, $devname, $size, $model) = @$hd;
2679 $disk_selector->append_text(get_device_desc ($devname, $size, $model));
2680 $disk_selector->{pve_disk_id} = $i;
2681 $disk_selector->signal_connect (changed => sub {
2682 my $w = shift;
2683 my $diskid = $w->{pve_disk_id};
2684 my $a = $w->get_active - 1;
2685 $config_options->{"disksel${diskid}"} = ($a >= 0) ? $hds->[$a] : undef;
2686 });
2687 }
2688
bd3a2e26 2689 if ($hdoption_first_setup) {
c7779156
FG		 2690 $disk_selector->set_active ($i+1) if $hds->[$i];
2691 } else {
2692 my $hdind = 0;
2693 if (my $cur_hd = $config_options->{"disksel$i"}) {
2694 foreach my $hd (@$hds) {
2695 if (@$hd[1] eq @$cur_hd[1]) {
2696 $disk_selector->set_active($hdind+1);
2697 last;
2698 }
2699 $hdind++;
2700 }
2701 }
2702 }
2703
2704 push @$disk_labeled_widgets, "Harddisk $i", $disk_selector;
2705 }
2706
2707 my $scrolled_window = Gtk3::ScrolledWindow->new();
2708 $scrolled_window->set_hexpand(1);
650a9aab 2709 $scrolled_window->set_propagate_natural_height(1) if @$hds > 4;
c7779156
FG		 2710 $scrolled_window->add(&$create_label_widget_grid($disk_labeled_widgets));
2711 $scrolled_window->set_policy('never', 'automatic');
2712
2713 return $scrolled_window;
2714# &$create_label_widget_grid($disk_labeled_widgets)
2715};
2716
d7fe65ff
TL		 2717# shared between different ui parts (e.g., ZFS and "normal" single disk FS)
2718my $hdsize_size_adj;
2719my $hdsize_entry_buffer;
2720
2721my $get_hdsize_spinbtn = sub {
2722 my $hdsize = shift;
754abb44 2723
93c8fdb0
SI		 2724 $hdsize_entry_buffer //= Gtk3::EntryBuffer->new(undef, 1);
2725
2726 if (defined($hdsize)) {
d7fe65ff 2727 $hdsize_size_adj = Gtk3::Adjustment->new($config_options->{hdsize} || $hdsize, 0, $hdsize+1, 1, 1, 1);
93c8fdb0
SI		 2728 } else {
2729 die "called get_hdsize_spinbtn with \$hdsize_size_adj not defined but did not pass hdsize!\n"
2730 if !defined($hdsize_size_adj);
d7fe65ff
TL		 2731 }
2732
2733 my $spinbutton_hdsize = Gtk3::SpinButton->new($hdsize_size_adj, 1, 1);
2734 $spinbutton_hdsize->set_buffer($hdsize_entry_buffer);
6039e2f1 2735 $spinbutton_hdsize->set_adjustment($hdsize_size_adj);
d7fe65ff
TL		 2736 $spinbutton_hdsize->set_tooltip_text("only use specified size (GB) of the harddisk (rest left unpartitioned)");
2737 return $spinbutton_hdsize;
2738};
2739
c7779156
FG		 2740my $create_raid_advanced_grid = sub {
2741 my $labeled_widgets = [];
6c99667a
FG		 2742 my $spinbutton_ashift = Gtk3::SpinButton->new_with_range(9,13,1);
2743 $spinbutton_ashift->set_tooltip_text("zpool ashift property (pool sector size, default 2^12)");
2744 $spinbutton_ashift->signal_connect ("value-changed" => sub {
2745 my $w = shift;
2746 $config_options->{ashift} = $w->get_value_as_int();
c7779156
FG		 2747 });
2748 $config_options->{ashift} = 12 if ! defined($config_options->{ashift});
6c99667a 2749 $spinbutton_ashift->set_value($config_options->{ashift});
c7779156 2750 push @$labeled_widgets, "ashift";
6c99667a 2751 push @$labeled_widgets, $spinbutton_ashift;
c7779156
FG		 2752
2753 my $combo_compress = Gtk3::ComboBoxText->new();
2754 $combo_compress->set_tooltip_text("zfs compression algorithm for rpool dataset");
2755 # note: gzip / lze not allowed for bootfs vdevs
2756 my $comp_opts = ["on","off","lzjb","lz4"];
2757 foreach my $opt (@$comp_opts) {
2758 $combo_compress->append($opt, $opt);
2759 }
2760 $config_options->{compress} = "on" if !defined($config_options->{compress});
2761 $combo_compress->set_active_id($config_options->{compress});
2762 $combo_compress->signal_connect (changed => sub {
2763 my $w = shift;
2764 $config_options->{compress} = $w->get_active_text();
2765 });
2766 push @$labeled_widgets, "compress";
2767 push @$labeled_widgets, $combo_compress;
2768
2769 my $combo_checksum = Gtk3::ComboBoxText->new();
2770 $combo_checksum->set_tooltip_text("zfs checksum algorithm for rpool dataset");
2771 my $csum_opts = ["on", "off","fletcher2", "fletcher4", "sha256"];
2772 foreach my $opt (@$csum_opts) {
2773 $combo_checksum->append($opt, $opt);
2774 }
2775 $config_options->{checksum} = "on" if !($config_options->{checksum});
2776 $combo_checksum->set_active_id($config_options->{checksum});
2777 $combo_checksum->signal_connect (changed => sub {
2778 my $w = shift;
2779 $config_options->{checksum} = $w->get_active_text();
2780 });
2781 push @$labeled_widgets, "checksum";
2782 push @$labeled_widgets, $combo_checksum;
2783
2784 my $spinbutton_copies = Gtk3::SpinButton->new_with_range(1,3,1);
2785 $spinbutton_copies->set_tooltip_text("zfs copies property for rpool dataset (in addition to RAID redundancy!)");
2786 $spinbutton_copies->signal_connect ("value-changed" => sub {
2787 my $w = shift;
2788 $config_options->{copies} = $w->get_value_as_int();
c7779156
FG		 2789 });
2790 $config_options->{copies} = 1 if !defined($config_options->{copies});
2791 $spinbutton_copies->set_value($config_options->{copies});
2792 push @$labeled_widgets, "copies", $spinbutton_copies;
2793
d7fe65ff 2794 push @$labeled_widgets, "hdsize", $get_hdsize_spinbtn->();
c7779156
FG		 2795 return &$create_label_widget_grid($labeled_widgets);;
2796};
2797
aed81ff0
DM		 2798sub create_hdoption_view {
2799
2800 my $dialog = Gtk3::Dialog->new();
2801
2802 $dialog->set_title("Harddisk options");
2803
2804 $dialog->add_button("_OK", 1);
2805
2806 my $contarea = $dialog->get_content_area();
2807
2808 my $hbox2 = Gtk3::Box->new('horizontal', 0);
2809 $contarea->pack_start($hbox2, 1, 1, 10);
2810
2811 my $grid = Gtk3::Grid->new();
2812 $grid->set_column_spacing(10);
2813 $grid->set_row_spacing(10);
1464c7c9 2814
aed81ff0 2815 $hbox2->pack_start($grid, 1, 0, 10);
c6ed3b24
DM		 2816
2817 my $row = 0;
2818
aed81ff0
DM		 2819 # Filesystem type
2820
71590b6a 2821 my $label0 = Gtk3::Label->new("Filesystem");
aed81ff0 2822 $label0->set_alignment (1, 0.5);
c6ed3b24 2823 $grid->attach($label0, 0, $row, 1, 1);
1464c7c9 2824
bcbfab6b 2825 my $fstypecb = Gtk3::ComboBoxText->new();
aed81ff0 2826
121ebc59
DM		 2827 my $fstype = ['ext3', 'ext4', 'xfs',
2828 'zfs (RAID0)', 'zfs (RAID1)',
2829 'zfs (RAID10)', 'zfs (RAIDZ-1)',
6f52fc3d
DM		 2830 'zfs (RAIDZ-2)', 'zfs (RAIDZ-3)'];
2831
2832 push @$fstype, 'btrfs (RAID0)', 'btrfs (RAID1)', 'btrfs (RAID10)'
c20d6ab0 2833 if $setup->{enable_btrfs};
aed81ff0 2834
c6ed3b24
DM		 2835 my $tcount = 0;
2836 foreach my $tmp (@$fstype) {
2837 $fstypecb->append_text($tmp);
2838 $fstypecb->set_active ($tcount)
2839 if $config_options->{filesys} eq $tmp;
2840 $tcount++;
2841 }
2842
2843 $grid->attach($fstypecb, 1, $row, 1, 1);
2844
2845 $hbox2->show_all();
2846
2847 $row++;
2848
c7779156
FG		 2849 my $sep = Gtk3::HSeparator->new();
2850 $sep->set_visible(1);
2851 $grid->attach($sep, 0, $row, 2, 1);
2852 $row++;
aed81ff0 2853
f0a0d90b
TL		 2854 my $hw_raid_note = Gtk3::Label->new("Note: ZFS is not compatible with disks backed by a hardware RAID controller. For details see the reference documentation.");
2855 $hw_raid_note->set_line_wrap(1);
2856 $hw_raid_note->set_max_width_chars(30);
f0a0d90b
TL		 2857 $hw_raid_note->set_visible(0);
2858 $grid->attach($hw_raid_note, 0, $row++, 2, 1);
2859
c7779156 2860 my $hdsize_labeled_widgets = [];
aed81ff0 2861
c7779156 2862 # size compute
c6ed3b24 2863 my $hdsize = 0;
aed81ff0
DM		 2864 if ( -b $target_hd) {
2865 $hdsize = int(hd_size ($target_hd) / (1024*1024.0)); # size in GB
c6ed3b24 2866 } elsif ($target_hd) {
aed81ff0
DM		 2867 $hdsize = int((-s $target_hd) / (1024*1024*1024.0));
2868 }
2869
d7fe65ff 2870 my $spinbutton_hdsize = $get_hdsize_spinbtn->($hdsize);
c7779156 2871 push @$hdsize_labeled_widgets, "hdsize", $spinbutton_hdsize;
aed81ff0
DM		 2872
2873 my $entry_swapsize = Gtk3::Entry->new();
2874 $entry_swapsize->set_tooltip_text("maximum SWAP size (GB)");
2875 $entry_swapsize->signal_connect (key_press_event => \&check_float);
9bb301fb 2876 $entry_swapsize->set_text($config_options->{swapsize}) if defined($config_options->{swapsize});
c7779156 2877 push @$hdsize_labeled_widgets, "swapsize", $entry_swapsize;
aed81ff0
DM		 2878
2879 my $entry_maxroot = Gtk3::Entry->new();
0adc7ca0
DM		 2880 if ($setup->{product} eq 'pve') {
2881 $entry_maxroot->set_tooltip_text("maximum size (GB) for LVM root volume");
2882 $entry_maxroot->signal_connect (key_press_event => \&check_float);
2883 $entry_maxroot->set_text($config_options->{maxroot}) if $config_options->{maxroot};
2884 push @$hdsize_labeled_widgets, "maxroot", $entry_maxroot;
2885 }
aed81ff0
DM		 2886
2887 my $entry_minfree = Gtk3::Entry->new();
034f75e4 2888 $entry_minfree->set_tooltip_text("minimum free LVM space (GB, required for LVM snapshots)");
aed81ff0 2889 $entry_minfree->signal_connect (key_press_event => \&check_float);
e093944c 2890 $entry_minfree->set_text($config_options->{minfree}) if defined($config_options->{minfree});
c7779156 2891 push @$hdsize_labeled_widgets, "minfree", $entry_minfree;
aed81ff0 2892
b6e875ca
DM		 2893 my $entry_maxvz;
2894 if ($setup->{product} eq 'pve') {
2895 $entry_maxvz = Gtk3::Entry->new();
2896 $entry_maxvz->set_tooltip_text("maximum size (GB) for LVM data volume");
2897 $entry_maxvz->signal_connect (key_press_event => \&check_float);
2ba9752e 2898 $entry_maxvz->set_text($config_options->{maxvz}) if defined($config_options->{maxvz});
b6e875ca
DM		 2899 push @$hdsize_labeled_widgets, "maxvz", $entry_maxvz;
2900 }
c7779156
FG		 2901
2902 my $options_stack = Gtk3::Stack->new();
2903 $options_stack->set_visible(1);
2904 $options_stack->set_hexpand(1);
2905 $options_stack->set_vexpand(1);
2906 $options_stack->add_titled(&$create_raid_disk_grid(), "raiddisk", "Disk Setup");
2907 $options_stack->add_titled(&$create_label_widget_grid($hdsize_labeled_widgets), "hdsize", "Size Options");
2908 $options_stack->add_titled(&$create_raid_advanced_grid("zfs"), "raidzfsadvanced", "Advanced Options");
2909 $options_stack->set_visible_child_name("raiddisk");
2910 my $options_stack_switcher = Gtk3::StackSwitcher->new();
2911 $options_stack_switcher->set_halign('center');
2912 $options_stack_switcher->set_stack($options_stack);
2913 $grid->attach($options_stack_switcher, 0, $row, 2, 1);
2914 $row++;
2915 $grid->attach($options_stack, 0, $row, 2, 1);
c6ed3b24 2916 $row++;
aed81ff0 2917
bd3a2e26 2918 $hdoption_first_setup = 0;
c7779156
FG		 2919
2920 my $switch_view = sub {
2921 my $raid = $config_options->{filesys} =~ m/zfs|btrfs/;
2922 my $enable_zfs_opts = $config_options->{filesys} =~ m/zfs/;
c6ed3b24 2923
c7779156
FG		 2924 $target_hd_combo->set_visible(!$raid);
2925 $options_stack->get_child_by_name("hdsize")->set_visible(!$raid);
2926 $options_stack->get_child_by_name("raiddisk")->set_visible($raid);
f0a0d90b 2927 $hw_raid_note->set_visible($raid);
c7779156
FG		 2928 $options_stack_switcher->set_visible($enable_zfs_opts);
2929 $options_stack->get_child_by_name("raidzfsadvanced")->set_visible($enable_zfs_opts);
2930 if ($raid) {
c6ed3b24 2931 $target_hd_label->set_text("Target: $config_options->{filesys} ");
c7779156 2932 $options_stack->set_visible_child_name("raiddisk");
c6ed3b24 2933 } else {
c6ed3b24
DM		 2934 $target_hd_label->set_text("Target Harddisk: ");
2935 }
c7779156
FG		 2936 my (undef, $pref_width) = $dialog->get_preferred_width();
2937 my (undef, $pref_height) = $dialog->get_preferred_height();
650a9aab 2938 $pref_height = 750 if $pref_height > 750;
c7779156 2939 $dialog->resize($pref_width, $pref_height);
f7b853d1
DM		 2940 };
2941
c7779156 2942 &$switch_view();
f7b853d1
DM		 2943
2944 $fstypecb->signal_connect (changed => sub {
2945 $config_options->{filesys} = $fstypecb->get_active_text();
c7779156 2946 &$switch_view();
f7b853d1
DM		 2947 });
2948
95844cc6
TL		 2949 my $sep2 = Gtk3::HSeparator->new();
2950 $sep2->set_visible(1);
2951 $contarea->pack_end($sep2, 1, 1, 10);
2952
c6ed3b24 2953 $dialog->show();
aed81ff0
DM		 2954
2955 $dialog->run();
2956
2957 my $get_float = sub {
2958 my ($entry) = @_;
2959
2960 my $text = $entry->get_text();
2961 return undef if !defined($text);
2962
2963 $text =~ s/^\s+//;
2964 $text =~ s/\s+$//;
2965
2966 return undef if $text !~ m/^\d+(\.\d+)?$/;
2967
2968 return $text;
2969 };
2970
2971 my $tmp;
2972
2973 if (($tmp = &$get_float($spinbutton_hdsize)) && ($tmp != $hdsize)) {
2974 $config_options->{hdsize} = $tmp;
2975 } else {
2976 delete $config_options->{hdsize};
2977 }
2978
2979 if (defined($tmp = &$get_float($entry_swapsize))) {
2980 $config_options->{swapsize} = $tmp;
2981 } else {
2982 delete $config_options->{swapsize};
2983 }
2984
2985 if (defined($tmp = &$get_float($entry_maxroot))) {
2986 $config_options->{maxroot} = $tmp;
2987 } else {
2988 delete $config_options->{maxroot};
2989 }
2990
2991 if (defined($tmp = &$get_float($entry_minfree))) {
2992 $config_options->{minfree} = $tmp;
2993 } else {
2994 delete $config_options->{minfree};
2995 }
2996
b6e875ca 2997 if ($entry_maxvz && defined($tmp = &$get_float($entry_maxvz))) {
aed81ff0
DM		 2998 $config_options->{maxvz} = $tmp;
2999 } else {
3000 delete $config_options->{maxvz};
3001 }
3002
3003 $dialog->destroy();
3004}
3005
121ebc59 3006my $get_raid_devlist = sub {
c6ed3b24
DM		 3007
3008 my $dev_name_hash = {};
3009
3010 my $devlist = [];
5f8e86d5 3011 for (my $i = 0; $i < @$hds; $i++) {
c6ed3b24
DM		 3012 if (my $hd = $config_options->{"disksel$i"}) {
3013 my ($disk, $devname, $size, $model) = @$hd;
1464c7c9 3014 die "device '$devname' is used more than once\n"
c6ed3b24
DM		 3015 if $dev_name_hash->{$devname};
3016 $dev_name_hash->{$devname} = $hd;
3017 push @$devlist, $hd;
3018 }
3019 }
3020
121ebc59
DM		 3021 return $devlist;
3022};
3023
14aacec8
FG		 3024sub zfs_mirror_size_check {
3025 my ($expected, $actual) = @_;
3026
3027 die "mirrored disks must have same size\n"
3028 if abs($expected - $actual) > $expected / 10;
3029}
3030
121ebc59
DM		 3031sub get_zfs_raid_setup {
3032
3033 my $filesys = $config_options->{filesys};
3034
3035 my $devlist = &$get_raid_devlist();
3036
224bb7b0 3037 my $diskcount = scalar(@$devlist);
0cfa502c 3038 die "$filesys needs at least one device\n" if $diskcount < 1;
c6ed3b24 3039
121ebc59
DM		 3040 my $bootdevlist = [];
3041
c6ed3b24
DM		 3042 my $cmd= '';
3043 if ($filesys eq 'zfs (RAID0)') {
3044 push @$bootdevlist, @$devlist[0];
3045 foreach my $hd (@$devlist) {
3046 $cmd .= " @$hd[1]";
3047 }
3048 } elsif ($filesys eq 'zfs (RAID1)') {
0cfa502c 3049 die "zfs (RAID1) needs at least 2 device\n" if $diskcount < 2;
c6ed3b24 3050 $cmd .= ' mirror ';
269c66a6 3051 my $hd = @$devlist[0];
14aacec8 3052 my $expected_size = @$hd[2]; # all disks need approximately same size
269c66a6 3053 foreach $hd (@$devlist) {
14aacec8 3054 zfs_mirror_size_check($expected_size, @$hd[2]);
c6ed3b24
DM		 3055 $cmd .= " @$hd[1]";
3056 push @$bootdevlist, $hd;
3057 }
3058 } elsif ($filesys eq 'zfs (RAID10)') {
0cfa502c 3059 die "zfs (RAID10) needs at least 4 device\n" if $diskcount < 4;
b8f4f0f9 3060 die "zfs (RAID10) needs an even number of devices\n" if $diskcount & 1;
1464c7c9 3061
c6ed3b24
DM		 3062 push @$bootdevlist, @$devlist[0], @$devlist[1];
3063
224bb7b0 3064 for (my $i = 0; $i < $diskcount; $i+=2) {
c6ed3b24
DM		 3065 my $hd1 = @$devlist[$i];
3066 my $hd2 = @$devlist[$i+1];
14aacec8 3067 zfs_mirror_size_check(@$hd1[2], @$hd2[2]); # pairs need approximately same size
c6ed3b24
DM		 3068 $cmd .= ' mirror ' . @$hd1[1] . ' ' . @$hd2[1];
3069 }
3070
3071 } elsif ($filesys =~ m/^zfs \(RAIDZ-([123])\)$/) {
3072 my $level = $1;
3073 my $mindisks = 2 + $level;
0cfa502c 3074 die "zfs (RAIDZ-$level) needs at least $mindisks devices\n" if scalar(@$devlist) < $mindisks;
269c66a6 3075 my $hd = @$devlist[0];
14aacec8 3076 my $expected_size = @$hd[2]; # all disks need approximately same size
097ecf8f 3077 $cmd .= " raidz$level";
269c66a6 3078 foreach $hd (@$devlist) {
14aacec8 3079 zfs_mirror_size_check($expected_size, @$hd[2]);
c6ed3b24
DM		 3080 $cmd .= " @$hd[1]";
3081 push @$bootdevlist, $hd;
3082 }
3083 } else {
3084 die "unknown zfs mode '$filesys'\n";
3085 }
3086
3087 return ($devlist, $bootdevlist, $cmd);
3088}
3089
121ebc59
DM		 3090sub get_btrfs_raid_setup {
3091
3092 my $filesys = $config_options->{filesys};
3093
3094 my $devlist = &$get_raid_devlist();
3095
3096 my $diskcount = scalar(@$devlist);
0cfa502c 3097 die "$filesys needs at least one device\n" if $diskcount < 1;
121ebc59
DM		 3098
3099 my $mode;
3100
3101 if ($diskcount == 1) {
3102 $mode = 'single';
3103 } else {
3104 if ($filesys eq 'btrfs (RAID0)') {
3105 $mode = 'raid0';
3106 } elsif ($filesys eq 'btrfs (RAID1)') {
0cfa502c 3107 die "btrfs (RAID1) needs at least 2 device\n" if $diskcount < 2;
121ebc59
DM		 3108 $mode = 'raid1';
3109 } elsif ($filesys eq 'btrfs (RAID10)') {
0cfa502c 3110 die "btrfs (RAID10) needs at least 4 device\n" if $diskcount < 4;
121ebc59
DM		 3111 $mode = 'raid10';
3112 } else {
9d69f3d3 3113 die "unknown btrfs mode '$filesys'\n";
121ebc59
DM		 3114 }
3115 }
3116
3117 return ($devlist, $mode);
3118}
3119
218a4b6b 3120my $last_hd_selected = 0;
89a12446
DM		 3121sub create_hdsel_view {
3122
451b1da5 3123 $prev_btn->set_sensitive(1); # enable previous button at this point
201a5120 3124
71590b6a 3125 cleanup_view();
89a12446 3126
71590b6a
OB		 3127 my $vbox = Gtk3::VBox->new(0, 0);
3128 $inbox->pack_start($vbox, 1, 0, 0);
3129 my $hbox = Gtk3::HBox->new(0, 0);
3130 $vbox->pack_start($hbox, 0, 0, 10);
968fa90b 3131
89a12446 3132 my ($disk, $devname, $size, $model) = @{@$hds[0]};
9227a70f 3133 $target_hd = $devname if !defined($target_hd);
89a12446 3134
71590b6a
OB		 3135 $target_hd_label = Gtk3::Label->new("Target Harddisk: ");
3136 $hbox->pack_start($target_hd_label, 0, 0, 0);
89a12446 3137
bcbfab6b 3138 $target_hd_combo = Gtk3::ComboBoxText->new();
89a12446 3139
1aa5bd02
DM		 3140 foreach my $hd (@$hds) {
3141 ($disk, $devname, $size, $model) = @$hd;
71590b6a 3142 $target_hd_combo->append_text (get_device_desc($devname, $size, $model));
1aa5bd02 3143 }
89a12446 3144
90af1603
OB		 3145 my $raid = $config_options->{filesys} =~ m/zfs|btrfs/;
3146 if ($raid) {
3147 $target_hd_label->set_text("Target: $config_options->{filesys} ");
3148 $target_hd_combo->set_visible(0);
3149 $target_hd_combo->set_no_show_all(1);
3150 }
218a4b6b 3151 $target_hd_combo->set_active($last_hd_selected);
71590b6a 3152 $target_hd_combo->signal_connect(changed => sub {
1aa5bd02
DM		 3153 $a = shift->get_active;
3154 my ($disk, $devname) = @{@$hds[$a]};
3b959bef 3155 $last_hd_selected = $a;
1aa5bd02 3156 $target_hd = $devname;
1aa5bd02 3157 });
1464c7c9 3158
71590b6a 3159 $hbox->pack_start($target_hd_combo, 0, 0, 10);
aed81ff0 3160
71590b6a 3161 my $options = Gtk3::Button->new('_Options');
aed81ff0
DM		 3162 $options->signal_connect (clicked => \&create_hdoption_view);
3163 $hbox->pack_start ($options, 0, 0, 0);
3164
89a12446
DM		 3165
3166 $inbox->show_all;
3167
201a5120 3168 display_html();
c6ed3b24 3169
71590b6a 3170 set_next(undef, sub {
c6ed3b24
DM		 3171
3172 if ($config_options->{filesys} =~ m/zfs/) {
a7d40341 3173 my ($devlist) = eval { get_zfs_raid_setup() };
c6ed3b24 3174 if (my $err = $@) {
303dfb2c
TL		 3175 display_message("Warning: $err\nPlease fix ZFS setup first.");
3176 return;
c6ed3b24 3177 }
303dfb2c 3178 $config_options->{target_hds} = [ map { $_->[1] } @$devlist ];
121ebc59 3179 } elsif ($config_options->{filesys} =~ m/btrfs/) {
a7d40341 3180 my ($devlist) = eval { get_btrfs_raid_setup() };
121ebc59 3181 if (my $err = $@) {
303dfb2c
TL		 3182 display_message("Warning: $err\nPlease fix BTRFS setup first.");
3183 return;
121ebc59 3184 }
303dfb2c 3185 $config_options->{target_hds} = [ map { $_->[1] } @$devlist ];
c6ed3b24 3186 } else {
a7d40341 3187 $config_options->{target_hds} = [ $target_hd ];
c6ed3b24 3188 }
303dfb2c
TL		 3189
3190 $step_number++;
3191 create_country_view();
c6ed3b24 3192 });
89a12446
DM		 3193}
3194
3195sub create_extract_view {
3196
71590b6a 3197 cleanup_view();
89a12446 3198
550958aa
DM		 3199 display_info();
3200
201a5120 3201 $next->set_sensitive(0);
ac3ee85b
TL		 3202 $prev_btn->set_sensitive(0);
3203 $prev_btn->hide();
89a12446 3204
71590b6a 3205 my $vbox = Gtk3::VBox->new(0, 0);
89a12446 3206 $inbox->pack_start ($vbox, 1, 0, 0);
71590b6a 3207 my $hbox = Gtk3::HBox->new(0, 0);
53986d77 3208 $vbox->pack_start ($hbox, 0, 0, 10);
89a12446 3209
71590b6a 3210 my $vbox2 = Gtk3::VBox->new(0, 0);
89a12446
DM		 3211 $hbox->pack_start ($vbox2, 0, 0, 0);
3212
71590b6a 3213 $progress_status = Gtk3::Label->new('');
89a12446 3214 $vbox2->pack_start ($progress_status, 1, 1, 0);
968fa90b 3215
7becc472 3216 $progress = Gtk3::ProgressBar->new;
45feca6f 3217 $progress->set_show_text(1);
7becc472 3218 $progress->set_size_request (600, -1);
89a12446 3219
71590b6a 3220 $vbox2->pack_start($progress, 0, 0, 0);
89a12446 3221
201a5120 3222 $inbox->show_all();
89a12446
DM		 3223
3224 my $tdir = $opt_testmode ? "target" : "/target";
3225 mkdir $tdir;
97980bf2 3226 my $base = "${proxmox_cddir}/$setup->{product}-base.squashfs";
89a12446 3227
71590b6a 3228 eval { extract_data($base, $tdir); };
89a12446
DM		 3229 my $err = $@;
3230
201a5120 3231 $next->set_sensitive(1);
89a12446 3232
71590b6a 3233 set_next("_Reboot", sub { exit (0); } );
89a12446 3234
296cf41f 3235 if ($err) {
201a5120
OB		 3236 display_html("fail.htm");
3237 display_error($err);
296cf41f 3238 } else {
201a5120
OB		 3239 cleanup_view();
3240 display_html("success.htm");
296cf41f 3241 }
89a12446
DM		 3242}
3243
89a12446
DM		 3244sub create_intro_view {
3245
451b1da5 3246 $prev_btn->set_sensitive(0);
201a5120
OB		 3247
3248 cleanup_view();
89a12446 3249
ca951e77 3250 if (int($total_memory) < 1024) {
18a9811e
TL		 3251 my $fullname = $product_fullname->{$setup->{product}};
3252
3befbf97 3253 display_error("Less than 1 GiB of usable memory detected, installation will probably fail.\n\n".
18a9811e 3254 "See 'System Requirements' in the $fullname documentation.");
2b85ee1b
OB		 3255 }
3256
bdeca872
DM		 3257 if ($setup->{product} eq 'pve') {
3258 eval {
3259 my $cpuinfo = file_get_contents('/proc/cpuinfo');
3260 if ($cpuinfo && !($cpuinfo =~ /^flags\s*:.*(vmx|svm)/m)) {
2780ea4f 3261 display_error("No support for KVM virtualization detected.\n\n" .
bdeca872
DM		 3262 "Check BIOS settings for Intel VT / AMD-V / SVM.")
3263 }
3264 };
3265 }
7fff0d85 3266
201a5120 3267 display_html();
89a12446 3268
201a5120 3269 $step_number++;
71590b6a 3270 set_next("I a_gree", \&create_hdsel_view);
89a12446
DM		 3271}
3272
71590b6a 3273$ipconf = get_ip_config();
89a12446 3274
9d1f1ee3 3275$country = detect_country() if $ipconf->{default} || $opt_testmode;
89a12446
DM		 3276
3277# read country, kmap and timezone infos
71590b6a 3278$cmap = read_cmap();
89a12446 3279
9d1f1ee3
FG		 3280if (!defined($cmap->{country}->{$country})) {
3281 print $logfd "ignoring detected country '$country', invalid or unknown\n";
3282 $country = undef;
3283}
3284
89a12446
DM		 3285create_main_window ();
3286
ff2ce71c
FG		 3287my $initial_error = 0;
3288
89a12446
DM		 3289if (!defined ($hds) || (scalar (@$hds) <= 0)) {
3290 print "no hardisks found\n";
ff2ce71c 3291 $initial_error = 1;
201a5120 3292 display_html("nohds.htm");
71590b6a 3293 set_next("Reboot", sub { exit(0); } );
89a12446 3294} else {
89a12446
DM		 3295 foreach my $hd (@$hds) {
3296 my ($disk, $devname) = @$hd;
3297 next if $devname =~ m|^/dev/md\d+$|;
3298 print "found Disk$disk N:$devname\n";
3299 }
89a12446
DM		 3300}
3301
72836708
FG		 3302if (!$initial_error && (scalar keys %{ $ipconf->{ifaces} } == 0)) {
3303 print "no network interfaces found\n";
3304 $initial_error = 1;
201a5120 3305 display_html("nonics.htm");
71590b6a 3306 set_next("Reboot", sub { exit(0); } );
72836708
FG		 3307}
3308
ff2ce71c
FG		 3309create_intro_view () if !$initial_error;
3310
7becc472 3311Gtk3->main;
89a12446
DM		 3312
3313exit 0;
Bare Metal Installer