Lines Matching refs:pool
88 my @pool = split ('/',$path);
89 $pools{$pool[0]}=1;
92 foreach my $pool (keys %pools) {
93 my ($exitcode, $msg) = check_zpool($pool,2);
201 my @pool = split ('/',$section);
203 if (scalar @pool == 1 || !defined($pools{$pool[0]}) ) {
223 $pools{$pool[0]} = \%capacitylimits;
228 foreach my $pool (keys %pools) {
229 my $capacitylimitsref = $pools{$pool};
231 my ($exitcode, $msg) = check_zpool_capacity($pool,\%$capacitylimitsref);
1065 my $pool=shift;
1081 my $statcommand="$zpool list -o name,size,cap,health,free $pool";
1094 if (/^${pool}\s+/) {
1109 $msg = sprintf "ZPOOL {%s} does not exist and/or is not responding!\n", $pool;
1129 $statcommand="$zpool status $pool";
1140 if (/^\s${pool}/ && $poolfind==1) {
1232 …$msg = sprintf "ZPOOL %s : %s {Size:%s Free:%s Cap:%s} %s\n", $pool, $health, $size, $avail, $cap,…
1256 my $pool=shift;
1260 my $statcommand="$zpool list -H -o cap $pool";
1277 $msg = sprintf "ZPOOL {%s} does not exist and/or is not responding!\n", $pool;
1300 $msg = sprintf "ZPOOL %s : %s\n", $pool, $cap;
1319 my $pool = $parts[0];
1321 if (exists $capacitycache{$pool}) {
1323 $capacitycache{$pool} = get_zpool_capacity($pool);
1326 if ($limit < $capacitycache{$pool}) {
1334 my $pool = shift;
1336 my $statcommand="$zpool list -H -o cap $pool";