s4

annotate s4-start.sh @ 482:3dc012eb1ad0

find changesets by author, revision, files, or words in the commit message
URL pattern fixed to exclude URL example which starts with multibyte
author HIROSE Yuuji <yuuji@gentei.org>
date Mon, 15 Jan 2018 09:33:12 +0900
parents 8a88212a1ee3
children 8d2a121cbc59
rev   line source
yuuji@82 1 #!/bin/sh
yuuji@82 2 # 愛
yuuji@82 3 # Start s4 - Generate s4.cgi
yuuji@82 4 mydir=`dirname $0`
yuuji@82 5 myname=`basename $0`
yuuji@82 6
yuuji@82 7 script_dir=${SCRIPT_DIR:-scripts}
yuuji@82 8
yuuji@86 9 ADMIN=""
yuuji@86 10 TYPE="form1"
yuuji@82 11 ex=examples
yuuji@82 12
yuuji@82 13 usage() {
yuuji@82 14 cat<<EOF
yuuji@82 15 $myname `sed -n 3p $0`
yuuji@82 16 Usage: $myname [Options]
yuuji@82 17 Options are as follows:
yuuji@82 18 -h Show this help
yuuji@82 19 -a ADM Set ADMIN email address to ADM
yuuji@82 20 -f Force overwriting
yuuji@88 21 -g Guestonly mode(No login required)
yuuji@86 22 -t TYPE Construction type (defaults to $TYPE)
yuuji@82 23
yuuji@82 24 TYPEs are one of directory names in examples except \`common'.
yuuji@82 25 EOF
yuuji@82 26 exit 0
yuuji@82 27 }
yuuji@87 28 while getopts a:fght: f; do
yuuji@82 29 case $f in
yuuji@86 30 a) ADMIN=$OPTARG;;
yuuji@87 31 g) guest=1;;
yuuji@82 32 f) force=1;;
yuuji@86 33 t) TYPE=$OPTARG;;
yuuji@82 34 \?|h) usage; exit 1;;
yuuji@82 35 esac
yuuji@82 36 done
yuuji@82 37 shift $(expr $OPTIND - 1)
yuuji@82 38
yuuji@86 39 if [ ! -d $ex/$TYPE ]; then
yuuji@82 40 cat<<EOF 1>&2
yuuji@86 41 Invalid type($TYPE).
yuuji@82 42 Types are one of as follows.
yuuji@82 43 `ls $ex|grep -v common | sed 's/^/ /'`
yuuji@82 44 EOF
yuuji@82 45 exit 1
yuuji@82 46 fi
yuuji@82 47
yuuji@86 48 if [ -z "$ADMIN" ]; then
yuuji@82 49 cat<<EOF 1>&2
yuuji@82 50 Administrator's email not specified.
yuuji@82 51 Please feed administrator email with \`-a' option.
yuuji@82 52 EOF
yuuji@82 53 exit 1
yuuji@82 54 fi
yuuji@82 55
yuuji@82 56 if ! cd $mydir; then
yuuji@82 57 echo "Script(s4-funcs.sh) not found in \`$mydir'." 1>&2
yuuji@82 58 exit 1
yuuji@82 59 fi
yuuji@82 60
yuuji@88 61 . ./s4-funcs.sh
yuuji@86 62 if ! checkdomain $ADMIN; then
yuuji@82 63 cat<<EOF 1>&2
yuuji@86 64 Administrator's email - $ADMIN - is invalid(host not found).
yuuji@82 65 Please specify existing email address.
yuuji@82 66 EOF
yuuji@82 67 exit 3
yuuji@82 68 fi
yuuji@82 69
yuuji@82 70 if [ -d templ/form ]; then
yuuji@82 71 if [ -z "$force" ]; then
yuuji@82 72 echo "templ/ directory already exists. Remove it, then try again." 1>&2
yuuji@82 73 exit 4
yuuji@82 74 fi
yuuji@82 75 rm -rf templ/*
yuuji@82 76 fi
yuuji@82 77 mkdir templ
yuuji@104 78 if (cd templ && cp -r ../examples/$TYPE/* .); then
yuuji@82 79 if ./s4-init.sh; then
yuuji@82 80 cat<<EOF
yuuji@82 81 -------- The s4 System Successfully Installed --------
yuuji@82 82 EOF
yuuji@110 83 if [ -s scripts/s4-$TYPE.case ]; then
yuuji@110 84 casefile=scripts/s4-$TYPE.case
yuuji@107 85 else
yuuji@110 86 casefile=scripts/s4-default.case
yuuji@107 87 fi
yuuji@96 88 m4 -P -I scripts -D_SHELL_=`which sh` \
yuuji@107 89 -D_CASE_=$casefile s4.cgi.m4 > index.cgi && chmod +x index.cgi
yuuji@87 90 (echo "ADMIN=$ADMIN"
yuuji@95 91 [ "$guest" ] && echo "guestonlymode=1") >> s4-config.sh
yuuji@94 92 rc=0
yuuji@82 93 else
yuuji@82 94 echo Calling s4-init.sh 'FAILED!!'
yuuji@82 95 fi
yuuji@82 96 else
yuuji@82 97 echo Failed
yuuji@82 98 fi 1>&2
yuuji@82 99
yuuji@82 100 exit ${rc:-5}