s4

annotate s4.cgi @ 520:0d8785102531

find changesets by author, revision, files, or words in the commit message
Resolve confliction of s4.cgi
author HIROSE Yuuji <yuuji@gentei.org>
date Sat, 06 Apr 2019 17:35:07 +0900
parents e8bde2d9cb0b
children
rev   line source
yuuji@4 1 #!/bin/sh
yuuji@330 2 #!/bin/ksh
yuuji@520 3 # 愛 - Do not EDIT this file manually. GENERATE from scripts/s4-*.case.
yuuji@4 4 mydir=`dirname $0`
yuuji@451 5 echo "1=[$1]" >> tmp/debug.out
yuuji@17 6 . $mydir/s4-funcs.sh
yuuji@4 7
yuuji@4 8 cgiinit
yuuji@81 9 if [ -z "$guestonlymode" ]; then
yuuji@81 10 if [ x"$1" = x"reg" ]; then
yuuji@81 11 contenttype; echo
yuuji@81 12 regist $2
yuuji@81 13 putfooter
yuuji@81 14 exit
yuuji@81 15 fi
yuuji@81 16
yuuji@81 17 dologin
yuuji@4 18 fi
yuuji@4 19
yuuji@4 20 case ${SERVER_SOFTWARE} in
yuuji@27 21 bozohttp*) # Ugly workaround for bozohttpd, which can't send
yuuji@27 22 # two or more arguments.
yuuji@4 23 set -- `echo "$@"|(IFS=+ read a b c d e f g; echo $a $b $c $d $e $f $g)`
yuuji@4 24 ;;
yuuji@4 25 esac
yuuji@4 26
yuuji@451 27 err "1=$1 2=$2 3=$3 4=$4"
yuuji@4 28 stage=`getpar stage`
yuuji@4 29 stage=${stage:-$1}
yuuji@4 30 case ${stage} in
yuuji@79 31 home|"")
yuuji@4 32 contenttype; echo
yuuji@79 33 err HOME: just in rowid=`getpar rowid`
yuuji@8 34 [ -n "`getpar rowid`" ] && par2table $formdir/user.def
yuuji@8 35 showhome ${2:-$user}
yuuji@4 36 ;;
yuuji@79 37 login)
yuuji@27 38 contenttype; echo
yuuji@27 39 myargs=""
yuuji@27 40 showlogin
yuuji@27 41 ;;
yuuji@79 42 # "edittable")
yuuji@79 43 # contenttype; echo
yuuji@79 44 # m4 -D_TITLE_="グループ編集/削除" $layout/html.m4.html
yuuji@79 45 # edittable "$formdir/$2.def" "$2" "$3"
yuuji@79 46 # ;;
yuuji@79 47 "showattc")
yuuji@79 48 shift
yuuji@79 49 showattc "$@"
yuuji@79 50 exit 0 # Do not output further chunks
yuuji@79 51 ;;
yuuji@382 52 invite|groupman|userconf|groupconf|mems|grps|grp|groupupdate|groupclone|grpaction|joingrpadmit|commission|editheading|editart|showattc|send2mem|mvart)
yuuji@4 53 contenttype; echo
yuuji@79 54 [ -n "$1" ] && shift
yuuji@79 55 $stage "$@"
yuuji@4 56 ;;
yuuji@68 57 "blog") # $2=grpID
yuuji@4 58 contenttype; echo
yuuji@17 59 . ./s4-blog.sh
yuuji@193 60 blog_addentry $2
yuuji@4 61 ;;
yuuji@4 62 "replyblog")
yuuji@4 63 contenttype; echo
yuuji@4 64 rowid=${2%%[!A-Z0-9a-z_]*}
yuuji@4 65 ## err ROWid=$rowid, '$2'=$2
yuuji@17 66 . ./s4-blog.sh
yuuji@154 67 err blog_reply2 $rowid
yuuji@193 68 blog_reply $rowid
yuuji@4 69 ;;
yuuji@451 70 aid[1-9]*)
yuuji@451 71 arid=${1#aid}
yuuji@451 72 arid=${arid%%[!0-9]*}
yuuji@451 73 . ./s4-blog.sh
yuuji@451 74 err b_r_a "$arid"
yuuji@451 75 blog_reply_article "$arid"
yuuji@451 76 ;;
yuuji@219 77 reload*) # Dirty workaround for reloading page just after submit
yuuji@219 78 newurl="$urlbase?replyblog+${stage#*/}#bottom"
yuuji@219 79 echo "Refresh: 0; $newurl"; echo
yuuji@219 80 exit 0
yuuji@219 81 ;;
yuuji@462 82 lshandout|lshandoutall|gethandout|gethandoutcsv|gethandoutcsv2|blogseen)
yuuji@369 83 case "$stage" in
yuuji@462 84 lshandout*|blogseen*) contenttype; echo ;;
yuuji@369 85 esac
yuuji@4 86 rowid=${2%%[!A-Z0-9a-z_]*}
yuuji@4 87 if [ -z "$rowid" ]; then
yuuji@66 88 echo "話題番号が未指定です。" | html p
yuuji@4 89 return
yuuji@4 90 fi
yuuji@17 91 . ./s4-blog.sh
yuuji@79 92 $stage $rowid
yuuji@4 93 ;;
yuuji@80 94 lsmyfile)
yuuji@80 95 contenttype; echo
yuuji@80 96 . ./s4-blog.sh
yuuji@80 97 shift
yuuji@80 98 $stage "$@"
yuuji@80 99 ;;
yuuji@4 100 "searchart") # $2=blogowner
yuuji@4 101 contenttype; echo
yuuji@4 102 m4 -D_TITLE_="検索結果" $layout/html.m4.html
yuuji@78 103 . ./s4-blog.sh
yuuji@78 104 searchart $2
yuuji@4 105 ;;
yuuji@79 106 *)
yuuji@79 107 exec $0 login
yuuji@4 108 ;;
yuuji@4 109 esac
yuuji@4 110
yuuji@4 111 putfooter