]>
Commit | Line | Data |
---|---|---|
1 | package PVE::Storage::LvmThinPlugin; | |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | use Data::Dumper; | |
6 | use IO::File; | |
7 | use PVE::Tools qw(run_command trim); | |
8 | use PVE::Storage::Plugin; | |
9 | use PVE::Storage::LVMPlugin; | |
10 | use PVE::JSONSchema qw(get_standard_option); | |
11 | ||
12 | # see: man lvmthin | |
13 | # lvcreate -n ThinDataLV -L LargeSize VG | |
14 | # lvconvert --type thin-pool VG/ThinDataLV | |
15 | # lvcreate -n pvepool -L 20G pve | |
16 | # lvconvert --type thin-pool pve/pvepool | |
17 | ||
18 | use base qw(PVE::Storage::LVMPlugin); | |
19 | ||
20 | sub type { | |
21 | return 'lvmthin'; | |
22 | } | |
23 | ||
24 | sub plugindata { | |
25 | return { | |
26 | content => [ {images => 1, rootdir => 1}, { images => 1, rootdir => 1}], | |
27 | }; | |
28 | } | |
29 | ||
30 | sub properties { | |
31 | return { | |
32 | thinpool => { | |
33 | description => "LVM thin pool LV name.", | |
34 | type => 'string', format => 'pve-storage-vgname', | |
35 | }, | |
36 | }; | |
37 | } | |
38 | ||
39 | sub options { | |
40 | return { | |
41 | thinpool => { fixed => 1 }, | |
42 | vgname => { fixed => 1 }, | |
43 | nodes => { optional => 1 }, | |
44 | disable => { optional => 1 }, | |
45 | content => { optional => 1 }, | |
46 | }; | |
47 | } | |
48 | ||
49 | sub parse_volname { | |
50 | my ($class, $volname) = @_; | |
51 | ||
52 | PVE::Storage::Plugin::parse_lvm_name($volname); | |
53 | ||
54 | if ($volname =~ m/^((vm|base)-(\d+)-\S+)$/) { | |
55 | return ('images', $1, $3, undef, undef, $2 eq 'base', 'raw'); | |
56 | } | |
57 | ||
58 | die "unable to parse lvm volume name '$volname'\n"; | |
59 | } | |
60 | ||
61 | sub filesystem_path { | |
62 | my ($class, $scfg, $volname, $snapname) = @_; | |
63 | ||
64 | my ($vtype, $name, $vmid) = $class->parse_volname($volname); | |
65 | ||
66 | my $vg = $scfg->{vgname}; | |
67 | ||
68 | my $path = defined($snapname) ? "/dev/$vg/snap_${name}_$snapname": "/dev/$vg/$name"; | |
69 | ||
70 | return wantarray ? ($path, $vmid, $vtype) : $path; | |
71 | } | |
72 | ||
73 | sub alloc_image { | |
74 | my ($class, $storeid, $scfg, $vmid, $fmt, $name, $size) = @_; | |
75 | ||
76 | die "unsupported format '$fmt'" if $fmt ne 'raw'; | |
77 | ||
78 | die "illegal name '$name' - sould be 'vm-$vmid-*'\n" | |
79 | if $name && $name !~ m/^vm-$vmid-/; | |
80 | ||
81 | my $vgs = PVE::Storage::LVMPlugin::lvm_vgs(); | |
82 | ||
83 | my $vg = $scfg->{vgname}; | |
84 | ||
85 | die "no such volume group '$vg'\n" if !defined ($vgs->{$vg}); | |
86 | ||
87 | my $lvs = PVE::Storage::LVMPlugin::lvm_list_volumes($vg); | |
88 | ||
89 | $name = PVE::Storage::LVMPlugin::lvm_find_free_diskname($lvs, $vg, $storeid, $vmid) | |
90 | if !$name; | |
91 | ||
92 | my $cmd = ['/sbin/lvcreate', '-aly', '-V', "${size}k", '--name', $name, | |
93 | '--thinpool', "$vg/$scfg->{thinpool}" ]; | |
94 | ||
95 | run_command($cmd, errmsg => "lvcreate '$vg/$name' error"); | |
96 | ||
97 | return $name; | |
98 | } | |
99 | ||
100 | sub free_image { | |
101 | my ($class, $storeid, $scfg, $volname, $isBase) = @_; | |
102 | ||
103 | my $vg = $scfg->{vgname}; | |
104 | ||
105 | my $lvs = PVE::Storage::LVMPlugin::lvm_list_volumes($vg); | |
106 | ||
107 | if (my $dat = $lvs->{$scfg->{vgname}}) { | |
108 | ||
109 | # remove all volume snapshots first | |
110 | foreach my $lv (keys %$dat) { | |
111 | next if $lv !~ m/^snap_${volname}_(\w+)$/; | |
112 | my $cmd = ['/sbin/lvremove', '-f', "$vg/$lv"]; | |
113 | run_command($cmd, errmsg => "lvremove snapshot '$vg/$lv' error"); | |
114 | } | |
115 | ||
116 | # finally remove original (if exists) | |
117 | if ($dat->{$volname}) { | |
118 | my $cmd = ['/sbin/lvremove', '-f', "$vg/$volname"]; | |
119 | run_command($cmd, errmsg => "lvremove '$vg/$volname' error"); | |
120 | } | |
121 | } | |
122 | ||
123 | return undef; | |
124 | } | |
125 | ||
126 | sub list_images { | |
127 | my ($class, $storeid, $scfg, $vmid, $vollist, $cache) = @_; | |
128 | ||
129 | my $vgname = $scfg->{vgname}; | |
130 | ||
131 | $cache->{lvs} = PVE::Storage::LVMPlugin::lvm_list_volumes() if !$cache->{lvs}; | |
132 | ||
133 | my $res = []; | |
134 | ||
135 | if (my $dat = $cache->{lvs}->{$vgname}) { | |
136 | ||
137 | foreach my $volname (keys %$dat) { | |
138 | ||
139 | next if $volname !~ m/^(vm|base)-(\d+)-/; | |
140 | my $owner = $2; | |
141 | ||
142 | my $info = $dat->{$volname}; | |
143 | ||
144 | next if $info->{lv_type} ne 'V'; | |
145 | ||
146 | next if $info->{pool_lv} ne $scfg->{thinpool}; | |
147 | ||
148 | my $volid = "$storeid:$volname"; | |
149 | ||
150 | if ($vollist) { | |
151 | my $found = grep { $_ eq $volid } @$vollist; | |
152 | next if !$found; | |
153 | } else { | |
154 | next if defined($vmid) && ($owner ne $vmid); | |
155 | } | |
156 | ||
157 | push @$res, { | |
158 | volid => $volid, format => 'raw', size => $info->{lv_size}, vmid => $owner, | |
159 | }; | |
160 | } | |
161 | } | |
162 | ||
163 | return $res; | |
164 | } | |
165 | ||
166 | sub status { | |
167 | my ($class, $storeid, $scfg, $cache) = @_; | |
168 | ||
169 | my $lvname = "$scfg->{vgname}/$scfg->{thinpool}"; | |
170 | ||
171 | $cache->{lvs} = PVE::Storage::LVMPlugin::lvm_list_volumes() if !$cache->{lvs}; | |
172 | ||
173 | my $lvs = $cache->{lvs}; | |
174 | ||
175 | return undef if !$lvs->{$scfg->{vgname}}; | |
176 | ||
177 | my $info = $lvs->{$scfg->{vgname}}->{$scfg->{thinpool}}; | |
178 | ||
179 | return undef if !$info; | |
180 | ||
181 | return undef if $info->{lv_type} ne 't'; | |
182 | ||
183 | return ($info->{lv_size}, $info->{lv_size} - $info->{used}, $info->{used}, 1) if $info->{lv_size}; | |
184 | ||
185 | return undef; | |
186 | } | |
187 | ||
188 | sub activate_volume { | |
189 | my ($class, $storeid, $scfg, $volname, $snapname, $cache) = @_; | |
190 | ||
191 | my $vg = $scfg->{vgname}; | |
192 | ||
193 | # only snapshot volumes needs activation | |
194 | if ($snapname) { | |
195 | my $snapvol = "snap_${volname}_$snapname"; | |
196 | my $cmd = ['/sbin/lvchange', '-ay', '-K', "$vg/$snapvol"]; | |
197 | run_command($cmd, errmsg => "activate_volume '$vg/$snapvol' error"); | |
198 | } else { | |
199 | # other volumes are active by default | |
200 | } | |
201 | } | |
202 | ||
203 | sub deactivate_volume { | |
204 | my ($class, $storeid, $scfg, $volname, $snapname, $cache) = @_; | |
205 | ||
206 | my $vg = $scfg->{vgname}; | |
207 | ||
208 | # we only deactivate snapshot volumes | |
209 | if ($snapname) { | |
210 | my $snapvol = "snap_${volname}_$snapname"; | |
211 | my $cmd = ['/sbin/lvchange', '-an', "$vg/$snapvol"]; | |
212 | run_command($cmd, errmsg => "deactivate_volume '$vg/$snapvol' error"); | |
213 | } else { | |
214 | # other volumes are kept active | |
215 | } | |
216 | } | |
217 | ||
218 | sub clone_image { | |
219 | my ($class, $scfg, $storeid, $volname, $vmid, $snap) = @_; | |
220 | ||
221 | die "clone_image from snapshots not implemented" if $snap; | |
222 | ||
223 | my ($vtype, undef, undef, undef, undef, $isBase, $format) = | |
224 | $class->parse_volname($volname); | |
225 | ||
226 | die "clone_image only works on base images\n" if !$isBase; | |
227 | ||
228 | my $vg = $scfg->{vgname}; | |
229 | my $lvs = PVE::Storage::LVMPlugin::lvm_list_volumes($vg); | |
230 | ||
231 | my $name = PVE::Storage::LVMPlugin::lvm_find_free_diskname($lvs, $vg, $storeid, $vmid); | |
232 | ||
233 | my $cmd = ['/sbin/lvcreate', '-n', $name, '-prw', '-kn', '-s', "$vg/$volname"]; | |
234 | run_command($cmd, errmsg => "clone image '$vg/$volname' error"); | |
235 | ||
236 | return $name; | |
237 | } | |
238 | ||
239 | sub create_base { | |
240 | my ($class, $storeid, $scfg, $volname) = @_; | |
241 | ||
242 | my ($vtype, $name, $vmid, $basename, $basevmid, $isBase) = | |
243 | $class->parse_volname($volname); | |
244 | ||
245 | die "create_base not possible with base image\n" if $isBase; | |
246 | ||
247 | my $vg = $scfg->{vgname}; | |
248 | my $lvs = PVE::Storage::LVMPlugin::lvm_list_volumes($vg); | |
249 | ||
250 | if (my $dat = $lvs->{$vg}) { | |
251 | # to avoid confusion, reject if we find volume snapshots | |
252 | foreach my $lv (keys %$dat) { | |
253 | die "unable to create base volume - found snaphost '$lv'\n" | |
254 | if $lv =~ m/^snap_${volname}_(\w+)$/; | |
255 | } | |
256 | } | |
257 | ||
258 | my $newname = $name; | |
259 | $newname =~ s/^vm-/base-/; | |
260 | ||
261 | my $cmd = ['/sbin/lvrename', $vg, $volname, $newname]; | |
262 | run_command($cmd, errmsg => "lvrename '$vg/$volname' => '$vg/$newname' error"); | |
263 | ||
264 | # set inactive, read-only and activationskip flags | |
265 | $cmd = ['/sbin/lvchange', '-an', '-pr', '-ky', "$vg/$newname"]; | |
266 | eval { run_command($cmd); }; | |
267 | warn $@ if $@; | |
268 | ||
269 | my $newvolname = $newname; | |
270 | ||
271 | return $newvolname; | |
272 | } | |
273 | ||
274 | # sub volume_resize {} reuse code from parent class | |
275 | ||
276 | sub volume_snapshot { | |
277 | my ($class, $scfg, $storeid, $volname, $snap) = @_; | |
278 | ||
279 | my $vg = $scfg->{vgname}; | |
280 | my $snapvol = "snap_${volname}_$snap"; | |
281 | ||
282 | my $cmd = ['/sbin/lvcreate', '-n', $snapvol, '-pr', '-s', "$vg/$volname"]; | |
283 | run_command($cmd, errmsg => "lvcreate snapshot '$vg/$snapvol' error"); | |
284 | ||
285 | } | |
286 | ||
287 | sub volume_snapshot_rollback { | |
288 | my ($class, $scfg, $storeid, $volname, $snap) = @_; | |
289 | ||
290 | my $vg = $scfg->{vgname}; | |
291 | my $snapvol = "snap_${volname}_$snap"; | |
292 | ||
293 | my $cmd = ['/sbin/lvremove', '-f', "$vg/$volname"]; | |
294 | run_command($cmd, errmsg => "lvremove '$vg/$volname' error"); | |
295 | ||
296 | $cmd = ['/sbin/lvcreate', '-kn', '-n', $volname, '-s', "$vg/$snapvol"]; | |
297 | run_command($cmd, errmsg => "lvm rollback '$vg/$snapvol' error"); | |
298 | } | |
299 | ||
300 | sub volume_snapshot_delete { | |
301 | my ($class, $scfg, $storeid, $volname, $snap) = @_; | |
302 | ||
303 | my $vg = $scfg->{vgname}; | |
304 | my $snapvol = "snap_${volname}_$snap"; | |
305 | ||
306 | my $cmd = ['/sbin/lvremove', '-f', "$vg/$snapvol"]; | |
307 | run_command($cmd, errmsg => "lvremove snapshot '$vg/$snapvol' error"); | |
308 | } | |
309 | ||
310 | sub volume_has_feature { | |
311 | my ($class, $scfg, $feature, $storeid, $volname, $snapname, $running) = @_; | |
312 | ||
313 | my $features = { | |
314 | snapshot => { current => 1 }, | |
315 | clone => { base => 1}, | |
316 | template => { current => 1}, | |
317 | copy => { base => 1, current => 1, snap => 1}, | |
318 | }; | |
319 | ||
320 | my ($vtype, $name, $vmid, $basename, $basevmid, $isBase) = | |
321 | $class->parse_volname($volname); | |
322 | ||
323 | my $key = undef; | |
324 | if($snapname){ | |
325 | $key = 'snap'; | |
326 | }else{ | |
327 | $key = $isBase ? 'base' : 'current'; | |
328 | } | |
329 | return 1 if $features->{$feature}->{$key}; | |
330 | ||
331 | return undef; | |
332 | } | |
333 | ||
334 | 1; |