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