Import Upstream version 1.8.5

[hcoop/debian/openafs.git] / src / tests / boslisthosts.pl

#!/usr/bin/env perl
use OpenAFS::CMU_copyright;
use OpenAFS::util qw(:DEFAULT %AFS_Help);
use OpenAFS::afsconf;
use OpenAFS::fs;
use OpenAFS::pts;
use OpenAFS::vos;
use OpenAFS::bos;

my ($host, @hosts, $this, $cell, $cnt);
$host = `hostname`;
chomp $host;
&AFS_Init();
$cell = &AFS_fs_wscell();

@hosts = &AFS_bos_listhosts(localhost,);
$this = shift(@hosts);
if ($this ne $cell) {
    exit (1);
}
while ($this = shift(@hosts)) {
    if ($this ne $host) {
	if (($this ne "128.2.1.2")) {
	    exit (1);
	}
    }
}
exit(0);