implement zfsscan to list local zfs pools

2015-01-26 09:05:09 +01:00
parent 0a3d992f72
commit 584d97f646
3 changed files with 59 additions and 0 deletions
--- a/8
+++ b/8
@ -172,6 +172,14 @@ my $cmddef = {
 			 printf "$rec->{vg}\n";
 		     }
 		 }],
+    zfsscan => [ "PVE::API2::Storage::Scan", 'zfsscan', [],
+		 { node => $nodename }, sub  {
+		     my $res = shift;
+
+		     foreach my $rec (@$res) {
+			 printf "$rec->{pool}\n";
+		     }
+		 }],
    path => [ __PACKAGE__, 'path', ['volume']],
 };