]>
Commit | Line | Data |
---|---|---|
0c9a7596 AD |
1 | package PVE::QemuServer::Cloudinit; |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use File::Path; | |
7 | use Digest::SHA; | |
8 | use URI::Escape; | |
545eec65 | 9 | use MIME::Base64 qw(encode_base64); |
2be1fb0a | 10 | use Storable qw(dclone); |
0c9a7596 AD |
11 | |
12 | use PVE::Tools qw(run_command file_set_contents); | |
13 | use PVE::Storage; | |
14 | use PVE::QemuServer; | |
238af88e | 15 | use PVE::QemuServer::Helpers; |
0c9a7596 | 16 | |
7d761a01 ML |
17 | use constant CLOUDINIT_DISK_SIZE => 4 * 1024 * 1024; # 4MiB in bytes |
18 | ||
0c9a7596 | 19 | sub commit_cloudinit_disk { |
4a853915 | 20 | my ($conf, $vmid, $drive, $volname, $storeid, $files, $label) = @_; |
f62c36cf WB |
21 | |
22 | my $path = "/run/pve/cloudinit/$vmid/"; | |
23 | mkpath $path; | |
24 | foreach my $filepath (keys %$files) { | |
25 | if ($filepath !~ m@^(.*)\/[^/]+$@) { | |
26 | die "internal error: bad file name in cloud-init image: $filepath\n"; | |
27 | } | |
28 | my $dirname = $1; | |
29 | mkpath "$path/$dirname"; | |
30 | ||
31 | my $contents = $files->{$filepath}; | |
32 | file_set_contents("$path/$filepath", $contents); | |
33 | } | |
41cd94a0 WB |
34 | |
35 | my $storecfg = PVE::Storage::config(); | |
36 | my $iso_path = PVE::Storage::path($storecfg, $drive->{file}); | |
37 | my $scfg = PVE::Storage::storage_config($storecfg, $storeid); | |
7e8ab2a9 | 38 | my $format = PVE::QemuServer::qemu_img_format($scfg, $volname); |
b56d56cf | 39 | |
9a13f0fe ML |
40 | my $size = eval { PVE::Storage::volume_size_info($storecfg, $drive->{file}) }; |
41 | if (!defined($size) || $size <= 0) { | |
92fcaab7 | 42 | $volname =~ m/(vm-$vmid-cloudinit(.\Q$format\E)?)/; |
7e8ab2a9 | 43 | my $name = $1; |
84821d15 TL |
44 | $size = 4 * 1024; |
45 | PVE::Storage::vdisk_alloc($storecfg, $storeid, $vmid, $format, $name, $size); | |
46 | $size *= 1024; # vdisk alloc takes KB, qemu-img dd's osize takes byte | |
7e8ab2a9 | 47 | } |
9a13f0fe ML |
48 | my $plugin = PVE::Storage::Plugin->lookup($scfg->{type}); |
49 | $plugin->activate_volume($storeid, $scfg, $volname); | |
7e8ab2a9 | 50 | |
86a2e85a | 51 | print "generating cloud-init ISO\n"; |
f62c36cf | 52 | eval { |
86a2e85a TL |
53 | run_command([ |
54 | ['genisoimage', '-quiet', '-iso-level', '3', '-R', '-V', $label, $path], | |
55 | ['qemu-img', 'dd', '-n', '-f', 'raw', '-O', $format, 'isize=0', "osize=$size", "of=$iso_path"] | |
56 | ]); | |
f62c36cf WB |
57 | }; |
58 | my $err = $@; | |
59 | rmtree($path); | |
60 | die $err if $err; | |
0c9a7596 AD |
61 | } |
62 | ||
41cd94a0 WB |
63 | sub get_cloudinit_format { |
64 | my ($conf) = @_; | |
65 | if (defined(my $format = $conf->{citype})) { | |
66 | return $format; | |
67 | } | |
0c9a7596 | 68 | |
41cd94a0 WB |
69 | # No format specified, default based on ostype because windows' |
70 | # cloudbased-init only supports configdrivev2, whereas on linux we need | |
71 | # to use mac addresses because regular cloudinit doesn't map 'ethX' to | |
72 | # the new predicatble network device naming scheme. | |
73 | if (defined(my $ostype = $conf->{ostype})) { | |
74 | return 'configdrive2' | |
238af88e | 75 | if PVE::QemuServer::Helpers::windows_version($ostype); |
41cd94a0 | 76 | } |
0c9a7596 | 77 | |
41cd94a0 | 78 | return 'nocloud'; |
0c9a7596 AD |
79 | } |
80 | ||
e8ac2138 | 81 | sub get_hostname_fqdn { |
9a6ccb12 DC |
82 | my ($conf, $vmid) = @_; |
83 | my $hostname = $conf->{name} // "VM$vmid"; | |
e8ac2138 WB |
84 | my $fqdn; |
85 | if ($hostname =~ /\./) { | |
86 | $fqdn = $hostname; | |
87 | $hostname =~ s/\..*$//; | |
88 | } elsif (my $search = $conf->{searchdomain}) { | |
89 | $fqdn = "$hostname.$search"; | |
3e546c5a LN |
90 | } else { |
91 | $fqdn = $hostname; | |
0c9a7596 | 92 | } |
e8ac2138 | 93 | return ($hostname, $fqdn); |
41cd94a0 WB |
94 | } |
95 | ||
67864d19 WB |
96 | sub get_dns_conf { |
97 | my ($conf) = @_; | |
98 | ||
99 | # Same logic as in pve-container, but without the testcase special case | |
100 | my $host_resolv_conf = PVE::INotify::read_file('resolvconf'); | |
101 | ||
102 | my $searchdomains = [ | |
103 | split(/\s+/, $conf->{searchdomain} // $host_resolv_conf->{search}) | |
104 | ]; | |
105 | ||
106 | my $nameserver = $conf->{nameserver}; | |
107 | if (!defined($nameserver)) { | |
108 | $nameserver = [grep { $_ } $host_resolv_conf->@{qw(dns1 dns2 dns3)}]; | |
109 | } else { | |
110 | $nameserver = [split(/\s+/, $nameserver)]; | |
111 | } | |
112 | ||
113 | return ($searchdomains, $nameserver); | |
114 | } | |
115 | ||
41cd94a0 | 116 | sub cloudinit_userdata { |
9a6ccb12 | 117 | my ($conf, $vmid) = @_; |
41cd94a0 | 118 | |
9a6ccb12 | 119 | my ($hostname, $fqdn) = get_hostname_fqdn($conf, $vmid); |
41cd94a0 | 120 | |
7b42f951 | 121 | my $content = "#cloud-config\n"; |
41cd94a0 | 122 | |
e8ac2138 | 123 | $content .= "hostname: $hostname\n"; |
8de34458 | 124 | $content .= "manage_etc_hosts: true\n"; |
3e546c5a | 125 | $content .= "fqdn: $fqdn\n"; |
e8ac2138 | 126 | |
7b42f951 WB |
127 | my $username = $conf->{ciuser}; |
128 | my $password = $conf->{cipassword}; | |
41cd94a0 WB |
129 | |
130 | $content .= "user: $username\n" if defined($username); | |
7b42f951 WB |
131 | $content .= "disable_root: False\n" if defined($username) && $username eq 'root'; |
132 | $content .= "password: $password\n" if defined($password); | |
41cd94a0 WB |
133 | |
134 | if (defined(my $keys = $conf->{sshkeys})) { | |
0c9a7596 | 135 | $keys = URI::Escape::uri_unescape($keys); |
f7d1505b | 136 | $keys = [map { my $key = $_; chomp $key; $key } split(/\n/, $keys)]; |
0c9a7596 | 137 | $keys = [grep { /\S/ } @$keys]; |
41cd94a0 | 138 | $content .= "ssh_authorized_keys:\n"; |
0c9a7596 | 139 | foreach my $k (@$keys) { |
41cd94a0 | 140 | $content .= " - $k\n"; |
0c9a7596 AD |
141 | } |
142 | } | |
41cd94a0 WB |
143 | $content .= "chpasswd:\n"; |
144 | $content .= " expire: False\n"; | |
145 | ||
7b42f951 WB |
146 | if (!defined($username) || $username ne 'root') { |
147 | $content .= "users:\n"; | |
148 | $content .= " - default\n"; | |
149 | } | |
0c9a7596 | 150 | |
ec11b92a | 151 | $content .= "package_upgrade: true\n" if !defined($conf->{ciupgrade}) || $conf->{ciupgrade}; |
0c9a7596 | 152 | |
0c9a7596 AD |
153 | return $content; |
154 | } | |
155 | ||
86280789 WB |
156 | sub split_ip4 { |
157 | my ($ip) = @_; | |
158 | my ($addr, $mask) = split('/', $ip); | |
159 | die "not a CIDR: $ip\n" if !defined $mask; | |
160 | return ($addr, $PVE::Network::ipv4_reverse_mask->[$mask]); | |
161 | } | |
162 | ||
41cd94a0 WB |
163 | sub configdrive2_network { |
164 | my ($conf) = @_; | |
0c9a7596 AD |
165 | |
166 | my $content = "auto lo\n"; | |
67864d19 WB |
167 | $content .= "iface lo inet loopback\n\n"; |
168 | ||
169 | my ($searchdomains, $nameservers) = get_dns_conf($conf); | |
170 | if ($nameservers && @$nameservers) { | |
171 | $nameservers = join(' ', @$nameservers); | |
172 | $content .= " dns_nameservers $nameservers\n"; | |
173 | } | |
174 | if ($searchdomains && @$searchdomains) { | |
175 | $searchdomains = join(' ', @$searchdomains); | |
176 | $content .= " dns_search $searchdomains\n"; | |
177 | } | |
0c9a7596 | 178 | |
6ef6d68f | 179 | my @ifaces = grep { /^net(\d+)$/ } keys %$conf; |
d4fa9981 | 180 | foreach my $iface (sort @ifaces) { |
0c9a7596 AD |
181 | (my $id = $iface) =~ s/^net//; |
182 | next if !$conf->{"ipconfig$id"}; | |
41cd94a0 | 183 | my $net = PVE::QemuServer::parse_ipconfig($conf->{"ipconfig$id"}); |
0c9a7596 AD |
184 | $id = "eth$id"; |
185 | ||
186 | $content .="auto $id\n"; | |
187 | if ($net->{ip}) { | |
188 | if ($net->{ip} eq 'dhcp') { | |
189 | $content .= "iface $id inet dhcp\n"; | |
190 | } else { | |
86280789 | 191 | my ($addr, $mask) = split_ip4($net->{ip}); |
0c9a7596 | 192 | $content .= "iface $id inet static\n"; |
6f3999e0 ML |
193 | $content .= " address $addr\n"; |
194 | $content .= " netmask $mask\n"; | |
195 | $content .= " gateway $net->{gw}\n" if $net->{gw}; | |
0c9a7596 AD |
196 | } |
197 | } | |
198 | if ($net->{ip6}) { | |
199 | if ($net->{ip6} =~ /^(auto|dhcp)$/) { | |
200 | $content .= "iface $id inet6 $1\n"; | |
201 | } else { | |
202 | my ($addr, $mask) = split('/', $net->{ip6}); | |
203 | $content .= "iface $id inet6 static\n"; | |
6f3999e0 ML |
204 | $content .= " address $addr\n"; |
205 | $content .= " netmask $mask\n"; | |
206 | $content .= " gateway $net->{gw6}\n" if $net->{gw6}; | |
0c9a7596 AD |
207 | } |
208 | } | |
209 | } | |
210 | ||
0c9a7596 AD |
211 | return $content; |
212 | } | |
213 | ||
e73ca4d0 ML |
214 | sub configdrive2_gen_metadata { |
215 | my ($user, $network) = @_; | |
216 | ||
217 | my $uuid_str = Digest::SHA::sha1_hex($user.$network); | |
218 | return configdrive2_metadata($uuid_str); | |
219 | } | |
220 | ||
41cd94a0 WB |
221 | sub configdrive2_metadata { |
222 | my ($uuid) = @_; | |
223 | return <<"EOF"; | |
224 | { | |
225 | "uuid": "$uuid", | |
226 | "network_config": { "content_path": "/content/0000" } | |
227 | } | |
228 | EOF | |
229 | } | |
230 | ||
231 | sub generate_configdrive2 { | |
232 | my ($conf, $vmid, $drive, $volname, $storeid) = @_; | |
233 | ||
101beafe | 234 | my ($user_data, $network_data, $meta_data, $vendor_data) = get_custom_cloudinit_files($conf); |
cb702ebe DL |
235 | $user_data = cloudinit_userdata($conf, $vmid) if !defined($user_data); |
236 | $network_data = configdrive2_network($conf) if !defined($network_data); | |
ea18b604 | 237 | $vendor_data = '' if !defined($vendor_data); |
41cd94a0 | 238 | |
cb702ebe | 239 | if (!defined($meta_data)) { |
e73ca4d0 | 240 | $meta_data = configdrive2_gen_metadata($user_data, $network_data); |
cb702ebe | 241 | } |
101beafe | 242 | |
115cb432 TL |
243 | # we always allocate a 4MiB disk for cloudinit and with the overhead of the ISO |
244 | # make sure we always stay below it by keeping the sum of all files below 3 MiB | |
101beafe CH |
245 | my $sum = length($user_data) + length($network_data) + length($meta_data) + length($vendor_data); |
246 | die "Cloud-Init sum of snippets too big (> 3 MiB)\n" if $sum > (3 * 1024 * 1024); | |
247 | ||
f62c36cf WB |
248 | my $files = { |
249 | '/openstack/latest/user_data' => $user_data, | |
250 | '/openstack/content/0000' => $network_data, | |
101beafe CH |
251 | '/openstack/latest/meta_data.json' => $meta_data, |
252 | '/openstack/latest/vendor_data.json' => $vendor_data | |
f62c36cf | 253 | }; |
4a853915 | 254 | commit_cloudinit_disk($conf, $vmid, $drive, $volname, $storeid, $files, 'config-2'); |
41cd94a0 WB |
255 | } |
256 | ||
545eec65 AD |
257 | sub generate_opennebula { |
258 | my ($conf, $vmid, $drive, $volname, $storeid) = @_; | |
259 | ||
545eec65 AD |
260 | my $content = ""; |
261 | ||
262 | my $username = $conf->{ciuser} || "root"; | |
545eec65 | 263 | $content .= "USERNAME=$username\n" if defined($username); |
545eec65 | 264 | |
c077cc16 TL |
265 | if (defined(my $password = $conf->{cipassword})) { |
266 | $content .= "CRYPTED_PASSWORD_BASE64=". encode_base64($password) ."\n"; | |
545eec65 AD |
267 | } |
268 | ||
c077cc16 TL |
269 | if (defined($conf->{sshkeys})) { |
270 | my $keys = [ split(/\s*\n\s*/, URI::Escape::uri_unescape($conf->{sshkeys})) ]; | |
271 | $content .= "SSH_PUBLIC_KEY=\"". join("\n", $keys->@*) ."\"\n"; | |
545eec65 AD |
272 | } |
273 | ||
c077cc16 | 274 | my ($hostname, $fqdn) = get_hostname_fqdn($conf, $vmid); |
545eec65 AD |
275 | $content .= "SET_HOSTNAME=$hostname\n"; |
276 | ||
c077cc16 TL |
277 | my ($searchdomains, $nameservers) = get_dns_conf($conf); |
278 | $content .= 'DNS="' . join(' ', @$nameservers) ."\"\n" if $nameservers && @$nameservers; | |
279 | $content .= 'SEARCH_DOMAIN="'. join(' ', @$searchdomains) ."\"\n" if $searchdomains && @$searchdomains; | |
545eec65 AD |
280 | |
281 | my $networkenabled = undef; | |
282 | my @ifaces = grep { /^net(\d+)$/ } keys %$conf; | |
283 | foreach my $iface (sort @ifaces) { | |
284 | (my $id = $iface) =~ s/^net//; | |
285 | my $net = PVE::QemuServer::parse_net($conf->{$iface}); | |
286 | next if !$conf->{"ipconfig$id"}; | |
287 | my $ipconfig = PVE::QemuServer::parse_ipconfig($conf->{"ipconfig$id"}); | |
288 | my $ethid = "ETH$id"; | |
289 | ||
290 | my $mac = lc $net->{hwaddr}; | |
291 | ||
292 | if ($ipconfig->{ip}) { | |
293 | $networkenabled = 1; | |
294 | ||
295 | if ($ipconfig->{ip} eq 'dhcp') { | |
2eee6748 | 296 | $content .= "${ethid}_DHCP=YES\n"; |
545eec65 AD |
297 | } else { |
298 | my ($addr, $mask) = split_ip4($ipconfig->{ip}); | |
2eee6748 TL |
299 | $content .= "${ethid}_IP=$addr\n"; |
300 | $content .= "${ethid}_MASK=$mask\n"; | |
301 | $content .= "${ethid}_MAC=$mac\n"; | |
302 | $content .= "${ethid}_GATEWAY=$ipconfig->{gw}\n" if $ipconfig->{gw}; | |
545eec65 | 303 | } |
2eee6748 | 304 | $content .= "${ethid}_MTU=$net->{mtu}\n" if $net->{mtu}; |
545eec65 AD |
305 | } |
306 | ||
307 | if ($ipconfig->{ip6}) { | |
308 | $networkenabled = 1; | |
309 | if ($ipconfig->{ip6} eq 'dhcp') { | |
2eee6748 | 310 | $content .= "${ethid}_DHCP6=YES\n"; |
545eec65 | 311 | } elsif ($ipconfig->{ip6} eq 'auto') { |
2eee6748 | 312 | $content .= "${ethid}_AUTO6=YES\n"; |
545eec65 AD |
313 | } else { |
314 | my ($addr, $mask) = split('/', $ipconfig->{ip6}); | |
2eee6748 TL |
315 | $content .= "${ethid}_IP6=$addr\n"; |
316 | $content .= "${ethid}_MASK6=$mask\n"; | |
317 | $content .= "${ethid}_MAC6=$mac\n"; | |
318 | $content .= "${ethid}_GATEWAY6=$ipconfig->{gw6}\n" if $ipconfig->{gw6}; | |
545eec65 | 319 | } |
2eee6748 | 320 | $content .= "${ethid}_MTU=$net->{mtu}\n" if $net->{mtu}; |
545eec65 AD |
321 | } |
322 | } | |
323 | ||
324 | $content .= "NETWORK=YES\n" if $networkenabled; | |
325 | ||
c077cc16 | 326 | my $files = { '/context.sh' => $content }; |
545eec65 AD |
327 | commit_cloudinit_disk($conf, $vmid, $drive, $volname, $storeid, $files, 'CONTEXT'); |
328 | } | |
329 | ||
41cd94a0 WB |
330 | sub nocloud_network_v2 { |
331 | my ($conf) = @_; | |
332 | ||
333 | my $content = ''; | |
334 | ||
335 | my $head = "version: 2\n" | |
336 | . "ethernets:\n"; | |
337 | ||
67864d19 | 338 | my $dns_done; |
41cd94a0 | 339 | |
6ef6d68f | 340 | my @ifaces = grep { /^net(\d+)$/ } keys %$conf; |
d4fa9981 | 341 | foreach my $iface (sort @ifaces) { |
41cd94a0 WB |
342 | (my $id = $iface) =~ s/^net//; |
343 | next if !$conf->{"ipconfig$id"}; | |
344 | ||
345 | # indentation - network interfaces are inside an 'ethernets' hash | |
346 | my $i = ' '; | |
347 | ||
348 | my $net = PVE::QemuServer::parse_net($conf->{$iface}); | |
349 | my $ipconfig = PVE::QemuServer::parse_ipconfig($conf->{"ipconfig$id"}); | |
350 | ||
351 | my $mac = $net->{macaddr} | |
352 | or die "network interface '$iface' has no mac address\n"; | |
353 | ||
67864d19 | 354 | $content .= "${i}$iface:\n"; |
41cd94a0 | 355 | $i .= ' '; |
67864d19 WB |
356 | $content .= "${i}match:\n" |
357 | . "${i} macaddress: \"$mac\"\n" | |
358 | . "${i}set-name: eth$id\n"; | |
41cd94a0 WB |
359 | my @addresses; |
360 | if (defined(my $ip = $ipconfig->{ip})) { | |
361 | if ($ip eq 'dhcp') { | |
67864d19 | 362 | $content .= "${i}dhcp4: true\n"; |
41cd94a0 WB |
363 | } else { |
364 | push @addresses, $ip; | |
365 | } | |
366 | } | |
367 | if (defined(my $ip = $ipconfig->{ip6})) { | |
368 | if ($ip eq 'dhcp') { | |
67864d19 | 369 | $content .= "${i}dhcp6: true\n"; |
41cd94a0 WB |
370 | } else { |
371 | push @addresses, $ip; | |
372 | } | |
373 | } | |
374 | if (@addresses) { | |
67864d19 | 375 | $content .= "${i}addresses:\n"; |
4efb58a9 | 376 | $content .= "${i}- '$_'\n" foreach @addresses; |
41cd94a0 WB |
377 | } |
378 | if (defined(my $gw = $ipconfig->{gw})) { | |
4efb58a9 | 379 | $content .= "${i}gateway4: '$gw'\n"; |
41cd94a0 WB |
380 | } |
381 | if (defined(my $gw = $ipconfig->{gw6})) { | |
4efb58a9 | 382 | $content .= "${i}gateway6: '$gw'\n"; |
41cd94a0 WB |
383 | } |
384 | ||
67864d19 WB |
385 | next if $dns_done; |
386 | $dns_done = 1; | |
387 | ||
388 | my ($searchdomains, $nameservers) = get_dns_conf($conf); | |
389 | if ($searchdomains || $nameservers) { | |
390 | $content .= "${i}nameservers:\n"; | |
391 | if (defined($nameservers) && @$nameservers) { | |
392 | $content .= "${i} addresses:\n"; | |
4efb58a9 | 393 | $content .= "${i} - '$_'\n" foreach @$nameservers; |
67864d19 WB |
394 | } |
395 | if (defined($searchdomains) && @$searchdomains) { | |
396 | $content .= "${i} search:\n"; | |
4efb58a9 | 397 | $content .= "${i} - '$_'\n" foreach @$searchdomains; |
41cd94a0 WB |
398 | } |
399 | } | |
41cd94a0 WB |
400 | } |
401 | ||
402 | return $head.$content; | |
403 | } | |
404 | ||
405 | sub nocloud_network { | |
406 | my ($conf) = @_; | |
407 | ||
408 | my $content = "version: 1\n" | |
409 | . "config:\n"; | |
410 | ||
6ef6d68f | 411 | my @ifaces = grep { /^net(\d+)$/ } keys %$conf; |
d4fa9981 | 412 | foreach my $iface (sort @ifaces) { |
41cd94a0 WB |
413 | (my $id = $iface) =~ s/^net//; |
414 | next if !$conf->{"ipconfig$id"}; | |
415 | ||
416 | # indentation - network interfaces are inside an 'ethernets' hash | |
417 | my $i = ' '; | |
418 | ||
419 | my $net = PVE::QemuServer::parse_net($conf->{$iface}); | |
420 | my $ipconfig = PVE::QemuServer::parse_ipconfig($conf->{"ipconfig$id"}); | |
421 | ||
c3cedb3d | 422 | my $mac = lc($net->{macaddr}) |
41cd94a0 WB |
423 | or die "network interface '$iface' has no mac address\n"; |
424 | ||
67864d19 WB |
425 | $content .= "${i}- type: physical\n" |
426 | . "${i} name: eth$id\n" | |
4efb58a9 | 427 | . "${i} mac_address: '$mac'\n" |
67864d19 | 428 | . "${i} subnets:\n"; |
41cd94a0 WB |
429 | $i .= ' '; |
430 | if (defined(my $ip = $ipconfig->{ip})) { | |
431 | if ($ip eq 'dhcp') { | |
67864d19 | 432 | $content .= "${i}- type: dhcp4\n"; |
41cd94a0 | 433 | } else { |
86280789 | 434 | my ($addr, $mask) = split_ip4($ip); |
67864d19 | 435 | $content .= "${i}- type: static\n" |
4efb58a9 DL |
436 | . "${i} address: '$addr'\n" |
437 | . "${i} netmask: '$mask'\n"; | |
41cd94a0 | 438 | if (defined(my $gw = $ipconfig->{gw})) { |
4efb58a9 | 439 | $content .= "${i} gateway: '$gw'\n"; |
41cd94a0 WB |
440 | } |
441 | } | |
442 | } | |
443 | if (defined(my $ip = $ipconfig->{ip6})) { | |
444 | if ($ip eq 'dhcp') { | |
67864d19 | 445 | $content .= "${i}- type: dhcp6\n"; |
c701be32 | 446 | } elsif ($ip eq 'auto') { |
988be8d0 ML |
447 | # SLAAC is only supported by cloud-init since 19.4 |
448 | $content .= "${i}- type: ipv6_slaac\n"; | |
41cd94a0 | 449 | } else { |
617a864a | 450 | $content .= "${i}- type: static6\n" |
4efb58a9 | 451 | . "${i} address: '$ip'\n"; |
41cd94a0 | 452 | if (defined(my $gw = $ipconfig->{gw6})) { |
4efb58a9 | 453 | $content .= "${i} gateway: '$gw'\n"; |
41cd94a0 WB |
454 | } |
455 | } | |
456 | } | |
41cd94a0 WB |
457 | } |
458 | ||
67864d19 WB |
459 | my $i = ' '; |
460 | my ($searchdomains, $nameservers) = get_dns_conf($conf); | |
461 | if ($searchdomains || $nameservers) { | |
41cd94a0 | 462 | $content .= "${i}- type: nameserver\n"; |
67864d19 | 463 | if (defined($nameservers) && @$nameservers) { |
41cd94a0 | 464 | $content .= "${i} address:\n"; |
4efb58a9 | 465 | $content .= "${i} - '$_'\n" foreach @$nameservers; |
41cd94a0 | 466 | } |
67864d19 | 467 | if (defined($searchdomains) && @$searchdomains) { |
41cd94a0 | 468 | $content .= "${i} search:\n"; |
4efb58a9 | 469 | $content .= "${i} - '$_'\n" foreach @$searchdomains; |
41cd94a0 WB |
470 | } |
471 | } | |
472 | ||
473 | return $content; | |
474 | } | |
475 | ||
476 | sub nocloud_metadata { | |
e8ac2138 WB |
477 | my ($uuid) = @_; |
478 | return "instance-id: $uuid\n"; | |
41cd94a0 WB |
479 | } |
480 | ||
e73ca4d0 ML |
481 | sub nocloud_gen_metadata { |
482 | my ($user, $network) = @_; | |
483 | ||
484 | my $uuid_str = Digest::SHA::sha1_hex($user.$network); | |
485 | return nocloud_metadata($uuid_str); | |
486 | } | |
487 | ||
41cd94a0 WB |
488 | sub generate_nocloud { |
489 | my ($conf, $vmid, $drive, $volname, $storeid) = @_; | |
490 | ||
101beafe | 491 | my ($user_data, $network_data, $meta_data, $vendor_data) = get_custom_cloudinit_files($conf); |
cb702ebe DL |
492 | $user_data = cloudinit_userdata($conf, $vmid) if !defined($user_data); |
493 | $network_data = nocloud_network($conf) if !defined($network_data); | |
ea18b604 | 494 | $vendor_data = '' if !defined($vendor_data); |
41cd94a0 | 495 | |
cb702ebe | 496 | if (!defined($meta_data)) { |
e73ca4d0 | 497 | $meta_data = nocloud_gen_metadata($user_data, $network_data); |
cb702ebe | 498 | } |
41cd94a0 | 499 | |
115cb432 TL |
500 | # we always allocate a 4MiB disk for cloudinit and with the overhead of the ISO |
501 | # make sure we always stay below it by keeping the sum of all files below 3 MiB | |
101beafe CH |
502 | my $sum = length($user_data) + length($network_data) + length($meta_data) + length($vendor_data); |
503 | die "Cloud-Init sum of snippets too big (> 3 MiB)\n" if $sum > (3 * 1024 * 1024); | |
504 | ||
f62c36cf WB |
505 | my $files = { |
506 | '/user-data' => $user_data, | |
507 | '/network-config' => $network_data, | |
101beafe CH |
508 | '/meta-data' => $meta_data, |
509 | '/vendor-data' => $vendor_data | |
f62c36cf | 510 | }; |
4a853915 | 511 | commit_cloudinit_disk($conf, $vmid, $drive, $volname, $storeid, $files, 'cidata'); |
41cd94a0 WB |
512 | } |
513 | ||
cb702ebe DL |
514 | sub get_custom_cloudinit_files { |
515 | my ($conf) = @_; | |
516 | ||
517 | my $cicustom = $conf->{cicustom}; | |
518 | my $files = $cicustom ? PVE::JSONSchema::parse_property_string('pve-qm-cicustom', $cicustom) : {}; | |
519 | ||
520 | my $network_volid = $files->{network}; | |
521 | my $user_volid = $files->{user}; | |
522 | my $meta_volid = $files->{meta}; | |
101beafe | 523 | my $vendor_volid = $files->{vendor}; |
cb702ebe DL |
524 | |
525 | my $storage_conf = PVE::Storage::config(); | |
526 | ||
527 | my $network_data; | |
528 | if ($network_volid) { | |
529 | $network_data = read_cloudinit_snippets_file($storage_conf, $network_volid); | |
530 | } | |
531 | ||
532 | my $user_data; | |
533 | if ($user_volid) { | |
534 | $user_data = read_cloudinit_snippets_file($storage_conf, $user_volid); | |
535 | } | |
536 | ||
537 | my $meta_data; | |
538 | if ($meta_volid) { | |
539 | $meta_data = read_cloudinit_snippets_file($storage_conf, $meta_volid); | |
540 | } | |
541 | ||
101beafe CH |
542 | my $vendor_data; |
543 | if ($vendor_volid) { | |
544 | $vendor_data = read_cloudinit_snippets_file($storage_conf, $vendor_volid); | |
545 | } | |
546 | ||
547 | return ($user_data, $network_data, $meta_data, $vendor_data); | |
cb702ebe DL |
548 | } |
549 | ||
550 | sub read_cloudinit_snippets_file { | |
551 | my ($storage_conf, $volid) = @_; | |
552 | ||
553 | my ($full_path, undef, $type) = PVE::Storage::path($storage_conf, $volid); | |
554 | die "$volid is not in the snippets directory\n" if $type ne 'snippets'; | |
7e8ab2a9 | 555 | return PVE::Tools::file_get_contents($full_path, 1 * 1024 * 1024); |
cb702ebe DL |
556 | } |
557 | ||
41cd94a0 WB |
558 | my $cloudinit_methods = { |
559 | configdrive2 => \&generate_configdrive2, | |
560 | nocloud => \&generate_nocloud, | |
545eec65 | 561 | opennebula => \&generate_opennebula, |
41cd94a0 WB |
562 | }; |
563 | ||
4b785da1 WB |
564 | sub has_changes { |
565 | my ($conf) = @_; | |
566 | ||
567 | return !!$conf->{cloudinit}->%*; | |
568 | } | |
569 | ||
570 | sub generate_cloudinit_config { | |
41cd94a0 WB |
571 | my ($conf, $vmid) = @_; |
572 | ||
573 | my $format = get_cloudinit_format($conf); | |
574 | ||
4b785da1 WB |
575 | my $has_changes = has_changes($conf); |
576 | ||
912792e2 | 577 | PVE::QemuConfig->foreach_volume($conf, sub { |
41cd94a0 | 578 | my ($ds, $drive) = @_; |
3de134ef | 579 | |
41cd94a0 WB |
580 | my ($storeid, $volname) = PVE::Storage::parse_volume_id($drive->{file}, 1); |
581 | ||
582 | return if !$volname || $volname !~ m/vm-$vmid-cloudinit/; | |
583 | ||
584 | my $generator = $cloudinit_methods->{$format} | |
585 | or die "missing cloudinit methods for format '$format'\n"; | |
586 | ||
587 | $generator->($conf, $vmid, $drive, $volname, $storeid); | |
588 | }); | |
4b785da1 WB |
589 | |
590 | return $has_changes; | |
591 | } | |
592 | ||
593 | sub apply_cloudinit_config { | |
594 | my ($conf, $vmid) = @_; | |
595 | ||
596 | my $has_changes = generate_cloudinit_config($conf, $vmid); | |
597 | ||
598 | if ($has_changes) { | |
599 | delete $conf->{cloudinit}; | |
600 | PVE::QemuConfig->write_config($vmid, $conf); | |
601 | return 1; | |
602 | } | |
603 | ||
604 | return $has_changes; | |
41cd94a0 | 605 | } |
0c9a7596 | 606 | |
e73ca4d0 ML |
607 | sub dump_cloudinit_config { |
608 | my ($conf, $vmid, $type) = @_; | |
609 | ||
610 | my $format = get_cloudinit_format($conf); | |
611 | ||
612 | if ($type eq 'user') { | |
613 | return cloudinit_userdata($conf, $vmid); | |
614 | } elsif ($type eq 'network') { | |
615 | if ($format eq 'nocloud') { | |
616 | return nocloud_network($conf); | |
617 | } else { | |
618 | return configdrive2_network($conf); | |
619 | } | |
620 | } else { # metadata config | |
621 | my $user = cloudinit_userdata($conf, $vmid); | |
622 | if ($format eq 'nocloud') { | |
623 | my $network = nocloud_network($conf); | |
624 | return nocloud_gen_metadata($user, $network); | |
625 | } else { | |
626 | my $network = configdrive2_network($conf); | |
627 | return configdrive2_gen_metadata($user, $network); | |
628 | } | |
629 | } | |
630 | } | |
631 | ||
0c9a7596 | 632 | 1; |