lsafsmountpoint.pl is a Perl Script based
on a Perl Script written by Bradley White of Transarc Co.
It can be used to get the list of mount points of AFS (Andrew File System) Volumes in a given tree.
It also tries to avoid loops detecting multiple mounts of a volume.
You are free to download and use it under the terms of the GNU General Public License.
Usage is: lsafsmountpoint.pl [-summary] [-foreign] [-showquota] <directory ...> Where: -summary Show a final list of mount points for every visited volume. -foreign Include directory trees with mount points of foreign cells. -showquota Show volume quotas.
A simple Perl Script to get some information on AFS volumes status and statistics can be found here.