#!/usr/local/bin/perl
use
blib;
use
strict;
use
warnings;
my
(
$path
,
$vol
);
die
"Usage: $0 path\n"
if
(
$#ARGV
!= 0);
$path
=
shift
;
$vol
= lsmount(
$path
);
$AFS::CODE
and
"Error Code: $AFS::CODE\n"
;
if
(
defined
$vol
) {
"\'$path\' is a mount point for volume \'$vol\' \n"
;
}
elsif
(
$path
=~ /\.$/) {
"you may not use '.' or '..' as the last component of the path name \n"
;
}
else
{
"\'$path\' is not a mount point \n"
;
}