Mercurial > hgrepos > hgweb.cgi > s4
changeset 89:15d7f2d34e6a
s4.cgi.m4 added
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Mon, 03 Aug 2015 17:38:36 +0900 |
parents | e475a74e2699 |
children | 883c455093ac |
files | s4.cgi.m4 |
diffstat | 1 files changed, 31 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/s4.cgi.m4 Mon Aug 03 17:38:36 2015 +0900 @@ -0,0 +1,31 @@ +`#'!m4_indir(`_SHELL_') +# 愛 +m4_changequote(``,'')mydir=`dirname $0` +. $mydir/s4-funcs.sh + +cgiinit +if [ -z "$guestonlymode" ]; then + if [ x"$1" = x"reg" ]; then + contenttype; echo + regist $2 + putfooter + exit + fi + + dologin +fi + +case ${SERVER_SOFTWARE} in + bozohttp*) # Ugly workaround for bozohttpd, which can't send + # two or more arguments. + set -- `echo "$@"|(IFS=+ read a b c d e f g; echo $a $b $c $d $e $f $g)` + ;; +esac + +# err 1=$1 2=$2 3=$3 4=$4 +stage=`getpar stage` +stage=${stage:-$1} +case ${stage} in +m4_sinclude(_CASE_)esac + +putfooter