extract number of drives, cache and log from pool name

diff --git a/public/code/pool.drives,cache,log.pl b/public/code/pool.drives,cache,log.pl
new file mode 100644 (file)
index 0000000..4143f0b
--- /dev/null
+++ b/public/code/pool.drives,cache,log.pl
@@ -0,0 +1,5 @@
+foreach my $v ( @{ $row->{'pool'} } ) {
+ $update->{$_} = $v =~ s/(\+$_)/$1/ foreach ( 'cache', 'log' );
+ $update->{drives} = $v =~ s/sd/sd/g;
+}
+