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