create lable from pool name (for bonnie)

diff --git a/public/code/pool.label.pl b/public/code/pool.label.pl
new file mode 100644 (file)
index 0000000..f06a167
--- /dev/null
+++ b/public/code/pool.label.pl
@@ -0,0 +1,7 @@
+foreach my $v ( @{ $row->{'pool'} } ) {
+ my $drives = $v =~ s/sd/sd/g;
+ my $vdevs  = $v =~ s/raidz/raidz/g;
+ my $c = $drives / $vdevs;
+ $update->{label} = "$vdevs.$c";
+}
+