#!/usr/local/bin/perl
use blib;
use strict;
use AFS::FS qw(whereis);
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";
}
}