#!/bin/sh

IP=$1
HOST=$2
root=$3

if [ $? -ne 0 ]
then
    cat <<EOF
Usage: unitset <ipaddr> <hostname> [<root of filesystem>]
Synopsis:
	change hostname ip-number
EOF
    exit 1
fi

export LANG=C

perl -pi.org -e "s/172\.16\.0\.1/$IP/"    $root/etc/network/interfaces
perl -pi.org -e "s/HOSTNAME/$HOSTNAME/" \
                                          $root/etc/exim/exim.conf

echo $HOSTNAME > $root/etc/hostname
echo $HOSTNAME > $root/etc/mailname
ALIAS=`echo $HOSTNAME | sed -e 's/\..*$//'`
echo "$IP	$HOSTNAME	$ALIAS" >> $root/etc/hosts

umask 022
rm $root/etc/ssh/ssh_host_*key
ssh-keygen -t rsa1 -N '' -f $root/etc/ssh/ssh_host_key     # >/dev/null
ssh-keygen -t rsa  -N '' -f $root/etc/ssh/ssh_host_rsa_key # >/dev/null
ssh-keygen -t dsa  -N '' -f $root/etc/ssh/ssh_host_dsa_key # >/dev/null