yesBad/pve-storage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

implement zfsscan to list local zfs pools

Browse Source
This commit is contained in:
Dietmar Maurer
2015-01-26 09:05:09 +01:00
parent 0a3d992f72
commit 584d97f646
3 changed files with 59 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
PVE/Storage.pm
View File

@ -911,6 +911,25 @@ sub scan_nfs {
return $res;
}
sub scan_zfs {
my $cmd = ['zpool', 'list', '-H', '-o', 'name,size,free'];
my $res = [];
run_command($cmd, outfunc => sub {
my $line = shift;
if ($line =~m/^(\S+)\s+(\S+)\s+(\S+)$/) {
my ($pool, $size_str, $free_str) = ($1, $2, $3);
my $size = PVE::Storage::ZFSPoolPlugin::zfs_parse_size($size_str);
my $free = PVE::Storage::ZFSPoolPlugin::zfs_parse_size($free_str);
push @$res, { pool => $pool, size => $size, free => $free };
}
});
return $res;
}
sub resolv_portal {
my ($portal, $noerr) = @_;