head	1.1;
access;
symbols;
locks; strict;
comment	@# @;


1.1
date	2001.08.01.17.38.36;	author dlr;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Indicates which Spread cluster host we are.
@
text
@#!/usr/bin/perl -w
# Indicates which Spread cluster host we are.
# usage: spread_host [my ip] [ip list]

my $hostNbr = 1;

if (scalar(@@ARGV) > 0)
{
    my $MY_IP = shift(@@ARGV);

    while (!(shift(@@ARGV) eq $MY_IP))
    {
        $hostNbr++;
    }
}

print 'CH', $hostNbr;
@
