]>
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; | |
9 | ||
10 | use PVE::Tools qw(run_command file_set_contents); | |
11 | use PVE::Storage; | |
12 | use PVE::QemuServer; | |
13 | ||
0c9a7596 | 14 | sub commit_cloudinit_disk { |
41cd94a0 WB |
15 | my ($conf, $drive, $volname, $storeid, $file_path, $label) = @_; |
16 | ||
17 | my $storecfg = PVE::Storage::config(); | |
18 | my $iso_path = PVE::Storage::path($storecfg, $drive->{file}); | |
19 | my $scfg = PVE::Storage::storage_config($storecfg, $storeid); | |
20 | my $format = PVE::QemuServer::qemu_img_format($scfg, $volname); | |
0c9a7596 | 21 | |
3db6e4ab | 22 | my $size = PVE::Storage::file_size_info($iso_path); |
0c9a7596 | 23 | |
41cd94a0 | 24 | run_command([['genisoimage', '-R', '-V', $label, $file_path], |
3db6e4ab WB |
25 | ['qemu-img', 'dd', '-f', 'raw', '-O', $format, |
26 | 'isize=0', "osize=$size", "of=$iso_path"]]); | |
0c9a7596 AD |
27 | } |
28 | ||
41cd94a0 WB |
29 | sub get_cloudinit_format { |
30 | my ($conf) = @_; | |
31 | if (defined(my $format = $conf->{citype})) { | |
32 | return $format; | |
33 | } | |
0c9a7596 | 34 | |
41cd94a0 WB |
35 | # No format specified, default based on ostype because windows' |
36 | # cloudbased-init only supports configdrivev2, whereas on linux we need | |
37 | # to use mac addresses because regular cloudinit doesn't map 'ethX' to | |
38 | # the new predicatble network device naming scheme. | |
39 | if (defined(my $ostype = $conf->{ostype})) { | |
40 | return 'configdrive2' | |
41 | if PVE::QemuServer::windows_version($ostype); | |
42 | } | |
0c9a7596 | 43 | |
41cd94a0 | 44 | return 'nocloud'; |
0c9a7596 AD |
45 | } |
46 | ||
e8ac2138 | 47 | sub get_hostname_fqdn { |
41cd94a0 | 48 | my ($conf) = @_; |
e8ac2138 WB |
49 | my $hostname = $conf->{name}; |
50 | my $fqdn; | |
51 | if ($hostname =~ /\./) { | |
52 | $fqdn = $hostname; | |
53 | $hostname =~ s/\..*$//; | |
54 | } elsif (my $search = $conf->{searchdomain}) { | |
55 | $fqdn = "$hostname.$search"; | |
0c9a7596 | 56 | } |
e8ac2138 | 57 | return ($hostname, $fqdn); |
41cd94a0 WB |
58 | } |
59 | ||
60 | sub cloudinit_userdata { | |
61 | my ($conf) = @_; | |
62 | ||
e8ac2138 | 63 | my ($hostname, $fqdn) = get_hostname_fqdn($conf); |
41cd94a0 | 64 | |
7b42f951 WB |
65 | my $content = "#cloud-config\n"; |
66 | $content .= "manage_resolv_conf: true\n"; | |
41cd94a0 | 67 | |
e8ac2138 WB |
68 | $content .= "hostname: $hostname\n"; |
69 | $content .= "fqdn: $fqdn\n" if defined($fqdn); | |
70 | ||
7b42f951 WB |
71 | my $username = $conf->{ciuser}; |
72 | my $password = $conf->{cipassword}; | |
41cd94a0 WB |
73 | |
74 | $content .= "user: $username\n" if defined($username); | |
7b42f951 WB |
75 | $content .= "disable_root: False\n" if defined($username) && $username eq 'root'; |
76 | $content .= "password: $password\n" if defined($password); | |
41cd94a0 WB |
77 | |
78 | if (defined(my $keys = $conf->{sshkeys})) { | |
0c9a7596 AD |
79 | $keys = URI::Escape::uri_unescape($keys); |
80 | $keys = [map { chomp $_; $_ } split(/\n/, $keys)]; | |
81 | $keys = [grep { /\S/ } @$keys]; | |
41cd94a0 | 82 | $content .= "ssh_authorized_keys:\n"; |
0c9a7596 | 83 | foreach my $k (@$keys) { |
41cd94a0 | 84 | $content .= " - $k\n"; |
0c9a7596 AD |
85 | } |
86 | } | |
41cd94a0 WB |
87 | $content .= "chpasswd:\n"; |
88 | $content .= " expire: False\n"; | |
89 | ||
7b42f951 WB |
90 | if (!defined($username) || $username ne 'root') { |
91 | $content .= "users:\n"; | |
92 | $content .= " - default\n"; | |
93 | } | |
0c9a7596 AD |
94 | |
95 | $content .= "package_upgrade: true\n"; | |
96 | ||
0c9a7596 AD |
97 | return $content; |
98 | } | |
99 | ||
41cd94a0 WB |
100 | sub configdrive2_network { |
101 | my ($conf) = @_; | |
0c9a7596 AD |
102 | |
103 | my $content = "auto lo\n"; | |
104 | $content .="iface lo inet loopback\n\n"; | |
105 | ||
106 | my @ifaces = grep(/^net(\d+)$/, keys %$conf); | |
107 | foreach my $iface (@ifaces) { | |
108 | (my $id = $iface) =~ s/^net//; | |
109 | next if !$conf->{"ipconfig$id"}; | |
41cd94a0 | 110 | my $net = PVE::QemuServer::parse_ipconfig($conf->{"ipconfig$id"}); |
0c9a7596 AD |
111 | $id = "eth$id"; |
112 | ||
113 | $content .="auto $id\n"; | |
114 | if ($net->{ip}) { | |
115 | if ($net->{ip} eq 'dhcp') { | |
116 | $content .= "iface $id inet dhcp\n"; | |
117 | } else { | |
118 | my ($addr, $mask) = split('/', $net->{ip}); | |
119 | $content .= "iface $id inet static\n"; | |
120 | $content .= " address $addr\n"; | |
121 | $content .= " netmask $PVE::Network::ipv4_reverse_mask->[$mask]\n"; | |
122 | $content .= " gateway $net->{gw}\n" if $net->{gw}; | |
123 | } | |
124 | } | |
125 | if ($net->{ip6}) { | |
126 | if ($net->{ip6} =~ /^(auto|dhcp)$/) { | |
127 | $content .= "iface $id inet6 $1\n"; | |
128 | } else { | |
129 | my ($addr, $mask) = split('/', $net->{ip6}); | |
130 | $content .= "iface $id inet6 static\n"; | |
131 | $content .= " address $addr\n"; | |
132 | $content .= " netmask $mask\n"; | |
133 | $content .= " gateway $net->{gw6}\n" if $net->{gw6}; | |
134 | } | |
135 | } | |
136 | } | |
137 | ||
138 | $content .=" dns_nameservers $conf->{nameserver}\n" if $conf->{nameserver}; | |
139 | $content .=" dns_search $conf->{searchdomain}\n" if $conf->{searchdomain}; | |
140 | ||
0c9a7596 AD |
141 | return $content; |
142 | } | |
143 | ||
41cd94a0 WB |
144 | sub configdrive2_metadata { |
145 | my ($uuid) = @_; | |
146 | return <<"EOF"; | |
147 | { | |
148 | "uuid": "$uuid", | |
149 | "network_config": { "content_path": "/content/0000" } | |
150 | } | |
151 | EOF | |
152 | } | |
153 | ||
154 | sub generate_configdrive2 { | |
155 | my ($conf, $vmid, $drive, $volname, $storeid) = @_; | |
156 | ||
157 | my $user_data = cloudinit_userdata($conf); | |
158 | my $network_data = configdrive2_network($conf); | |
159 | ||
160 | my $digest_data = $user_data . $network_data; | |
161 | my $uuid_str = Digest::SHA::sha1_hex($digest_data); | |
162 | ||
163 | my $meta_data = configdrive2_metadata($uuid_str); | |
164 | ||
165 | mkdir "/tmp/cloudinit"; | |
166 | my $path = "/tmp/cloudinit/$vmid"; | |
167 | mkdir $path; | |
168 | mkdir "$path/drive"; | |
169 | mkdir "$path/drive/openstack"; | |
170 | mkdir "$path/drive/openstack/latest"; | |
171 | mkdir "$path/drive/openstack/content"; | |
172 | file_set_contents("$path/drive/openstack/latest/user_data", $user_data); | |
173 | file_set_contents("$path/drive/openstack/content/0000", $network_data); | |
174 | file_set_contents("$path/drive/openstack/latest/meta_data.json", $meta_data); | |
175 | ||
176 | commit_cloudinit_disk($conf, $drive, $volname, $storeid, "$path/drive", 'config-2'); | |
177 | ||
178 | rmtree("$path/drive"); | |
179 | } | |
180 | ||
181 | sub nocloud_network_v2 { | |
182 | my ($conf) = @_; | |
183 | ||
184 | my $content = ''; | |
185 | ||
186 | my $head = "version: 2\n" | |
187 | . "ethernets:\n"; | |
188 | ||
189 | my $nameservers_done; | |
190 | ||
191 | my @ifaces = grep(/^net(\d+)$/, keys %$conf); | |
192 | foreach my $iface (@ifaces) { | |
193 | (my $id = $iface) =~ s/^net//; | |
194 | next if !$conf->{"ipconfig$id"}; | |
195 | ||
196 | # indentation - network interfaces are inside an 'ethernets' hash | |
197 | my $i = ' '; | |
198 | ||
199 | my $net = PVE::QemuServer::parse_net($conf->{$iface}); | |
200 | my $ipconfig = PVE::QemuServer::parse_ipconfig($conf->{"ipconfig$id"}); | |
201 | ||
202 | my $mac = $net->{macaddr} | |
203 | or die "network interface '$iface' has no mac address\n"; | |
204 | ||
205 | my $data = "${i}$iface:\n"; | |
206 | $i .= ' '; | |
207 | $data .= "${i}match:\n" | |
208 | . "${i} macaddress: \"$mac\"\n" | |
209 | . "${i}set-name: eth$id\n"; | |
210 | my @addresses; | |
211 | if (defined(my $ip = $ipconfig->{ip})) { | |
212 | if ($ip eq 'dhcp') { | |
213 | $data .= "${i}dhcp4: true\n"; | |
214 | } else { | |
215 | push @addresses, $ip; | |
216 | } | |
217 | } | |
218 | if (defined(my $ip = $ipconfig->{ip6})) { | |
219 | if ($ip eq 'dhcp') { | |
220 | $data .= "${i}dhcp6: true\n"; | |
221 | } else { | |
222 | push @addresses, $ip; | |
223 | } | |
224 | } | |
225 | if (@addresses) { | |
226 | $data .= "${i}addresses:\n"; | |
227 | $data .= "${i}- $_\n" foreach @addresses; | |
228 | } | |
229 | if (defined(my $gw = $ipconfig->{gw})) { | |
230 | $data .= "${i}gateway4: $gw\n"; | |
231 | } | |
232 | if (defined(my $gw = $ipconfig->{gw6})) { | |
233 | $data .= "${i}gateway6: $gw\n"; | |
234 | } | |
235 | ||
236 | if (!$nameservers_done) { | |
237 | $nameservers_done = 1; | |
238 | ||
239 | my $nameserver = $conf->{nameserver} // ''; | |
240 | my $searchdomain = $conf->{searchdomain} // ''; | |
241 | my @nameservers = PVE::Tools::split_list($nameserver); | |
242 | my @searchdomains = PVE::Tools::split_list($searchdomain); | |
243 | if (@nameservers || @searchdomains) { | |
244 | $data .= "${i}nameservers:\n"; | |
245 | $data .= "${i} addresses: [".join(',', @nameservers)."]\n" | |
246 | if @nameservers; | |
247 | $data .= "${i} search: [".join(',', @searchdomains)."]\n" | |
248 | if @searchdomains; | |
249 | } | |
250 | } | |
251 | ||
252 | ||
253 | $content .= $data; | |
254 | } | |
255 | ||
256 | return $head.$content; | |
257 | } | |
258 | ||
259 | sub nocloud_network { | |
260 | my ($conf) = @_; | |
261 | ||
262 | my $content = "version: 1\n" | |
263 | . "config:\n"; | |
264 | ||
265 | my @ifaces = grep(/^net(\d+)$/, keys %$conf); | |
266 | foreach my $iface (@ifaces) { | |
267 | (my $id = $iface) =~ s/^net//; | |
268 | next if !$conf->{"ipconfig$id"}; | |
269 | ||
270 | # indentation - network interfaces are inside an 'ethernets' hash | |
271 | my $i = ' '; | |
272 | ||
273 | my $net = PVE::QemuServer::parse_net($conf->{$iface}); | |
274 | my $ipconfig = PVE::QemuServer::parse_ipconfig($conf->{"ipconfig$id"}); | |
275 | ||
276 | my $mac = $net->{macaddr} | |
277 | or die "network interface '$iface' has no mac address\n"; | |
278 | ||
279 | my $data = "${i}- type: physical\n" | |
280 | . "${i} name: eth$id\n" | |
281 | . "${i} mac_address: $mac\n" | |
282 | . "${i} subnets:\n"; | |
283 | $i .= ' '; | |
284 | if (defined(my $ip = $ipconfig->{ip})) { | |
285 | if ($ip eq 'dhcp') { | |
286 | $data .= "${i}- type: dhcp4\n"; | |
287 | } else { | |
288 | $data .= "${i}- type: static\n" | |
289 | . "${i} address: $ip\n"; | |
290 | if (defined(my $gw = $ipconfig->{gw})) { | |
291 | $data .= "${i} gateway: $gw\n"; | |
292 | } | |
293 | } | |
294 | } | |
295 | if (defined(my $ip = $ipconfig->{ip6})) { | |
296 | if ($ip eq 'dhcp') { | |
297 | $data .= "${i}- type: dhcp6\n"; | |
298 | } else { | |
299 | $data .= "${i}- type: static6\n" | |
300 | . "${i} address: $ip\n"; | |
301 | if (defined(my $gw = $ipconfig->{gw6})) { | |
302 | $data .= "${i} gateway: $gw\n"; | |
303 | } | |
304 | } | |
305 | } | |
306 | ||
307 | $content .= $data; | |
308 | } | |
309 | ||
310 | my $nameserver = $conf->{nameserver} // ''; | |
311 | my $searchdomain = $conf->{searchdomain} // ''; | |
312 | my @nameservers = PVE::Tools::split_list($nameserver); | |
313 | my @searchdomains = PVE::Tools::split_list($searchdomain); | |
314 | if (@nameservers || @searchdomains) { | |
315 | my $i = ' '; | |
316 | $content .= "${i}- type: nameserver\n"; | |
317 | if (@nameservers) { | |
318 | $content .= "${i} address:\n"; | |
319 | $content .= "${i} - $_\n" foreach @nameservers; | |
320 | } | |
321 | if (@searchdomains) { | |
322 | $content .= "${i} search:\n"; | |
323 | $content .= "${i} - $_\n" foreach @searchdomains; | |
324 | } | |
325 | } | |
326 | ||
327 | return $content; | |
328 | } | |
329 | ||
330 | sub nocloud_metadata { | |
e8ac2138 WB |
331 | my ($uuid) = @_; |
332 | return "instance-id: $uuid\n"; | |
41cd94a0 WB |
333 | } |
334 | ||
335 | sub generate_nocloud { | |
336 | my ($conf, $vmid, $drive, $volname, $storeid) = @_; | |
337 | ||
41cd94a0 WB |
338 | my $user_data = cloudinit_userdata($conf); |
339 | my $network_data = nocloud_network($conf); | |
340 | ||
e8ac2138 | 341 | my $digest_data = $user_data . $network_data; |
41cd94a0 WB |
342 | my $uuid_str = Digest::SHA::sha1_hex($digest_data); |
343 | ||
e8ac2138 | 344 | my $meta_data = nocloud_metadata($uuid_str); |
41cd94a0 WB |
345 | |
346 | mkdir "/tmp/cloudinit"; | |
347 | my $path = "/tmp/cloudinit/$vmid"; | |
348 | mkdir $path; | |
349 | rmtree("$path/drive"); | |
350 | mkdir "$path/drive"; | |
351 | file_set_contents("$path/drive/user-data", $user_data); | |
352 | file_set_contents("$path/drive/network-config", $network_data); | |
353 | file_set_contents("$path/drive/meta-data", $meta_data); | |
354 | ||
355 | commit_cloudinit_disk($conf, $drive, $volname, $storeid, "$path/drive", 'cidata'); | |
356 | ||
357 | } | |
358 | ||
359 | my $cloudinit_methods = { | |
360 | configdrive2 => \&generate_configdrive2, | |
361 | nocloud => \&generate_nocloud, | |
362 | }; | |
363 | ||
364 | sub generate_cloudinitconfig { | |
365 | my ($conf, $vmid) = @_; | |
366 | ||
367 | my $format = get_cloudinit_format($conf); | |
368 | ||
369 | PVE::QemuServer::foreach_drive($conf, sub { | |
370 | my ($ds, $drive) = @_; | |
371 | ||
372 | my ($storeid, $volname) = PVE::Storage::parse_volume_id($drive->{file}, 1); | |
373 | ||
374 | return if !$volname || $volname !~ m/vm-$vmid-cloudinit/; | |
375 | ||
376 | my $generator = $cloudinit_methods->{$format} | |
377 | or die "missing cloudinit methods for format '$format'\n"; | |
378 | ||
379 | $generator->($conf, $vmid, $drive, $volname, $storeid); | |
380 | }); | |
381 | } | |
0c9a7596 AD |
382 | |
383 | 1; |