s4: y4.cgi annotate

author	HIROSE Yuuji <yuuji@gentei.org>
date	Sun, 19 Jul 2015 13:51:41 +0900
parents
children	3db7524d3dea

rev	line source
4 6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1 #!/bin/sh
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	2 # 愛
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	3 PATH=/usr/local/sqlite3/bin:$PATH
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	4 myname=`basename $0`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	5 mydir=`dirname $0`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	6 . $mydir/y4-funcs.sh
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	7
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	8 cgiinit
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	9 if [ x"$1" = x"reg" ]; then
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	10 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	11 regist $2
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	12 putfooter
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	13 exit
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	14 fi
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	15
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	16 dologin
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	17 #gencookie; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	18
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	19 case ${SERVER_SOFTWARE} in
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	20 bozohttp*)
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	21 set -- `echo "$@"\|(IFS=+ read a b c d e f g; echo $a $b $c $d $e $f $g)`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	22 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	23 esac
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	24
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	25 ## err 1=$1 2=$2 3=$3 4=$4
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	26 stage=`getpar stage`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	27 stage=${stage:-$1}
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	28 case ${stage} in
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	29 "")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	30 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	31 m4 -D_SITE_="S System" $layout/welcome.m4.html
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	32 # echo "<pre>"; gencookie "user=$user" "skey=$skey"; echo "</pre>"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	33 # echo "<pre>`env\|sort -u`</pre>"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	34 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	35 "diary")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	36 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	37 title=`getpar title` #diary=`getpar diary` wday=`getpar wday`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	38 [ -n "$title" ] && par2table $formdir/diary.def
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	39 m4 -D_TITLE_="$title" -D_DIARY_="$diary" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	40 -D_FORM_="`genform templ/form/diary.def`" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	41 -D_FORM2_="syscmd(\`genform templ/form/diary.def')" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	42 -D_DUMPTABLE_="`dumptable html diary title,wday,diary`" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	43 $layout/html.m4.html $layout/diary.m4.html
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	44 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	45 "invite")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	46 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	47 invite
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	48 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	49 "home")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	50 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	51 [ -n "`getpar rowid`" ] && par2table $formdir/user.def
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	52 showhome ${2:-$user}
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	53 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	54 "groupman")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	55 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	56 gname=`getpar gname`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	57 [ -n "$gname" ] && par2table $formdir/grp.def
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	58 m4 -D_TITLE_="グループ作成" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	59 -D_FORM_="`genform $formdir/grp.def`" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	60 -D_DUMPTABLE_="`DT_VIEW=grp dumptable html grp 'gname gecos'`" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	61 $layout/html.m4.html $layout/groupman.m4.html
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	62 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	63 "edittable")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	64 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	65 m4 -D_TITLE_="グループ編集/削除" $layout/html.m4.html
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	66 edittable "$formdir/$2.def" "$2" "$3"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	67 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	68 "userconf")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	69 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	70 [ -n "`getpar rowid`" ] && par2table $formdir/user.def
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	71 userconf
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	72 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	73 "groupconf")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	74 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	75 [ -n "`getpar rowid`" ] && par2table $formdir/grp.def
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	76 groupconf "$2"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	77 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	78 "mems")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	79 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	80 m4 -D_TITLE_="参加者一覧" -D_BODYCLASS_=listmember $layout/html.m4.html
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	81 kwd=`getpar kwd`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	82 listmember $kwd \| tee tmp/listmem.out
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	83 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	84 "grps")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	85 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	86 m4 -D_TITLE_="グループ一覧" -D_BODYCLASS_=listgroup $layout/html.m4.html
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	87 kwd=`getpar kwd`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	88 listgroup $kwd \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	89 \| m4 -D_DUMPTABLE_="syscmd(\`cat')" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	90 -D_TITLE_="グループ関連操作" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	91 -D_FORM_="<a href=\"?groupman\">新規グループ作成</a>" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	92 $layout/groupman.m4.html
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	93
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	94 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	95 "grps2")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	96 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	97 m4 -D_TITLE_="グループ一覧" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	98 -D_FORM_="`listgroup2 $formdir/grp.def`" -D_DUMPTABLE_= \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	99 $layout/html.m4.html \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	100 $layout/groupman.m4.html
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	101 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	102 "grp") # $2=group
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	103 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	104 gpg=`getpar grp`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	105 grp=${2:-$gpg}
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	106 ## . ./y4-blog.sh
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	107 jg=`getpar joingrp`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	108 if [ -n "$jg" ]; then
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	109 err jg=$jg, grp=$grp
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	110 [ -n "$jg" -a -n "$grp" ] &&
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	111 joingrp "$grp" "$user" "$jg" "`getpar email`"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	112 fi
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	113 m4 -D_TITLE_="グループ $grp" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	114 $layout/html.m4.html
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	115 showgroup $grp
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	116
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	117 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	118 "commission")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	119 # $2=grp $3=user-rowid
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	120 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	121 err commission: "$@"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	122 m4 -D_TITLE_="グループ $2 管理者委任" $layout/html.m4.html
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	123 shift # $1=grp $2=user-rowid
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	124 if [ -n "$2" ]; then
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	125 grp_reg_adm "$@"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	126 else
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	127 echo "<p>無効な指定です。普通のアクセスならここに来ないはず。</p>"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	128 fi
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	129 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	130 "blog")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	131 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	132 . ./y4-blog.sh
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	133 blog_addentry $2
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	134 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	135 "replyblog")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	136 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	137 rowid=${2%%[!A-Z0-9a-z_]*}
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	138 ## err ROWid=$rowid, '$2'=$2
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	139 . ./y4-blog.sh
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	140 err blog_reply $rowid
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	141 blog_reply $rowid
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	142 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	143 "editheading")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	144 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	145 rowid=${2%%[!A-Z0-9a-z_]*}
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	146 # blogrowid=${3%%[!A-Z0-9a-z_]*}
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	147 if [ -z "$rowid" ]; then
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	148 echo "<p>話題番号が未指定です。</p>"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	149 return
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	150 fi
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	151 owner=`getvalbyid blog owner $2`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	152 title=`getvalbyid blog title $2`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	153 m4 -D_TITLE_="修正" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	154 -D_SUBTITLE_="[$title]@$owner" -D_DIARY_="" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	155 -D_BLOGS_="" -D_DUMPTABLE_="" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	156 -D_FORM_="`GF_ACTION=\"?blog\" edittable $formdir/blog.def blog $rowid`" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	157 $layout/html.m4.html $layout/diary.m4.html
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	158 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	159 "editart")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	160 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	161 rowid=${2%%[!A-Z0-9a-z_]*}
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	162 blogrowid=${3%%[!A-Z0-9a-z_]*}
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	163 if [ -z "$rowid" -o -z "$blogrowid" ]; then
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	164 echo "<p>表示する記事番号が未指定です。</p>"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	165 return
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	166 fi
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	167 owner=`getvalbyid blog owner $blogrowid`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	168 title=`getvalbyid blog title $blogrowid`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	169 author=`getvalbyid article author $rowid`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	170 err EDITart: owner=$owner, author=$author
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	171 if isgrpowner $user $owner; then
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	172 : EDIT OK
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	173 elif [ x"$owner" != x"$user" -a x"$author" != x"$user" ]; then
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	174 echo "<p>本人か所有者しか編集できません.</p>"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	175 return
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	176 fi
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	177 aid=`query "select id from article where rowid=$rowid;"`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	178 # title=`getvalbyid blog title $2`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	179 m4 -D_TITLE_="コメントの修正" -D_DIARY_="" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	180 -D_FORM_="`GF_ACTION=\"?replyblog+$blogrowid#$aid\" edittable $formdir/article.def article $rowid`" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	181 -D_SUBTITLE_="`gecos $owner`の「$title」" \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	182 -D_BLOGS_= -D_DUMPTABLE_= \
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	183 $layout/html.m4.html $layout/diary.m4.html
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	184 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	185 "lshandout")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	186 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	187 rowid=${2%%[!A-Z0-9a-z_]*}
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	188 if [ -z "$rowid" ]; then
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	189 echo "<p>話題番号が未指定です。</p>"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	190 return
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	191 fi
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	192 . ./y4-blog.sh
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	193 lshandout $rowid
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	194 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	195 "gethandout")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	196 rowid=${2%%[!A-Z0-9a-z_]*}
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	197 if [ -z "$rowid" ]; then
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	198 echo "<p>話題番号が未指定です。</p>"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	199 return
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	200 fi
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	201 . ./y4-blog.sh
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	202 gethandout $rowid
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	203 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	204 "searchart") # $2=blogowner
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	205 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	206 m4 -D_TITLE_="検索結果" $layout/html.m4.html
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	207 kwd=`getpar kwd`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	208 if [ -z "$kwd" ]; then
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	209 echo "<p>検索語を指定してください</p>"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	210 else
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	211 owner=`getpar owner`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	212 owner=${owner:-$2}
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	213 echo "<h2>「$kwd」による検索結果</h2>"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	214 if [ -n "$owner" ]; then
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	215 cond="where key='owner' and val='$owner'"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	216 if isuser $owner; then
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	217 echo "<p>(`linkhome $owner` さんの記録からの検索)</p>"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	218 else
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	219 linkhome $owner 1>&3
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	220 echo "<p>(`linkhome $owner` グループからの検索)</p>"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	221 fi
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	222 fi
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	223 # article_s: id=article-id, key='text', val='TEXT'
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	224 # article: id=article-id, blogid=blogkd
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	225 # blog: id=blog-id, author=LeaderAuthor
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	226 # blog_s: id=blog-id, key='title', val='BLOG-TITLE'
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	227 # WANT: blog-ROWid,article-id,val(TEXT)
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	228 sql="select b.rowid\|\|'#'\|\|x.id as '',
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	229 b.title as TITLE,
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	230 substr(x.val, 0, 80) as TEXT
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	231 from (select blog.rowid,blog.*,bs.val as title from blog join blog_s bs
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	232 on blog.id=bs.id and bs.key='title') b
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	233 join
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	234 (select a.id,a.blogid,s.val from article a join article_s s
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	235 on a.id=s.id where s.val like '%$kwd%')
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	236 x on b.id=x.blogid
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	237 where b.id in (select id from blog_s
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	238 $cond);"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	239 sedopt="s,<TR><TD>\([^<]*\)</TD>,<TR><TD><a\
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	240 href=\"?replyblog+\1\">VIEW</a></TD>,"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	241 cat<<EOF
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	242 <table class="b searchart">
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	243 `sq -header -html $db "$sql"\|sed "$sedopt"`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	244 </table>
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	245 EOF
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	246 fi
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	247 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	248 "showattc")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	249 # $2=table_m $3=rowid $4=val
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	250 if ! isfilereadable $user $2 $3; then
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	251 contenttype; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	252 echo "<p>このファイルは管理者のみしか見られません</p>"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	253 putfooter; exit
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	254 fi
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	255 idir=`umask 002; mktemp -d -p $tmpdir -t $myname` \|\| exit 1
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	256 tmpfiles=$tmpfiles"${tmpfiles+ }$idir"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	257 bin=$idir/$myname-$$.bin
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	258 ##sql="select quote(bin) from $2 where id='$3' and val='$4'"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	259 sql="select quote(bin) from $2 where rowid='$3'"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	260 sq $db "$sql" \| xxd -r -p > $bin
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	261 # type=`sq $db "select type from $2 where id='$3' and val='$4'"`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	262 tv=`sq $db "select type,val from $2 where rowid='$3'"`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	263 type=${tv%\|} fn=${tv#\|}
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	264 err tv=$tv type=$type fn=$fn
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	265 ct=${type#file:}
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	266 case $ct in # all text/* changed to text/plain
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	267 text/*)
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	268 charset=`nkf -g $bin\|cut -d' ' -f1`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	269 case $charset in
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	270 ASCII*) charset="" ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	271 esac
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	272 ct="text/plain${charset:+; charset=$charset}"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	273 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	274 esac
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	275 contenttype "$ct"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	276 echo "Content-Disposition: filename=\"$fn\""
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	277 echo "Content-Length: " `cat $bin \| wc -c`; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	278 #echo "Content-Type: " ${type#file:}; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	279 cat $bin
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	280 exit 0
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	281 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	282 "gallery")
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	283 ## contenttype "Image/jpeg"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	284 sql="select quote(b) from te where a='${2:-mikan.jpg}'"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	285 idir=`umask 002; mktemp -d -p $tmpdir -t $myname` \|\| exit 1
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	286 tmpfiles=$tmpfiles"${tmpfiles+ }$idir"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	287 img=$idir/$myname-$$.bin
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	288 db=b.sq3
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	289 sqlite3 $db "$sql" \| xxd -r -p > $img
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	290 len=`cat $img \| wc -c`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	291 echo "Content-Length: $len"
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	292 type=`file --mime-type $img \| cut -d' ' -f2`
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	293 echo 'Content-type: $type'; echo
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	294 cat $img
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	295 ;;
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	296 esac
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	297
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	298
6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	299 putfooter

4

6822f4362bf9 New system name declared as yas4