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