print SRV $_ unless ($c eq $c2 && $as eq $as2 && $ap eq $ap2);
}
&afs_unlock;
-
- open(VOS,"$vos partinfo $as $ap -cell $c -noauth|");
- chop(@vos = <VOS>);
- close(VOS);
+
+ ($total, $used) = &afs_partinfo($as, $ap, $c);
next if ($?);
- @vos = split(/\s+/,$vos[0]);
- $total = pop(@vos);
- $used = $total-$vos[5];
$alloc = 0;
open(VOS,"$vos listvol $as $ap -cell $c -long -noauth|");