]> 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
also umount efivars and minor improvements
[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
71590b6a 1513 syscmd("touch $targetdir/proxmox_install_mode");
89a12446 1514
e35d5efb 1515 my $grub_install_devices_txt = '';
3573c046 1516 foreach my $di (@$bootdevinfo) {
e35d5efb 1517 $grub_install_devices_txt .= ', ' if $grub_install_devices_txt;
ff863262 1518 $grub_install_devices_txt .= $di->{by_id} || $di->{devname};
3573c046
DM		 1519 }
1520
b1293fcb
FG		 1521 # Note: keyboard-configuration/xbkb-keymap is used by console-setup
1522 my $xkmap = $cmap->{kmap}->{$keymap}->{x11} // 'us';
1464c7c9 1523
89a12446
DM		 1524 debconfig_set ($targetdir, <<_EOD);
1525locales locales/default_environment_locale select en_US.UTF-8
1526locales locales/locales_to_be_generated select en_US.UTF-8 UTF-8
1527samba-common samba-common/dhcp boolean false
1528samba-common samba-common/workgroup string WORKGROUP
e953719f 1529postfix postfix/main_mailer_type select No configuration
b1293fcb 1530keyboard-configuration keyboard-configuration/xkb-keymap select $xkmap
814f5c39 1531d-i debian-installer/locale select en_US.UTF-8
3573c046 1532grub-pc grub-pc/install_devices select $grub_install_devices_txt
89a12446
DM		 1533_EOD
1534
89a12446 1535 my $pkg_count = 0;
97980bf2 1536 while (<${proxmox_pkgdir}/*.deb>) { $pkg_count++ };
89a12446 1537
121ebc59
DM		 1538 # btrfs/dpkg is extremely slow without --force-unsafe-io
1539 my $dpkg_opts = $use_btrfs ? "--force-unsafe-io" : "";
1540
89a12446 1541 $count = 0;
97980bf2 1542 while (<${proxmox_pkgdir}/*.deb>) {
89a12446
DM		 1543 chomp;
1544 my $path = $_;
97980bf2 1545 my ($deb) = $path =~ m/${proxmox_pkgdir}\/(.*\.deb)/;
71590b6a 1546 update_progress($count/$pkg_count, 0.5, 0.75, "extracting $deb");
89a12446 1547 print "extracting: $deb\n";
71590b6a 1548 syscmd("cp $path $targetdir/tmp/$deb") == 0 ||
89a12446 1549 die "installation of package $deb failed\n";
71590b6a 1550 syscmd("chroot $targetdir dpkg $dpkg_opts --force-depends --no-triggers --unpack /tmp/$deb") == 0 ||
968fa90b 1551 die "installation of package $deb failed\n";
71590b6a 1552 update_progress((++$count)/$pkg_count, 0.5, 0.75);
89a12446
DM		 1553 }
1554
3b11dce4
FG		 1555 # needed for postfix postinst in case no other NIC is active
1556 syscmd("chroot $targetdir ifup lo");
1557
121ebc59 1558 my $cmd = "chroot $targetdir dpkg $dpkg_opts --force-confold --configure -a";
89a12446 1559 $count = 0;
71590b6a 1560 run_command($cmd, sub {
89a12446
DM		 1561 my $line = shift;
1562 if ($line =~ m/Setting up\s+(\S+)/) {
71590b6a
OB		 1563 update_progress((++$count)/$pkg_count, 0.75, 0.95,
1564 "configuring $1");
89a12446
DM		 1565 }
1566 });
968fa90b 1567
89a12446
DM		 1568 unlink "$targetdir/etc/mailname";
1569 $postfix_main_cf =~ s/__FQDN__/${hostname}.${domain}/;
71590b6a 1570 write_config($postfix_main_cf, "$targetdir/etc/postfix/main.cf");
89a12446
DM		 1571
1572 # make sure we have all postfix directories
71590b6a 1573 syscmd("chroot $targetdir /usr/sbin/postfix check");
89a12446 1574 # cleanup mail queue
71590b6a 1575 syscmd("chroot $targetdir /usr/sbin/postsuper -d ALL");
89a12446 1576
6b5dc3d0 1577 # enable NTP (timedatectl set-ntp true does not work without DBUS)
71590b6a 1578 syscmd("chroot $targetdir /bin/systemctl enable systemd-timesyncd.service");
6b5dc3d0 1579
89a12446
DM		 1580 unlink "$targetdir/proxmox_install_mode";
1581
968fa90b 1582 # set timezone
89a12446
DM		 1583 unlink ("$targetdir/etc/localtime");
1584 symlink ("/usr/share/zoneinfo/$timezone", "$targetdir/etc/localtime");
71590b6a 1585 write_config("$timezone\n", "$targetdir/etc/timezone");
89a12446 1586
89a12446
DM		 1587 # set apt mirror
1588 if (my $mirror = $cmap->{country}->{$country}->{mirror}) {
1589 my $fn = "$targetdir/etc/apt/sources.list";
71590b6a 1590 syscmd("sed -i 's/ftp\\.debian\\.org/$mirror/' '$fn'");
89a12446
DM		 1591 }
1592
19edf8b7
DM		 1593 # create extended_states for apt (avoid cron job warning if that
1594 # file does not exist)
71590b6a 1595 write_config('', "$targetdir/var/lib/apt/extended_states");
19edf8b7 1596
c2657b8b 1597 # allow ssh root login
abcadb95 1598 syscmd(['sed', '-i', 's/^#\?PermitRootLogin.*/PermitRootLogin yes/', "$targetdir/etc/ssh/sshd_config"]);
861a26d4
DM		 1599
1600 if ($setup->{product} eq 'pmg') {
1601 # install initial clamav DB
1602 my $srcdir = "${proxmox_cddir}/proxmox/clamav";
05eb99e2 1603 foreach my $fn ("main.cvd", "bytecode.cvd", "daily.cvd", "safebrowsing.cvd") {
71590b6a 1604 syscmd("cp \"$srcdir/$fn\" \"$targetdir/var/lib/clamav\"") == 0 ||
861a26d4
DM		 1605 die "installation of clamav db file '$fn' failed\n";
1606 }
1607 syscmd("chroot $targetdir /bin/chown clamav:clamav -R /var/lib/clamav") == 0 ||
1608 die "unable to set owner for clamav database files\n";
1609 }
1610
58a09baa
DM		 1611 if ($setup->{product} eq 'pve') {
1612 # save installer settings
1613 my $ucc = uc ($country);
1614 debconfig_set($targetdir, "pve-manager pve-manager/country string $ucc\n");
1615 }
89a12446 1616
71590b6a 1617 update_progress(0.8, 0.95, 1, "make system bootable");
89a12446 1618
5c06ced5 1619 if ($use_zfs) {
71590b6a 1620 syscmd("sed -i -e 's/^GRUB_CMDLINE_LINUX=.*/GRUB_CMDLINE_LINUX=\"root=ZFS=$zfspoolname\\/ROOT\\/$zfsrootvolname boot=zfs\"/' $targetdir/etc/default/grub") == 0 ||
5c06ced5 1621 die "unable to update /etc/default/grub\n";
4fb6ac60 1622
e38884af
SI		 1623 if ($boot_type eq 'efi') {
1624 write_config("root=ZFS=$zfspoolname/ROOT/$zfsrootvolname boot=zfs", "$targetdir/etc/kernel/cmdline");
1625 }
1464c7c9 1626
5c06ced5 1627 }
23c337f5 1628
71590b6a
OB		 1629 diversion_remove($targetdir, "/usr/sbin/update-grub");
1630 diversion_remove($targetdir, "/usr/sbin/update-initramfs");
89a12446 1631
56207f2a
DM		 1632 my $kapi;
1633 foreach my $fn (<$targetdir/lib/modules/*>) {
1634 if ($fn =~ m!/(\d+\.\d+\.\d+-\d+-pve)$!) {
1635 die "found multiple kernels\n" if defined($kapi);
1636 $kapi = $1;
1637 }
1638 }
1639 die "unable to detect kernel version\n" if !defined($kapi);
1640
c6ed3b24 1641 if (!$opt_testmode) {
89a12446
DM		 1642
1643 unlink ("$targetdir/etc/mtab");
1644 symlink ("/proc/mounts", "$targetdir/etc/mtab");
71590b6a 1645 syscmd("mount -n --bind /dev $targetdir/dev");
89a12446 1646
71590b6a 1647 syscmd("chroot $targetdir /usr/sbin/update-initramfs -c -k $kapi") == 0 ||
89a12446
DM		 1648 die "unable to install initramfs\n";
1649
c6ed3b24
DM		 1650 foreach my $di (@$bootdevinfo) {
1651 my $dev = $di->{devname};
71590b6a 1652 syscmd("chroot $targetdir /usr/sbin/grub-install --target i386-pc --no-floppy --bootloader-id='proxmox' $dev") == 0 ||
f810f5d0
DM		 1653 die "unable to install the i386-pc boot loader on '$dev'\n";
1654
597db5de
TL		 1655 if (my $esp = $di->{esp}) {
1656 if ($use_zfs) {
1657 prepare_systemd_boot_esp($esp, $targetdir);
1658 } else {
1659 prepare_grub_efi_boot_esp($dev, $esp, $targetdir);
5e0d6dce 1660 }
1e61f3d8 1661 }
c6ed3b24 1662 }
89a12446 1663
71590b6a 1664 syscmd("chroot $targetdir /usr/sbin/update-grub") == 0 ||
c6ed3b24 1665 die "unable to update boot loader config\n";
89a12446 1666
f2afc0fc
TL		 1667 if ($use_zfs && $boot_type eq 'efi') {
1668 syscmd("chroot $targetdir /etc/kernel/postinst.d/zz-pve-efiboot") == 0 ||
1669 die "unable to generate systemd-boot config\n";
1670 }
03c686b7 1671
71590b6a 1672 syscmd("umount $targetdir/dev");
89a12446
DM		 1673 }
1674
968fa90b 1675 # cleanup
89a12446 1676
89a12446
DM		 1677 unlink "$targetdir/usr/sbin/policy-rc.d";
1678
71590b6a 1679 diversion_remove($targetdir, "/sbin/start-stop-daemon");
89a12446
DM		 1680
1681 # set root password
968fa90b 1682 my $octets = encode("utf-8", $password);
71590b6a
OB		 1683 run_command("chroot $targetdir /usr/sbin/chpasswd", undef,
1684 "root:$octets\n");
7053f98b 1685
038552a1 1686 if ($setup->{product} eq 'pmg') {
038552a1 1687 # save admin email
71590b6a
OB		 1688 write_config("section: admin\n\temail ${mailto}\n",
1689 "$targetdir/etc/pmg/pmg.conf");
038552a1
DM		 1690
1691 } elsif ($setup->{product} eq 'pve') {
7053f98b 1692
8acc47b5 1693 # create pmxcfs DB
7053f98b 1694
8acc47b5
DM		 1695 my $tmpdir = "$targetdir/tmp/pve";
1696 mkdir $tmpdir;
7053f98b 1697
8acc47b5
DM		 1698 # write vnc keymap to datacenter.cfg
1699 my $vnckmap = $cmap->{kmap}->{$keymap}->{kvm} || 'en-us';
71590b6a
OB		 1700 write_config("keyboard: $vnckmap\n",
1701 "$tmpdir/datacenter.cfg");
968fa90b 1702
8acc47b5 1703 # save admin email
71590b6a
OB		 1704 write_config("user:root\@pam:1:0:::${mailto}::\n",
1705 "$tmpdir/user.cfg");
5fd81672 1706
8acc47b5 1707 # write storage.cfg
d8c697d4 1708 my $storage_cfg_fn = "$tmpdir/storage.cfg";
8acc47b5 1709 if ($use_zfs) {
71590b6a 1710 write_config($storage_cfg_zfs, $storage_cfg_fn);
8acc47b5 1711 } elsif ($use_btrfs) {
71590b6a 1712 write_config($storage_cfg_btrfs, $storage_cfg_fn);
e2c51d7c 1713 } elsif ($datadev) {
71590b6a 1714 write_config($storage_cfg_lvmthin, $storage_cfg_fn);
e2c51d7c 1715 } else {
71590b6a 1716 write_config($storage_cfg_local, $storage_cfg_fn);
8acc47b5 1717 }
7053f98b 1718
8acc47b5
DM		 1719 run_command("chroot $targetdir /usr/bin/create_pmxcfs_db /tmp/pve /var/lib/pve-cluster/config.db");
1720
71590b6a 1721 syscmd("rm -rf $tmpdir");
8acc47b5 1722 }
89a12446
DM		 1723 };
1724
1725 my $err = $@;
1726
71590b6a 1727 update_progress(1, 0, 1, "");
89a12446
DM		 1728
1729 print $err if $err;
1730
1731 if ($opt_testmode) {
121ebc59
DM		 1732 my $elapsed = Time::HiRes::tv_interval($starttime);
1733 print "Elapsed extract time: $elapsed\n";
1734
71590b6a 1735 syscmd("chroot $targetdir /usr/bin/dpkg-query -W --showformat='\${package}\n'> final.pkglist");
89a12446
DM		 1736 }
1737
8d7ddbde
TL		 1738 syscmd("umount $targetdir/run");
1739 syscmd("umount $targetdir/mnt/hostrun");
71590b6a
OB		 1740 syscmd("umount $targetdir/tmp");
1741 syscmd("umount $targetdir/proc");
f238dd03 1742 syscmd("umount $targetdir/sys/firmware/efi/efivars");
71590b6a 1743 syscmd("umount $targetdir/sys");
6fbd1fb1
DM		 1744
1745 if ($use_zfs) {
71590b6a 1746 syscmd("zfs umount -a") == 0 ||
6fbd1fb1
DM		 1747 die "unable to unmount zfs\n";
1748 } else {
71590b6a 1749 syscmd("umount -d $targetdir");
6fbd1fb1 1750 }
89a12446 1751
5c06ced5 1752 if (!$err && $use_zfs) {
71590b6a 1753 syscmd("zfs set sync=standard $zfspoolname") == 0 ||
481671c3
DM		 1754 die "unable to set zfs properties\n";
1755
71590b6a 1756 syscmd("zfs set mountpoint=/ $zfspoolname/ROOT/$zfsrootvolname") == 0 ||
5c06ced5 1757 die "zfs set mountpoint failed\n";
1464c7c9 1758
71590b6a 1759 syscmd("zpool set bootfs=$zfspoolname/ROOT/$zfsrootvolname $zfspoolname") == 0 ||
5c06ced5 1760 die "zfs set bootfs failed\n";
71590b6a 1761 syscmd("zpool export $zfspoolname");
5c06ced5
DM		 1762 }
1763
89a12446
DM		 1764 die $err if $err;
1765}
1766
550958aa
DM		 1767my $last_display_change = 0;
1768
1769my $display_info_counter = 0;
1770
1771my $display_info_items = [
1772 "extract1-license.htm",
1773 "extract2-rulesystem.htm",
1774 "extract3-spam.htm",
1775 "extract4-virus.htm",
1776 ];
1777
1778sub display_info {
1779
1780 my $min_display_time = 15;
1781
1782 my $ctime = time();
1783
1784 return if ($ctime - $last_display_change) < $min_display_time;
1785
1786 my $page = $display_info_items->[$display_info_counter % scalar(@$display_info_items)];
1787
1788 $display_info_counter++;
1789
1790 display_html($page);
1791}
1792
89a12446
DM		 1793sub display_html {
1794 my ($filename) = @_;
1795
201a5120
OB		 1796 $filename = $steps[$step_number]->{html} if !$filename;
1797
a04ac176 1798 my $path = "${proxmox_libdir}/html/$filename";
c437cef5 1799
8a50920c
DM		 1800 my $url = "file://$path";
1801
1802 my $data = file_get_contents($path);
1803
1804 if ($filename eq 'license.htm') {
93f25df9
TL		 1805 my $license = eval { decode('utf8', file_get_contents("${proxmox_cddir}/EULA")) };
1806 if (my $err = $@) {
1807 die $err if !$opt_testmode;
1808 $license = "TESTMODE: Ignore non existent EULA...\n";
1809 }
3c866639 1810 my $title = "END USER LICENSE AGREEMENT (EULA)";
f91c161b 1811 $data =~ s/__LICENSE__/$license/;
8a50920c
DM		 1812 $data =~ s/__LICENSE_TITLE__/$title/;
1813 }
1814
ed0e6aea 1815 $htmlview->load_html($data, $url);
550958aa
DM		 1816
1817 $last_display_change = time();
7becc472
DM		 1818}
1819
201a5120
OB		 1820sub prev_function {
1821
1822 my ($text, $fctn) = @_;
1823
1824 $fctn = $step_number if !$fctn;
1825 $text = "_Previous" if !$text;
451b1da5 1826 $prev_btn->set_label ($text);
201a5120
OB		 1827
1828 $step_number--;
1829 $steps[$step_number]->{function}();
1830
71590b6a 1831 $prev_btn->grab_focus();
201a5120
OB		 1832}
1833
89a12446
DM		 1834sub set_next {
1835 my ($text, $fctn) = @_;
1836
1837 $next_fctn = $fctn;
201a5120
OB		 1838 my $step = $steps[$step_number];
1839 $text //= $steps[$step_number]->{next_button} // '_Next';
71590b6a 1840 $next->set_label($text);
968fa90b 1841
71590b6a 1842 $next->grab_focus();
89a12446 1843}
89a12446
DM		 1844
1845sub create_main_window {
1846
71590b6a
OB		 1847 $window = Gtk3::Window->new();
1848 $window->set_default_size(1024, 768);
84761f93 1849 $window->set_has_resize_grip(0);
71590b6a 1850 $window->set_decorated(0) if !$opt_testmode;
89a12446 1851
71590b6a 1852 my $vbox = Gtk3::VBox->new(0, 0);
89a12446 1853
782b4acd
DM		 1854 my $logofn = "$setup->{product}-banner.png";
1855 my $image = Gtk3::Image->new_from_file("${proxmox_libdir}/$logofn");
71590b6a 1856 $vbox->pack_start($image, 0, 0, 0);
89a12446 1857
71590b6a
OB		 1858 my $hbox = Gtk3::HBox->new(0, 0);
1859 $vbox->pack_start($hbox, 1, 1, 0);
89a12446 1860
7becc472
DM		 1861 # my $f1 = Gtk3::Frame->new ('test');
1862 # $f1->set_shadow_type ('none');
1863 # $hbox->pack_start ($f1, 1, 1, 0);
89a12446 1864
71590b6a
OB		 1865 my $sep1 = Gtk3::HSeparator->new();
1866 $vbox->pack_start($sep1, 0, 0, 0);
89a12446 1867
71590b6a
OB		 1868 $cmdbox = Gtk3::HBox->new();
1869 $vbox->pack_start($cmdbox, 0, 0, 10);
89a12446 1870
71590b6a
OB		 1871 $next = Gtk3::Button->new('_Next');
1872 $next->signal_connect(clicked => sub { $last_display_change = 0; &$next_fctn (); });
1873 $cmdbox->pack_end($next, 0, 0, 10);
201a5120
OB		 1874
1875
71590b6a
OB		 1876 $prev_btn = Gtk3::Button->new('_Previous');
1877 $prev_btn->signal_connect(clicked => sub { $last_display_change = 0; &prev_function (); });
1878 $cmdbox->pack_end($prev_btn, 0, 0, 10);
201a5120
OB		 1879
1880
71590b6a
OB		 1881 my $abort = Gtk3::Button->new('_Abort');
1882 $abort->set_can_focus(0);
1883 $cmdbox->pack_start($abort, 0, 0, 10);
1884 $abort->signal_connect(clicked => sub { exit (-1); });
89a12446 1885
71590b6a
OB		 1886 my $vbox2 = Gtk3::VBox->new(0, 0);
1887 $hbox->add($vbox2);
89a12446 1888
ed0e6aea 1889 $htmlview = Gtk3::WebKit2::WebView->new();
7becc472
DM		 1890 my $scrolls = Gtk3::ScrolledWindow->new();
1891 $scrolls->add($htmlview);
1464c7c9 1892
71590b6a
OB		 1893 my $hbox2 = Gtk3::HBox->new(0, 0);
1894 $hbox2->pack_start($scrolls, 1, 1, 0);
89a12446 1895
71590b6a 1896 $vbox2->pack_start($hbox2, 1, 1, 0);
89a12446 1897
71590b6a
OB		 1898 my $vbox3 = Gtk3::VBox->new(0, 0);
1899 $vbox2->pack_start($vbox3, 0, 0, 0);
89a12446 1900
7becc472 1901 my $sep2 = Gtk3::HSeparator->new;
71590b6a 1902 $vbox3->pack_start($sep2, 0, 0, 0);
89a12446 1903
71590b6a
OB		 1904 $inbox = Gtk3::HBox->new(0, 0);
1905 $vbox3->pack_start($inbox, 0, 0, 0);
89a12446 1906
71590b6a 1907 $window->add($vbox);
89a12446
DM		 1908
1909 $window->show_all;
71590b6a 1910 $window->realize();
89a12446
DM		 1911}
1912
1464c7c9 1913sub cleanup_view {
d2120e51
DM		 1914 $inbox->foreach(sub {
1915 my $child = shift;
1464c7c9 1916 $inbox->remove ($child);
d2120e51 1917 });
89a12446
DM		 1918}
1919
aed81ff0
DM		 1920# fixme: newer GTK3 has special properties to handle numbers with Entry
1921# only allow floating point numbers with Gtk3::Entry
e73c5fcf 1922
aed81ff0
DM		 1923sub check_float {
1924 my ($entry, $event) = @_;
1925
e73c5fcf
FG		 1926 return check_number($entry, $event, 1);
1927}
1928
1929sub check_int {
1930 my ($entry, $event) = @_;
1931
1932 return check_number($entry, $event, 0);
1933}
1934
1935sub check_number {
1936 my ($entry, $event, $float) = @_;
aed81ff0
DM		 1937
1938 my $val = $event->get_keyval;
1939
e73c5fcf 1940 if (($float && $val == ord '.') ||
aed81ff0
DM		 1941 $val == Gtk3::Gdk::KEY_ISO_Left_Tab ||
1942 $val == Gtk3::Gdk::KEY_Shift_L ||
1943 $val == Gtk3::Gdk::KEY_Tab ||
1944 $val == Gtk3::Gdk::KEY_Left ||
1945 $val == Gtk3::Gdk::KEY_Right ||
1946 $val == Gtk3::Gdk::KEY_BackSpace ||
1947 $val == Gtk3::Gdk::KEY_Delete ||
1948 ($val >= ord '0' && $val <= ord '9') ||
1949 ($val >= Gtk3::Gdk::KEY_KP_0 &&
1950 $val <= Gtk3::Gdk::KEY_KP_9)) {
1951 return undef;
1952 }
1953
1954 return 1;
1955}
1956
d2120e51 1957sub create_text_input {
89a12446
DM		 1958 my ($default, $text) = @_;
1959
71590b6a 1960 my $hbox = Gtk3::HBox->new(0, 0);
89a12446 1961
71590b6a
OB		 1962 my $label = Gtk3::Label->new($text);
1963 $label->set_size_request(150, -1);
1964 $label->set_alignment(1, 0.5);
1965 $hbox->pack_start($label, 0, 0, 10);
1966 my $e1 = Gtk3::Entry->new();
1967 $e1->set_width_chars(30);
1968 $hbox->pack_start($e1, 0, 0, 0);
1969 $e1->set_text($default);
89a12446
DM		 1970
1971 return ($hbox, $e1);
1972}
1973
89a12446
DM		 1974sub get_ip_config {
1975
fe44bd92
FG		 1976 my $ifaces = {};
1977 my $default;
89a12446 1978
fe44bd92
FG		 1979 my $links = `ip -o l`;
1980 foreach my $l (split /\n/,$links) {
1981 my ($index, $name, $flags, $state, $mac) = $l =~ m/^(\d+):\s+(\S+):\s+<(\S+)>.*\s+state\s+(\S+)\s+.*\s+link\/ether\s+(\S+)\s+/;
1982 next if !$name || $name eq 'lo';
89a12446 1983
fe44bd92
FG		 1984 my $driver = readlink "/sys/class/net/$name/device/driver" || 'unknown';
1985 $driver =~ s!^.*/!!;
1986
1987 $ifaces->{"$index"} = {
1988 name => $name,
1989 driver => $driver,
1990 flags => $flags,
1991 state => $state,
1992 mac => $mac,
1993 };
1994
1995 my $addresses = `ip -o a s $name`;
1996 foreach my $a (split /\n/,$addresses) {
1997 my ($family, $ip, $prefix) = $a =~ m/^\Q$index\E:\s+\Q$name\E\s+(inet|inet6)\s+($IPRE)\/(\d+)\s+/;
1998 next if !$ip;
32b6fbcf 1999 next if $a =~ /scope\s+link/; # ignore link local
fe44bd92
FG		 2000
2001 my $mask = $prefix;
2002
2003 if ($family eq 'inet') {
2004 next if !$ip =~ /$IPV4RE/;
2005 next if $prefix < 8 || $prefix > 32;
2006 $mask = @$ipv4_reverse_mask[$prefix];
2007 } else {
2008 next if !$ip =~ /$IPV6RE/;
2009 }
2010
2011 $default = $index if !$default;
2012
2013 $ifaces->{"$index"}->{"$family"} = {
2014 mask => $mask,
2015 addr => $ip,
2016 };
2017 }
2018 }
2019
2020
2021 my $route = `ip route`;
2022 my ($gateway) = $route =~ m/^default\s+via\s+(\S+)\s+/m;
89a12446
DM		 2023
2024 my $resolvconf = `cat /etc/resolv.conf`;
2025 my ($dnsserver) = $resolvconf =~ m/^nameserver\s+(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/m;
713790a4 2026 my ($domain) = $resolvconf =~ m/^domain\s+(\S+)$/m;
89a12446
DM		 2027
2028 return {
fe44bd92
FG		 2029 default => $default,
2030 ifaces => $ifaces,
89a12446
DM		 2031 gateway => $gateway,
2032 dnsserver => $dnsserver,
713790a4 2033 domain => $domain,
89a12446
DM		 2034 }
2035}
2036
2037sub display_message {
2038 my ($msg) = @_;
2039
71590b6a
OB		 2040 my $dialog = Gtk3::MessageDialog->new($window, 'modal',
2041 'info', 'ok', $msg);
89a12446
DM		 2042 $dialog->run();
2043 $dialog->destroy();
2044}
2045
2046sub display_error {
2047 my ($msg) = @_;
2048
71590b6a
OB		 2049 my $dialog = Gtk3::MessageDialog->new($window, 'modal',
2050 'error', 'ok', $msg);
89a12446
DM		 2051 $dialog->run();
2052 $dialog->destroy();
2053}
2054
fe44bd92
FG		 2055my $ipconf_first_view = 1;
2056
89a12446
DM		 2057sub create_ipconf_view {
2058
201a5120
OB		 2059 cleanup_view();
2060 display_html();
89a12446 2061
71590b6a
OB		 2062 my $vbox = Gtk3::VBox->new(0, 0);
2063 $inbox->pack_start($vbox, 1, 0, 0);
2064 my $hbox = Gtk3::HBox->new(0, 0);
2065 $vbox->pack_start($hbox, 0, 0, 10);
2066 my $vbox2 = Gtk3::VBox->new(0, 0);
2067 $hbox->add($vbox2);
89a12446 2068
ebc4f76f 2069 my $ipaddr_text = $config->{ipaddress} // "192.168.100.2";
fe44bd92
FG		 2070 my $ipbox;
2071 ($ipbox, $ipconf_entry_addr) =
71590b6a 2072 create_text_input($ipaddr_text, 'IP Address:');
fe44bd92 2073
ebc4f76f 2074 my $netmask_text = $config->{netmask} // "255.255.255.0";
fe44bd92
FG		 2075 my $maskbox;
2076 ($maskbox, $ipconf_entry_mask) =
71590b6a 2077 create_text_input($netmask_text, 'Netmask:');
fe44bd92
FG		 2078
2079 my $device_cb = Gtk3::ComboBoxText->new();
2080 $device_cb->set_active(0);
2081 $device_cb->set_visible(1);
2082
2083 my $get_device_desc = sub {
2084 my $iface = shift;
2085 return "$iface->{name} - $iface->{mac} ($iface->{driver})";
2086 };
2087
2088 my $device_active_map = {};
ebc4f76f 2089 my $device_active_reverse_map = {};
5b6ba737
FG		 2090
2091 my $device_change_handler = sub {
2092 my $current = shift;
d6524c52
TL		 2093
2094 my $new = $device_active_map->{$current->get_active()};
cd2d2a27 2095 return if defined($ipconf->{selected}) && $new eq $ipconf->{selected};
d6524c52
TL		 2096
2097 $ipconf->{selected} = $new;
5b6ba737 2098 my $iface = $ipconf->{ifaces}->{$ipconf->{selected}};
ebc4f76f 2099 $config->{mngmt_nic} = $iface->{name};
5b6ba737
FG		 2100 $ipconf_entry_addr->set_text($iface->{inet}->{addr} || $iface->{inet6}->{addr})
2101 if $iface->{inet}->{addr} || $iface->{inet6}->{addr};
2102 $ipconf_entry_mask->set_text($iface->{inet}->{mask} || $iface->{inet6}->{mask})
2103 if $iface->{inet}->{mask} || $iface->{inet6}->{mask};
2104 };
2105
fe44bd92
FG		 2106 my $i = 0;
2107 foreach my $index (sort keys %{$ipconf->{ifaces}}) {
2108 $device_cb->append_text(&$get_device_desc($ipconf->{ifaces}->{$index}));
ebc4f76f
TL		 2109 $device_active_map->{$i} = $index;
2110 $device_active_reverse_map->{$ipconf->{ifaces}->{$index}->{name}} = $i;
fe44bd92
FG		 2111 if ($ipconf_first_view && $index == $ipconf->{default}) {
2112 $device_cb->set_active($i);
5b6ba737 2113 &$device_change_handler($device_cb);
fe44bd92
FG		 2114 $ipconf_first_view = 0;
2115 }
71590b6a 2116 $device_cb->signal_connect('changed' => $device_change_handler);
fe44bd92
FG		 2117 $i++;
2118 }
2119
ebc4f76f
TL		 2120 if (my $nic = $config->{mngmt_nic}) {
2121 $device_cb->set_active($device_active_reverse_map->{$nic} // 0);
2122 } else {
2123 $device_cb->set_active(0);
2124 }
5b6ba737 2125
71590b6a
OB		 2126 my $devicebox = Gtk3::HBox->new(0, 0);
2127 my $label = Gtk3::Label->new("Management Interface:");
2128 $label->set_size_request(150, -1);
2129 $label->set_alignment(1, 0.5);
2130 $devicebox->pack_start($label, 0, 0, 10);
2131 $devicebox->pack_start($device_cb, 0, 0, 0);
fe44bd92 2132
71590b6a 2133 $vbox2->pack_start($devicebox, 0, 0, 2);
968fa90b 2134
ebc4f76f 2135 my $hn = $config->{fqdn} // "$setup->{product}." . ($ipconf->{domain} // "example.invalid");
1464c7c9 2136
968fa90b 2137 my ($hostbox, $hostentry) =
71590b6a
OB		 2138 create_text_input($hn, 'Hostname (FQDN):');
2139 $vbox2->pack_start($hostbox, 0, 0, 2);
89a12446 2140
71590b6a 2141 $vbox2->pack_start($ipbox, 0, 0, 2);
89a12446 2142
71590b6a 2143 $vbox2->pack_start($maskbox, 0, 0, 2);
89a12446 2144
ebc4f76f 2145 $gateway = $config->{gateway} // $ipconf->{gateway} || '192.168.100.1';
89a12446
DM		 2146
2147 my $gwbox;
d2120e51 2148 ($gwbox, $ipconf_entry_gw) =
71590b6a 2149 create_text_input($gateway, 'Gateway:');
89a12446 2150
71590b6a 2151 $vbox2->pack_start($gwbox, 0, 0, 2);
89a12446 2152
ebc4f76f 2153 $dnsserver = $config->{dnsserver} // $ipconf->{dnsserver} || $gateway;
89a12446
DM		 2154
2155 my $dnsbox;
d2120e51 2156 ($dnsbox, $ipconf_entry_dns) =
71590b6a 2157 create_text_input($dnsserver, 'DNS Server:');
89a12446 2158
71590b6a 2159 $vbox2->pack_start($dnsbox, 0, 0, 0);
89a12446
DM		 2160
2161 $inbox->show_all;
71590b6a 2162 set_next(undef, sub {
d2120e51
DM		 2163
2164 # verify hostname
1464c7c9 2165
89a12446 2166 my $text = $hostentry->get_text();
968fa90b 2167
89a12446
DM		 2168 $text =~ s/^\s+//;
2169 $text =~ s/\s+$//;
2170
ebc4f76f
TL		 2171 $config->{fqdn} = $text;
2172
ac3757a9 2173 my $namere = "([a-zA-Z0-9]([a-zA-Z0-9\-]*[a-zA-Z0-9])?)";
968fa90b 2174
24973868
WB		 2175 # Debian does not support purely numeric hostnames
2176 if ($text && $text =~ /^[0-9]+(?:\.|$)/) {
2177 display_message("Purely numeric hostnames are not allowed.");
2178 $hostentry->grab_focus();
2179 return;
2180 }
2181
a39bc1f2 2182 if ($text && $text =~ m/^(${namere}\.)*${namere}$/ && $text !~ m/.example.invalid$/ &&
89a12446
DM		 2183 $text =~ m/^([^\.]+)\.(\S+)$/) {
2184 $hostname = $1;
2185 $domain = $2;
d2120e51 2186 } else {
71590b6a 2187 display_message("Hostname does not look like a fully qualified domain name.");
d2120e51 2188 $hostentry->grab_focus();
89a12446
DM		 2189 return;
2190 }
d2120e51
DM		 2191
2192 # verify ip address
2193
2194 $text = $ipconf_entry_addr->get_text();
2195 $text =~ s/^\s+//;
2196 $text =~ s/\s+$//;
2197 if ($text =~ m!^($IPV4RE)$!) {
2198 $ipaddress = $text;
b6200603
DM		 2199 $ipversion = 4;
2200 } elsif ($text =~ m!^($IPV6RE)$!) {
1464c7c9 2201 $ipaddress = $text;
b6200603 2202 $ipversion = 6;
d2120e51 2203 } else {
71590b6a 2204 display_message("IP address is not valid.");
d2120e51
DM		 2205 $ipconf_entry_addr->grab_focus();
2206 return;
2207 }
ebc4f76f 2208 $config->{ipaddress} = $ipaddress;
d2120e51
DM		 2209
2210 $text = $ipconf_entry_mask->get_text();
2211 $text =~ s/^\s+//;
2212 $text =~ s/\s+$//;
b6200603
DM		 2213 if (($ipversion == 6) && ($text =~ m/^(\d+)$/) && ($1 >= 8) && ($1 <= 126)) {
2214 $netmask = $text;
2215 } elsif (($ipversion == 4) && defined($ipv4_mask_hash->{$text})) {
d2120e51
DM		 2216 $netmask = $text;
2217 } else {
71590b6a 2218 display_message("Netmask is not valid.");
d2120e51
DM		 2219 $ipconf_entry_mask->grab_focus();
2220 return;
2221 }
ebc4f76f 2222 $config->{netmask} = $netmask;
d2120e51
DM		 2223
2224 $text = $ipconf_entry_gw->get_text();
2225 $text =~ s/^\s+//;
2226 $text =~ s/\s+$//;
b6200603
DM		 2227 if (($ipversion == 4) && ($text =~ m!^($IPV4RE)$!)) {
2228 $gateway = $text;
2229 } elsif (($ipversion == 6) && ($text =~ m!^($IPV6RE)$!)) {
d2120e51
DM		 2230 $gateway = $text;
2231 } else {
71590b6a 2232 display_message("Gateway is not valid.");
d2120e51
DM		 2233 $ipconf_entry_gw->grab_focus();
2234 return;
2235 }
ebc4f76f 2236 $config->{gateway} = $gateway;
1464c7c9 2237
d2120e51
DM		 2238 $text = $ipconf_entry_dns->get_text();
2239 $text =~ s/^\s+//;
2240 $text =~ s/\s+$//;
b6200603
DM		 2241 if (($ipversion == 4) && ($text =~ m!^($IPV4RE)$!)) {
2242 $dnsserver = $text;
2243 } elsif (($ipversion == 6) && ($text =~ m!^($IPV6RE)$!)) {
d2120e51
DM		 2244 $dnsserver = $text;
2245 } else {
71590b6a 2246 display_message("DNS server is not valid.");
d2120e51
DM		 2247 $ipconf_entry_dns->grab_focus();
2248 return;
2249 }
ebc4f76f 2250 $config->{dnsserver} = $dnsserver;
1464c7c9 2251
d2120e51 2252 #print "TEST $ipaddress $netmask $gateway $dnsserver\n";
1464c7c9 2253
201a5120 2254 $step_number++;
2e33c3f0 2255 create_ack_view();
89a12446
DM		 2256 });
2257
2258 $hostentry->grab_focus();
2259}
2260
2e33c3f0
OB		 2261sub create_ack_view {
2262
2263 cleanup_view();
2264
2265 my $ack_template = "${proxmox_libdir}/html/ack_template.htm";
2266 my $ack_html = "${proxmox_libdir}/html/$steps[$step_number]->{html}";
2267 my $html_data = file_get_contents($ack_template);
2268
2269 my %config_values = (
a7d40341 2270 __target_hd__ => join(' | ', @{$config_options->{target_hds}}),
0470018e 2271 __target_fs__ => $config_options->{filesys},
0ddd2227 2272 __country__ => $cmap->{country}->{$country}->{name},
2e33c3f0
OB		 2273 __timezone__ => $timezone,
2274 __keymap__ => $keymap,
2275 __mailto__ => $mailto,
2276 __interface__ => $ipconf->{ifaces}->{$ipconf->{selected}}->{name},
2277 __hostname__ => $hostname,
2278 __ip__ => $ipaddress,
2279 __netmask__ => $netmask,
2280 __gateway__ => $gateway,
2281 __dnsserver__ => $dnsserver,
2282 );
2283
2284 while ( my ($k, $v) = each %config_values) {
2285 $html_data =~ s/$k/$v/g;
2286 }
2287
2288 write_config($html_data, $ack_html);
2289
2290 display_html();
2291
2292 set_next(undef, sub {
2293 $step_number++;
2294 create_extract_view();
2295 });
2296}
2297
89a12446
DM		 2298sub get_device_desc {
2299 my ($devname, $size, $model) = @_;
2300
d2120e51 2301 if ($size && ($size > 0)) {
1bd457bb 2302 $size = int($size/2048); # size in MB, from 512B "sectors"
89a12446 2303
d2120e51 2304 my $text = "$devname (";
89a12446
DM		 2305 if ($size >= 1024) {
2306 $size = int($size/1024); # size in GB
d2120e51 2307 $text .= "${size}GB";
89a12446 2308 } else {
d2120e51 2309 $text .= "${size}MB";
89a12446
DM		 2310 }
2311
d2120e51
DM		 2312 $text .= ", $model" if $model;
2313 $text .= ")";
2314
89a12446
DM		 2315 } else {
2316 return $devname;
2317 }
2318}
2319
2320sub update_layout {
2321 my ($cb, $kmap) = @_;
2322
2323 my $ind;
2324 my $def;
2325 my $i = 0;
2326 my $kmaphash = $cmap->{kmaphash};
2327 foreach my $layout (sort keys %$kmaphash) {
2328 $def = $i if $kmaphash->{$layout} eq 'en-us';
2329 $ind = $i if $kmap && $kmaphash->{$layout} eq $kmap;
2330 $i++;
2331 }
2332
71590b6a 2333 $cb->set_active($ind || $def || 0);
89a12446
DM		 2334}
2335
2336my $lastzonecb;
2337sub update_zonelist {
2338 my ($box, $cc) = @_;
2339
2340 my $cczones = $cmap->{cczones};
2341 my $zones = $cmap->{zones};
2342
2343 my $sel;
2344 if ($lastzonecb) {
2345 $sel = $lastzonecb->get_active_text();
2346 $box->remove ($lastzonecb);
2347 } else {
2348 $sel = $timezone; # used once to select default
2349 }
2350
bcbfab6b 2351 my $cb = $lastzonecb = Gtk3::ComboBoxText->new();
71590b6a 2352 $cb->set_size_request(200, -1);
89a12446 2353
71590b6a 2354 $cb->signal_connect('changed' => sub {
89a12446
DM		 2355 $timezone = $cb->get_active_text();
2356 });
2357
2358 my @za;
2359 if ($cc && defined ($cczones->{$cc})) {
2360 @za = keys %{$cczones->{$cc}};
2361 } else {
2362 @za = keys %$zones;
2363 }
2364 my $ind;
2365 my $i = 0;
2366 foreach my $zone (sort @za) {
2367 $ind = $i if $sel && $zone eq $sel;
71590b6a 2368 $cb->append_text($zone);
89a12446
DM		 2369 $i++;
2370 }
2371
71590b6a 2372 $cb->set_active($ind || 0);
89a12446
DM		 2373
2374 $cb->show;
71590b6a 2375 $box->pack_start($cb, 0, 0, 0);
89a12446
DM		 2376}
2377
2378sub create_password_view {
2379
71590b6a 2380 cleanup_view();
89a12446 2381
71590b6a
OB		 2382 my $vbox2 = Gtk3::VBox->new(0, 0);
2383 $inbox->pack_start($vbox2, 1, 0, 0);
2384 my $vbox = Gtk3::VBox->new(0, 0);
2385 $vbox2->pack_start($vbox, 0, 0, 10);
2386
2387 my $hbox1 = Gtk3::HBox->new(0, 0);
2388 my $label = Gtk3::Label->new("Password");
2389 $label->set_size_request(150, -1);
2390 $label->set_alignment(1, 0.5);
2391 $hbox1->pack_start($label, 0, 0, 10);
2392 my $pwe1 = Gtk3::Entry->new();
2393 $pwe1->set_visibility(0);
201a5120 2394 $pwe1->set_text($password) if $password;
71590b6a
OB		 2395 $pwe1->set_size_request(200, -1);
2396 $hbox1->pack_start($pwe1, 0, 0, 0);
2397
2398 my $hbox2 = Gtk3::HBox->new(0, 0);
2399 $label = Gtk3::Label->new("Confirm");
2400 $label->set_size_request(150, -1);
2401 $label->set_alignment(1, 0.5);
2402 $hbox2->pack_start($label, 0, 0, 10);
2403 my $pwe2 = Gtk3::Entry->new();
2404 $pwe2->set_visibility(0);
201a5120 2405 $pwe2->set_text($password) if $password;
71590b6a
OB		 2406 $pwe2->set_size_request(200, -1);
2407 $hbox2->pack_start($pwe2, 0, 0, 0);
2408
2409 my $hbox3 = Gtk3::HBox->new(0, 0);
2410 $label = Gtk3::Label->new("E-Mail");
2411 $label->set_size_request(150, -1);
2412 $label->set_alignment(1, 0.5);
2413 $hbox3->pack_start($label, 0, 0, 10);
2414 my $eme = Gtk3::Entry->new();
2415 $eme->set_size_request(200, -1);
201a5120 2416 $eme->set_text($mailto);
71590b6a 2417 $hbox3->pack_start($eme, 0, 0, 0);
89a12446
DM		 2418
2419
71590b6a
OB		 2420 $vbox->pack_start($hbox1, 0, 0, 5);
2421 $vbox->pack_start($hbox2, 0, 0, 5);
2422 $vbox->pack_start($hbox3, 0, 0, 15);
89a12446
DM		 2423
2424 $inbox->show_all;
2425
201a5120 2426 display_html();
89a12446
DM		 2427
2428 set_next (undef, sub {
2429
2430 my $t1 = $pwe1->get_text;
2431 my $t2 = $pwe2->get_text;
2432
2433 if (length ($t1) < 5) {
71590b6a 2434 display_message("Password is too short.");
89a12446
DM		 2435 $pwe1->grab_focus();
2436 return;
2437 }
2438
2439 if ($t1 ne $t2) {
71590b6a 2440 display_message("Password does not match.");
89a12446
DM		 2441 $pwe1->grab_focus();
2442 return;
2443 }
2444
2445 my $t3 = $eme->get_text;
2446 if ($t3 !~ m/^\S+\@\S+\.\S+$/) {
71590b6a 2447 display_message("E-Mail does not look like a valid address" .
89a12446
DM		 2448 " (user\@domain.tld)");
2449 $eme->grab_focus();
2450 return;
a39bc1f2 2451 }
89a12446 2452
a39bc1f2 2453 if ($t3 eq 'mail@example.invalid') {
71590b6a 2454 display_message("Please enter a valid E-Mail address");
a39bc1f2
FG		 2455 $eme->grab_focus();
2456 return;
89a12446
DM		 2457 }
2458
2459 $password = $t1;
2460 $mailto = $t3;
2461
201a5120 2462 $step_number++;
89a12446
DM		 2463 create_ipconf_view();
2464 });
2465
2466 $pwe1->grab_focus();
2467
2468}
2469
2470sub create_country_view {
2471
71590b6a 2472 cleanup_view();
89a12446
DM		 2473
2474 my $countryhash = $cmap->{countryhash};
2475 my $ctr = $cmap->{country};
2476
71590b6a
OB		 2477 my $vbox2 = Gtk3::VBox->new(0, 0);
2478 $inbox->pack_start($vbox2, 1, 0, 0);
2479 my $vbox = Gtk3::VBox->new(0, 0);
2480 $vbox2->pack_start($vbox, 0, 0, 10);
89a12446 2481
71590b6a
OB		 2482 my $w = Gtk3::Entry->new();
2483 $w->set_size_request(200, -1);
89a12446 2484
71590b6a
OB		 2485 my $c = Gtk3::EntryCompletion->new();
2486 $c->set_text_column(0);
89a12446 2487 $c->set_minimum_key_length(0);
71590b6a
OB		 2488 $c->set_popup_set_width(1);
2489 $c->set_inline_completion(1);
2490
2491 my $hbox2 = Gtk3::HBox->new(0, 0);
2492 my $label = Gtk3::Label->new("Time zone");
2493 $label->set_size_request(150, -1);
2494 $label->set_alignment(1, 0.5);
2495 $hbox2->pack_start($label, 0, 0, 10);
89a12446
DM		 2496 update_zonelist ($hbox2);
2497
71590b6a
OB		 2498 my $hbox3 = Gtk3::HBox->new(0, 0);
2499 $label = Gtk3::Label->new("Keyboard Layout");
2500 $label->set_size_request(150, -1);
2501 $label->set_alignment(1, 0.5);
2502 $hbox3->pack_start($label, 0, 0, 10);
89a12446 2503
bcbfab6b 2504 my $kmapcb = Gtk3::ComboBoxText->new();
89a12446
DM		 2505 $kmapcb->set_size_request (200, -1);
2506 foreach my $layout (sort keys %{$cmap->{kmaphash}}) {
2507 $kmapcb->append_text ($layout);
2508 }
2509
71590b6a 2510 update_layout($kmapcb);
89a12446
DM		 2511 $hbox3->pack_start ($kmapcb, 0, 0, 0);
2512
2513 $kmapcb->signal_connect ('changed' => sub {
2514 my $sel = $kmapcb->get_active_text();
2515 if (my $kmap = $cmap->{kmaphash}->{$sel}) {
2516 my $xkmap = $cmap->{kmap}->{$kmap}->{x11};
2517 my $xvar = $cmap->{kmap}->{$kmap}->{x11var};
2518 syscmd ("setxkbmap $xkmap $xvar") if !$opt_testmode;
2519 $keymap = $kmap;
2520 }
2521 });
2522
2523 $w->signal_connect ('changed' => sub {
2524 my ($entry, $event) = @_;
2525 my $text = $entry->get_text;
2526
2527 if (my $cc = $countryhash->{lc($text)}) {
71590b6a 2528 update_zonelist($hbox2, $cc);
89a12446 2529 my $kmap = $ctr->{$cc}->{kmap} || 'en-us';
71590b6a 2530 update_layout($kmapcb, $kmap);
89a12446
DM		 2531 }
2532 });
2533
2534 $w->signal_connect (key_press_event => sub {
2535 my ($entry, $event) = @_;
2536 my $text = $entry->get_text;
2537
7becc472
DM		 2538 my $val = $event->get_keyval;
2539
2540 if ($val == Gtk3::Gdk::KEY_Tab) {
89a12446 2541 my $cc = $countryhash->{lc($text)};
1464c7c9 2542
89a12446
DM		 2543 my $found = 0;
2544 my $compl;
7becc472 2545
4443aa27
DM		 2546 if ($cc) {
2547 $found = 1;
2548 $compl = $ctr->{$cc}->{name};
2549 } else {
2550 foreach my $cc (keys %$ctr) {
2551 my $ct = $ctr->{$cc}->{name};
2552 if ($ct =~ m/^\Q$text\E.*$/i) {
2553 $found++;
2554 $compl = $ct;
2555 }
2556 last if $found > 1;
89a12446 2557 }
89a12446 2558 }
4443aa27 2559
89a12446 2560 if ($found == 1) {
7becc472 2561 $entry->set_text($compl);
3df718ea 2562 $c->complete();
89a12446
DM		 2563 return undef;
2564 } else {
7becc472
DM		 2565 #Gtk3::Gdk::beep();
2566 print chr(7); # beep ?
89a12446
DM		 2567 }
2568
3df718ea
DM		 2569 $c->complete();
2570
7becc472
DM		 2571 my $buf = $w->get_buffer();
2572 $buf->insert_text(-1, '', -1); # popup selection
2573
89a12446
DM		 2574 return 1;
2575 }
2576
2577 return undef;
2578 });
1464c7c9 2579
7becc472 2580 my $ls = Gtk3::ListStore->new('Glib::String');
89a12446
DM		 2581 foreach my $cc (sort {$ctr->{$a}->{name} cmp $ctr->{$b}->{name} } keys %$ctr) {
2582 my $iter = $ls->append();
2583 $ls->set ($iter, 0, $ctr->{$cc}->{name});
2584 }
2585 $c->set_model ($ls);
2586
968fa90b 2587 $w->set_completion ($c);
89a12446 2588
71590b6a 2589 my $hbox = Gtk3::HBox->new(0, 0);
89a12446 2590
71590b6a
OB		 2591 $label = Gtk3::Label->new("Country");
2592 $label->set_alignment(1, 0.5);
2593 $label->set_size_request(150, -1);
2594 $hbox->pack_start($label, 0, 0, 10);
2595 $hbox->pack_start($w, 0, 0, 0);
89a12446 2596
71590b6a
OB		 2597 $vbox->pack_start($hbox, 0, 0, 5);
2598 $vbox->pack_start($hbox2, 0, 0, 5);
2599 $vbox->pack_start($hbox3, 0, 0, 5);
89a12446 2600
9d1f1ee3 2601 if ($country && $ctr->{$country}) {
89a12446
DM		 2602 $w->set_text ($ctr->{$country}->{name});
2603 }
2604
2605 $inbox->show_all;
2606
201a5120 2607 display_html();
89a12446
DM		 2608 set_next (undef, sub {
2609
2610 my $text = $w->get_text;
2611
2612 if (my $cc = $countryhash->{lc($text)}) {
2613 $country = $cc;
201a5120 2614 $step_number++;
89a12446
DM		 2615 create_password_view();
2616 return;
2617 } else {
71590b6a 2618 display_message("Please select a country first.");
89a12446
DM		 2619 $w->grab_focus();
2620 }
2621 });
2622
2623 $w->grab_focus();
2624}
2625
c6ed3b24
DM		 2626my $target_hd_combo;
2627my $target_hd_label;
2628
bd3a2e26 2629my $hdoption_first_setup = 1;
c6ed3b24 2630
c7779156
FG		 2631my $create_basic_grid = sub {
2632 my $grid = Gtk3::Grid->new();
2633 $grid->set_visible(1);
2634 $grid->set_column_spacing(10);
2635 $grid->set_row_spacing(10);
2636 $grid->set_hexpand(1);
2637
2638 $grid->set_margin_start(5);
2639 $grid->set_margin_end(5);
2640 $grid->set_margin_top(5);
2641 $grid->set_margin_bottom(5);
2642
2643 return $grid;
2644};
2645
2646my $create_label_widget_grid = sub {
2647 my ($labeled_widgets) = @_;
2648
2649 my $grid = &$create_basic_grid();
2650 my $row = 0;
2651
2652 for (my $i = 0; $i < @$labeled_widgets; $i += 2) {
2653 my $widget = @$labeled_widgets[$i+1];
2654 my $label = Gtk3::Label->new(@$labeled_widgets[$i]);
2655 $label->set_visible(1);
2656 $label->set_alignment (1, 0.5);
2657 $grid->attach($label, 0, $row, 1, 1);
2658 $widget->set_visible(1);
2659 $grid->attach($widget, 1, $row, 1, 1);
2660 $row++;
2661 }
2662
2663 return $grid;
2664};
2665
2666my $create_raid_disk_grid = sub {
2667 my $disk_labeled_widgets = [];
2668 for (my $i = 0; $i < @$hds; $i++) {
2669 my $disk_selector = Gtk3::ComboBoxText->new();
2670 $disk_selector->append_text("-- do not use --");
2671 $disk_selector->set_active(0);
2672 $disk_selector->set_visible(1);
2673 foreach my $hd (@$hds) {
2674 my ($disk, $devname, $size, $model) = @$hd;
2675 $disk_selector->append_text(get_device_desc ($devname, $size, $model));
2676 $disk_selector->{pve_disk_id} = $i;
2677 $disk_selector->signal_connect (changed => sub {
2678 my $w = shift;
2679 my $diskid = $w->{pve_disk_id};
2680 my $a = $w->get_active - 1;
2681 $config_options->{"disksel${diskid}"} = ($a >= 0) ? $hds->[$a] : undef;
2682 });
2683 }
2684
bd3a2e26 2685 if ($hdoption_first_setup) {
c7779156
FG		 2686 $disk_selector->set_active ($i+1) if $hds->[$i];
2687 } else {
2688 my $hdind = 0;
2689 if (my $cur_hd = $config_options->{"disksel$i"}) {
2690 foreach my $hd (@$hds) {
2691 if (@$hd[1] eq @$cur_hd[1]) {
2692 $disk_selector->set_active($hdind+1);
2693 last;
2694 }
2695 $hdind++;
2696 }
2697 }
2698 }
2699
2700 push @$disk_labeled_widgets, "Harddisk $i", $disk_selector;
2701 }
2702
2703 my $scrolled_window = Gtk3::ScrolledWindow->new();
2704 $scrolled_window->set_hexpand(1);
650a9aab 2705 $scrolled_window->set_propagate_natural_height(1) if @$hds > 4;
c7779156
FG		 2706 $scrolled_window->add(&$create_label_widget_grid($disk_labeled_widgets));
2707 $scrolled_window->set_policy('never', 'automatic');
2708
2709 return $scrolled_window;
2710# &$create_label_widget_grid($disk_labeled_widgets)
2711};
2712
d7fe65ff
TL		 2713# shared between different ui parts (e.g., ZFS and "normal" single disk FS)
2714my $hdsize_size_adj;
2715my $hdsize_entry_buffer;
2716
2717my $get_hdsize_spinbtn = sub {
2718 my $hdsize = shift;
754abb44 2719
93c8fdb0
SI		 2720 $hdsize_entry_buffer //= Gtk3::EntryBuffer->new(undef, 1);
2721
2722 if (defined($hdsize)) {
d7fe65ff 2723 $hdsize_size_adj = Gtk3::Adjustment->new($config_options->{hdsize} || $hdsize, 0, $hdsize+1, 1, 1, 1);
93c8fdb0
SI		 2724 } else {
2725 die "called get_hdsize_spinbtn with \$hdsize_size_adj not defined but did not pass hdsize!\n"
2726 if !defined($hdsize_size_adj);
d7fe65ff
TL		 2727 }
2728
2729 my $spinbutton_hdsize = Gtk3::SpinButton->new($hdsize_size_adj, 1, 1);
2730 $spinbutton_hdsize->set_buffer($hdsize_entry_buffer);
6039e2f1 2731 $spinbutton_hdsize->set_adjustment($hdsize_size_adj);
d7fe65ff
TL		 2732 $spinbutton_hdsize->set_tooltip_text("only use specified size (GB) of the harddisk (rest left unpartitioned)");
2733 return $spinbutton_hdsize;
2734};
2735
c7779156
FG		 2736my $create_raid_advanced_grid = sub {
2737 my $labeled_widgets = [];
6c99667a
FG		 2738 my $spinbutton_ashift = Gtk3::SpinButton->new_with_range(9,13,1);
2739 $spinbutton_ashift->set_tooltip_text("zpool ashift property (pool sector size, default 2^12)");
2740 $spinbutton_ashift->signal_connect ("value-changed" => sub {
2741 my $w = shift;
2742 $config_options->{ashift} = $w->get_value_as_int();
c7779156
FG		 2743 });
2744 $config_options->{ashift} = 12 if ! defined($config_options->{ashift});
6c99667a 2745 $spinbutton_ashift->set_value($config_options->{ashift});
c7779156 2746 push @$labeled_widgets, "ashift";
6c99667a 2747 push @$labeled_widgets, $spinbutton_ashift;
c7779156
FG		 2748
2749 my $combo_compress = Gtk3::ComboBoxText->new();
2750 $combo_compress->set_tooltip_text("zfs compression algorithm for rpool dataset");
2751 # note: gzip / lze not allowed for bootfs vdevs
2752 my $comp_opts = ["on","off","lzjb","lz4"];
2753 foreach my $opt (@$comp_opts) {
2754 $combo_compress->append($opt, $opt);
2755 }
2756 $config_options->{compress} = "on" if !defined($config_options->{compress});
2757 $combo_compress->set_active_id($config_options->{compress});
2758 $combo_compress->signal_connect (changed => sub {
2759 my $w = shift;
2760 $config_options->{compress} = $w->get_active_text();
2761 });
2762 push @$labeled_widgets, "compress";
2763 push @$labeled_widgets, $combo_compress;
2764
2765 my $combo_checksum = Gtk3::ComboBoxText->new();
2766 $combo_checksum->set_tooltip_text("zfs checksum algorithm for rpool dataset");
2767 my $csum_opts = ["on", "off","fletcher2", "fletcher4", "sha256"];
2768 foreach my $opt (@$csum_opts) {
2769 $combo_checksum->append($opt, $opt);
2770 }
2771 $config_options->{checksum} = "on" if !($config_options->{checksum});
2772 $combo_checksum->set_active_id($config_options->{checksum});
2773 $combo_checksum->signal_connect (changed => sub {
2774 my $w = shift;
2775 $config_options->{checksum} = $w->get_active_text();
2776 });
2777 push @$labeled_widgets, "checksum";
2778 push @$labeled_widgets, $combo_checksum;
2779
2780 my $spinbutton_copies = Gtk3::SpinButton->new_with_range(1,3,1);
2781 $spinbutton_copies->set_tooltip_text("zfs copies property for rpool dataset (in addition to RAID redundancy!)");
2782 $spinbutton_copies->signal_connect ("value-changed" => sub {
2783 my $w = shift;
2784 $config_options->{copies} = $w->get_value_as_int();
c7779156
FG		 2785 });
2786 $config_options->{copies} = 1 if !defined($config_options->{copies});
2787 $spinbutton_copies->set_value($config_options->{copies});
2788 push @$labeled_widgets, "copies", $spinbutton_copies;
2789
d7fe65ff 2790 push @$labeled_widgets, "hdsize", $get_hdsize_spinbtn->();
c7779156
FG		 2791 return &$create_label_widget_grid($labeled_widgets);;
2792};
2793
aed81ff0
DM		 2794sub create_hdoption_view {
2795
2796 my $dialog = Gtk3::Dialog->new();
2797
2798 $dialog->set_title("Harddisk options");
2799
2800 $dialog->add_button("_OK", 1);
2801
2802 my $contarea = $dialog->get_content_area();
2803
2804 my $hbox2 = Gtk3::Box->new('horizontal', 0);
2805 $contarea->pack_start($hbox2, 1, 1, 10);
2806
2807 my $grid = Gtk3::Grid->new();
2808 $grid->set_column_spacing(10);
2809 $grid->set_row_spacing(10);
1464c7c9 2810
aed81ff0 2811 $hbox2->pack_start($grid, 1, 0, 10);
c6ed3b24
DM		 2812
2813 my $row = 0;
2814
aed81ff0
DM		 2815 # Filesystem type
2816
71590b6a 2817 my $label0 = Gtk3::Label->new("Filesystem");
aed81ff0 2818 $label0->set_alignment (1, 0.5);
c6ed3b24 2819 $grid->attach($label0, 0, $row, 1, 1);
1464c7c9 2820
bcbfab6b 2821 my $fstypecb = Gtk3::ComboBoxText->new();
aed81ff0 2822
121ebc59
DM		 2823 my $fstype = ['ext3', 'ext4', 'xfs',
2824 'zfs (RAID0)', 'zfs (RAID1)',
2825 'zfs (RAID10)', 'zfs (RAIDZ-1)',
6f52fc3d
DM		 2826 'zfs (RAIDZ-2)', 'zfs (RAIDZ-3)'];
2827
2828 push @$fstype, 'btrfs (RAID0)', 'btrfs (RAID1)', 'btrfs (RAID10)'
c20d6ab0 2829 if $setup->{enable_btrfs};
aed81ff0 2830
c6ed3b24
DM		 2831 my $tcount = 0;
2832 foreach my $tmp (@$fstype) {
2833 $fstypecb->append_text($tmp);
2834 $fstypecb->set_active ($tcount)
2835 if $config_options->{filesys} eq $tmp;
2836 $tcount++;
2837 }
2838
2839 $grid->attach($fstypecb, 1, $row, 1, 1);
2840
2841 $hbox2->show_all();
2842
2843 $row++;
2844
c7779156
FG		 2845 my $sep = Gtk3::HSeparator->new();
2846 $sep->set_visible(1);
2847 $grid->attach($sep, 0, $row, 2, 1);
2848 $row++;
aed81ff0 2849
f0a0d90b
TL		 2850 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.");
2851 $hw_raid_note->set_line_wrap(1);
2852 $hw_raid_note->set_max_width_chars(30);
f0a0d90b
TL		 2853 $hw_raid_note->set_visible(0);
2854 $grid->attach($hw_raid_note, 0, $row++, 2, 1);
2855
c7779156 2856 my $hdsize_labeled_widgets = [];
aed81ff0 2857
c7779156 2858 # size compute
c6ed3b24 2859 my $hdsize = 0;
aed81ff0
DM		 2860 if ( -b $target_hd) {
2861 $hdsize = int(hd_size ($target_hd) / (1024*1024.0)); # size in GB
c6ed3b24 2862 } elsif ($target_hd) {
aed81ff0
DM		 2863 $hdsize = int((-s $target_hd) / (1024*1024*1024.0));
2864 }
2865
d7fe65ff 2866 my $spinbutton_hdsize = $get_hdsize_spinbtn->($hdsize);
c7779156 2867 push @$hdsize_labeled_widgets, "hdsize", $spinbutton_hdsize;
aed81ff0
DM		 2868
2869 my $entry_swapsize = Gtk3::Entry->new();
2870 $entry_swapsize->set_tooltip_text("maximum SWAP size (GB)");
2871 $entry_swapsize->signal_connect (key_press_event => \&check_float);
9bb301fb 2872 $entry_swapsize->set_text($config_options->{swapsize}) if defined($config_options->{swapsize});
c7779156 2873 push @$hdsize_labeled_widgets, "swapsize", $entry_swapsize;
aed81ff0
DM		 2874
2875 my $entry_maxroot = Gtk3::Entry->new();
0adc7ca0
DM		 2876 if ($setup->{product} eq 'pve') {
2877 $entry_maxroot->set_tooltip_text("maximum size (GB) for LVM root volume");
2878 $entry_maxroot->signal_connect (key_press_event => \&check_float);
2879 $entry_maxroot->set_text($config_options->{maxroot}) if $config_options->{maxroot};
2880 push @$hdsize_labeled_widgets, "maxroot", $entry_maxroot;
2881 }
aed81ff0
DM		 2882
2883 my $entry_minfree = Gtk3::Entry->new();
034f75e4 2884 $entry_minfree->set_tooltip_text("minimum free LVM space (GB, required for LVM snapshots)");
aed81ff0 2885 $entry_minfree->signal_connect (key_press_event => \&check_float);
e093944c 2886 $entry_minfree->set_text($config_options->{minfree}) if defined($config_options->{minfree});
c7779156 2887 push @$hdsize_labeled_widgets, "minfree", $entry_minfree;
aed81ff0 2888
b6e875ca
DM		 2889 my $entry_maxvz;
2890 if ($setup->{product} eq 'pve') {
2891 $entry_maxvz = Gtk3::Entry->new();
2892 $entry_maxvz->set_tooltip_text("maximum size (GB) for LVM data volume");
2893 $entry_maxvz->signal_connect (key_press_event => \&check_float);
2ba9752e 2894 $entry_maxvz->set_text($config_options->{maxvz}) if defined($config_options->{maxvz});
b6e875ca
DM		 2895 push @$hdsize_labeled_widgets, "maxvz", $entry_maxvz;
2896 }
c7779156
FG		 2897
2898 my $options_stack = Gtk3::Stack->new();
2899 $options_stack->set_visible(1);
2900 $options_stack->set_hexpand(1);
2901 $options_stack->set_vexpand(1);
2902 $options_stack->add_titled(&$create_raid_disk_grid(), "raiddisk", "Disk Setup");
2903 $options_stack->add_titled(&$create_label_widget_grid($hdsize_labeled_widgets), "hdsize", "Size Options");
2904 $options_stack->add_titled(&$create_raid_advanced_grid("zfs"), "raidzfsadvanced", "Advanced Options");
2905 $options_stack->set_visible_child_name("raiddisk");
2906 my $options_stack_switcher = Gtk3::StackSwitcher->new();
2907 $options_stack_switcher->set_halign('center');
2908 $options_stack_switcher->set_stack($options_stack);
2909 $grid->attach($options_stack_switcher, 0, $row, 2, 1);
2910 $row++;
2911 $grid->attach($options_stack, 0, $row, 2, 1);
c6ed3b24 2912 $row++;
aed81ff0 2913
bd3a2e26 2914 $hdoption_first_setup = 0;
c7779156
FG		 2915
2916 my $switch_view = sub {
2917 my $raid = $config_options->{filesys} =~ m/zfs|btrfs/;
2918 my $enable_zfs_opts = $config_options->{filesys} =~ m/zfs/;
c6ed3b24 2919
c7779156
FG		 2920 $target_hd_combo->set_visible(!$raid);
2921 $options_stack->get_child_by_name("hdsize")->set_visible(!$raid);
2922 $options_stack->get_child_by_name("raiddisk")->set_visible($raid);
f0a0d90b 2923 $hw_raid_note->set_visible($raid);
c7779156
FG		 2924 $options_stack_switcher->set_visible($enable_zfs_opts);
2925 $options_stack->get_child_by_name("raidzfsadvanced")->set_visible($enable_zfs_opts);
2926 if ($raid) {
c6ed3b24 2927 $target_hd_label->set_text("Target: $config_options->{filesys} ");
c7779156 2928 $options_stack->set_visible_child_name("raiddisk");
c6ed3b24 2929 } else {
c6ed3b24
DM		 2930 $target_hd_label->set_text("Target Harddisk: ");
2931 }
c7779156
FG		 2932 my (undef, $pref_width) = $dialog->get_preferred_width();
2933 my (undef, $pref_height) = $dialog->get_preferred_height();
650a9aab 2934 $pref_height = 750 if $pref_height > 750;
c7779156 2935 $dialog->resize($pref_width, $pref_height);
f7b853d1
DM		 2936 };
2937
c7779156 2938 &$switch_view();
f7b853d1
DM		 2939
2940 $fstypecb->signal_connect (changed => sub {
2941 $config_options->{filesys} = $fstypecb->get_active_text();
c7779156 2942 &$switch_view();
f7b853d1
DM		 2943 });
2944
95844cc6
TL		 2945 my $sep2 = Gtk3::HSeparator->new();
2946 $sep2->set_visible(1);
2947 $contarea->pack_end($sep2, 1, 1, 10);
2948
c6ed3b24 2949 $dialog->show();
aed81ff0
DM		 2950
2951 $dialog->run();
2952
2953 my $get_float = sub {
2954 my ($entry) = @_;
2955
2956 my $text = $entry->get_text();
2957 return undef if !defined($text);
2958
2959 $text =~ s/^\s+//;
2960 $text =~ s/\s+$//;
2961
2962 return undef if $text !~ m/^\d+(\.\d+)?$/;
2963
2964 return $text;
2965 };
2966
2967 my $tmp;
2968
2969 if (($tmp = &$get_float($spinbutton_hdsize)) && ($tmp != $hdsize)) {
2970 $config_options->{hdsize} = $tmp;
2971 } else {
2972 delete $config_options->{hdsize};
2973 }
2974
2975 if (defined($tmp = &$get_float($entry_swapsize))) {
2976 $config_options->{swapsize} = $tmp;
2977 } else {
2978 delete $config_options->{swapsize};
2979 }
2980
2981 if (defined($tmp = &$get_float($entry_maxroot))) {
2982 $config_options->{maxroot} = $tmp;
2983 } else {
2984 delete $config_options->{maxroot};
2985 }
2986
2987 if (defined($tmp = &$get_float($entry_minfree))) {
2988 $config_options->{minfree} = $tmp;
2989 } else {
2990 delete $config_options->{minfree};
2991 }
2992
b6e875ca 2993 if ($entry_maxvz && defined($tmp = &$get_float($entry_maxvz))) {
aed81ff0
DM		 2994 $config_options->{maxvz} = $tmp;
2995 } else {
2996 delete $config_options->{maxvz};
2997 }
2998
2999 $dialog->destroy();
3000}
3001
121ebc59 3002my $get_raid_devlist = sub {
c6ed3b24
DM		 3003
3004 my $dev_name_hash = {};
3005
3006 my $devlist = [];
5f8e86d5 3007 for (my $i = 0; $i < @$hds; $i++) {
c6ed3b24
DM		 3008 if (my $hd = $config_options->{"disksel$i"}) {
3009 my ($disk, $devname, $size, $model) = @$hd;
1464c7c9 3010 die "device '$devname' is used more than once\n"
c6ed3b24
DM		 3011 if $dev_name_hash->{$devname};
3012 $dev_name_hash->{$devname} = $hd;
3013 push @$devlist, $hd;
3014 }
3015 }
3016
121ebc59
DM		 3017 return $devlist;
3018};
3019
14aacec8
FG		 3020sub zfs_mirror_size_check {
3021 my ($expected, $actual) = @_;
3022
3023 die "mirrored disks must have same size\n"
3024 if abs($expected - $actual) > $expected / 10;
3025}
3026
121ebc59
DM		 3027sub get_zfs_raid_setup {
3028
3029 my $filesys = $config_options->{filesys};
3030
3031 my $devlist = &$get_raid_devlist();
3032
224bb7b0 3033 my $diskcount = scalar(@$devlist);
0cfa502c 3034 die "$filesys needs at least one device\n" if $diskcount < 1;
c6ed3b24 3035
121ebc59
DM		 3036 my $bootdevlist = [];
3037
c6ed3b24
DM		 3038 my $cmd= '';
3039 if ($filesys eq 'zfs (RAID0)') {
3040 push @$bootdevlist, @$devlist[0];
3041 foreach my $hd (@$devlist) {
3042 $cmd .= " @$hd[1]";
3043 }
3044 } elsif ($filesys eq 'zfs (RAID1)') {
0cfa502c 3045 die "zfs (RAID1) needs at least 2 device\n" if $diskcount < 2;
c6ed3b24 3046 $cmd .= ' mirror ';
269c66a6 3047 my $hd = @$devlist[0];
14aacec8 3048 my $expected_size = @$hd[2]; # all disks need approximately same size
269c66a6 3049 foreach $hd (@$devlist) {
14aacec8 3050 zfs_mirror_size_check($expected_size, @$hd[2]);
c6ed3b24
DM		 3051 $cmd .= " @$hd[1]";
3052 push @$bootdevlist, $hd;
3053 }
3054 } elsif ($filesys eq 'zfs (RAID10)') {
0cfa502c 3055 die "zfs (RAID10) needs at least 4 device\n" if $diskcount < 4;
b8f4f0f9 3056 die "zfs (RAID10) needs an even number of devices\n" if $diskcount & 1;
1464c7c9 3057
c6ed3b24
DM		 3058 push @$bootdevlist, @$devlist[0], @$devlist[1];
3059
224bb7b0 3060 for (my $i = 0; $i < $diskcount; $i+=2) {
c6ed3b24
DM		 3061 my $hd1 = @$devlist[$i];
3062 my $hd2 = @$devlist[$i+1];
14aacec8 3063 zfs_mirror_size_check(@$hd1[2], @$hd2[2]); # pairs need approximately same size
c6ed3b24
DM		 3064 $cmd .= ' mirror ' . @$hd1[1] . ' ' . @$hd2[1];
3065 }
3066
3067 } elsif ($filesys =~ m/^zfs \(RAIDZ-([123])\)$/) {
3068 my $level = $1;
3069 my $mindisks = 2 + $level;
0cfa502c 3070 die "zfs (RAIDZ-$level) needs at least $mindisks devices\n" if scalar(@$devlist) < $mindisks;
269c66a6 3071 my $hd = @$devlist[0];
14aacec8 3072 my $expected_size = @$hd[2]; # all disks need approximately same size
097ecf8f 3073 $cmd .= " raidz$level";
269c66a6 3074 foreach $hd (@$devlist) {
14aacec8 3075 zfs_mirror_size_check($expected_size, @$hd[2]);
c6ed3b24
DM		 3076 $cmd .= " @$hd[1]";
3077 push @$bootdevlist, $hd;
3078 }
3079 } else {
3080 die "unknown zfs mode '$filesys'\n";
3081 }
3082
3083 return ($devlist, $bootdevlist, $cmd);
3084}
3085
121ebc59
DM		 3086sub get_btrfs_raid_setup {
3087
3088 my $filesys = $config_options->{filesys};
3089
3090 my $devlist = &$get_raid_devlist();
3091
3092 my $diskcount = scalar(@$devlist);
0cfa502c 3093 die "$filesys needs at least one device\n" if $diskcount < 1;
121ebc59
DM		 3094
3095 my $mode;
3096
3097 if ($diskcount == 1) {
3098 $mode = 'single';
3099 } else {
3100 if ($filesys eq 'btrfs (RAID0)') {
3101 $mode = 'raid0';
3102 } elsif ($filesys eq 'btrfs (RAID1)') {
0cfa502c 3103 die "btrfs (RAID1) needs at least 2 device\n" if $diskcount < 2;
121ebc59
DM		 3104 $mode = 'raid1';
3105 } elsif ($filesys eq 'btrfs (RAID10)') {
0cfa502c 3106 die "btrfs (RAID10) needs at least 4 device\n" if $diskcount < 4;
121ebc59
DM		 3107 $mode = 'raid10';
3108 } else {
9d69f3d3 3109 die "unknown btrfs mode '$filesys'\n";
121ebc59
DM		 3110 }
3111 }
3112
3113 return ($devlist, $mode);
3114}
3115
218a4b6b 3116my $last_hd_selected = 0;
89a12446
DM		 3117sub create_hdsel_view {
3118
451b1da5 3119 $prev_btn->set_sensitive(1); # enable previous button at this point
201a5120 3120
71590b6a 3121 cleanup_view();
89a12446 3122
71590b6a
OB		 3123 my $vbox = Gtk3::VBox->new(0, 0);
3124 $inbox->pack_start($vbox, 1, 0, 0);
3125 my $hbox = Gtk3::HBox->new(0, 0);
3126 $vbox->pack_start($hbox, 0, 0, 10);
968fa90b 3127
89a12446 3128 my ($disk, $devname, $size, $model) = @{@$hds[0]};
9227a70f 3129 $target_hd = $devname if !defined($target_hd);
89a12446 3130
71590b6a
OB		 3131 $target_hd_label = Gtk3::Label->new("Target Harddisk: ");
3132 $hbox->pack_start($target_hd_label, 0, 0, 0);
89a12446 3133
bcbfab6b 3134 $target_hd_combo = Gtk3::ComboBoxText->new();
89a12446 3135
1aa5bd02
DM		 3136 foreach my $hd (@$hds) {
3137 ($disk, $devname, $size, $model) = @$hd;
71590b6a 3138 $target_hd_combo->append_text (get_device_desc($devname, $size, $model));
1aa5bd02 3139 }
89a12446 3140
90af1603
OB		 3141 my $raid = $config_options->{filesys} =~ m/zfs|btrfs/;
3142 if ($raid) {
3143 $target_hd_label->set_text("Target: $config_options->{filesys} ");
3144 $target_hd_combo->set_visible(0);
3145 $target_hd_combo->set_no_show_all(1);
3146 }
218a4b6b 3147 $target_hd_combo->set_active($last_hd_selected);
71590b6a 3148 $target_hd_combo->signal_connect(changed => sub {
1aa5bd02
DM		 3149 $a = shift->get_active;
3150 my ($disk, $devname) = @{@$hds[$a]};
3b959bef 3151 $last_hd_selected = $a;
1aa5bd02 3152 $target_hd = $devname;
1aa5bd02 3153 });
1464c7c9 3154
71590b6a 3155 $hbox->pack_start($target_hd_combo, 0, 0, 10);
aed81ff0 3156
71590b6a 3157 my $options = Gtk3::Button->new('_Options');
aed81ff0
DM		 3158 $options->signal_connect (clicked => \&create_hdoption_view);
3159 $hbox->pack_start ($options, 0, 0, 0);
3160
89a12446
DM		 3161
3162 $inbox->show_all;
3163
201a5120 3164 display_html();
c6ed3b24 3165
71590b6a 3166 set_next(undef, sub {
c6ed3b24
DM		 3167
3168 if ($config_options->{filesys} =~ m/zfs/) {
a7d40341 3169 my ($devlist) = eval { get_zfs_raid_setup() };
c6ed3b24 3170 if (my $err = $@) {
303dfb2c
TL		 3171 display_message("Warning: $err\nPlease fix ZFS setup first.");
3172 return;
c6ed3b24 3173 }
303dfb2c 3174 $config_options->{target_hds} = [ map { $_->[1] } @$devlist ];
121ebc59 3175 } elsif ($config_options->{filesys} =~ m/btrfs/) {
a7d40341 3176 my ($devlist) = eval { get_btrfs_raid_setup() };
121ebc59 3177 if (my $err = $@) {
303dfb2c
TL		 3178 display_message("Warning: $err\nPlease fix BTRFS setup first.");
3179 return;
121ebc59 3180 }
303dfb2c 3181 $config_options->{target_hds} = [ map { $_->[1] } @$devlist ];
c6ed3b24 3182 } else {
a7d40341 3183 $config_options->{target_hds} = [ $target_hd ];
c6ed3b24 3184 }
303dfb2c
TL		 3185
3186 $step_number++;
3187 create_country_view();
c6ed3b24 3188 });
89a12446
DM		 3189}
3190
3191sub create_extract_view {
3192
71590b6a 3193 cleanup_view();
89a12446 3194
550958aa
DM		 3195 display_info();
3196
201a5120 3197 $next->set_sensitive(0);
ac3ee85b
TL		 3198 $prev_btn->set_sensitive(0);
3199 $prev_btn->hide();
89a12446 3200
71590b6a 3201 my $vbox = Gtk3::VBox->new(0, 0);
89a12446 3202 $inbox->pack_start ($vbox, 1, 0, 0);
71590b6a 3203 my $hbox = Gtk3::HBox->new(0, 0);
53986d77 3204 $vbox->pack_start ($hbox, 0, 0, 10);
89a12446 3205
71590b6a 3206 my $vbox2 = Gtk3::VBox->new(0, 0);
89a12446
DM		 3207 $hbox->pack_start ($vbox2, 0, 0, 0);
3208
71590b6a 3209 $progress_status = Gtk3::Label->new('');
89a12446 3210 $vbox2->pack_start ($progress_status, 1, 1, 0);
968fa90b 3211
7becc472 3212 $progress = Gtk3::ProgressBar->new;
45feca6f 3213 $progress->set_show_text(1);
7becc472 3214 $progress->set_size_request (600, -1);
89a12446 3215
71590b6a 3216 $vbox2->pack_start($progress, 0, 0, 0);
89a12446 3217
201a5120 3218 $inbox->show_all();
89a12446
DM		 3219
3220 my $tdir = $opt_testmode ? "target" : "/target";
3221 mkdir $tdir;
97980bf2 3222 my $base = "${proxmox_cddir}/$setup->{product}-base.squashfs";
89a12446 3223
71590b6a 3224 eval { extract_data($base, $tdir); };
89a12446
DM		 3225 my $err = $@;
3226
201a5120 3227 $next->set_sensitive(1);
89a12446 3228
71590b6a 3229 set_next("_Reboot", sub { exit (0); } );
89a12446 3230
296cf41f 3231 if ($err) {
201a5120
OB		 3232 display_html("fail.htm");
3233 display_error($err);
296cf41f 3234 } else {
201a5120
OB		 3235 cleanup_view();
3236 display_html("success.htm");
296cf41f 3237 }
89a12446
DM		 3238}
3239
89a12446
DM		 3240sub create_intro_view {
3241
451b1da5 3242 $prev_btn->set_sensitive(0);
201a5120
OB		 3243
3244 cleanup_view();
89a12446 3245
ca951e77 3246 if (int($total_memory) < 1024) {
18a9811e
TL		 3247 my $fullname = $product_fullname->{$setup->{product}};
3248
3befbf97 3249 display_error("Less than 1 GiB of usable memory detected, installation will probably fail.\n\n".
18a9811e 3250 "See 'System Requirements' in the $fullname documentation.");
2b85ee1b
OB		 3251 }
3252
bdeca872
DM		 3253 if ($setup->{product} eq 'pve') {
3254 eval {
3255 my $cpuinfo = file_get_contents('/proc/cpuinfo');
3256 if ($cpuinfo && !($cpuinfo =~ /^flags\s*:.*(vmx|svm)/m)) {
2780ea4f 3257 display_error("No support for KVM virtualization detected.\n\n" .
bdeca872
DM		 3258 "Check BIOS settings for Intel VT / AMD-V / SVM.")
3259 }
3260 };
3261 }
7fff0d85 3262
201a5120 3263 display_html();
89a12446 3264
201a5120 3265 $step_number++;
71590b6a 3266 set_next("I a_gree", \&create_hdsel_view);
89a12446
DM		 3267}
3268
71590b6a 3269$ipconf = get_ip_config();
89a12446 3270
9d1f1ee3 3271$country = detect_country() if $ipconf->{default} || $opt_testmode;
89a12446
DM		 3272
3273# read country, kmap and timezone infos
71590b6a 3274$cmap = read_cmap();
89a12446 3275
9d1f1ee3
FG		 3276if (!defined($cmap->{country}->{$country})) {
3277 print $logfd "ignoring detected country '$country', invalid or unknown\n";
3278 $country = undef;
3279}
3280
89a12446
DM		 3281create_main_window ();
3282
ff2ce71c
FG		 3283my $initial_error = 0;
3284
89a12446
DM		 3285if (!defined ($hds) || (scalar (@$hds) <= 0)) {
3286 print "no hardisks found\n";
ff2ce71c 3287 $initial_error = 1;
201a5120 3288 display_html("nohds.htm");
71590b6a 3289 set_next("Reboot", sub { exit(0); } );
89a12446 3290} else {
89a12446
DM		 3291 foreach my $hd (@$hds) {
3292 my ($disk, $devname) = @$hd;
3293 next if $devname =~ m|^/dev/md\d+$|;
3294 print "found Disk$disk N:$devname\n";
3295 }
89a12446
DM		 3296}
3297
72836708
FG		 3298if (!$initial_error && (scalar keys %{ $ipconf->{ifaces} } == 0)) {
3299 print "no network interfaces found\n";
3300 $initial_error = 1;
201a5120 3301 display_html("nonics.htm");
71590b6a 3302 set_next("Reboot", sub { exit(0); } );
72836708
FG		 3303}
3304
ff2ce71c
FG		 3305create_intro_view () if !$initial_error;
3306
7becc472 3307Gtk3->main;
89a12446
DM		 3308
3309exit 0;
Bare Metal Installer