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