resolvetest 579 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
#
#
#
use strict;
use libinstall;
use installvars;

sub Install($$$)
{
    my ($server, $isupdate, $impotent) = @_;

    Phase "resolve", "Checking to make sure names for boss/ops/fs resolve", sub {
	my @hnames = (@OPS_NAMES, $BOSSNODE, "boss", "fs");
	push(@hnames, $FSNODE)
	    if (! grep {$_ eq $FSNODE} @hnames);

	foreach my $name (@hnames) {
	    Phase $name, $name, sub {
		if (gethostbyname($name)) {
		    PhaseSucceed("$name resolves");
		} else {
		    PhaseFail("$name does not resolve");
		}
	    };
	}
    };
    return 0;
}

# Local Variables:
# mode:perl
# End: