#!/bin/sh
# 愛
# Start s4 - Generate s4.cgi
mydir=`dirname $0`
myname=`basename $0`

script_dir=${SCRIPT_DIR:-scripts}

admin=""
type="form1"
ex=examples

usage() {
  cat<<EOF
$myname		`sed -n 3p $0`
Usage:	$myname [Options]
Options are as follows:
	-h		Show this help
	-a ADM		Set ADMIN email address to ADM
	-f		Force overwriting
	-t TYPE		Force overwriting (defaults to $type)

TYPEs are one of directory names in examples except \`common'.
EOF
  exit 0
}
while getopts afht: f; do
  case $f in
    a)	admin=$OPTARG;;
    f)	force=1;;
    t)	type=$OPTARG;;
    \?|h)     usage; exit 1;;
  esac
done
shift $(expr $OPTIND - 1)
      
if [ ! -d $ex/$type ]; then
  cat<<EOF 1>&2
Invalid type($type).
Types are one of as follows.
`ls $ex|grep -v common | sed 's/^/	/'`
EOF
  exit 1
fi

if [ -z "$admin" ]; then
  cat<<EOF 1>&2
Administrator's email not specified.
Please feed administrator email with \`-a' option.
EOF
  exit 1
fi

if ! cd $mydir; then
  echo "Script(s4-funcs.sh) not found in \`$mydir'." 1>&2
  exit 1
fi

. ./s4-funcs.sh || exit 2
if ! checkdomain $admin; then
  cat<<EOF 1>&2
Administrator's email - $admin - is invalid(host not found).
Please specify existing email address.
EOF
  exit 3
fi

if [ -d templ/form ]; then
  if [ -z "$force" ]; then
    echo "templ/ directory already exists.  Remove it, then try again." 1>&2
    exit 4
  fi
  rm -rf templ/*
fi
mkdir templ
if (cd templ && ln -s ../examples/$type/* .); then
  if ./s4-init.sh; then
    cat<<EOF
-------- The s4 System Successfully Installed --------
EOF
    echo "ADMIN=$admin" >> s4-config.sh && rc=0
  else
    echo Calling s4-init.sh 'FAILED!!'
  fi
else
  echo Failed
fi 1>&2

exit ${rc:-5}