]>
Commit | Line | Data |
---|---|---|
7af97ad5 | 1 | package PVE::LXC::Create; |
5b4657d0 DM |
2 | |
3 | use strict; | |
4 | use warnings; | |
5 | use File::Basename; | |
6 | use File::Path; | |
7 | use Data::Dumper; | |
8 | ||
9 | use PVE::Storage; | |
10 | use PVE::LXC; | |
7af97ad5 | 11 | use PVE::LXC::Setup; |
f507c3a7 | 12 | use PVE::VZDump::ConvertOVZ; |
580b6916 | 13 | use PVE::Tools; |
5b4657d0 | 14 | |
6ed8c6dd DM |
15 | sub next_free_nbd_dev { |
16 | ||
17 | for(my $i = 0;;$i++) { | |
18 | my $dev = "/dev/nbd$i"; | |
19 | last if ! -b $dev; | |
20 | next if -f "/sys/block/nbd$i/pid"; # busy | |
21 | return $dev; | |
22 | } | |
23 | die "unable to find free nbd device\n"; | |
24 | } | |
25 | ||
5b4657d0 | 26 | sub restore_archive { |
9c23d567 | 27 | my ($archive, $rootdir, $conf, $no_unpack_error) = @_; |
5b4657d0 | 28 | |
c6a605f9 | 29 | my ($id_map, $rootuid, $rootgid) = PVE::LXC::parse_id_maps($conf); |
01dce99b | 30 | my $userns_cmd = PVE::LXC::userns_command($id_map); |
5b4657d0 | 31 | |
fc4e132e WB |
32 | my $cmd = [@$userns_cmd, 'tar', 'xpf', $archive, '--totals', |
33 | @$PVE::LXC::COMMON_TAR_FLAGS, | |
34 | '-C', $rootdir]; | |
5b4657d0 | 35 | |
112aeeb4 WB |
36 | # skip-old-files doesn't have anything to do with time (old/new), but is |
37 | # simply -k (annoyingly also called --keep-old-files) without the 'treat | |
38 | # existing files as errors' part... iow. it's bsdtar's interpretation of -k | |
39 | # *sigh*, gnu... | |
40 | push @$cmd, '--skip-old-files'; | |
5b4657d0 DM |
41 | push @$cmd, '--anchored'; |
42 | push @$cmd, '--exclude' , './dev/*'; | |
43 | ||
6034ae50 DM |
44 | if ($archive eq '-') { |
45 | print "extracting archive from STDIN\n"; | |
9c23d567 | 46 | eval { PVE::Tools::run_command($cmd, input => "<&STDIN"); }; |
27916659 | 47 | } else { |
6034ae50 | 48 | print "extracting archive '$archive'\n"; |
9c23d567 | 49 | eval { PVE::Tools::run_command($cmd); }; |
27916659 | 50 | } |
9c23d567 | 51 | die $@ if $@ && !$no_unpack_error; |
6034ae50 | 52 | |
27916659 | 53 | # determine file type of /usr/bin/file itself to get guests' architecture |
a9d131df TL |
54 | $cmd = [@$userns_cmd, '/usr/bin/file', '-b', '-L', "$rootdir/usr/bin/file"]; |
55 | PVE::Tools::run_command($cmd, outfunc => sub { | |
56 | shift =~ /^ELF (\d{2}-bit)/; # safely assumes x86 linux | |
57 | my $arch_str = $1; | |
27916659 | 58 | $conf->{'arch'} = 'amd64'; # defaults to 64bit |
a9d131df | 59 | if(defined($arch_str)) { |
27916659 DM |
60 | $conf->{'arch'} = 'i386' if $arch_str =~ /32/; |
61 | print "Detected container architecture: $conf->{'arch'}\n"; | |
a9d131df | 62 | } else { |
27916659 DM |
63 | print "CT architecture detection failed, falling back to amd64.\n" . |
64 | "Edit the config in /etc/pve/nodes/{node}/lxc/{vmid}/config " . | |
65 | "to set another architecture.\n"; | |
a9d131df TL |
66 | } |
67 | }); | |
5b4657d0 DM |
68 | } |
69 | ||
f507c3a7 WL |
70 | sub tar_archive_search_conf { |
71 | my ($archive) = @_; | |
72 | ||
73 | die "ERROR: file '$archive' does not exist\n" if ! -f $archive; | |
74 | ||
75 | my $pid = open(my $fh, '-|', 'tar', 'tf', $archive) || | |
27916659 | 76 | die "unable to open file '$archive'\n"; |
f507c3a7 WL |
77 | |
78 | my $file; | |
effa4f43 | 79 | while (defined($file = <$fh>)) { |
27916659 | 80 | if ($file =~ m!^(\./etc/vzdump/(pct|vps)\.conf)$!) { |
effa4f43 DM |
81 | $file = $1; # untaint |
82 | last; | |
83 | } | |
f507c3a7 WL |
84 | } |
85 | ||
86 | kill 15, $pid; | |
87 | waitpid $pid, 0; | |
88 | close $fh; | |
89 | ||
effa4f43 | 90 | die "ERROR: archive contains no configuration file\n" if !$file; |
f507c3a7 WL |
91 | chomp $file; |
92 | ||
93 | return $file; | |
94 | } | |
95 | ||
96 | sub recover_config { | |
effa4f43 | 97 | my ($archive) = @_; |
f507c3a7 WL |
98 | |
99 | my $conf_file = tar_archive_search_conf($archive); | |
27916659 | 100 | |
f507c3a7 WL |
101 | my $raw = ''; |
102 | my $out = sub { | |
103 | my $output = shift; | |
104 | $raw .= "$output\n"; | |
105 | }; | |
106 | ||
107 | PVE::Tools::run_command(['tar', '-xpOf', $archive, $conf_file, '--occurrence'], outfunc => $out); | |
108 | ||
effa4f43 | 109 | my $conf; |
27916659 | 110 | my $disksize; |
f507c3a7 | 111 | |
27916659 | 112 | if ($conf_file =~ m/pct\.conf/) { |
f507c3a7 | 113 | |
3381b5c2 | 114 | $conf = PVE::LXC::parse_pct_config("/lxc/0.conf" , $raw); |
f507c3a7 | 115 | |
27916659 | 116 | delete $conf->{snapshots}; |
bb1ac2de | 117 | delete $conf->{template}; # restored CT is never a template |
27916659 DM |
118 | |
119 | if (defined($conf->{rootfs})) { | |
120 | my $rootinfo = PVE::LXC::parse_ct_mountpoint($conf->{rootfs}); | |
121 | $disksize = $rootinfo->{size} if defined($rootinfo->{size}); | |
122 | } | |
123 | ||
effa4f43 | 124 | } elsif ($conf_file =~ m/vps\.conf/) { |
27916659 DM |
125 | |
126 | ($conf, $disksize) = PVE::VZDump::ConvertOVZ::convert_ovz($raw); | |
127 | ||
effa4f43 DM |
128 | } else { |
129 | ||
27916659 | 130 | die "internal error"; |
f507c3a7 WL |
131 | } |
132 | ||
27916659 | 133 | return wantarray ? ($conf, $disksize) : $conf; |
f507c3a7 WL |
134 | } |
135 | ||
5b4657d0 | 136 | sub restore_and_configure { |
7c78b6cc | 137 | my ($vmid, $archive, $rootdir, $conf, $password, $restore, $no_unpack_error) = @_; |
5b4657d0 | 138 | |
9c23d567 | 139 | restore_archive($archive, $rootdir, $conf, $no_unpack_error); |
5b4657d0 | 140 | |
f507c3a7 | 141 | if (!$restore) { |
7af97ad5 | 142 | my $lxc_setup = PVE::LXC::Setup->new($conf, $rootdir); # detect OS |
5b4657d0 | 143 | |
f507c3a7 WL |
144 | PVE::LXC::write_config($vmid, $conf); # safe config (after OS detection) |
145 | $lxc_setup->post_create_hook($password); | |
27916659 DM |
146 | } else { |
147 | # restore: try to extract configuration from archive | |
5b4657d0 | 148 | |
27916659 | 149 | my $pct_cfg_fn = "$rootdir/etc/vzdump/pct.conf"; |
580b6916 | 150 | my $pct_fwcfg_fn = "$rootdir/etc/vzdump/pct.fw"; |
27916659 DM |
151 | my $ovz_cfg_fn = "$rootdir/etc/vzdump/vps.conf"; |
152 | if (-f $pct_cfg_fn) { | |
153 | my $raw = PVE::Tools::file_get_contents($pct_cfg_fn); | |
154 | my $oldconf = PVE::LXC::parse_pct_config("/lxc/$vmid.conf", $raw); | |
5b4657d0 | 155 | |
27916659 | 156 | foreach my $key (keys %$oldconf) { |
425b62cb | 157 | next if $key eq 'digest' || $key eq 'rootfs' || $key eq 'snapshots' || $key eq 'unprivileged'; |
ad2884cb | 158 | next if $key =~ /^mp\d+$/; # don't recover mountpoints |
27916659 DM |
159 | $conf->{$key} = $oldconf->{$key} if !defined($conf->{$key}); |
160 | } | |
43a9184a | 161 | unlink($pct_cfg_fn); |
580b6916 WL |
162 | |
163 | if (-f $pct_fwcfg_fn) { | |
164 | PVE::Tools::file_copy($pct_fwcfg_fn, "/etc/pve/firewall/$vmid.fw"); | |
165 | unlink $pct_fwcfg_fn; | |
166 | } | |
167 | ||
27916659 DM |
168 | } elsif (-f $ovz_cfg_fn) { |
169 | print "###########################################################\n"; | |
170 | print "Converting OpenVZ configuration to LXC.\n"; | |
171 | print "Please check the configuration and reconfigure the network.\n"; | |
172 | print "###########################################################\n"; | |
173 | ||
d394e3c9 WB |
174 | my $lxc_setup = PVE::LXC::Setup->new($conf, $rootdir); # detect OS |
175 | $conf->{ostype} = $lxc_setup->{conf}->{ostype}; | |
27916659 DM |
176 | my $raw = PVE::Tools::file_get_contents($ovz_cfg_fn); |
177 | my $oldconf = PVE::VZDump::ConvertOVZ::convert_ovz($raw); | |
178 | foreach my $key (keys %$oldconf) { | |
179 | $conf->{$key} = $oldconf->{$key} if !defined($conf->{$key}); | |
180 | } | |
43a9184a | 181 | unlink($ovz_cfg_fn); |
5b4657d0 | 182 | |
27916659 DM |
183 | } else { |
184 | print "###########################################################\n"; | |
185 | print "Backup archive does not contain any configuration\n"; | |
186 | print "###########################################################\n"; | |
187 | } | |
188 | } | |
5b4657d0 DM |
189 | } |
190 | ||
5b4657d0 | 191 | sub create_rootfs { |
7c78b6cc | 192 | my ($storage_cfg, $vmid, $conf, $archive, $password, $restore, $no_unpack_error) = @_; |
148d1cb4 DM |
193 | |
194 | my $config_fn = PVE::LXC::config_file($vmid); | |
195 | if (-f $config_fn) { | |
196 | die "container exists" if !$restore; # just to be sure | |
197 | ||
198 | my $old_conf = PVE::LXC::load_config($vmid); | |
27916659 DM |
199 | |
200 | # destroy old container volume | |
077d7669 | 201 | PVE::LXC::destroy_lxc_container($storage_cfg, $vmid, $old_conf); |
148d1cb4 | 202 | |
27916659 | 203 | # do not copy all settings to restored container |
425b62cb | 204 | foreach my $opt (qw(rootfs digest snapshots arch ostype unprivileged)) { |
27916659 | 205 | delete $old_conf->{$opt}; |
f09ce711 | 206 | } |
ed680718 DM |
207 | foreach my $opt (keys %$old_conf) { |
208 | delete $old_conf->{$opt} if $opt =~ m/^mp\d+$/; | |
209 | } | |
210 | ||
27916659 | 211 | PVE::LXC::update_pct_config($vmid, $conf, 0, $old_conf); |
5b4657d0 | 212 | |
148d1cb4 | 213 | PVE::LXC::create_config($vmid, $conf); |
5b4657d0 | 214 | |
148d1cb4 DM |
215 | } else { |
216 | ||
217 | PVE::LXC::create_config($vmid, $conf); | |
218 | } | |
219 | ||
7fc16e9e | 220 | eval { |
da629848 | 221 | my $rootdir = PVE::LXC::mount_all($vmid, $storage_cfg, $conf); |
7c78b6cc | 222 | restore_and_configure($vmid, $archive, $rootdir, $conf, $password, $restore, $no_unpack_error); |
7fc16e9e | 223 | }; |
4497bfe7 WB |
224 | my $err = $@; |
225 | PVE::LXC::umount_all($vmid, $storage_cfg, $conf, $err ? 1 : 0); | |
bce1b15d | 226 | PVE::Storage::deactivate_volumes($storage_cfg, PVE::LXC::get_vm_volumes($conf)); |
4497bfe7 | 227 | die $err if $err; |
5b4657d0 DM |
228 | } |
229 | ||
230 | 1; |