#!/usr/bin/perl

# Setup /etc/hosts.equiv.  THIS IS A SECURIY RISK FOR A CLUSTER WITH 
# REAL NET ATTACHMENTS (not behind a fire wall) USE WITH EXTREME CARE!!!
 
# v1.0 16-Aug-2002:  basic code

my $fqpn_host_list = '/opt/finishing/etc/hosts.equiv';

my @hosts=`cat $fqpn_host_list`;


open($hosts_equiv,">/etc/hosts.equiv") || die "Unable to open /etc/hosts.equiv\n";
printf $hosts_equiv "10.1.0.1\n";
foreach my $host (@hosts)
  {
    printf $hosts_equiv "%s",$host;
  }
close($hosts_equiv);