|
#!/usr/local/bin/perl
my ( $dir , $ip , @hosts );
die "Usage: $0 dir ip\n" if ( $#ARGV == -1);
$dir = shift ;
$ip = shift ;
@hosts = whereis( $dir , $ip );
if ( $AFS::CODE ) { print "AFS::CODE = $AFS::CODE\n" ; }
else {
foreach my $host ( @hosts ) {
print " $host\n" ;
}
}
|