Mercurial > hgrepos > hgweb.cgi > s4
annotate y4.cgi @ 7:67a1bb482ce1
Remove script name from href
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Sun, 19 Jul 2015 17:02:46 +0900 |
parents | 6822f4362bf9 |
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 |