s4: 8229c75e9f94 s4-funcs.sh

s4

view s4-funcs.sh @ 887:8229c75e9f94

Ensure user_s update

author	HIROSE Yuuji <yuuji@gentei.org>
date	Tue, 22 Dec 2020 08:24:23 +0900
parents	99187e4ad69b
children	7ca1f11ab5e8

line source

1 #!/bin/sh

2 # Here's global variable table. Do not use this names.

3 # $HGid$

5 [ -f s4-config.sh ] && . ./s4-config.sh

7 test -n "$HTTP_HOST" && isCGI=true || isCGI=false

8 if $isCGI; then

9 case "$SCRIPT_NAME" in

10 *-world-*)

11 S4WORLD=${SCRIPT_NAME#*world-}

12 S4WORLD=${S4WORLD%.*}

13 echo S4WORLD=$S4WORLD >&2

14 worldconf=s4-config-${S4WORLD}.sh

15 ;;

16 *)

17 worldconf=s4-config.sh

18 ;;

19 esac

20 echo worldconf=$worldconf >&2

21 [ -n "$worldconf" -a -e "$worldconf" ] && . ./$worldconf

22 echo DB=$DB >&2

23 fi

24 myname=`basename ${SCRIPT_NAME:-$0}`

25 mydir=`dirname ${SCRIPT_FILENAME:-$0}`

26 cgiext=${CGIEXT:-.cgi}

27 myargs="$@"

28 PATH=/usr/local/sqlite3/bin:/usr/local/vim7/bin:/usr/iekei/ImageMagick/bin:/usr/local/ImageMagick/bin:$PATH

29 tmpdir=${TMPDIR:-tmp}

30 dbdir=${DBDIR:-db}

31 logdir=${LOGDIR:-tmp}

32 tmpfiles=""

33 querylog=${QUERYLOG:-$logdir/query.log}

34 searchlog=${SEARCHLOG:-$logdir/search.log}

35 defaultdb=$dbdir/cgi.sq3

36 db=${DB:-$defaultdb}

37 sessdb=${SESSDB:-$dbdir/sess.sq3}

38 userupdateflag=$dbdir/userupdate

39 sesstb=tmp.sess

40 workdb=$dbdir/tmpdata.sq3

41 listentlimit=${LISTENTLIMIT:-30}

42 listartlimit=${LISTARTLIMIT:-50}

43 admin=${ADMIN:-hostmaster@example.org}

44 noreply=${NOREPLY:-noreply@example.org}

45 noreply_from="${S4NAME:-s4} message notification <$noreply>"

46 invite_policy=${INVITE_POLICY:-"このコミュニティに関りのあるあなたの信頼できる人を招きます。"}

47 templ=${TEMPL:-templ}

48 layout=${LAYOUT:-$templ/default}

49 formdir=${FORMDIR:-$templ/form}

50 imgdir=${IMGDIR:-img}

51 url=${URL:-"${REQUEST_SCHEME:-http${HTTPS:+s}}://$HTTP_HOST$REQUEST_URI"}

52 urlbase=${url%%\?*}

53 msgdir=$templ/msg

54 timeout="+2 days"

55 memoplimitdays="7"

56 dumpcollen=22

57 #thumbxy=120x120

58 thumbxy=96x96

59 iconxy_S=80x80

60 iconxy_M=400x400

61 maximagexy=1600x1600

62 ### maximagexy=400x400

63 filesize_max=$((5*1024*1024))

64 filesize_max_MB="$((filesize_max/1024/1024))MB"

65 file_accept='accept="image/*,text/*,audio/*,application/vnd.oasis.*,application/pdf,application/x-*,application/csv"'

66 file_accept='accept=".jpg,.jpeg,.gif,.png,.tiff,.pdf,.odt,.ods,.odp,.odg,.mp3,.mp4,.avi,.ogg,.mov,.webm,.gpx,.json,.geojson,.kml,.html,.css,.rb,.c,.h,.txt,.tex,.sty,.zip,.xcf,.bz2,.gz,.xz,.7z,.csv,.dat"'

68 file_accept_help="

69 添付可能ファイル: テキスト、画像、音声、動画、ODF、PDF、

70 圧縮ファイル、データベースファイル

71 (いずれも ${filesize_max_MB} 以内)

72 "

73 file_warn="$file_accept_help

74 [編集]リンクから修正してください。"

75 blogreadflagrowid=0

76 blogcutoffflagrowid=-1

77 nonewgroupworld=${NONEWGROUPWORLD:-*archive*}

78 whatsnewdays=${WHATS_NEW_DAYS:-14}

79 main_session=`date +%F-$$`

80 session=$main_session

82 tconfs=""

83 imgcached=cache/${S4WORLD:+$S4WORLD/}img.`date +%Y/%m`

84 conftbl=_tblconf

85 nl="

86 "

87 likeesc=`printf '\037'` # ESCAPE char of LIKE operator

88 iconcachekey="profimgcache_S"

90 # Start debug logging

91 logtag="($$)${S4WORLD:+{$S4WORLD\}}"

92 exec 3>> $logdir/debug.out

93 err() {

94 echo "[`date +%F-%T%z`]$logtag $@" 1>&3

95 }

96 case "$HTTP_USER_AGENT" in

97 *i[Pp]hone*|*[Aa]ndroid*) touchpanel=1 ;;

98 *) touchpanel="" ;;

99 esac

100

101 # If S4MASTERDB is set, behave in another world

102 ### if [ -n "$S4MASTERDB" -a -s "$S4MASTERDB" ]; then

103 # If S4WORLDLIST is set, this s4 have world!

104 if [ -n "$S4WORLDLIST" ]; then

105 . ./s4-world.sh 2>> $logdir/debug.out

106 # Variables set in s4-world.sh

107 # $S4WORLDS, $S4WROLDNAME, $S4WORLDGRPS

108 # Files created in s4-world.sh

109 # $worldlistfile, $worldoptionfile, $worldnamefile, $worldgrpfile

110 fi

111

112

113 [ -f ./s4-cgi.sh ] && . ./s4-cgi.sh

114

115 : <<EOF

116

117 !! 検索等でblogテーブル参照時は sql4readableblogs() で定義される

118 !! readableblogs テーブルを使うこと

119 資料配布、グループ管理・ML、ファイル交換、クリッカー、アンケート

120 レポート提出管理

121 ひとつのarticleをheadingにして新規ツリーを作成、あるといいかも。

122

123 [2016]

124 7/12 根本への反省

125 * cgi自身の $1, $2 での切り替えでなく、CGI変数での受け渡しにすべき。

126 arg1/arg2/arg3 的に $1 に / 区切りでつけた方がよかったかな。

127

128 [以下2015]

129 8/4 ○グループに承認加入モードを追加

130 ○グループに参加していない場合は grpaction できない

131 Web

132 締切設定

133

134 8/2 ○s4.cgi生成系 → index.cgi生成

135 ○自分の提出物リスト

136

137 7/19 ○設置

138 ○一斉送信

139 ○getparfilename の tmpd の扱い

140 ○やっぱりs4にしようかな

141 7/18 ○書込著者からホームへのリンク

142 7/17 ○個人blogに「レポート提出用」がついたときの挙動

143 ○添付ファイル回収

144 ○imgcacheは別ディレクトリにしないと + .htaccess

145 7/15 ○レポート提出モードの表示を付ける

146 管理者権限での削除? → まだいいか

147

148 7/13 ○前回アクセス基準の新着数は欲しいなあ

149 ○レポート提出はどうしよう

150 → ○blogにモードを追加:

151 ○レポート提出モード

152 添付ファイル (誰が見たかログ)

153 クリッカーは別立てメニューにしないと(管理者がON/OFF)

154 ○添付ファイルの読み出し権(6/22から) ← モードで対処

155

156

157 7/9 ○管理者の追加

158 △グループメンバの操作 → 要不要を吟味

159 ○グループ情報編集の行先はそのグループがいい?

160 ○新規グループの作成はどこから入るか

161 △グループホームとユーザホームを揃える

162

163 7/8 ○グループ一覧をユーザ一覧と揃える。

164

165 7/6の次 ○グループのconf編集の入口

166 ○グループ検索

167

168 6/22の次 ○ホーム画面、○招待状、親記事追跡、○編集ボタン、削除ボタン、

169

170

171 6/7の次 ○blogを作ってみる || userconfig || _mのまとめ編集(削除)

172 6/7の次の次 ○userconfigの画面だけ作ってみる。

173

174 ○ 5/28の次 edittableに「削除」ボタンを足す

175 ○6/1 par2tableを triplex 対応に

176 select "yuuji@gentei.org",var,"text",NULL,val from par where var in (select col from _tblconf where tbl="/user" and keytype in ('p', 's'));

177 →とすると一気に

178

179 ## form.def を考えなおそう:

180 ## userのように必須カラムを決まった位置に付ける?

181 ## 必須カラム、owner(foreign key passwd(name)), update datetime

182 ## ユーザ管理とグループ管理はデフォルトで持たせてしまえ

183

184 ## 縦持ちデータの入力/編集を供給する関数 single + multi

185 ## 持てるテーブル構造はシステム標準5種 + ユーザ定義2種類

186 ## 1. passwd

187 ## 2. grp

188 ## 3. grp_mem

189 ## 4. topic 記事のIDとなる

190 ## 5. topic_cont 特定IDの記事の内容物

191 ## 6. list 繰り返し登場あり

192 ## 7. hash 繰り返し登場なし

193

194 ## ● listの定義:

195 ## create table list(id unique, parentID, type, value);

196 ## ● hashの定義:

197 ## create table hash(parentID, type, value, primary key(parentID, type));

198

199 ## グループ属性: community, friend

200 ## ○ blob使えるのかな。streamで行けるのか? xxdで行けた。ありがたい。

201 ## form-defとtableは1対1対応でいいか

202 ## csv2sq3 で .csv.sq3 の Makefile

203

204 ## 書き込みオブジェクトとは何か?

205 ## topic : id, belongto, title, owner, mode

206 ## type := root | comment

207 ## topic_cont : id, topicid(F), ppath, contenttype, filename, content,

208 ## unique(id, filename)

209 ## type := body(single) | attachment(multi)

210

211 ## group := name(P), tag, gecos, owner(F), mode

212 ## tag := personal | friend | ... any string

213 ## group_member := gname(F), type, name(F), UNIQUE(gname, type, name)

214 ## type := "u" | "g"

215 ## できたー!

216 ## with recursive allmem as (select * from grp_mem where gname='bar' union all select grp_mem.* from grp_mem,allmem where allmem.name=grp_mem.gname) select * from allmem where type='u';

217 ↓

218 ↓以下に変更

219 with recursive allmem as

220 (select gname,val from grp_m where gname='foo'

221 union all select grp_m.gname,grp_m.val from

222 grp_m,allmem where allmem.val=grp_m.gname)

223 select val from allmem where val in (select name from user);

224

225

226 with recursive allmem as

227 (select gname,val from grp_m where gname='foo'

228 union all select grp_m.gname,grp_m.val from grp_m,allmem

229 where allmem.val=grp_m.gname)

230 select a.*, coalesce(b.val,a.val) from allmem a left join grp_mem_s b

231 on a.gname=b.gname and a.val=b.user and b.key='email'

232 where a.val in (select name from user);

233

234

235 ## triggerもできた。

236 ## 5/22から:グループ作成画面

237 ## 埋め込み画像 data:CONTENT-TYPE;base64,.....

238

239 ## 考え得るノードタイプ

240 ## 日報 - 個人所属かグループ所属か

241 ## 課題提出 - 個人所属かグループ所属か

242 ## グループ管理

243 ## 個人情報管理

244 ##

245

246 ## 例: group:sip - topic:1:sip:Aperture:yuuji:rw

247 ## - topic:2:sip:ISO:yuuji:rw

248 ## topic_cont 1:1:/:body:text...Aperture

249 ## 2:1:/1:body:text..Aperture

250 ## 3:1:/1:attachment:binary..Aperture

251 ## 4:1:/2:body:text..Aperture

252 ## 5:1:/2:attachment:binary..Aperture

253 ## 6:2:/:body:text..ISO

254 ## 7:2:/6:body:text..ISO

255 ## 8:2:/6:attachment:binary..

256

257 ## ログテーブル

258 ## time, who, action, tbl, id idなんか取れるかな

259

260

261

262 ■表設計

263 * 3つの表に分散管理

264 id格納表 + hash表 + list表

265 * *_s *_m

266

267

268

269 user, user_map, user_col

270

271 ■抽象エントリタイプ

272 * user

273 idとして機能 → table中の owner に自動挿入(?)

274 * group

275 権限判定に利用

276 * serial

277 自動idとして機能

278 * password

279 入力 type=passwordで入力

280 変更 oldpasswd, password×2 で確認後修正

281 * session

282 password認証後のセッションキーとして機能

283 * text

284 入力 type=text

285 * textarea

286 入力 textarea

287 * image|document

288 入力 type=fileで入力し、mime-typeを確認

289 * owner

290 入力時の $user で、外部キー制約が付く

291 * gowner

292 グループとしての所有者で、外部キー制約が付く

293 * timestamp

294 datetime()

295 * parent

296 木構造の場合の親の位置

297 * path

298 木構造の場合の自分の位置

299

300 格納タイプ

301 * list

302 表 parentID, key, val でUNIQUE(parentID, key, val)

303 * hash

304 表 parentID, key, val でUNIQUE(parentID, key)

305

306 オブジェクトタイプ

307 * entry

308 id, title, owner

309 * textpart

310 id, parentID, text

311 * binarypart

312 id, parentID, contenttype, filename, content

313 * content

314 hash(textpart), list(binarypart)

315 * topic

316 id, hash(content), list(reply)

317 * reply

318 id, parentID, content

319 * blog

320 list(entry)

321 blog = [topic, list(reply)]

322

323

324 blog = [ {"title" => "hoge", "owner" => "yuuji", "date" => "2015-04-27",

325 "text" => "hogehoge ..",

326 "reply" => [ {"serial" => 1,

327 "author" => "taro",

328 "date" => "2015-04-28",

329 "parent" => "/",

330 "path" => "/1",

331 "text" => "blah, blah, ....",

332 "image" => ["a.jpg", "b.jpg"] },

333 {"serial" => 2,

334 "author" => "hanako",

335 "date" => "2015-04-29",

336 "parent" => "/",

337 "path" => "/2",

338 "text" => "blah, blah, ....",

339 "image" => [] }]},

340 {"title" => "buha", ...} ]

341

342

343 user:=

344 ユーザ名(英数字):name:p:text:length="20" maxlength="40"

345 パスワード:pswd:s:password:length="20" maxlength="40"

346 説明(日本語OK):gecos:s:text:length="20" maxlength="40"

347 セッションキー:skey:s:session

348 メイルアドレス:email:m:text:length="20" maxlength="40"

349 住所:address:m:textarea:maxlength="400"

350 プロフィール画像:profimg:m:image:maxlength="400K"

351 履歴書:profpdf:m:document:maxlength="4M"

352

353 変換表

354 /user/email=m

355

356 blog:=

357 シリアル:id:p:serial

358 タイトル:title:s:text:

359 所有者:owner:s:owner:

360 時刻:ctime:s:stamp:

361 リード文:heading:s:textarea:

362 リプライ:reply:m:*article:

363

364 article:=

365 シリアル:id:p:serial

366 筆者:author:s:owner

367 時刻:ctime:s:stamp:

368 参照元:parent:s:parent:

369 パス:path:s:path:

370 本文:text:s:textarea:

371 画像:image:m:image:

372

373 履歴書:profpdf:m:document:maxlength="4M"

374

375

376 EOF

377

378 logstart() {

379 echo "`date '+%F %T'`:[${user:-NULL}]$logtag <<<" >> ${1:-$querylog}

380 }

381 logend() {

382 echo ">>>$logtag" >> ${1:-$querylog}

383 }

384 sqlog() {

385 logstart

386 if [ -z "$1" ]; then

387 cat >> $querylog

388 else

389 echo "$*" >> $querylog

390 fi

391 logend

392 }

393 sq() {

394 # ./args.rb -cmd ".timeout 3000" "$@"

395 logstart

396 if [ -z "$1" ]; then

397 tee -a $querylog|sqlite3 -cmd 'PRAGMA foreign_keys=ON' -cmd ".timeout 3000"

398 else

399 echo "$@" >> $querylog

400 sqlite3 -cmd 'PRAGMA foreign_keys=ON' -cmd ".timeout 3000" "$@"

401 ###sqlite3 -bail -cmd 'PRAGMA foreign_keys=ON' -cmd ".timeout 3000" "$@"

402 fi

403 logend

404 }

405 dbsetup() {

406 pipedir=$tmpdir/pipedir

407 [ -d $pipedir ] || mkdir -p -m 1777 $pipedir

408 [ -d $dbdir ] || mkdir -m 1775 $dbdir

409 suf=`date +%s`

410 sqi=$pipedir/sqi-$suf.$$

411 sqo=$pipedir/sqo-$suf.$$

412 mkfifo $sqi $sqo

413 #tail -f $sqi | sq $db & # "tail -f" is too heavy. DO NOT USE!!

414 sq $db < $sqi &

415 sq3pid="`jobs -p` $!"

416 if $isCGI; then

417 exec 2>> $logdir/error.out

418 fi

419 exec 5> $sqi # Turning $sqi access through fd5 for continuous open state

420 chmod o-r $logdir/error.out $logdir/debug.out

421 rm $sqi

422 # Attach supplemental DB

423 cat >&5 <<-EOF

424 .output /dev/null

425 ATTACH DATABASE "$sessdb" AS tmp;

426 CREATE TABLE IF NOT EXISTS $sesstb(user, skey, expire, UNIQUE(user, skey));

427 DELETE FROM $sesstb WHERE expire < datetime('now', 'localtime');

428 DELETE FROM $sesstb WHERE expire is NULL or expire = '';

429 .output stdout

430 EOF

431 }

432 cleanup2() { # Dirty workaround for produced zombie processes

433 if [ -n "$HTTP_USER_AGENT" ]; then # When called from httpd

434 pkill -9 -u `id -u` -P 1

435 fi

436 chmod o-r $querylog $db $sessdb # make sure

437 }

438 cleanup() {

439 trap '' INT HUP EXIT TERM PIPE

440 echo .quit >&5

441 kill $sq3pid

442 kill $sq3pid

443 rm -f $sqo $sqi

444 rm -rf $tmpfiles

445 cleanup2

446 }

447 # We want to use piped function to put querylog, but we use

448 # simple redirection for the sake of speed.

449 query() {

450 # echo ".once $sqo" >&5

451 echo ".output $sqo" >&5

452 logstart

453 if [ -z "$1" ]; then

454 tee -a $querylog

455 else

456 echo "$@" >> $querylog

457 echo "$@"

458 fi >&5

459 echo ".output stdout" >&5

460 cat $sqo

461 rc=$?

462 logend

463 return $rc

464 }

465 _m4() {

466 #S4NAME=f,f,f

467 m4 ${S4NAME:+"-D_S4NAME_=${S4NAME}"} ${S4CSS:+-D_S4CSS_="$S4CSS"} \

468 ${S4WORLD:+-D_S4WORLD_="$S4WORLD"} \

469 ${S4WORLDNAME:+-D_S4WORLDNAME_="$S4WORLDNAME"} \

470 ${S4WORLDGRPS:+-D_S4WORLDGRPS_="$S4WORLDGRPS"} \

471 ${S4WORLDS:+-D_S4WORLDS_="$S4WORLDS"} "$@"

472 }

473 ismember() {

474 # $1=user, $2=group

475 #err ismem: "select user from grp_mem where gname=$(sqlquote $2) and user='$1';"

476 test -n "`query \"select user from grp_mem where gname=$(sqlquote \"$2\") and user='$1';\"`"

477 }

478 isuser() { # Check if $1 is a valid user

479 test -n "`query \"select name from user where name='$1';\"`"

480 }

481 isgroup() { # Check if $1 is a valid group

482 err isgroup: "select gname from grp where gname=$(sqlquote $1);"

483 test -n "`query \"select gname from grp where gname=$(sqlquote \"$1\");\"`"

484 }

485 isgrpowner() (

486 # $1=user, $2=group

487 gn=`sqlquote "$2"`

488 sql="select user from grp_adm where gname=$gn and user='$1';"

489 err isgrpowner: $sql

490 test -n "`query $sql`"

491 )

492 isgrpownerbygid() (

493 # $1=user, $2=group-rowid

494 sql="select user from grp_adm where gname=(select gname from grp where rowid=$2) and user='$1';"

495 err isgrpownerbygid: $sql

496 test -n "`query $sql`"

497 )

498 getgroupadminmails() {

499 # $1=group

500 for i in $(getgroupadmins "$1"); do

501 email4group "$1" "$i" ;

502 done

503 }

504 getgroupadmins() { # $1=group

505 # This function is called in a backquote, so needn't to be subshellized

506 qgrp=`sqlquote "$1"`

507 query "select user from grp_adm where gname=$qgrp;"

508 }

509 getgroupattr() { # $1=group $2=attr

510 # This function is called in a backquote, so needn't to be subshellized

511 getvalbyid grp $2 \

512 $(query "select rowid from grp where gname=`sqlquote \"$1\"`;")

513 }

514 getgroupbyid() {

515 # $1=id|gname

516 sql="select coalesce((select gname from grp where gname=$(sqlquote \"$1\")),

517 (select gname from grp where rowid=$(sqlquote $1)));"

518 # err ggbyid: `echo $sql`

519 query $sql

520 }

521 isfilereadable() { # $1=user $2=tbl $3=rowid

522 # Return true if user($1) can read attachment files in tbl($2):rowid($3)

523 [ -z "$1" -o -z "$2" -o -z "$3" ] && return 1 # invalid argument

524

525 # Return true when anonymous mode

526 [ "$anonymousmode" ] && return 0

527 # case `getvalbyid blog mode $2` in

528 # normal|*open*|"") return 0 ;;

529 # *closed*)

530 # owner=`getvalbyid blog owner $2`

531 # if isgrp $owner; then

532 # isgrpowner $1 $owner && return 0 || return 1

533 # elif isuser $owner; then

534 # [ x"$1" = x"$owner" ] && return 0 || return 1

535 # fi

536 # esac

537 # ↑ 要はこういう処理を↓で一気にやっている

538 sql="with getblog as (

539 select key,val from blog_s where id=(

540 select blogid from article where id in

541 (select id from $2 where rowid=$3))),

542 getowner as (select val from getblog where key='owner'),

543 getauthor as (select author from article where id=(select id from $2 where rowid=$3)),

544 isgrp as (SELECT val from getowner WHERE val IN (select gname from grp)),

545 isgrpadm as (select user from grp_adm where

546 gname=(select val from getowner) and

547 user='$1'),

548 getmode as (select val from getblog where key='mode')

549 select case

550 when (select author from article where

551 id=(select id from $2 where rowid=$3))='$1'

552 then 'author'

553 when (select val from getmode) in ('report-open', 'normal')

554 then 'open'

555 when (select val from getmode) in ('quiz', 'enquete')

556 then CASE

557 WHEN (SELECT val FROM isgrp) IS NULL

558 THEN

559 CASE WHEN (SELECT val from getowner)

560 IN ('$user', (SELECT author FROM getauthor))

561 THEN 'owner-or-user-article-is-readable'

562 ELSE ''

563 END

564 WHEN (select user from isgrpadm) IS NOT NULL

565 THEN 'i-am-admin'

566 ELSE (SELECT author from getauthor WHERE author IN (SELECT user FROM grp_adm WHERE gname=(SELECT val FROM getowner)))

567 END

568 when (select val from getmode) is null

569 then 'open'

570 when (select val from getowner) in (select gname from grp)

571 then (SELECT user FROM isgrpadm)

572 when (select author from article where

573 id=(select id from $2 where rowid=$3))='$1'

574 then 'user+author'

575 else '' end;"

576 ## err isfilereadable: sql="`echo $sql`"

577 # caseのネストで内側のcaseがスカラーtrueを返しても外側はtrue扱いにならない

578 # result=`query "$sql"`

579 # err FileAccessibility=$result

580 [ -n "`query $sql`" ] || return 2

581 }

582 linkhome() {

583 # $1=UserOrGroupRowid

584 echo -n "<a href=\"$myname?"

585 if isuser $1; then

586 err "select 'home+'||rowid from user where name='$1';"

587 query "select 'home+'||rowid from user where name='$1';"

588 name=`gecos $1|htmlescape`

589 else

590 _grid=`numericalize "$1"`

591 echo -n "grp+$1"

592 name=`query "SELECT gname FROM grp WHERE rowid=$_grid;"|htmlescape`

593 fi

594 echo "\">$name</a>"

595 }

596 hreflink() {

597 # s4 specific notation:

598 # ^href=URL

599 # ^iframe=URL

600 # ^video=URL

601 # [[#NUM]] - Jump to article ID NUM

602 # [[#Keyword] - Jump to keywrod search for "Keyword"

603 # OSM umap Wikistyle Notation:

604 # [[URL]] - Simle Link

605 # [[URL|Word]] - Link with anchor word

606 # {{URL}} - <img src="URL">

607 # {{URL|width}} - <img src="URL" width="width">

608 # {{{URL}} } - <iframe src="URL"></iframe>

609 # {{{URL|height}} - <iframe src="URL" height="height"></iframe>

610 # Other Style

611 # ---- - <hr> (In the beginning of line)

612 # *Word* - <em>Word</em>

613 # _Word_ - <em>Word</em>

614 # **Word** - <strong>Word</strong>

615 # __Word__ - <strong>Word</strong>

616 # SPC+SPC+$ - <br>

617 cb='<input type="checkbox" class="s4-checkbox" disabled'

618 checkboxON="${cb} checked>"

619 checkboxOFF="${cb}>"

620 _hrefptn="[-A-Za-z0-9,.:;/~_%#&+?=@!]*"

621 _hrefptn="[A-Za-z0-9/~%+?=@!.][^][()<> ]*" # URL should start with ASCII

622 sed -e "s|\[\[\#$[0-9][0-9]*$\]\]|<a href=\"?aid\1\">#\1</a>|g" \

623 -e "s|\[\[#$[^]&]*$\]\]|<a href=\"?kwd=\1\&stage=searchart\">\#\1</a>|g" \

624 -e "s|\[\[$$_hrefptn$\|$[^]]*$\]\]|<a href=\"\1\">\2</a>|g" \

625 -e "s|\[\[$$_hrefptn$\]\]|<a href=\"\1\">\1</a>|" \

626 -e "s|{{{$$_hrefptn$\|$.*$}}}|<iframe src=\"\1\" height=\"\2\"></iframe>|g" \

627 -e "s|{{{$$_hrefptn$}}}|<iframe src=\"\1\"></iframe>|g" \

628 -e "s|{{$$_hrefptn$\|$.*$}}|<img src=\"\1\" width=\"\2\">|g" \

629 -e "s|{{$$_hrefptn$}}|<img src=\"\1\">|g"\

630 -e "s|^href=$$_hrefptn$|<a &>\1</a>|" \

631 -e "s|^iframe=$$_hrefptn$|<iframe src=\"\1\"></iframe>|" \

632 -e "s|^video=$$_hrefptn$|<video controls><source height=\"320\" src=\"\1\"></video>|" \

633 -e "s,^#### *$.*$,<h4>\1</h4>," \

634 -e "s,^### *$.*$,<h3>\1</h3>," \

635 -e "s,^## *$.*$,<h2>\1</h2>," \

636 -e 's,^----*$,<hr>,' \

637 -e 's, \*\*$[^* |][^*|]*[^ |]$\*\* ,<strong>\1</strong>,g' \

638 -e 's, __$[^_ |][^_]*[^ ]$__ ,<strong>\1</strong>,g' \

639 -e 's, \*$[^* |][^*|]*[^ |]$\* ,<em>\1</em>,g' \

640 -e 's, _$[^_ ][^_]*[^ ]$_ ,<em>\1</em>,g' \

641 -e 's, $,<br>,' \

642 -e "s,- \[ *\]$[^|-]*$,${checkboxOFF}<label>\\1</label>,g" \

643 -e "s,- \[[^ ]\]$[^|-]*$,${checkboxON}<label>\\1</label>,g" \

644

645 }

646 minitbl() {

647 sed -n '

648 /^|.*|/ {; # If the line begin with "|" and has 2 or more "|"

649 s,|$,,; # Remove trailing "|" first

650 s,|\* *$[^|]*$ *,<th>\1</th>,g; # "|*..." to "<th>...</th>"

651 s,| *$[^|]*$ *,<td>\1</td>,g; # "|..." to "<td>...</td>"

652 s,^,<tr>,; s,$,</tr>,; # Enclose with "<tr>" and "</tr>"

653 H; # Concat this line to HoldSpace

654 s/.*//; # Delete PatternSpace for finalization

655 $ b cont

656 d; # If in final line, output the rest, else jump to next turn

657 }

658 :cont

659 x; # For non-"|" lines, check HoldSpace

660 /^./ {; # If HoldSpace has "|" table elements

661 s|^.|<table class="mini">|; # Enclose whole elements like this:

662 # . of ^. is workaround for FreeBSD sed

663 # s|$|</table>|; # <table class="mini">..\n..</table>

664 p; # Print whole "table" element

665 s/.*//; # Erase all when done.

666 x; s|^|</table>|; x; # Preppend /table to the next line

667 }

668 x; # Back to the newest line

669 p; # Print rest' | miniul

670 }

671 miniul() {

672 sed -e '

673 /^\* / {; # 行頭 "* "

674 x; s,^,<ul>,; x; # 1週目: ホールドスペース先頭に <ul> を

675 :top

676 s/\n//;

677 s/^ *//; # 2周目以降: 行頭空白削除

678 s,\* ,,; # まず行頭の "* " を消しておく

679 H; # 置き換え結果をホールドスペースに追加

680 s/.*//; # パターンスペースは消しておく

681 # ↓最終行なら残ったホールドスペース処理のため :cont へ

682 $ b cont

683 N; # 次の行を読む

684 s/\n//; # 空白始まりは継続行

685 /^ /b top

686 x; s/\n/<li>/; s,$,</li>,; # 継続行でなければ <li></li> で囲む

687 p; s/.*//;

688 x; # 次も "* " ならループを抜けない

689 /^\* /b top

690 s,^,</ul>,; # 次が一般行なら箇条書終わり

691 }

692

693 :cont

694 x; # 行頭| 以外の行:

695 /./ {; # ホールドスペースに文字列があれば

696 s/^\n/<li>/; s,$,</li></ul>,; # 箇条書を書き切って終わり

697 H; x

698 }

699 x' | miniol

700 }

701 miniol() {

702 sed -e '

703 /^[1-9]\. / {; # 行頭 "N. "

704 x; s,^,<ol>,; x; # 1週目: ホールドスペース先頭に <ol> を

705 :top

706 s/\n//;

707 s/^ *//; # 2周目以降: 行頭空白削除

708 H; # 置き換え結果をホールドスペースに追加

709 x;

710 s,^<ol>\n$[1-9][0-9]*$\. ,<ol start="\1"><li>,; # 1行目のみ

711 s,[1-9][0-9]*\. ,,; # まず行頭の "N. " を消しておく

712 x;

713 s/.*//; # パターンスペースは消しておく

714 # ↓最終行なら残ったホールドスペース処理のため :cont へ

715 $ b cont

716 N; # 次の行を読む

717 s/\n//; # 空白始まりは継続行

718 /^ /b top

719 x; s/\n/<li>/; s,$,</li>,; # 継続行でなければ <li></li> で囲む

720 p; s/.*//;

721 x; # 次も "* " ならループを抜けない

722 /^[1-9][0-9]*\. /b top

723 s,^,</ol>,; # 次が一般行なら箇条書終わり

724 }

725

726 :cont

727 x; # 行頭| 以外の行:

728 /./ {; # ホールドスペースに文字列があれば

729 s/^\n/<li>/; s,$,</li></ol>,; # 箇条書を書き切って終わり

730 H; x

731 }

732 x'

733 }

734 acclog() (

735 # $1=table, $2=rowid

736 n=${2%%[!-0-9]*} # Remove non-digit chars from $2(should be rowid)

737 if [ -n "$n" ]; then

738 now=`date +"%F %T"`

739 #query "replace into acclog values('$user', '$1', '$n', '$now');"

740 #query "replace into acclog values('$user', '$1', $n, '$now');"

741 query "replace into tblaccesses values('$user', '$1', $n, '$now');"

742 fi

743 )

744 gecos() (

745 u=`sqlquote "${1:-$user}"`

746 query "select gecos from gecoses where name=$u;"

747 )

748 setpar() {

749 # 2020/5/14 Add dirty code to cache essential params

750 if [ x"$session" = x"$main_session" ]; then

751 case "$1" in

752 user) _user="$v" ;;

753 skey) _skey="$v" ;;

754 esac

755 fi

756 query "replace into par values('$session', '$1', '$2', \"$3\");"

757 }

758 unsetpar() {

759 for i; do

760 if [ x"$session" = x"$main_session" ]; then

761 case "$i" in

762 user|skey) unset _$i ;;

763 esac

764 fi

765 query "DELETE FROM par WHERE var='$i' AND sessid='$session';"

766 done

767 }

768 replpar() {

769 query "update par set val=\"$3\" where sessid='$session' and var='$1' and type='$2';"

770 }

771 getpar() {

772 # err GETPAR=$1, _user=$_user

773 val=""

774 if [ x"$session" = x"$main_session" ]; then

775 case "$1" in # Dirty cache mechanism for high-load average

776 user) val=$_user ;;

777 skey) val=$_skey ;;

778 esac

779 fi

780 val=${val:-`query "select val from par where var='$1' and sessid='$session' $2;"`}

781 ## err getpar/val1: "val=[$val]"

782 if [ -z "$val" ]; then

783 val=`query "select val from cookie where var='$1' and sessid='$session' $2;"`

784 fi

785 ## err getpar/val2: "val=[$val]"

786 case "$var" in

787 owner)

788 if [ x"$user" = x"$val" ]; then

789 echo $user; return

790 elif ismember $user $val; then

791 echo $val; return

792 fi ;;

793 esac

794 ## err getpar/ret: "val=[$val]"

795 echo "$val"

796 }

797 setskey() {

798 # For quick response...(?)

799 query "REPLACE INTO $sesstb VALUES('$1', '$2', datetime('now', 'localtime', '$timeout'));"

800 }

801 chkskey() {

802 # $1=sesskey, $user=LoginUserName

803 test -z "$1" && return 1

804 repl=`query "SELECT rowid,user FROM $sesstb WHERE user='$user' AND skey = '$1';"` || return 2

805 rowid=${repl%%\|*}; repuser=${repl#*\|}

806 if [ -n "$rowid" -a x"$user" = x"$repuser" ]; then

807 query "UPDATE $sesstb SET expire=datetime('now', 'localtime', '$timeout') WHERE rowid=$rowid;" # Errors can be ignored

808 return 0

809 fi

810 return 1

811 }

812 resetskey() {

813 if [ -n "$_user" ]; then

814 query "DELETE FROM $sesstb WHERE user='$_user';"

815 fi

816 }

817 getpartype() {

818 query "select type from par where var='$1' and sessid='$session' $2;"

819 }

820 getparcount() {

821 query "select count(*) from par where var='$1' and sessid='$session' $2;"

822 }

823 getparfilename() {

824 # null if type of $1 is not file

825 (f=`query "select val from par where var='$1' and sessid='$session' and type='file' $2;"`

826 [ -n "$f" ] && echo $f)

827 }

828 sqlquote() {

829 (v="$1"

830 case "$v" in

831 "") return ;; # null

832 "X'"*) # quoted hex string

833 echo $1 ;;

834 *\"*) # string including dbl-quote"

835 v=`echo "$v"|sed -e 's/\"/\"\"/g'`

836 echo "\"$v\""

837 return ;;

838 *.*.*|*-*-*|*[Ee]*[Ee]*|[Ee]*|*[\ -,:-df-~]*) # string

839 echo "\"$v\""

840 return ;;

841 *)

842 if expr "$v" : '[-0-9.Ee][-0-9.Ee]*$' >/dev/null 2>&1; then

843 echo $v # MAYBE numeric, maybe...

844 else

845 echo "\"$v\""

846 fi ;;

847 esac)

848 }

849 sqlquotestr() (

850 case "$1" in

851 *\'*) v=`echo "$1"| sed "s/'/''/g"`

852 echo "'$v'" ;;

853 *) echo "'$1'" ;;

854 esac

855 )

856 mktempd() {

857 TMPDIR=$tmpd mktemp -d -t $session

858 }

859 getcachedir() { # $1=maintable

860 if [ -n "$imgcached" ]; then

861 echo $imgcached/$(echo ${1:-hoge}|md5)/$thumbxy

862 else

863 echo $tmpd/$thumbxy

864 fi

865 }

866 getval() {

867 # $1=table $2=col $3(optional)=condition

868 case `gettbl_coltype "/$1/$2"` in

869 user|author) # author added 2015-06-18 for article(author)

870 echo "$user" ;;

871 stamp|datetime)

872 date "+%F %T" ;;

873 serial)

874 (s=`getpar $2`

875 if [ -n "$s" ]; then echo $s; else echo "`date +%s`x$$"; fi) ;;

876 *)

877 getpar "$2" "$3";;

878 esac

879 }

880

881 getvalquote() {

882 # $1=table $2=col $3(optional)=condition

883 (v=`getval "$@"`

884 case "$v" in

885 "") echo NULL ;;

886 *) sqlquote "$v" ;;

887 esac)

888 }

889 getparquote() {

890 sqlquote "`getpar $1`"

891 }

892 getbinbyid() {

893 # $1=tbl $2=col $3=rowid $4=tmpdirForBinary

894

895 }

896 getvalbyid() {

897 # $1=tbl $2=col $3=rowid $4=tmpdirForBinary

898 # If two or more values found, save them to $tmpd/${column}.$N and

899 # store the number of files into $tmpd/${column}.count and

900 # their each rowid stored into $tmpd/${column}.$N.rowid.

901 ## err gtb-$1=`gettblcols $1`, tbl=$1, col=$2, '$3'=$3

902

903 (for c in `gettblcols $1`; do

904 if [ x"$2" = x"$c" ]; then

905 ###sq $db "select $2 from $1 where rowid=$3"

906 query "select $2 from $1 where rowid=$3;"

907 return

908 fi

909 done

910 rowid=$3

911 pk=`gettblpkey $1`

912 key=`query "select $pk from $1 where rowid=$3;"`

913 getkey="(select $pk from $1 where rowid=$3)"

914 td=${4:-$tmpd}

915 [ -d $td ] || mkdir -p $td

916 ### err "select $pk from $1 where rowid=$3" - key=$key '$4(tmp)'=$4

917 for kt in s m; do

918 t=${1}_$kt

919 for c in `gettbl_${kt}_cols $1`; do

920 vcount=1 # count(val)

921 if [ x"$2" = x"$c" ]; then

922 #### cond="$t where $pk=\"$key\" and key=\"$c\"" #2015-07-22

923 cond="$t where $pk=$getkey and key=\"$c\""

924 val=`query "select val from $cond limit 1;"`

925 type=`query "select type from $cond limit 1;"`

926 if [ $kt = m ]; then

927 ###vcount=`sq $db "select count(val) from $cond"`

928 # Reset val to store filenames if type is string

929 val=`query "select val from $cond and type like 'file:%' order by rowid;"`

930 ## err gvb1-sql: "select count(val) from $cond;"

931 vcount=`query "select count(val) from $cond;"`

932 echo $vcount > $td/$c.count

933 i=0

934 ## err gvbid: i=$i vcount=$vcount

935 while [ $i -lt $vcount ]; do

936 slice="order by rowid limit 1 offset $i"

937 i=$((i+1))

938 fn=$c.$i

939 ## err td=$td, fn=$fn, type=$type, val="[$val]"

940 case $type in

941 file:*)

942 #file=$td/$val

943 r_f=`query "select rowid||'//'||val from $cond $slice;"`

944 f_rid=${r_f%%//*}

945 file=$td/${r_f##*//}

946 # FOR SPEED: Skip file generation if imgcache exists

947 [ -s "$file" -a -s "$td/$fn.rowid" -a -s "$file.rowid" ] \

948 && [ x"$f_rid" = x"`cat $td/$fn.rowid`" ] \

949 && continue

950 # err gvbid-get="select quote(bin) from $cond $slice;"

951 ## err output: "fn=[$fn] file=[$file]"

952 sq $db<<EOF | unhexize > "$file"

953 .output '$td/$fn.rowid'

954 select rowid from $cond $slice;

955 .output '$td/$fn'

956 select val from $cond $slice;

957 .output '$td/${fn}.content-type'

958 select substr(type, 6) from $cond $slice;

959 .output stdout

960 select quote(bin) from $cond $slice;

961 EOF

962 ## err gvbid-get2: "`ls -lF $file`"

963 ## err i=$i - file=$file rowid=`cat $td/$fn.rowid`

964 cp "$td/$fn.rowid" "$file.rowid" 2>&3 # for convenience

965 cp "$file" "$file.orig" 2>&3

966 ls -lh "$file" |

967 awk '{print $5"B"}'|sed 's/BB/B/' > "$file.size"

968 case "$type" in

969 *:[Ii]mage*) mogrify -geometry $thumbxy "$file" ;;

970 ### ここのアイコンを増やしたい

971 *|*:[Aa]pplication*)

972 convert -geometry $thumbxy $imgdir/file-icon.png \

973 png:- > "$file"

974 ;;

975 esac

976 ;;

977 *)

978 sq $db<<EOF

979 .output $td/$fn.rowid

980 select rowid from $cond $slice;

981 .output $td/$fn

982 select val from $cond $slice;

983 EOF

984 val=$val${val:+$nl}"`echo $fn`" # should be delimited by newline

985 ;;

986 esac

987 done

988 else

989 rm -f $td/$c.count

990 case $type in

991 file:*)

992 echo "$val" \

993 | while read fn; do

994 file=$td/$fn

995 if [ ! -s "$file" ]; then

996 ## sq $db "select quote(bin) from $cond and val=\"$fn\"" \

997 query "select quote(bin) from $cond and val=\"$fn\";" \

998 | unhexize > "$file"

999 ##@@## -- echo ${type#file:} > "$file.content-type"

1000 case $type in

1001 *:[Ii]mage*) mogrify -geometry $thumbxy "$file" ;;

1002 *:[Aa]pplication*)

1003 convert -geometry $thumbxy $imgdir/file-icon.png \

1004 png:- > $file ;;

1005 esac

1006 fi

1007 done

1008 ;;

1009 esac

1010 fi

1011 echo "$val" # Keep newlines by ""

1012 return

1013 fi

1014 done

1015 done)

1016 }

1017 getvalbypkey() (

1018 # $1=tbl $2=col $3=pkey $4=tmpdirForBinary

1019 pk=`gettblpkey $1`

1020 rowid=`query "select rowid from $1 where $pk='$3';"`

1021 getvalbyid "$1" "$2" $rowid $4

1022 )

1023 getvalbycond() {

1024 # $1=tbl $2=col $3=SQL-Condition

1025 ###rowid=`sq $db "select rowid from $1 where $3"`

1026 rowid=`query "select rowid from $1 where $3;"`

1027 if [ -n "$rowid" ]; then

1028 getvalbyid "$1" "$2" $rowid "$4"

1029 fi

1030 }

1031 getpwfield() {

1032 # getpwfield user column

1033 # val=`sqlite3 $db "select $2 from passwd where name='$1' $3"`

1034 val=`getvalbycond user $2 "name='$1'"`

1035 if [ -n "$val" ]; then

1036 echo "$val"

1037 return 0

1038 else

1039 return 1

1040 fi

1041 }

1042 numericalize() {

1043 echo "${1%%[!0-9]*}"

1044 }

1045 encode() {

1046 if [ -z "$sha1" ]; then

1047 if type sha1 >/dev/null 2>&1; then

1048 sha1=sha1

1049 elif type sha1sum >/dev/null 2>&1; then

1050 sha1=sha1sum

1051 elif type gsha1sum >/dev/null 2>&1; then

1052 sha1=gsha1sum

1053 fi

1054 fi

1055 $sha1 "$@" | cut -d' ' -f1

1056 }

1057 enjpeg() {

1058 if [ -z "$cjpeg" ]; then

1059 if type cjpeg >/dev/null 2>&1; then

1060 cjpeg="cjpeg"

1061 else

1062 cjpeg="convert - jpeg:-"

1063 fi

1064 fi

1065 $cjpeg "$@"

1066 }

1067 mycrypt() (

1068 key=$1 salt=$2

1069 # err \$2=$2

1070 case $2 in

1071 '$'*'$'*) salt=${salt#\$4\$}

1072 salt=${salt%\$*} ;;

1073 esac

1074 echo -n '$4$'"$salt"'$'

1075 echo "$salt$key" | encode || exit 1 # Abort if fail to call encode

1076 )

1077 hexize() {

1078 if [ -z "$hexize" ]; then

1079 if type xxd >/dev/null 2>&1; then

1080 hexize="xxd -p"

1081 else

1082 hexize_hd() {

1083 hexdump -ve '1/1 "%.2x"'

1084 }

1085 hexize="hexize_hd"

1086 fi

1087 fi

1088 cat "$@" | $hexize | tr -d '\n'

1089 }

1090 unhexize() {

1091 if [ -z "$unhex" ]; then

1092 if type xxd >/dev/null 2>&1; then

1093 unhex="xxd -p -r"

1094 elif type perl >/dev/null 2>&1; then

1095 cat >$tmpd/unhex.pl<<EOF

1096 s/([0-9a-f]{2})/print chr hex \$1/gie

1097 EOF

1098 # Perl refuses -e in setuid circumstances, which can be absurdly

1099 # avoided by creating scripts in a file where its parent directory is

1100 # world writable...:)

1101 unhex="perl -n $tmpd/unhex.pl"

1102 fi

1103 fi

1104 cat "$@" | $unhex

1105 # cat $1 | tee /tmp/uh.in| $unhex | tee /tmp/uh.out

1106 }

1107 percenthex() {

1108 hexize "$@" | sed 's/$..$/%\1/g'

1109 }

1110 htmlescape() {

1111 sed -e 's/\&/\&/g' -e 's/"/\"/g' -e "s/'/\'/g" \

1112 -e "s/</\</g; s/>/\>/g" -e 's/`/\`/g' -e 's/(/\(/g' \

1113 -e 's/`/\&#96/'

1114 }

1115 enascii() {

1116 if [ -z "$enascii" ]; then

1117 if type kakasi >/dev/null 2>&1; then

1118 enascii="kakasi -Ha -Ka -Ja -Ea -ka"

1119 else

1120 enascii_now=`date +%FT%T`

1121 enascii_sed() {

1122 nkf -Z0Z1Z2 \

1123 | sed -e "s/^/$enascii_now/" -e "s|[^-0-9.A-z/,()_=]|x|g"

1124 }

1125 enascii="enascii_sed"

1126 fi

1127 fi

1128 cat "$@" | $enascii

1129 }

1130 size_h() {

1131 i="$1" oi=$1

1132 set -- B B KB MB GB TB

1133 while [ $((i)) -gt 9 -a -n "$1" ]; do # -gt 9 means $oi > 1024

1134 oi=$i

1135 i=$((i/1024))

1136 shift

1137 done

1138 echo ${oi}$1

1139 }

1140 gettblconf() {

1141 if [ -z "$tconfs" ]; then

1142 ## tconfs=`sq $db \

1143 tconfs=`query \

1144 "select tbl||'/'||col||'='||keytype||'/'||objtype from $conftbl;"`

1145 fi

1146 # /tb1/col1=p/text /tb1/col2=s/text /tb1/col3=m/image /tb2/col1=p/text ...

1147 }

1148 gettblkeys() {

1149 # $1=tbl

1150 gettblconf

1151 echo "$tconfs" | fgrep "/$1/" | \

1152 (type="" keys="" fks="" cols="" scols="" mcols="" hcols=""

1153 while IFS='=' read tc conf; do # tc=/tb1/col1 conf=s/text

1154 col=${tc##*/} type=${conf%%/*}

1155 case $type in

1156 *p*)

1157 cols=$cols"${cols:+:}$col"

1158 keys=$keys"${keys:+:}$col" ;;

1159 *f*) cols=$cols"${cols:+:}$col"

1160 fks=$fks"${fks:+:}$col" ;;

1161 *m*) mcols=$mcols"${mcols:+:}$col" ;;

1162 *s*) scols=$scols"${scols:+:}$col" ;;

1163 esac

1164 case $type in

1165 *h*) hcols=$hcols"${hcols:+:}$col" ;;

1166 esac

1167 done

1168 echo "_keys=$keys _fks=$fks _cols=$cols _scols=$scols _mcols=$mcols _hcols=$hcols")

1169 }

1170 gettblpkey() {

1171 # $1=tbl

1172 gettblkeys $1 | cut -d ' ' -f 1 | sed -e 's/.*=//' -e 's/:/ /g'

1173 }

1174 gettblfkey() {

1175 (x=`gettblkeys $1`

1176 x=${x#*_fks=} # cut before "_fks=" including

1177 echo ${x%% *} | tr ':' ' ')

1178 }

1179 gettblcols() {

1180 (x=`gettblkeys $1`

1181 x=${x#*_cols=} # cut before "_cols=" including

1182 echo ${x%% *} | tr ':' ' ')

1183 }

1184 gettbl_s_cols() {

1185 (x=`gettblkeys $1`

1186 x=${x#*_scols=} # cut before "_scols=" including

1187 echo ${x%% *} | tr ':' ' ')

1188 }

1189 gettbl_m_cols() {

1190 (x=`gettblkeys $1`

1191 x=${x#*_mcols=} # cut before "_mcols=" including

1192 echo ${x%% *} | tr ':' ' ')

1193 }

1194 gettbl_h_cols() {

1195 (x=`gettblkeys $1`

1196 x=${x#*_hcols=} # cut before "_hcols=" including

1197 echo ${x%% *} | tr ':' ' ')

1198 }

1199 gettbl_coltype() (

1200 gettblconf

1201 x=`echo "$tconfs"|fgrep $1=`

1202 x=${x#*=} # cut before =

1203 echo ${x#*/} # cut before p/ including

1204 )

1205 is_hidden() {

1206 # $1=Tbl $2=col

1207 gettblconf

1208 x=`echo "$tconfs"|fgrep /$1/$2=`

1209 x=${x#*=} # cut before =

1210 x=${x%%/*} # cut after /

1211 case $x in

1212 *h*) return 0 ;;

1213 *) return 1 ;;

1214 esac

1215 }

1216

1217 dbsetbyid() {

1218 # $1=tbl $2=id $3=col $4=val/filename - &optional - $5=content-type

1219 (t0=$1 t=$1 p=$2 c=$3

1220 tsc=$t/$c val=$4

1221 quotedp=$(sqlquotestr "$p")

1222 unset primary update

1223 gettblconf

1224 #err tsc=$tsc, tconfs="$tconfs"

1225 conf=`echo "$tconfs"|fgrep "$tsc"=`

1226 #err conf=$conf

1227 case ${conf#*=} in

1228 p*) primary=1 ;;

1229 f*) update=1 ;;

1230 u*) ;;

1231 m*) t=${t}_m;;

1232 s*) t=${t}_s;;

1233 esac

1234 #err t=$t

1235 type=string fn=""

1236 case $conf in

1237 */password)

1238 type=encoded ### val=`echo $val|encode`

1239 ;;

1240 */image*|*/document*)

1241 type=`file --mime-type - < "$val" | cut -d' ' -f2`

1242 bin="X'`hexize "$val"`'"

1243 ;;

1244 esac

1245 pkey=`echo "$tconfs"|grep "${t0}/.*=p"|sed 1q`

1246 pkey=${pkey#/*/} # cut $tbl/

1247 pkey=${pkey%=p/*} # cut =p/... -> primary key

1248 if [ "$primary" ]; then

1249 nulls=`echo "$tconfs"|grep "$t/.*=[fu]/"|sed 's/^.*/, NULL/'|tr -d '\n'`

1250 ###sq $db "replace into $t values(\"$val\"$nulls)"

1251 query "replace into $t values(\"$val\"$nulls);"

1252 elif [ "$update" ]; then

1253 query "update $1 set $c=\"$val\" where $pkey=$quotedp;"

1254 else

1255 query "replace into $t values($quotedp, \"$c\", \"$type\", \"$val\", \"$bin\");"

1256 fi

1257 )

1258 }

1259 expire() (

1260 at="${1:-$timeout}"

1261 FMT="${2:-%F %T}"

1262 TZ=GMT gdate -d "$at" +"$FMT"

1263 )

1264 addsession() {

1265 # expireをセット

1266 # loginの先にどの画面に行くかの状態遷移表書式を決める

1267 expire=`expire ${2:-"+1min"}`

1268 query "replace into session values('$1', '$expire');"

1269 # Remove old session parameters

1270 now=`expire now`

1271 query "delete from session where expire < '$now';"

1272 }

1273 gencookie() (

1274 path=${URL#*:/}

1275 path=${URL%/*}

1276 expire="`expire '' '%a, %d-%b-%Y %H:%M:%S GMT'`"

1277 for kv; do

1278 # echo "Set-Cookie: $kv; expires=$expire; Path=$path"

1279 echo "Set-Cookie: $kv; expires=$expire;"

1280 done

1281 )

1282 contenttype() {

1283 echo "Content-type: ${1:-text/html; charset=utf-8}"

1284 contenttype() {} # Only need to work once

1285 }

1286 putheader() {

1287

1288 }

1289 putfooter() {

1290 _m4 -D_TITLE_="${TITLE:-$myname}" $layout/footer.m4.html

1291 }

1292 getcookie() {

1293 for kv in `echo $HTTP_COOKIE|sed 's/[;, ]/ /g'`; do

1294 k="${kv%%=*}"

1295 v="`echo ${kv#*=}|nkf -Ww -mQ|sed -e 's/\"/\"\"/g'`"

1296 ## err "GetCookie: $k=[$v]"

1297 case "$k" in

1298 user) _user="$v" ;;

1299 skey) _skey="$v" ;;

1300 esac

1301 query "replace into cookie values('$session', '$k', 'string', \"$v\");"

1302 done

1303 }

1304 genrandom() {

1305 # $1=columns (default: 10)

1306 dd if=/dev/urandom count=1 2>/dev/null|nkf -MB \

1307 | tr -d '+=\n'|fold -w${1:-10}|sed -n 10p

1308 }

1309 genserial() {

1310 echo $((($(date +%s)-1433084400)/10))c$$

1311 }

1312 smail() {

1313 # smail rcpts subj (file)

1314 # $SMAIL_TO <- Recipient value of To: header

1315 # $MAIL_FROM <- From: header value

1316 from=`echo "${MAIL_FROM:-$admin}"|nkf -jM|tr : /|tr -d '\n'`

1317 rcpt=`echo $1|tr ' ' '\n'|sort -u|tr '\n' ' '` # uniq and strip newlines

1318 rcptheader=`echo $1|tr ' ' '\n'|sort -u|sed '2,$s/^/To: /g'`

1319 subj=`echo $2|nkf -jM|tr -d '\n'`

1320 sender=${SENDER:-$admin}

1321 # Do not call m4 with directly passing text

1322 _r=$tmpd/rcpt

1323 echo -n "${SMAIL_TO:-$rcptheader}" > $_r

1324 replyto=${REPLYTO:+"Reply-to: $REPLYTO$LF"}

1325 (_m4 -D_RCPT_="spaste(\`$_r')" -D_REPLYTO_="$replyto" -D_SUBJ_="\`$subj'" -D_FROM_="$from" $msgdir/mail-header.m4

1326 cat $3 | nkf -jd ) | sendmail -f $sender $rcpt

1327 }

1328 smail_queue_flush() {

1329 # $1=timelimit

1330 timelimit=`query "SELECT datetime('now', 'localtime', '-6 hours');"`

1331 rowids=$(sq $workdb <<-EOF

1332 SELECT rowid FROM smailq

1333 GROUP BY rcpts, subj

1334 HAVING min(time) < '$timelimit';

1335 EOF

1336 )

1337 for rid in $rowids; do

1338 sq $workdb \

1339 "SELECT hex(rcpts),hex(subj) FROM smailq WHERE rowid in ($rid)" \

1340 | if IFS='|' read hexr hexs; then

1341 # err "hexrcpt=[$hexr] hexsubj=[$hexs]"

1342 rcpt=`echo "$hexr"|unhexize`

1343 subj=`echo "$hexs"|unhexize`

1344

1345 # err ROWID==$rowid "sql=<<SELECT hex(rcpts),hex(subj) FROM smailq WHERE rowid=$rowid;>>"

1346 # err "rcpt=[$rcpt] subj=[$subj]"

1347 if sq $workdb <<-EOF | smail "$rcpt" "$subj"

1348 .separator "\n" "------------------\n\n"

1349 SELECT time, text FROM smailq

1350 WHERE rcpts=(SELECT rcpts FROM smailq WHERE rowid=$rid)

1351 AND subj=(SELECT subj FROM smailq WHERE rowid=$rid)

1352 ORDER by time;

1353 EOF

1354 then

1355 cat <<-EOF | sq $workdb

1356 DELETE FROM smailq

1357 WHERE rcpts=(SELECT rcpts FROM smailq WHERE rowid=$rid)

1358 AND subj=(SELECT subj FROM smailq WHERE rowid=$rid);

1359 EOF

1360 fi

1361 fi

1362 done

1363 }

1364 smail_queue() {

1365 # $1=Rcpts, $@=subj

1366 now=`query "SELECT datetime('now', 'localtime');"`

1367 if [ $? -eq 0 ]; then

1368 rcpts="X'"`echo "$1"|hexize`"'"

1369 subj="X'"`echo "$2"|hexize`"'"

1370 text="X'"`cat | hexize`"'"

1371 err "smail_queue: rcpts=[$1] s=[$2] t:hex=[$text]"

1372 mintime=$(cat <<-EOF | sq $workdb

1373 CREATE TABLE IF NOT EXISTS smailq(rcpts, subj, text, time);

1374 INSERT INTO smailq VALUES($rcpts, $subj, $text, '$now');

1375 SELECT min(time) FROM smailq WHERE rcpts=$rcpts AND subj=$subj;

1376 EOF

1377 )

1378 ## XXX: Adhoc load mitigation

1379 case "$now" in

1380 *[01])

1381 err flush_queue=$mintime

1382 smail_queue_flush ;;

1383 esac

1384 fi

1385 }

1386 setviastring() {

1387 table=par

1388 oifs="$IFS"

1389 IFS="&"

1390 for us in $1; do

1391 k=${us%%=*}

1392 v="`echo ${us#*=}|tr '%+' '= '|nkf -Ww -mQ|sed -e 's/\"/\"\"/g'`"

1393 setpar "$k" "string" "$v"

1394 done

1395 IFS="$oifs"

1396 }

1397 checkdomain() (

1398 # Check the validity of domain by referring DNS

1399 item=$1

1400 err checkdomain $1

1401 host ${item#*@} 1>&3 2>&3

1402 host ${item#*@} >/dev/null 2>&1

1403 )

1404 pwcheck() {

1405 # $1=passwd

1406 dbpswd=`getpwfield $user pswd`

1407 encpswd=`mycrypt "$1" "$dbpswd"`

1408 ## err user=$user, pswd=$1, db=$dbpswd, enc=$encpswd

1409 [ x"$dbpswd" = x"$encpswd" ]

1410 }

1411 mypwhash() {

1412 mycrypt "`cat`" `genrandom 5`

1413 }

1414 flag_profupdate() {

1415 # XXX: Sorry to use undeclared column in user.def

1416 # This is useful to mitigate account sync load

1417 query <<-EOF

1418 REPLACE INTO user_s(name, key, type, val)

1419 VALUES('$user', 'profupdate', 'string', datetime('now', 'localtime'));

1420 EOF

1421 touch $userupdateflag

1422 }

1423 wasureta() {

1424 user=$1

1425 if ! checkdomain $user; then

1426 contenttype; echo

1427 _m4 -D_TITLE_='Invalid email' $layout/title-only.html

1428 echo "ユーザ名($user)には正しいメイルアドレスが必要です。" | html p

1429 putfooter

1430 exit 0

1431 fi

1432 newpswd=`genrandom` # newsalt=`genrandom 5`

1433 #encpswd=`mycrypt "$newpswd" "$newsalt"`

1434 encpswd=`echo $newpswd|mypwhash`

1435 dbsetbyid user $user pswd "$encpswd" && touch $userupdateflag

1436 # Avoid $user substitution with m4, because $url comes from user input.

1437 _m4 -D_PSWD_="$newpswd" -D_URL_="$url" -D_ADMIN_="$admin" \

1438 $msgdir/mail-newaccount.m4 \

1439 | sed "s/_USER_/$user/g" \

1440 | smail "`collectemail $user`" "New Account"

1441 }

1442 checkauth() {

1443 user=`getpar user`

1444 skc=`getpar skey` # from cookie

1445 [ -z "$user" ] && return 2

1446 ##skey="`getpwfield $user skey`"

1447 if [ -n "$skc" ]; then

1448 if chkskey "$skc"; then

1449 return 0

1450 fi

1451 fi

1452 pswd=`getpar pswd`

1453 quser=`sqlquotestr "$user"`

1454 dbuser=`query "SELECT name FROM user WHERE name=$quser;"`

1455 if [ $? != 0 ]; then # Maybe DB locked

1456 return 4 # 4=server too heavy

1457 elif [ -z "$dbuser" ]; then

1458 err "Login USER failed: [$user]"

1459 return 2 # 2=login fail

1460 elif [ x"$pswd" = x"wasureta" ]; then

1461 if [ -n "$S4MASTERDB" ]; then

1462 contenttype; echo

1463 echo "Reset password is valid in BASE world." | html p

1464 echo "パスワードリセットはベースワールドでおこなってください。" | html p

1465 cat <<-EOF | html p

1466 <a href="$S4MASTERURL">BASE World</a>

1467 EOF

1468 exit 0 # XXXXX more smart...

1469 fi

1470 wasureta "$user"

1471 err wasureta issued for "$user"

1472 return 1 # wasureta error

1473 fi

1474 # dbpswd="`sq $db \"select pswd from passwd where name='$user'\"`"

1475 # putheader; echo; echo user=$user, db=$dbpswd, enc=$encpswd

1476 if pwcheck "$pswd"; then

1477 newsession=`genrandom 34`

1478 if setskey "$user" "$newsession" &&

1479 dbsetbyid user "$user" login "`date '+%F %T'`"; then

1480 gencookie "user=$user" "skey=$newsession"

1481 return 0

1482 else

1483 return 4 # Heavy load??

1484 fi

1485 fi

1486 err "Login failed: [$user]"

1487 return 2 # Password mismatch

1488 }

1489 showlogin() {

1490 args=`echo $myargs|tr ' ' '+'`

1491 test -z "$args" && resetskey

1492 s4name=${S4NAME:-s4}

1493 ( sed '/^<body/q' $layout/html.m4.html

1494 cat $layout/login.m4.html

1495 echo '</body></html>'

1496 ) | _m4 \

1497 -D_BODYCLASS_="login" \

1498 -D_TITLE_="$s4name" \

1499 -D_SYSNAME_="Welcome to $s4name" \

1500 -D_MYNAME_="$myname${args+?}$args" ${S4CSS:+-D_S4CSS_="$S4CSS"}

1501 exit 0

1502 }

1503 dologin() {

1504 test -n "$S4WORLD" && syncaccount

1505 checkauth

1506 st=$?

1507 if [ $st != 0 ]; then

1508 contenttype; echo

1509 _m4 -D_USER_="$user" -D_URL_="$url" -D_ADMIN_="$admin" \

1510 -D _LOADAVG_="`uptime|awk '{print $(NF-2)}'|tr -d ,`" \

1511 $msgdir/login-fail-$st.m4.html

1512 showlogin # and EXIT

1513 fi

1514 err "Auth OK: [$user]"

1515 }

1516

1517 # Do instant jobs here

1518 dbsetup

1519 trap cleanup INT HUP EXIT TERM PIPE

1520 # trap cleanup INT HUP

1521

1522

1523 cgiinit() {

1524 tmpd=`tmpd=$tmpdir mktempd`

1525 tmpf=$tmpd/stream.$$

1526 tmpfiles=$tmpfiles" $tmpd"

1527 addsession $session

1528 getcookie

1529 case "$REQUEST_METHOD" in

1530 get|GET) s="$QUERY_STRING" ;;

1531 post|POST) ## dd count=$CONTENT_LENGTH bs=1 of=$tmpf 2>/dev/null #slow

1532 ## dd bs=$CONTENT_LENGTH count=1 of=$tmpf # NOT working

1533 # cat > $tmpf # too much?

1534 head -c $CONTENT_LENGTH > $tmpf # safe?

1535 err "CONTENT_LENGTH=$CONTENT_LENGTH$nl`ls -lF $tmpf`"

1536 s="`cat $tmpf`"

1537 ;;

1538 esac

1539 case "$CONTENT_TYPE" in

1540 *boundary*)

1541 bndry=${CONTENT_TYPE#*boundary=}

1542 #for us in `LC_CTYPE=C ./mpsplit.rb "$bndry" $tmpd < $tmpf`

1543 for us in `LC_CTYPE=C ./mpsplit.pl "$bndry" $tmpd < $tmpf`

1544 do

1545 k=${us%%\=*}

1546 #echo u=$us

1547 #v="`echo ${us#*=}|nkf -Ww -mQ|sed -e 's/\"/\"\"/g'`"

1548 v="`echo ${us#*=}|unhexize|sed -e 's/\"/\"\"/g'`"

1549 # err k=$k v=$v

1550 case "$k" in

1551 *:filename)

1552 mimetype=`file --mime-type - < "$tmpd/$v"|cut -d' ' -f2`

1553 type='file'; k=${k%:filename}

1554 # DO NOT ALLOW Space and '|' in file names

1555 newv=`echo "$v"|sed 's/[ \|]/X/g'`

1556 if [ x"$v" != x"$newv" ]; then

1557 :

1558 fi

1559 err "k=[$k] v=[$v]" # debug@2020-05-31

1560 err "`ls -lF $tmpd/$v` MimeType=$mimetype"

1561 case "$mimetype" in

1562 [Ii]mage/x-xcf)

1563 bzip2 "$tmpd/$v"

1564 v=${v}.bz2

1565 ;;

1566 [Ii]mage/x-*|*/vnd.*) ;;

1567 [Ii]mage/[Hh][Ee][Ii][Ff])

1568 if type heif-convert >/dev/null 2>&1; then

1569 vjpg="${v%.heic}.jpg"

1570 err "Conv $v to $vjpg in $tmpd"

1571 convert -quality 75 -resize $maximagexy'>' \

1572 "$tmpd/$v" "$tmpd/$vjpg" >/dev/null 2>&1

1573 v=$vjpg

1574 else

1575 mimetype="Not supported"

1576 fi

1577 ;;

1578 [Ii]mage/*)

1579 mogrify -quality 75 -resize $maximagexy'>' "$tmpd/$v"

1580 err "Mogrified: `ls -lF $tmpd/$v`" # 2020-05-31

1581 ;;

1582 esac

1583 if ! echo "$mimetype" | egrep "$file_accept_egrep" >/dev/null 2>&1

1584 then

1585 replpar text string " *添付できない形式です($v)* $file_warn"

1586 continue

1587 elif [ `wc -c < "$tmpd/$v"` -gt "$filesize_max" ]; then

1588 replpar text string \

1589 " *添付ファイル($v)は${filesize_max}バイト以下にしてください* $file_warn"

1590 continue

1591 fi

1592 ;;

1593 image|document|binary)

1594 # When no file name supplied to input[type="file"]

1595 continue ;;

1596 *)

1597 type='string'

1598 ;;

1599 esac

1600 #sq $db "replace into par values('$session', '$k', '$type', \"$v\")"

1601 setpar "$k" "$type" "$v"

1602 done

1603 ;;

1604 *)

1605 setviastring "$s"

1606 ;;

1607 esac

1608 }

1609 email4group() {

1610 # Get for-$1=group email address(es) for $2...=users

1611 qgrp=`sqlquote "$1"`; shift

1612 users=`for i; do sqlquote "$i"; done`

1613 users=`echo $users|tr ' ' ','`

1614 sql="WITH

1615 grpemails AS (

1616 SELECT gname, user, val email

1617 FROM grp_mem NATURAL JOIN grp_mem_s

1618 WHERE key='email' AND gname=$qgrp),

1619 useremails AS (

1620 SELECT user.name, val email

1621 FROM user

1622 LEFT JOIN user_m

1623 ON user.name=user_m.name AND user_m.key='email')

1624 SELECT DISTINCT coalesce(g.email, u.email, u.name)

1625 FROM useremails u LEFT JOIN grpemails g

1626 ON u.name=g.user

1627 WHERE u.name in ($users);"

1628 query "$sql"

1629 }

1630 email4groupbyuid() {

1631 # Get for-$1=group email address(es) for $2...=user-ids

1632 g=$1; shift

1633 uids=`echo "$@"`

1634 uids=`echo $uids|tr ' ' ','`

1635 sql="SELECT DISTINCT name FROM user WHERE rowid IN ($uids);"

1636 email4group "$g" `query "$sql"`

1637 }

1638 myemail4group() {

1639 # Get my email address for $1-specified group

1640 email4group "$1" "$user" | sed -e 1q -e 's/[ ,].*//'

1641 }

1642 collectmembersbyid() {

1643 # Collect user names of group specified by grid

1644 rid=${1%%[!0-9]*} # Cleaning

1645 query "SELECT user FROM grp_mem \

1646 WHERE gname=(SELECT gname FROM grp WHERE rowid=$rid);"

1647 }

1648 collectmembersbyid() {

1649 # Collect user names of group name

1650 qgrp=`sqlquote "$1"`

1651 query "SELECT user FROM grp_mem WHERE gname=$qgrp;"

1652 }

1653 collectgecosesbyid() {

1654 # Collect user gecoses of group

1655 rid=${1%%[!0-9]*} # Cleaning

1656 query<<-EOF

1657 SELECT gecos

1658 FROM gecoses

1659 WHERE name IN (SELECT user FROM grp_mem

1660 WHERE gname=(SELECT gname FROM grp WHERE rowid=$rid));

1661 EOF

1662 }

1663 collectemail() (

1664 # Collect email addresses for group $1

1665 # If $TEAM is set, filter by team name

1666 # If $EXCEPT is set as username(s) delimited by comma,

1667 # remove $EXCEPT from list: ....NOT IN ($EXCEPT)

1668 for e; do

1669 if isuser "$e"; then

1670 em=`query "select val from user_m where name='$e' and key='email';"`

1671 [ -n "$em" ] && echo "$em" || echo "$e"

1672 else

1673 qgrp=`sqlquote "$e"`

1674 if [ -z "$TEAM" ]; then

1675 gmem="grp_mem"

1676 else

1677 tm=`sqlquote "$TEAM"`

1678 gmem="(SELECT gname, user FROM grp_mem_m WHERE gname='$e' AND key='team' AND val=$tm)"

1679 fi

1680 ex=${EXCEPT:+"AND g.user NOT IN ($EXCEPT)"}

1681 sql="select coalesce(s.val,um.val,g.user) from

1682 $gmem g left join grp_mem_s s

1683 on g.gname=s.gname and g.user=s.user and s.key='email'

1684 left join user_m um on g.user=um.name and um.key='email'

1685 where g.gname=$qgrp $ex;"

1686 ## err CollectEmail: `echo "$sql"`

1687 query "$sql"

1688 fi

1689 done

1690 )

1691 sendinvitation() (

1692 # $1=email

1693 iss="invite-`date +%s`-$user"

1694 addsession $iss +${memoplimitdays}days # 1 week due date

1695 query "DELETE FROM par WHERE var='invite' AND val='$1';"

1696 query "REPLACE INTO par VALUES('$iss', 'invite', 'string', '$1');"

1697 gecos=`gecos`

1698 name=$user${gecos:+"($gecos)"}

1699 regist="$urlbase?reg+$iss"

1700 _m4 -D_URL_="$urlbase" \

1701 -D_USER_="$name" \

1702 -D_EMAIL_="$1" \

1703 -D_REGIST_="$regist" \

1704 -D_ADMIN_="$admin" \

1705 $msgdir/mail-invite.m4 \

1706 | smail $1 "SNSへの御招待"

1707 return 0

1708 )

1709 emaildomaincheck() {

1710 case "$1" in

1711 *@*@*) echo "無効なアドレスです"; return 1 ;;

1712 *@*)

1713 local=${1%@*} domain=${1#*@}

1714 if ! host $domain >/dev/null 2>&1; then

1715 echo "ドメイン($domain)が見付かりません。"

1716 return 2

1717 fi

1718 return 0

1719 ;;

1720 *) echo "正しいメイルアドレスをいれてください"; return 3 ;;

1721 esac

1722 }

1723 invite() {

1724 email=`getpar email | tr '[A-Z]' '[a-z]'`

1725 case "$email" in

1726 *@*@*|*\ *) repo="無効なアドレスです" ;;

1727 *@*)

1728 local=${email%@*} domain=${email#*@}

1729 if ! repo=`emaildomaincheck $email`; then

1730 repo="招待アドレスのエラー: $repo"

1731 elif [ -n "`query \"select * from user where name='$email';\"`" ]; then

1732 repo="$email さんは既に加入しています。"

1733 elif sendinvitation $email; then

1734 repo="アドレス($email)宛に案内を送信しました。"

1735 else # Cannot be reached here

1736 repo="自動登録できない状況です。管理者に依頼してください。"

1737 fi ;;

1738 "") repo="招待したい人のメイルアドレスを入力してください。" ;;

1739 *) repo="無効なアドレスです" ;;

1740 esac

1741 addr=`query "select val from par where sessid like 'invite-%-$user';"`

1742 if [ -n "$addr" ]; then

1743 susp="<h2>招待済みで加入待ちのアドレス</h2><pre>$addr</pre>"

1744 fi

1745 if [ -f $invite_policy ]; then

1746 pol="spaste(\`$invite_policy')"

1747 else

1748 pol="$invite_policy"

1749 fi

1750 _m4 -D_TITLE_="招待" -D_REPORT_="\`$repo'" -D_ACTION_="?invite" \

1751 -D_BODYCLASS_="default" -D_SUSPENDED_="$susp" \

1752 -D_INVITE_POLICY_="$pol" \

1753 $layout/html.m4.html $layout/invite.m4.html

1754 }

1755 regist() {

1756 # $1=session-id-for-invitation

1757 _m4 -D_TITLE_="Invitation" $layout/html.m4.html

1758 if [ -z "$1" ]; then

1759 echo "bye bye" | html p

1760 reutrn

1761 fi

1762 email=`session=$1 getpar invite | tr '[A-Z]' '[a-z]'` # Ensure lower case

1763 if [ -z "$email" ];then

1764 cat<<EOF

1765 <p>無効な招待状チケットです。</p>

1766 <p>招待状の有効期限(1週間)が切れているか、チケット番号が異なっています。

1767 加入している人に、再度招待してもらいましょう。</p>

1768 EOF

1769 return

1770 fi

1771 echo "$email さんようこそ" | html h2

1772 query "replace into user values('$email');"

1773 # Fake login password to wasureta

1774 query "replace into par values('$session', 'pswd', 'string', 'wasureta'),

1775 ('$session', 'user', 'string', '$email');"

1776 wasureta $email

1777 echo "このアドレスに初期パスワードを送信しました。" |html p

1778 echo "新着メイルを確認してログインしてください。" |html p

1779 addsession $1 # for removal after 1 minute

1780 _m4 -D_SYSNAME_="Initial Login" -D_MYNAME_="$myname?userconf" \

1781 $layout/login.m4.html

1782 return

1783 }

1784 group_safename() {

1785 # Convert $1 to safe group name

1786 echo "$1" | tr -d '"'"'",

1787 }

1788 groupupdate() {

1789 gname=`getpar gname`

1790 qgname=`sqlquote "$gname"`

1791 if [ -n "$gname" ]; then

1792 # See ALSO same job in showgroup()

1793 newgname=`group_safename "$gname"`

1794 err newgname=$newgname

1795 if [ x"$newgname" != x"$gname" ]; then

1796 err NewGNAME: gname=$newgname

1797 gname=$newgname

1798 echo "使用禁止文字を除去し $gname としました。" | html p

1799 replpar gname string "$gname"

1800 fi

1801 # Name confliction check

1802 parow=`getpar rowid`

1803 ## err parow=$parow

1804 qgname=`sqlquote "$gname"` # Set again in case gname modified

1805 query "BEGIN EXCLUSIVE;"

1806 ## err "select count(gname) from grp where rowid != ${parow:-0} and gname = $qgname;"

1807 count=$(query "select count(gname) from grp where rowid != ${parow:-0} and gname = $qgname;")

1808 if [ $count -gt 0 ]; then

1809 echo "そのグループ名は既にあります。" | html p

1810 query "END;"

1811 return

1812 fi

1813 par2table $formdir/grp.def

1814 query "END TRANSACTION;"

1815 # Remove orphan

1816 : <<EOF

1817 select a.id,b.val from (select * from blog where id in

1818 (select id from blog_s where key='owner'

1819 and val not in (select name from user union select gname from grp)))

1820 a left join blog_s b on a.id=b.id and b.key='owner';

1821 EOF

1822 rm=`getpar rm` cfm=`getpar confirm`

1823 ## err groupupdate:::: after par2tbl rmcfm=$rm$cfm

1824 if [ x"$rm$cfm" = x"yesyes" ]; then

1825 if [ -z "`query \"select gname from grp where gname=$qgname;\"`" ]; then

1826 sql="delete from blog where id in

1827 (select id from blog_s where key='owner' and val=$qgname);"

1828 err rm-grp cleaning sql=`echo $sql`

1829 query "$sql";

1830 unsetpar tag kwd

1831 grps # When removing a group, switch to grp-list

1832 return # and return

1833 fi

1834 fi

1835 [ -z "$parow" ] && joingrp "$gname" "$user" yes "" as-admin

1836 fi

1837 sql="select rowid from grp where gname=$qgname;"

1838 grid=$(query $sql)

1839 ## err grpupdate:new-grid=$grid, sql=$sql

1840 grp $grid

1841 }

1842 groupclone() {

1843 # $1=grp-rowid of clone-base group

1844 rid=${1%%[!0-9]*} # Cleaning

1845 case "$1" in

1846 */noteam)

1847 noteam="AND key != 'team'" ;;

1848 esac

1849 qgrp=`query "SELECT quote(gname) FROM grp WHERE rowid=$rid;"`

1850 if [ -z "$qgrp" ]; then

1851 echo "無効なグループIDです($1)" | html p

1852 return

1853 fi

1854 if ! isgrpownerbygid "$user" "$rid"; then

1855 echo "グループ管理者のみがクローン可能です" | html p

1856 return

1857 fi

1858 i=0

1859 while true; do

1860 copy="-copy$i"

1861 newqname=`query "SELECT quote($qgrp || '$copy');"`

1862 # err Trying new grp=$newqname with copy=$copy

1863 test=`query "SELECT gname FROM grp WHERE gname=$newqname;"`

1864 if [ -n "$test" ]; then

1865 i=$((i++))

1866 continue

1867 fi

1868 break

1869 done

1870 # Creating New group "$newqname" with members of old group

1871 # err Creating new grp=$newqname with copy=$copy

1872 query<<-EOF

1873 BEGIN;

1874 INSERT INTO grp VALUES($newqname); -- Create NEW one

1875 REPLACE INTO grp_s(gname, key, val) -- Copy tag

1876 SELECT $newqname, key, val

1877 FROM grp_s WHERE gname=$qgrp AND key IN ('tag', 'mode');

1878 REPLACE INTO grp_s(gname, key, type, val) -- Copy gecos with "copy$n"

1879 SELECT $newqname, key, type, val || '$copy'

1880 FROM grp_s WHERE gname=$qgrp AND key='gecos';

1881 -- Copy members and their configuration --

1882 REPLACE INTO grp_mem SELECT $newqname, user

1883 FROM grp_mem WHERE gname=$qgrp;

1884 REPLACE INTO grp_mem_s SELECT $newqname, user, key, type, val, bin

1885 FROM grp_mem_s WHERE gname=$qgrp;

1886 REPLACE INTO grp_mem_m SELECT $newqname, user, key, type, val, bin

1887 FROM grp_mem_m WHERE gname=$qgrp $noteam;

1888 -- Copy administrators --

1889 REPLACE INTO grp_adm SELECT $newqname, user

1890 FROM grp_adm WHERE gname=$qgrp;

1891 COMMIT;

1892 EOF

1893 newrowid=`query "SELECT rowid FROM grp WHERE gname=$newqname;"`

1894 STOPCLONEMSG=1 groupconf "$newrowid"

1895 }

1896 groupman() {

1897 note="<p>グループ名に使用できない文字は自動的に削除されます。</p>"

1898

1899 GF_STAGE="grpconf"

1900 GF_STAGE=groupupdate

1901 DT_VIEW=grp dumptable html grp 'gname gecos:DESC mtime:TIME' 'order by b.TIME desc' \

1902 |_m4 -D_TITLE_="グループ作成" \

1903 -D_FORM_="$note`genform $formdir/grp.def`" \

1904 -D_DUMPTABLE_="syscmd(cat)" \

1905 $layout/html.m4.html $layout/form+dump.m4.html

1906 }

1907 userconf() {

1908 [ -n "`getpar rowid`" ] && par2table $formdir/user.def

1909 _m4 -D_BODYCLASS_=userconf -D_TITLE_="ユーザ情報編集" $layout/html.m4.html

1910 GF_ACTION="?home" edittable "$formdir/user.def" "user" "$user"

1911 }

1912 groupconf() {

1913 # $1=rowid in grp (2015-07-21 changed from gname)

1914 [ -n "`getpar rowid`" ] && par2table $formdir/grp.def

1915 _m4 -D_BODYCLASS_=groupconf -D_TITLE_="グループ情報編集" $layout/html.m4.html

1916 #rowid=`query "select rowid from grp where gname='$1';"`

1917 rowid=${1%%[!A-Z0-9a-z_]*}

1918

1919 ### If user is not admin, lead to group home

1920 grp=`getgroupbyid $rowid`

1921 if ! isgrpowner "$user" "$grp"; then

1922 echo "<p><a href=\"?grp+$rowid\">`echo "$grp"|htmlescape`</a></p>"

1923 return

1924 fi

1925

1926 # GF_ACTION="?grp+$1" edittable "$formdir/grp.def" "grp" "$rowid" #2015-0804

1927 GF_STAGE="groupupdate" edittable "$formdir/grp.def" "grp" "$rowid"

1928 if [ -z "$STOPCLONEMSG" ]; then

1929 ## Setup migration menu

1930 height="10em" ## Ugly!!

1931 if [ -n "$S4WORLDLIST" ]; then

1932 v=`fgrep -v "value=\"$worldconf\"" $worldoptionfile`

1933 err v=$v

1934 if [ -n "$v" ]; then

1935 migrate=$(cat<<-EOF

1936 `cgi_radio grpaction migrate id="migrate"`<label

1937 for="migrate">別Worldへ移住</label>

1938 <div style="height: $height;">

1939 <form action="?migrategrp">

1940 <p>移住先:<select name="migrateto">$nl$v$nl</select></p>

1941 <p>グループや掲示板のURLが変わります。

1942 外部からリンクしている場合は飛べなくなります。

1943 すでにリンクされた掲示板を多数含む場合は既存グループを温存し、

1944 「グループのクローン」で

1945 メンバーを引き継いだ上でそのクローンを移住するのがお勧めです。</p>

1946 <p><label>`cgi_checkbox emichk yes`確認</label></p>

1947 `cgi_hidden stage migrategrp`

1948 `cgi_hidden rowid $rowid`

1949 `cgi_submit OK`

1950 `cgi_reset Reset`

1951 </form>

1952 </div>

1953 EOF

1954 )

1955 fi

1956 fi

1957 html div 'class="foldtabs"' <<-EOF

1958 `cgi_radio grpaction clone id="clone"`<label

1959 for="clone">グループのクローン作成</label>

1960 <div style="height: $height;">

1961 <p>構成メンバーが同じ新規グループを作成します。</p>

1962 <table>

1963 <tr><td><a href="?groupclone+$rowid">

1964 <button>クローン作成(チームも複製)</button></a></td>

1965 <td><p>(チームなどもそのままで掲示板なしの状態から)</p></td></tr>

1966 <tr><td><a href="?groupclone+$rowid/noteam">

1967 <button>作成(チームなし)</button></a></td>

1968 <td>(チームは引き継がずメンバーのみ同じグループを作成)</td></tr>

1969 </table>

1970 <p>ボタンを押すと即作成します。不要な場合はグループ編集で

1971 削除してください。</p>

1972 </div>

1973 $migrate

1974 `cgi_radio grpaction close id="x"`<label for="x" accesskey="x">×</label>

1975 <div style="height: $height; background: transparent;"></div>

1976 EOF

1977 fi

1978 }

1979 migrategrp() {

1980 rowid=`getpar rowid`

1981 rowid=${rowid%%[!0-9]*}

1982 grp=`getgroupbyid $rowid`

1983 if ! isgrpowner "$user" "$grp"; then

1984 echo "<p><a href=\"?grp+$rowid\">`echo "$grp"|htmlescape`</a></p>"

1985 return

1986 fi

1987 if [ x`getpar emichk` != x"yes" ]; then

1988 echo "移住確認未チェックなので中止します。" | html p

1989 grp "$rowid"

1990 return

1991 fi

1992 destconf=`getpar migrateto`

1993 err destconf=$destconf

1994 if [ ! -e $destconf ]; then

1995 echo "移住先Worldが認識できないので中止します($destconf)。" | html p

1996 grp "$rowid"

1997 return

1998 fi

1999 if [ -n "$worldconf" ]; then

2000 srcconf=$worldconf

2001 else

2002 srcconf=s4-config.sh

2003 fi

2004 _m4 -D_TITLE_="移住操作" -D_BODYCLASS_="" $layout/html.m4.html

2005 echo "移住操作" | html h1

2006 echo '<pre>'

2007 set -- "$srcconf" "$destconf" "$rowid"

2008 err ./s4-migrate.sh "$srcconf" "$destconf" "$rowid"

2009 . ./s4-migrate.sh # Dot(.) sourcing might not pass arguments

2010 rc=$?

2011 echo "</pre>"

2012 if [ $rc -eq 0 ]; then

2013 echo "World [$world] への移住完了。" | html p

2014 echo "<p><a href=\"$dsturl?grp+$destrowid\">移住先</a></p>"

2015 elif [ -n "$faillist" ]; then

2016 echo "移住後削除失敗" | html p

2017 echo "空いている時間帯に再度試して下さい。" | html p

2018 else

2019 echo "移住失敗" | html p

2020 echo "移動先に重複がないか確認して下さい。" | html p

2021 fi

2022 return

2023 }

2024 mems() {

2025 _m4 -D_TITLE_="参加者一覧" -D_BODYCLASS_=listmember $layout/html.m4.html

2026 kwd=`getpar kwd`

2027 listmember $kwd

2028 }

2029 grps() {

2030 case "$S4WORLD" in

2031 $nonewgroupworld) ;;

2032 *) LINK_NEWGRP="<a href=\"?groupman\">新規グループ作成</a>" ;;

2033 esac

2034 _m4 -D_TITLE_="グループ一覧" -D_BODYCLASS_=listgroup $layout/html.m4.html

2035 kwd=`getpar kwd`

2036 listgroup "$kwd" \

2037 | _m4 -D_DUMPTABLE_="syscmd(cat)" \

2038 -D_TITLE_="グループ関連操作" \

2039 -D_FORM_="${LINK_NEWGRP}${NEWGRP_GUIDE}" \

2040 $layout/form+dump.m4.html

2041 }

2042 grp() { # $1=group-rowid

2043 gpg=`getpar grp`

2044 grid=${1:-$gpg}

2045 grp=`getgroupbyid "$grid"`

2046 ## . ./s4-blog.sh

2047 jg=`getpar joingrp`

2048 if [ -n "$jg" ]; then

2049 [ -n "$jg" -a -n "$grp" ] &&

2050 joingrp "$grp" "$user" "$jg" "`getpar email`"

2051 fi

2052 htmlheader=$layout/html.m4.html

2053 showgroup "$grid"

2054 }

2055 sql4interestblogs() {

2056 cat<<EOF

2057 CREATE TEMPORARY VIEW interestblogs AS

2058 SELECT blog.rowid rid, id, author

2059 FROM blog

2060 NATURAL JOIN

2061 (SELECT id, val owner FROM blog_s WHERE key='owner') bs

2062 WHERE CASE WHEN (SELECT name FROM user where name=bs.owner) IS NOT NULL

2063 THEN 1 -- blog owner is an user, READABLE

2064 WHEN (SELECT user FROM grp_mem

2065 WHERE gname=bs.owner AND user='$user') IS NULL

2066 THEN 0

2067 ELSE 1

2068 END;

2069 EOF

2070 }

2071 listnewblogsql() { # $1=user

2072 newdays=${WHATS_NEW_DAYS##*[!0-9]} # Shave non-digits

2073 newdays=${newdays%%[!0-9]*}

2074 newdays=${newdays:-14}

2075 basetime="datetime('now', 'localtime', '-${newdays} days')"

2076 deftime=`query "SELECT coalesce((SELECT max(time) FROM acclog

2077 WHERE user='$user'

2078 AND tblrowid IN

2079 ($blogreadflagrowid,

2080 $blogcutoffflagrowid)),

2081 $basetime -- "0"

2082 );"`

2083 cat<<EOF

2084 `sql4interestblogs`

2085 WITH article_ctime as (

2086 SELECT id,blogid,author,max(val) ctime

2087 FROM article join article_s s using(id)

2088 WHERE s.key='ctime' AND s.val > '$deftime'

2089 GROUP BY id

2090 ), blog_title_owner as (

2091 SELECT blg.rid brid, id,

2092 max(case key when 'title' then val end) title,

2093 max(case key when 'owner' then val end) owner

2094 FROM interestblogs blg, blog_s using(id) group by id

2095 ), blogall as (

2096 SELECT * FROM blog_title_owner b JOIN article_ctime ac ON b.id=ac.blogid

2097 ), news as (

2098 SELECT brid, bl.id blid, bl.title, ctime,

2099 coalesce(al.time, '$deftime') atime,

2100 count(bl.id) "新着", bl.author

2101 FROM blogall bl

2102 LEFT JOIN

2103 (SELECT * FROM acclog WHERE user='$user' AND tbl='blog') al

2104 ON bl.brid=al.tblrowid

2105 WHERE atime < bl.ctime

2106 GROUP by bl.id ORDER BY ctime desc,"新着" desc, bl.id

2107 LIMIT 10

2108 ) SELECT brid LINK, "新着",

2109 (SELECT count(*) FROM article WHERE blogid=blid) "総数",

2110 ctime, title,

2111 (SELECT gecos FROM gecoses WHERE name=author) gecos

2112 FROM news;

2113 EOF

2114 }

2115

2116 search_form() {

2117 # $1 = { author=<AUTHOR> | grid=<GroupRowid> }

2118 # $2(optional) = pre-input keywords

2119 help="(1)空白区切りの単語で本文検索

2120 (2)@YYYY-MM-DD 日付け(シェルパターン可)で日付け検索

2121 @2016-0[1-6] → 2016年1月から6月

2122 @>2016-01 @<2016-02-15 → 2016年1月から2月14日までの期間

2123 @week → 最近一週間

2124 (3)#番号で記事ID検索

2125 (1)と(2)は組み合わせOK

2126 例: @2016-10-0[1-9] 芋煮

2127 → 2016年10月上旬でキーワード「芋煮」を含む記事検索

2128 ※クイズ板は検索対象から外されます。"

2129 auth=""

2130 placeholder="全記事からの検索"

2131 case "$1" in

2132 author=*)

2133 a=`echo "${1#author=}"|htmlescape`

2134 g=`gecos ${1#author=}`

2135 auth="<input type=\"hidden\" name=\"author\" value=\"$a\">"

2136 placeholder="このユーザの書込検索"

2137 help="★★ $g さんの書き込みから検索します$nl$help"

2138 ;;

2139 grid=*)

2140 a=`echo "${1#grid=}"`; a=$((0 + $a))

2141 auth="<input type=\"hidden\" name=\"grid\" value=\"$a\">"

2142 placeholder="このグループからの検索"

2143 ;;

2144 esac

2145 inikwd="$2" # no need to htmlescape

2146 cat<<-EOF

2147 <div class="right">

2148 <form action="$myname">$auth

2149 <input type="text" name="kwd" value="$inikwd" title="$help"

2150 placeholder=" $placeholder " width="10" accesskey="k">

2151

2152 ${touchpanel:+<p class="help">$help</p>}

2153 <input type="hidden" name="stage" value="searchart">

2154

2155 </form>

2156 </div>

2157 EOF

2158 }

2159

2160 imgsrc_cache() (

2161 # $1 = directory for cache'ing

2162 # $2 = table (user_m or grp_m)

2163 # $3 = keycond (was: condition for choosingowner)

2164 # $4 = size : S = Small, M = Medium, O = Original

2165 dir="$1" tbl="$2"

2166 keycond="$3"

2167 whos="$keycond AND key='profimg' AND type LIKE 'file:image%'

2168 ORDER BY rowid DESC LIMIT 1"

2169 [ -d "$dir" ] || mkdir -p "$dir"

2170 tmpf=$tmpd/imgsrc_cache.$$

2171 case "$4" in

2172 [Ss]) size=S ;;

2173 [Oo]) size=O ;;

2174 *) size=M ;;

2175 esac

2176 # ImageCache filename storing schema:

2177 # <table_s>.{key, val}={"profimgcache_S", "$cacheimg_S"}

2178 sql0="SELECT val || '//' || type FROM $tbl WHERE $whos;"

2179 sql1="SELECT hex(bin) FROM $tbl WHERE $whos;"

2180 valtype=`query "$sql0"`

2181 filename=${valtype%%//*}

2182 filetype=${valtype##*//file:}

2183 if [ x"$filename" = x"${filename%.*}" ]; then

2184 # If nor filename extension found, set it to image type

2185 case "$filetype" in

2186 image/*) filename=$filename.${filetype#image/} ;;

2187 esac

2188 fi

2189 cacheimg_S=$dir/S_$filename

2190 cacheimg_M=$dir/M_$filename

2191 cacheimg_O=$dir/$filename

2192 cacheimg=$dir/${size}_$filename

2193 sumfile="$dir/$filename.sum"

2194 sum=`query "$sql1" | tee $tmpf | encode` # encode() is maybe sha1

2195 if test -s "$sumfile" && [ x"`cat \"$sumfile\"`" = x"$sum" ] \

2196 && test -s "$cacheimg_S" && test -s "$cacheimg_M" ; then

2197 # if cache is fresh and has the same checksum,

2198 echo "<img src=\"$cacheimg\">"

2199 else

2200 fifo=`mktemp "$tmpf.fifo.XXXXXXX"`

2201 rm -f $fifo # Safe, because $tmpf is in mktemp dir.

2202 fifo2=$fifo.2

2203 mkfifo $fifo $fifo2

2204 fmt=${filename##*.}

2205 ## [[ NOTE ]]

2206 ## a. convert oldimage newimage

2207 ## b. convert oldimage fmt:- | convert - newimage

2208 ## b is much smaller than a

2209 cat $tmpf | unhexize \

2210 | tee $fifo \

2211 | convert -define ${fmt}:size=${iconxy_M} \

2212 -resize ${iconxy_M}'>' - ${fmt}:- \

2213 | tee $fifo2 \

2214 | convert - "$cacheimg_M" &

2215 cat $fifo | convert -define ${fmt}:size=${iconxy_S} \

2216 -resize ${iconxy_S}'>' - ${fmt}:- \

2217 | convert - "$cacheimg_S" &

2218 printf '%s' "<img src=\"data:${filetype},"

2219 hexize "$fifo2" |sed 's/$..$/%\1/g' # Use medium as pre-cached image

2220 echo '">'

2221 echo "$sum" > $sumfile

2222 fi

2223 ## Now preparing cache image, done.

2224 ## Store this information to DB

2225 stbl=${tbl%_m}_s # user_s or grp_s

2226 pkey=${keycond%%=*} # Primary Key name

2227 pval=${keycond#*=} # Primary Key value

2228 query <<-EOF

2229 REPLACE INTO $stbl($pkey, key, type, val)

2230 VALUES($pval, '$iconcachekey', 'string', `sqlquote "$cacheimg_S"`);

2231 EOF

2232 )

2233

2234 showhome() {

2235 # $1=userRowIdToShow

2236 err showhome \$1=$1

2237 case "$1" in

2238 *@*) uname=`getvalbypkey user name "$1"` ;;

2239 *) uname=`getvalbyid user name $1` ;;

2240 esac

2241 ## err ShowHome: uname=$uname

2242 td=`getcachedir home/"$1"`

2243 gecos=`gecos "$uname"`

2244 ## err SH:gecos=$gecos

2245 GF_VIEWONLY=1

2246 cond="gname in (select gname from grp_mem where user='$uname')"

2247 search_form_args=""

2248 if [ x"$user" = x"$uname" ]; then

2249 if [ -z "$S4MASTERDB" ]; then

2250 usermenu="<a href=\"?userconf\" accesskey=\"e\"

2251 title=\"Shortcut: E${nl}Edit Profile\">プロフィールの編集</a> / "

2252 elif [ -n "$S4MASTERURL" ]; then

2253 usermenu="<a href=\"$S4MASTERURL\" accesskey=\"e\"

2254 title=\"Shortcut: E${nl}Main Site\">Base World</a> / "

2255 fi

2256 usermenu="$usermenu

2257 <a href=\"?blog\" accesskey=\"n\" title=\"Shortcut: N${nl}New blog\">新規話題の作成</a>"

2258 # Display folders

2259 sql="select count(id) from article_m where id

2260 in (select id from article where author='$user')

2261 and type like 'file:%';"

2262 ## err nfile-sql=`echo "$sql"`

2263 nfile=`query "$sql"`

2264 # err nfile=$nfile

2265 if [ $nfile -gt 0 ]; then

2266 usermenu="$usermenu / <a href=\"?lsmyfile\" accesskey=\"l\"

2267 title=\"Shortcut: L${nl}List All Attachment files\">過去の提出ファイル</a>"

2268 fi

2269 else

2270 latestlog=`query "SELECT max(time) FROM acclog WHERE user='$uname' \

2271 GROUP BY user;"`

2272 usermenu="<p>Last seen on $latestlog</p>"

2273 search_form_args="author=$uname"

2274 fi

2275 . ./s4-blog.sh

2276

2277 tf=$tmpd/title.$$ pf=$tmpd/profile.$$ bf=$tmpd/blogs.$$ sf=$tmpd/search.$$

2278 search_form "$search_form_args" > $sf

2279 printf "%s さん%s" "$gecos" "${S4WORLDNAME:+@$S4WORLDNAME}" \

2280 | htmlescape > $tf

2281 { echo "<div class=\"noprofimg\">"

2282 viewtable $formdir/user.def user $1

2283 echo "</div>"

2284 } > $pf

2285

2286 sqcond="WHERE name='$uname' AND key='profimg' AND type LIKE 'file:image%'"

2287 img=`query "SELECT type FROM user_m $sqcond LIMIT 1;"`

2288 imf=$tmpd/profimg.$$; touch $imf

2289 if [ -n "$img" ]; then

2290 if true; then

2291 tbl=user_m

2292 enticond="name='$uname'"

2293 imgsrc_cache "$td/main" user_m "$enticond" M

2294 else

2295 { printf '%s' "<IMG src=\"data:${img#file:},"

2296 query "SELECT hex(bin) FROM user_m $sqcond ORDER BY rowid LIMIT 1;" \

2297 | sed 's/$..$/%\1/g'

2298 echo '">'

2299 }

2300 fi > $imf

2301 fi

2302 nblog=`query "SELECT count(id) FROM blog_s WHERE key='owner' AND \

2303 val='$uname';"`

2304 ## REMOVE This comment block until 2019/7/1

2305 ## err "----- `gdate +%FT%T.%3N` ------------C"

2306 ## [ x"$user" = x'yuuji@gentei.org' ] && ddd=1

2307 listblog $uname > $bf

2308 ## unset ddd

2309 ## err "----- `gdate +%FT%T.%3N` ------------D"

2310

2311 hometail=$tmpd/tail.$$

2312 mkfifo $hometail

2313

2314 #Calling listgroupbytable, originally here

2315

2316 (

2317 # Display Most Recent Entry

2318 shortval=${dumpcollen:+"substr(val, 0, $dumpcollen)"}

2319 shortval=${shortval:-val}

2320

2321 # The m.aid in the next line is suspicious. But works fine in SQLite3...

2322 DT_SQL="SELECT b.rowid || '#' || m.aid LINK,

2323 ctime,

2324 (SELECT $shortval FROM blog_s WHERE key='title' AND id=b.id) title,

2325 (SELECT gecos FROM gecoses

2326 WHERE name=(SELECT val FROM blog_s

2327 WHERE key='owner' AND id=b.id)) owner,

2328 (SELECT $shortval val FROM article_s WHERE id=m.aid AND key='text') text

2329 FROM blog b

2330 JOIN

2331 (SELECT distinct blogid, a.id aid, max(val) ctime

2332 FROM article a, article_s s

2333 ON a.id=s.id AND a.author='$uname' AND s.key='ctime'

2334 GROUP BY blogid ORDER BY val DESC LIMIT 50

2335 ) m

2336 ON b.id=m.blogid;"

2337 # This should be as follows

2338 : <<EOF

2339 WITH arts AS(

2340 SELECT (SELECT rowid FROM blog WHERE id=a.blogid) brid,

2341 a.blogid, a.id id, s.val ctime

2342 FROM article a NATURAL JOIN article_s s

2343 WHERE s.key = 'ctime' AND a.author='$user'

2344 GROUP by s.id

2345 )

2346 SELECT a0.brid,a0.blogid,a0.id,a0.ctime

2347 FROM arts a0

2348 JOIN

2349 (SELECT blogid,max(ctime) mct FROM arts a1 GROUP BY blogid) a1

2350 ON a0.blogid=a1.blogid AND a0.ctime=a1.mct

2351 ORDER BY ctime DESC LIMIT 50;

2352 EOF

2353

2354 cat<<-EOF

2355 `cgi_radio foldtabs yes 'id="mre" accesskey="d"'`<label

2356 for="mre" title="Shortcut: D${nl}Recent Post">最近の書き込み先</label>

2357 <div class="lcto">

2358 `DT_VIEW=replyblog dumptable html blog`

2359 </div>

2360 EOF

2361 unset DT_SQL

2362 if [ x"$user" = x"$uname" ]; then

2363 # Display NEWS

2364 # 2016-06-26

2365 if [ x"`getpar readchk``getpar read`" = x"yesyes" ]; then

2366 acclog blog $blogreadflagrowid

2367 # echo "全部既読にしました" | html p

2368 fi

2369 # 2016-02-19 Counting NEWS without using dumptable.

2370 sql=`listnewblogsql "$user"`

2371 # echo "$sql" > tmp/listnew

2372 new10=`DT_SQL="$sql" DT_VIEW=replyblog dumptable html blog`

2373 cont=`echo "$new10"|grep "^<TR>"|wc -l`

2374 cont=$((cont-1))

2375 ##err newcount=$cont

2376 if [ $cont -gt 0 ]; then

2377 #echo "全体の新着記事${cont}傑" | html h2

2378 cgi_radio foldtabs yes 'id="new10" accesskey="f"'

2379 echo "<label for=\"new10\" title=\"Shortcut: F${nl}NEWS\">新着${cont}傑</label><div>"

2380 cat<<-EOF | html form 'action="?home"'

2381 `cgi_checkbox readchk yes 'id="read"'`<label

2382 for="read">新着ふくめて全部読んだことにする</label>

2383 `cgi_submit '確定'`

2384 `cgi_hidden read yes`

2385 EOF

2386 echo "$new10 "

2387 echo "</div>"

2388 else # If news is 0, set log cut off flag

2389 acclog blog $blogcutoffflagrowid # for speed

2390 fi

2391 else # Not My Home ($user != $uname)

2392 : # DT_SQL=

2393 fi

2394 ) > $hometail & # Is background call safe to m4??

2395 #

2396 listgroupbytable $formdir/grp.def "$cond" $uname |

2397 _m4 -D_BODYCLASS_=home -D_TITLE_="spaste(\`$tf')" \

2398 -D_PROFILE_="spaste(\`$pf')$usermenu" \

2399 -D_PROFIMG_="spaste(\`$imf')" \

2400 -D_BLOGS_="spaste(\`$bf')" \

2401 -D_SEARCH_="spaste(\`$sf')" \

2402 -D_NBLOG_="$nblog" \

2403 -D_GROUPS_="syscmd(\`cat')" \

2404 -D_HOMETAIL_="syscmd(\`cat $hometail')" \

2405 $layout/html.m4.html $layout/home.m4.html

2406

2407 # Record access log

2408 [ -n "$1" ] && [ x"$1" != x"$user" ] && acclog user $1

2409 }

2410 commission() { # $1=grp-rowid $2=user-rowid

2411 contenttype; echo

2412 ## err commission: "$@"

2413 gname=`getgroupbyid $1`

2414 echo "グループ $gname 管理者委任" \

2415 | _m4 -D_TITLE_="syscmd(\`cat')" $layout/html.m4.html

2416 if [ -n "$2" ]; then

2417 grp_reg_adm "$@"

2418 else

2419 echo "無効な指定です。普通のアクセスならここに来ないはず。"|html p

2420 fi

2421 }

2422 listgroupbytable() {

2423 # $1=deffile $2...=condition $3(optional)=uname

2424 tagline=`grep :tag: $1`;

2425 and="${2:+and }" where=${2:+where }

2426 href="<a href=\"$myname?grp+"

2427 echo '<div class="listgroup">'

2428 sql="select val from grp_s where key='tag' $and$2 group by val;"

2429 ## err ListGRP: query sql="$sql"

2430 for tag in `query "$sql"`

2431 do

2432 ## err ListGrp: tag=$tag

2433 tn=${tagline%%=${tag}*}

2434 tn=${tn##*[ :]}

2435 sql="select rowid||':'||gname as 'グループ名',説明 from

2436 (select (select rowid from grp g where g.gname=grp_s.gname)

2437 as rowid,

2438 gname,

2439 max(case key when 'gecos' then val end) as '説明',

2440 max(case key when 'tag' then val end) as 'tag',

2441 max(case key when 'mtime' then val end) as mtime from grp_s

2442 $where$2 group by gname having tag='$tag' order by mtime desc);"

2443 ## err PersonalGroupList= `echo $sql`

2444 echo "<h2>$tn</h2>"

2445 echo '<table class="b listgroup">'

2446 sq -header -html $db "$sql" \

2447 | sed "s,$<TR><TD>$$[0-9]*$:$[^<]*$</TD>,\1$href\2\">\3</a>,"

2448 echo '</table>'

2449 done

2450 if [ -n "$S4WORLDLIST" -a -n "$3" ]; then

2451 err "peekgrpworlds($user) BEGIN: `gdate +%S.%03N`"

2452 peekgrpworlds mem:"$3"

2453 err "peekgrpworlds($user) END: `gdate +%S.%03N`"

2454 fi

2455 echo '</div>'

2456 }

2457 iconhref() (

2458 # $1=icon-file, $2=Href $3=title $4...=anchor

2459 data=`percenthex "$1"`

2460 ct=`file --mime-type - < "$1"|cut -d' ' -f2`

2461 ## err iconhref: \$1=$1 \$2=$2 \$3="$@"

2462 href=$2; title=$3; shift 3

2463 echo "<a href=\"$href\"><img title=\"$title\" src=\"data:$ct,$data\">$@</a>"

2464 )

2465 iconhref2() (

2466 # $1=icon-file, $2=Href $3=title $4...=anchor

2467 src=$1

2468 href=$2; title=$3; shift 3

2469 anchor=`echo $@|htmlescape`

2470 echo "<a href=\"$href\"><img title=\"$title\" src=\"$src\">$anchor</a>"

2471 )

2472 listentry() (

2473 # $1=user/group $2=SearchKeyword $3=condition(if any) $4=grprowid(if in grp)

2474 # Referring variable $iamowner=$grp to attach owner-request links

2475 ## err listentry: \$1=$1 \$2=$2 \$3=$3

2476 cond='' hiddens=''

2477 offset=`getpar offset`; offset=${offset%%[!0-9]*}

2478 if [ -z "$offset" ]; then

2479 offset=`getpar start`; offset=${offset%%[!0-9]*}

2480 offset=$((offset-1))

2481 fi

2482 offset=$((offset + 0)) # change to numeric forcibly

2483 [ $offset -lt 0 ] && offset=0

2484 limit=$listentlimit

2485 dir=`getcachedir "$1"`

2486 if [ x"$1" = x"user" ]; then

2487 hrb="$myname?home"

2488 deficon=person-default.png

2489 entity="ユーザ" tbl=user link=rowid nm=name # stage=mems

2490 [ -n "$4" ] && hiddens=`cgi_hidden grid $4`

2491 gcs=gecos

2492 else # if group

2493 hrb="$myname?grp"

2494 deficon=group-default.png

2495 entity="グループ" tbl=grp link=rowid nm=gname stage=grps

2496 gcs=name

2497 tagline=`grep :tag: $formdir/grp.def|cut -d: -f5-`

2498 if [ -n "$tagline" ]; then

2499 tagconv=`echo $tagline|sed 's/$[^= :]*$=$[^= :]*$/-D\2=\1/g'`

2500 ## err tagconv=$tagconv

2501 fi

2502 fi

2503 if [ ! -d $dir ]; then

2504 mkdir -p $dir

2505 fi

2506 if [ ! -s $dir/$deficon ]; then

2507 convert -geometry $thumbxy $imgdir/$deficon $dir/$deficon

2508 fi

2509 kwd=${2:-`getpar kwd`}

2510 if [ -n "$kwd" ]; then

2511 kwd=`echo $kwd | tr -d '";\n' | tr -d "'"`

2512 case "$kwd" in

2513 mem:*@*)

2514 byuser=${kwd#*mem:}

2515 qusr=`sqlquote "$byuser"`

2516 cond1="(a.gname IN (SELECT gname FROM grp_mem WHERE user=$qusr))"

2517 ;;

2518 esac

2519 if [ x"$1" = x"group" ]; then

2520 if [ -n "$cond1" ]; then

2521 enthead="`gecos "$byuser"|htmlescape` さんの所属"

2522 else

2523 cond1="(b.name like '%${kwd}%')"

2524 fi

2525 else

2526 cond1="(nick like '%${kwd}%' or b.name like '%${kwd}%')"

2527 fi

2528 fi

2529 tag=`getpar tag` tag2=`getpar tag2`

2530 if [ x"$tag" = x"NULL" ]; then

2531 tag="" tag2=""

2532 fi

2533 if [ -n "$tag$tag2" ]; then

2534 tag=${tag:-$tag2}

2535 qtag=`sqlquote "$tag"`

2536 cond2="tag=$qtag"

2537 fi

2538 if [ -n "$cond1$cond2" ]; then

2539 cond="$cond1${cond2:+ AND $cond2}"

2540 cond="WHERE ${cond# AND }"

2541 fi

2542

2543 # XX: これ複雑すぎるかな。もっとシンプルにしたい。$3条件も。2015-07-08

2544 # grpは呼出し元の動的スコープ変数でよくないな...

2545 ##qgrp=`sqlquote $grp`

2546 getgrp="(select gname from grp where rowid=${rowid:--1})"

2547 sql="select a.rowid, a.$link,

2548 coalesce(b.$gcs, a.$nm) as nick,

2549 quote(a.$nm) as qname,

2550 (SELECT val FROM ${tbl}_s

2551 WHERE $nm=a.$nm AND key='$iconcachekey') icon,

2552 coalesce(b.gecos, a.$nm) /* If group, concat (Nusers) */

2553 || case when a.$nm in (select gname from grp)

2554 then printf('(%d名)',

2555 (select count(user) from grp_mem where gname=a.$nm))

2556 else ' <'||a.$nm||'>'

2557 end

2558 as name,

2559 b.tag,

2560 case when a.$nm in (select user from grp_adm

2561 where gname=$getgrp) then '管理者'

2562 when '$user' in (select user from grp_adm where gname=a.$nm)

2563 then 'ADMIN'

2564 when '$user' in (select user from grp_mem where gname=a.$nm)

2565 then 'Member'

2566 when '$iamowner' = '' then ''

2567 else ',not='||a.rowid end as ownerlink,

2568 CASE '$entity'

2569 WHEN 'グループ'

2570 THEN coalesce(

2571 (SELECT val FROM grp_s WHERE gname=a.$nm AND key='regmode'),

2572 'open')

2573 ||

2574 CASE WHEN '$user'

2575 IN (SELECT user FROM grp_mem WHERE gname=a.$nm)

2576 THEN ' ismember'

2577 ELSE ''

2578 END

2579 ELSE 'user'

2580 END regmode

2581 from $tbl a left join

2582 (select $nm as name,

2583 max(case key when 'gecos' then val end) as gecos,

2584 max(case key when 'tag' then val end) as tag,

2585 max(case key when 'mtime' then val end) as mtime,

2586 max(case key when 'wtime' then val end) as wtime,

2587 max(case key when 'login' then val end) as login

2588 from ${tbl}_s group by $nm)

2589 b on a.$nm=b.name $cond $3

2590 order by b.wtime desc, b.login desc,

2591 b.mtime desc, b.tag desc, a.rowid asc"

2592 # Give precedence to newer maintained groups (2016-09-24)

2593 # Note that mtime is stored only in grp_s.

2594 ## err LE:sql.1="$sql"

2595 total=`query "with x as ($sql) select count(*) from x;"`

2596 echo "$enthead${entity} 一覧" "${S4WORLDNAME:+@$S4WORLDNAME}" | html h2

2597 echo '<div class="listentry">' # List-entry div

2598 # Show owner/member filter button

2599 METHOD=GET

2600 hiddens="$hiddens

2601 `cgi_hidden stage \"$stage\"`"

2602 if [ x"$tbl" = x"grp" ]; then

2603 args=`grep "^種別:" $formdir/grp.def | cut -d: -f5`

2604 fh="<select name=\"tag\">$nl"

2605 fh="$fh<option value=\"NULL\"${tag:+ selected}>グループ種別...</option>"

2606 for l in $args; do

2607 val=${l#*=} tname=${l%=*}

2608 if [ x"$val" = x"$tag" ]; then

2609 s=" selected"

2610 selectedtags="(種別[${tname}]のみ)"

2611 else

2612 s=""

2613 fi

2614 form=$nl$form"<option value=\"$val\"$s>$tname</option>"

2615 done

2616 form="$fh$form</select><input type=\"submit\" value=\"で絞る\">"

2617 cat<<-EOF

2618 <form action="$myname" method="$METHOD">

2619 </form>

2620 以下一覧のうち: `cgi_checkbox onlymem no 'id="ismembtn"'`<label

2621 for="ismembtn">参加中以外隠す</label>

2622 `cgi_checkbox onlyadm no 'id="isadmbtn"'`<label

2623 for="isadmbtn">管理者参加以外隠す</label>

2624 EOF

2625 # limit=3

2626 hiddens=$hiddens" "`cgi_hidden tag2 "$tag"`

2627 fi

2628 if [ $total -gt $limit -o $ -n "$S4WORLDLIST" -a x"$tbl" = x"grp" $ ]; then

2629 echo '<div>'

2630 METHOD=GET cgi_form $stage <<EOF

2631 $form

2632 <label>次の語を含む${entity}で検索:

2633 `cgi_text kwd "$kwd"`</label>

2634 $hiddens

2635 EOF

2636 echo '</div>'

2637 else

2638 echo $selectedtags | html p

2639 fi

2640 test -n "$kwd" && hiddens="$hiddens$nl`cgi_hidden kwd \"$kwd\"`"

2641 cat<<EOF

2642 <form action="$myname" method="$METHOD">

2643 <p>${total}件中の<input class="hidesub" type="text" name="start"

2644 value="$((offset+1))" size="3">件めから${kwd:+" - 検索語: $kwd"}$hiddens

2645 <input type="submit" value="確定"></p>

2646 </form>

2647 EOF

2648 if [ $((offset+limit)) -lt $total ]; then

2649 nextbtn=$(

2650 cat<<EOF

2651 <div class="right clear"><form action="$myname" method="$METHOD">

2652 `cgi_submit 次の${limit}件`

2653 $hiddens

2654 `cgi_hidden offset $((offset + limit))`</form></div>

2655 EOF

2656 )

2657 fi

2658 if [ $offset -gt 0 ]; then

2659 prevbtn=$(

2660 cat<<EOF

2661 <form action="$myname" method="$METHOD">

2662 `cgi_submit 前の${limit}件`

2663 $hiddens

2664 `cgi_hidden offset $((offset - limit))`</form>

2665 EOF

2666 )

2667 fi

2668 pnbtn="$nextbtn$prevbtn"

2669 echo $pnbtn

2670

2671 ## err ListEntry: `echo "$sql"\;`

2672 # sq $db here??? 2016-11-28

2673 query "$sql limit $limit ${offset:+offset $offset};" \

2674 | while IFS='|' read id lnk name qname icon gecos tag ownerp type; do

2675 # err name=$name owner=$ownerp lnk=$lnk

2676 # err newlnk=$lnk regmode=$regmode

2677 icondir=$dir/$id

2678 # Pick up only last icon

2679 htmlname=`echo $name|htmlescape`

2680 echo "<div class=\"iconlist xy$thumbxy $type $ownerp\">

2681 <p class=\"tag _$tag\">$tag</p>" \

2682 | _m4 $tagconv

2683 if [ -n "$NOSPEEDUP" ]; then

2684 files=`getvalbyid $tbl profimg $id $icondir`

2685 if [ -n "$files" ]; then

2686 icon=`echo "$files"|tail -1`

2687 iconhref2 "$icondir/$icon" "$hrb+$lnk" "$gecos"

2688 else

2689 iconhref "$dir/$deficon" "$hrb+$lnk" "$gecos"

2690 fi

2691 elif [ -n "$icon" -a -s "$icon" ]; then

2692 iconhref2 "$icon" "$hrb+$lnk" "$gecos"

2693 else

2694 cond="$nm=$qname"

2695 # err imgsrc_cache "$dir/list" ${tbl}_m "$cond" S

2696 # err query "SELECT type FROM ${tbl}_m $cond LIMIT 1;"

2697 img=`query "SELECT type FROM ${tbl}_m WHERE $cond AND key='profimg' LIMIT 1;"`

2698 # err "img=[$img]"

2699 if [ -n "$img" ]; then

2700 echo "<a href=\"$hrb+$lnk\">"

2701 imgsrc_cache "$icondir" ${tbl}_m "$nm=$qname" S

2702 echo "</a>"

2703 else

2704 iconhref2 "$dir/$deficon" "$hrb+$lnk" "$gecos"

2705 fi

2706 fi

2707 echo "<br>$htmlname${ownerp:+<br>($ownerp)}"

2708 echo "</div>"

2709 done

2710 echo "</div>" # End of List-entry div

2711 echo ${pnbtn:+"<hr>$nextbtn$prevbtn"}

2712 if [ -n "$kwd" -a x"$tbl" = x"grp" -a -n "$S4WORLDS" ]; then

2713 peekgrpworlds "$kwd"

2714 fi

2715 )

2716 listmember() {

2717 listentry user "$@"

2718 }

2719 listgroup() {

2720 listentry group "$@"

2721 }

2722 hexteams() { # $1=gname, $2(optional)=user

2723 cond=${2:+" AND user='$2'"}

2724 query "SELECT DISTINCT hex(val) FROM grp_mem_m

2725 WHERE gname='$1' AND key='team'$cond ORDER by val;"

2726 }

2727 showgroup() { # $1=group-rowid

2728 if [ -z "$1" ]; then

2729 grid=`getpar grid`

2730 grid=${grid%%[!0-9]*}

2731 [ -n "$grid" ] && grp=`getgroupbyid $grid`

2732 else

2733 grid=$1

2734 fi

2735 grp=`getgroupbyid $grid`

2736 qgrp=`sqlquote "$grp"`

2737 htmlgrp=`echo "$grp"|htmlescape`

2738 ## err showgroup2: grid=$grid grp=$grp qgrp="[$qgrp]"

2739 if isgroup "$grp"; then

2740 tf=$tmpd/title.$$

2741 sf=$tmpd/search.$$

2742 bodyclass=`query "SELECT val FROM grp_s

2743 WHERE gname=$qgrp AND key='regmode';"`

2744 if ismember "$user" "$grp"; then

2745 ismember="ismember"

2746 bodyclass="$bodyclass${bodyclass:+ }ismember"

2747 else

2748 ismember="" # bodyclass="group"

2749 fi

2750 bodyclass="$bodyclass grouphome"

2751 echo "<div class=\"search\">`search_form grid=\"$grid\"`</div>"> $sf

2752 echo "グループ $htmlgrp" > $tf

2753

2754 showgroupsub $formdir/grp.def "$grid" | \

2755 _m4 -D_TITLE_="syscmd(\`cat $tf')" \

2756 -D_FORM_="syscmd(\`cat')" \

2757 -D_BODYCLASS_="$bodyclass" \

2758 -D_DUMPTABLE_="" \

2759 $htmlheader $sf $layout/form+dump.m4.html

2760 # $htmlheader $layout/form+dump.m4.html

2761 # $htmlheader is defined in grp()

2762 else # if $grp is removed at par2table

2763 listgroup

2764 fi

2765 }

2766 showgroupsub() {

2767 # $1=def-file $2=group-rowid

2768 # Using $ismember

2769 rowid=$2

2770 grp=`getgroupbyid $2`

2771 qgrp=`sqlquote "$grp"`

2772 td=`getcachedir grp/"$2"`

2773 #rowid=`sq $db "select rowid from grp where gname=$qgrp"`

2774 if [ -z "$rowid" ]; then

2775 #rowid=`sq $db "select rowid from grp where rowid=$grp"`

2776 #grp=`sq $db "select gname from grp where rowid=$grp"`

2777 echo "showgroupsub: invalid argument($1 $2)" | html p

2778 return

2779 fi

2780 val=`getvalbyid grp profimg $rowid $tmpd`

2781 enticond="gname=$qgrp"

2782 img=`query "SELECT type FROM grp_m WHERE $enticond LIMIT 1;"`

2783 if [ -n "$img" ]; then

2784 cat<<-EOF

2785 <p class="groupimg">

2786 `imgsrc_cache $td/main grp_m "$enticond" M`</p>

2787 EOF

2788 fi

2789 echo "<div class=\"noprofimg\">"

2790 viewtable $1 grp $rowid

2791 echo "</div>"

2792 if isgrpowner "$user" "$grp"; then

2793 echo "<p><a href=\"?groupconf+$rowid\" accesskey=\"e\"

2794 title=\"Shortcut: e${nl}Edit Group\">グループ情報の編集</a>"

2795 iamowner=$rowid

2796 colmd=" mode"

2797 fi

2798 if [ -n "$ismember" ]; then

2799 #echo "${iamowner:+ / }<a href=\"?blog+$rowid\">グループの新規話題作成</a>"

2800 #echo "/ <a href=\"?grpaction+$rowid\">メンバーを個別選択しての操作</a></p>"

2801 # div.fold input[type="checkbox"]:checked ~ div {display: block;}

2802 cat<<-EOF

2803 ${iamowner:+ / }<a accesskey="n" title="Shortcut: n${nl}New blog"

2804 href="?blog+$rowid">グループの新規話題作成</a>

2805 / <a accesskey="m" title="Shortcut: m${nl}Operations on Members"

2806 href="?grpaction+$rowid">メンバーを個別選択しての操作</a></p>

2807 <form action="?send2mem" method="POST" enctype="multipart/form-data">

2808 <div class="fold clear">

2809 `cgi_checkbox send yes id="send"`<label

2810 for="send">グループ全員にメッセージ送信</label>

2811 <div>

2812 `cgi_textarea message "" "cols=60"`

2813 `cgi_submit 送信`

2814 `cgi_reset リセット`

2815 </div>

2816 `cgi_hidden grp $rowid`

2817 </div></form>

2818 EOF

2819 fi

2820 # 加入ボタン + 加入者リスト

2821 if [ -n "$ismember" ]; then

2822 ismem='checked' state="(参加中)"

2823 else

2824 nomem='checked' state="(現在非加入)"

2825 fi

2826 # このグループでの加入アドレス

2827 eml=`query "select val from grp_mem_s where gname=$qgrp and user='$user' \

2828 and key='email';"`

2829 ##err EML: "select val from grp_mem_s where gname='$2' and user='$user' \

2830 ## and key='email';"

2831 ##err email=$eml

2832 cat <<EOF

2833 <div class="fold clear">

2834 `cgi_checkbox reg yes id="reg"`<label

2835 for="reg">自身の加入状態を操作する</label>$state

2836 <div>

2837 EOF

2838 cgi_form grp <<EOF

2839 <p>このグループに</p>

2840 <table class="b">

2841 <tr><th>メンバーとして</th><td>

2842 <label>`cgi_radio joingrp "yes" $ismem`参加</label> /

2843 <label>`cgi_radio joingrp "no" $nomem`参加しない</label></td></tr>

2844 <tr><th>参加する場合のメイルアドレス<br>

2845 <small>(メインのアドレスとは違うものにする場合に記入<br>

2846 同じでよい場合は空欄に)</small></th>

2847 <td>`cgi_text email $eml`</td></tr>

2848 </table>

2849 `cgi_hidden grp $rowid`

2850 EOF

2851 if [ x`getgroupattr "$grp" regmode` = x'moderated' -a -z "$ismem" ]; then

2852 echo "moderated (承認加入の)グループなので実際に参加できるのは

2853 グループ管理者が承認操作をした後になります。" | html p 'class="warn"'

2854 fi

2855 echo '</div></div>'

2856 thelp="1ヶ月分のまとめには上部検索窓に @month と入れてください。"

2857 cat<<-EOF

2858 <div class="fold">

2859 <h2>話題一覧</h2>

2860 <form class="summary inline" action="$myname" title="$thelp">

2861 `cgi_hidden owner "$grp"`

2862 `cgi_hidden kwd "@week"`

2863 `cgi_hidden stage searchart`

2864 `cgi_submit "一週間のまとめ"`

2865 </form>

2866 <input type="checkbox" id="dtcheck" checked><label

2867 for="dtcheck">話題一覧表示</label>

2868 EOF

2869 cond="where a.id in (select id from blog_s where key='owner' and val=$qgrp) order by 稼動状態, ctime desc"

2870 colstate="state:稼動状態:frozen=rowclass=凍結"

2871 DT_CHLD=article:blogid \

2872 DT_QOWNER="$qgrp" \

2873 DT_VIEW=replyblog dumptable html blog \

2874 "ctime title heading team notify:通知$colmd $colstate" "$cond"

2875 echo "</div> "

2876

2877 getgname="(select gname from grp where rowid=$rowid)"

2878 c="group by a.name having a.name in (select user from grp_mem where gname=$getgname)"

2879 cm="?commission+$rowid"

2880 thumbxy=50x50 listmember "`getpar kwd`" "$c" "$rowid" \

2881 |sed -e "s|$<br>$(,not=$.*$)|\1|" # 間違って押しやすい

2882 # team list

2883 hexteams=`hexteams "$grp"`

2884 if [ -n "$hexteams" ]; then

2885 echo "チーム一覧" | html h2

2886 echo '<div class="dumptable"><table class="b">'

2887 sq $db -html -header<<-EOF

2888 SELECT val TEAM,

2889 group_concat((SELECT gecos FROM gecoses WHERE name=user), ',')

2890 MEMBERS

2891 FROM grp_mem_m WHERE gname=$qgrp AND key='team' GROUP BY val;

2892 EOF

2893 echo '</table></div>'

2894 fi

2895 }

2896 grp_getbodyclass() {

2897 # Get css class name for document.

2898 # `moderated' for moderated groups

2899 # `ismember' for groups where user belongs

2900 # $1=GroupName (w/o quote)

2901 # $user=userNameCurrentlyLogin

2902 ## err grp_getbodyclass: 1="$1"

2903 qgrp=`sqlquote "$1"`

2904 query<<-EOF

2905 SELECT coalesce(

2906 (SELECT val FROM grp_s WHERE gname=$qgrp AND key='regmode'),

2907 'open')

2908 ||

2909 CASE WHEN '$user'

2910 IN (SELECT user FROM grp_mem WHERE gname=$qgrp)

2911 THEN ' ismember'

2912 ELSE ''

2913 END;

2914 EOF

2915 }

2916 grpaction() { # $1=group-rowid

2917 err GRP_ACTION:IN

2918 grid=${1:-`getpar grp`}

2919 grp=`getgroupbyid "$grid"`

2920 htmlgrp=`echo "$grp" | htmlescape`

2921 myuid=`query "SELECT rowid FROM user WHERE name='$user';"`

2922 if [ -z "$grp" ]; then

2923 echo "無効な指定です。" | html p; return

2924 fi

2925 if ! ismember $user "$grp"; then

2926 echo "加入者のみに許可された操作です。" | html p; return

2927 fi

2928 isowner=""

2929 isgrpowner "$user" "$grp" && isowner="yes"

2930 err 2=$2 3=$3

2931 case "$2" in

2932 get:teamcsv)

2933 teamcsv "$grid"

2934 return

2935 ;;

2936 esac

2937 echo "グループ $grp 個別選択操作" \

2938 | _m4 -D_TITLE_="syscmd(\`cat')" \

2939 -D_BODYCLASS_="`grp_getbodyclass \"$grp\"`" \

2940 $layout/html.m4.html

2941

2942 usel=`getpar usel`

2943 if [ -n "$usel" ]; then

2944 uids=$(echo `echo $usel`|tr ' ' ',')

2945 ## err grpaction-1: grp=$grp, `echo $sql`

2946 text=`getpar text|tr -d '\r'`

2947

2948 rm=`getpar rm` cfm=`getpar confirm`

2949 ## err rm=$rm cfm=$cfm

2950 if [ x"$rm" = x"yes" ]; then

2951 if [ "$isowner" ]; then

2952 if [ x"$rm$cfm" = x"yesyes" ]; then

2953 # Eliminate

2954 cond="where gname=(select gname from grp where rowid=$grid) and user in (select name from user where rowid in ($uids))"

2955 for tbl in grp_mem grp_mem_s grp_mem_m; do

2956 sql="delete from $tbl $cond;"

2957 # echo "sql=$sql"

2958 query "$sql"

2959 err rmGRPuser "$sql"

2960 done

2961 num=`query "select count(*) from user where rowid in ($uids);"`

2962 #err num=$num

2963 if [ 0$num -gt 0 ]; then

2964 sql="select coalesce(b.val,a.name) from user a left join \

2965 user_s b on a.name=b.name and key='gecos' where a.rowid in ($uids);"

2966 # err `echo "$sql"`

2967 html pre<<EOF

2968 以下の${num}名のグループ $grp 登録を解除しました。

2969 `query "$sql"`

2970 EOF

2971 fi

2972 else

2973 echo "確認のチェックがないのでやめておきます。" | html p

2974 return

2975 fi

2976 else # not Group Owner

2977 echo "グループ管理者でないのでメンバー操作はできません。" | html p

2978 return

2979 fi

2980 cat<<EOF

2981

2982 EOF

2983 elif [ x"$rm" = x"send" ]; then # if sendmsg mode

2984 if [ -z "$text" ]; then # if msg is empty

2985 echo "なにかメッセージを..." | html p

2986 return 0

2987 fi

2988 gecos=`gecos $user`

2989 safegc=`echo "$gecos" | tr -d '<>@'`

2990 #fromad=`email4groupbyuid "$grp" "$myuid" | sed -e 1q -e 's/[ ,].*//'`

2991 fromad=`myemail4group "$grp"`

2992 ###mail_from="$safegc <$fromad>"

2993 mail_from="$safegc <$user>" # TEST: 2020/5/13

2994 test -n `getpar sender` &&

2995 export SENDER=$user # TEST: 2020/5/15

2996 replyto=$fromad

2997

2998 ## Start parse of attachment files

2999 if [ -n "`getpar email`" ]; then

3000 ar=`getpar supprcpt`

3001 if [ -n "$ar" ]; then

3002 for a in $ar; do

3003 if checkdomain "$a"; then

3004 supprcpt="$supprcpt $a"

3005 else

3006 err "SupprcptErr=[$a] by $user"

3007 removercpt="$removercpt $a"

3008 fi

3009 done

3010 fi

3011 subj=`getpar subject`

3012 afiles=""

3013 for fn in `query "SELECT DISTINCT val FROM par WHERE var='image' AND sessid='$session';"`

3014 do

3015 f=$tmpd/$fn

3016 if [ -s $f ]; then

3017 afiles=$afiles"${afiles:+ }$f"

3018 fi

3019 done

3020 else

3021 preface=$(cat <<-EOF

3022 $url

3023 のグループ「$grp」のメンバーである $gecos さんから、

3024 あなた宛のメッセージです。

3025 ----------------------------------------------------------

3026 EOF

3027 )

3028 fi

3029 rcpts="`email4groupbyuid "$grp" $usel` $fromad$supprcpt"

3030 rcpts=`echo $rcpts|tr ' ' '\n'|sort|uniq|tr '\n' ' '`

3031 subj="${subj:-$gecos さんからのメッセージ}"

3032 REPLYTO=$replyto

3033 MAIL_FROM=$mail_from

3034 export REPLYTO SMAIL_TO MAIL_FROM

3035 err "GrpActionSend: user=[$user], MAIL_FROM=[$mail_from], rcpts=[$rcpts], REPLYTO=[$replyto}"

3036 for r in $rcpts; do

3037 if [ x"$user" = x"$r" -o x"$fromad" = x"$r" ]; then

3038 SMAIL_TO=$rcpts # Show all rcpts to sender oneself

3039 else

3040 # Show sender and rcpts address for guest

3041 SMAIL_TO=`echo $r $user $fromad|tr ' ' '\n'|sort -u|tr '\n' ' '`

3042 fi

3043 if [ -n "$afiles" ];then

3044 ./sendmultipart.sh -t "$r" -s "$subj" -f "$mail_from" $afiles

3045 else

3046 smail "$r" "$subj"

3047 fi <<EOF

3048 ${preface:+$preface$nl}$text

3049 EOF

3050 done

3051 if [ $? = 0 ]; then

3052 echo "Note: 以下のメンバーにメッセージを送信しました。" | html p

3053 sql="select coalesce(b.val, a.name) from

3054 (select name from user where rowid in ($uids)) a

3055 left join user_s b on a.name=b.name and b.key='gecos';"

3056 html pre<<EOF

3057 `query "$sql"`

3058 ${supprcpt:+追加宛先 $supprcpt$nl}(送信者である $gecos さんも含まれます)

3059 ${removercpt:+アドレスエラーによる削除(送られません): <em class="warn">$removercpt</em>}

3060 EOF

3061 err SendDone: `echo $sql`

3062 fi

3063 elif [ x"$rm" = x"commission" ]; then

3064 grp_reg_adm $grid $usel

3065 elif [ x"$rm" = x"addteam" ]; then

3066 team=`getpar team|sed "s/'/''/g"` # for single quotation

3067 newteam=`echo $team|tr -d ,` # ..and strip spaces of both ends

3068 if [ x"$team" != x"$newteam" ]; then

3069 echo "チーム名に使えない文字を除去しました" | html p

3070 team=$newteam

3071 fi

3072 if [ -z "$team" -o x"$team" = x"なし" -o x"$team" = x"TEAM" ]; then

3073 cat<<-EOF | html p

3074 有効なチーム名を入力してください。

3075 カンマだけ、「なし」という名前は使えません。

3076 EOF

3077 echo "有効なチーム名を入力してください。" | html p

3078 else

3079 grp_add_team $grid "$team" $usel

3080 fi

3081 elif [ x"$rm" = x"rmteam" ]; then

3082 if [ x"yes" = x"`getpar teamconfirm`" ]; then

3083 rmteam=`getpar rmteam|sed "s/'/''/g"`

3084 if [ -n "`query \"SELECT val FROM grp_mem_m WHERE\

3085 gname='$grp' AND user='$user' AND key='team'\

3086 AND val='$rmteam';\"`" ]; then

3087 grp_rm_team $grid "$rmteam" $usel

3088 else

3089 echo "所属していないチームの除去操作はできません。"|html p

3090 fi

3091 else

3092 echo "確認チェックなしなのでチーム除去しませんでした。"|html p

3093 fi

3094 fi

3095 fi

3096 # POST count summary

3097 from=`getpar from`; to=`getpar to`

3098 from_input="<input type=\"date\" name=\"from\" placeholder=\"YYYY-MM-DD\" value=\"${from}\">"

3099 to_input="<input type=\"date\" name=\"to\" value=\"${to:-9999}\">"

3100 fromtonote="<p title=\"Count the Number of Posts from-to\">POST集計: $from_input - $to_input</p>"

3101 # New entry

3102 sql="WITH mems AS (

3103 SELECT g.rowid, name, gecos FROM grp_mem gm LEFT JOIN gecoses g

3104 ON gm.user=g.name

3105 WHERE gname=(SELECT gname FROM grp WHERE rowid=$grid)

3106 ), target_article AS (

3107 SELECT id FROM article_s

3108 WHERE key='ctime' AND val BETWEEN '${from:-0000}' AND '${to:-9999}'

3109 ), posts AS (

3110 SELECT author, count(author) post

3111 FROM article NATURAL JOIN article_s NATURAL JOIN target_article

3112 WHERE blogid IN (SELECT id FROM blog_s

3113 WHERE key='owner'

3114 AND val=(SELECT gname FROM grp WHERE rowid=$grid))

3115 AND key='text'

3116 GROUP BY author

3117 ), teams AS (

3118 SELECT user, group_concat(val, ', ') team

3119 FROM mems m LEFT JOIN grp_mem_m gm ON m.name=gm.user

3120 WHERE gname=(SELECT gname FROM grp WHERE rowid=$grid)

3121 AND key='team'

3122 GROUP BY user

3123 ), user_post AS (

3124 SELECT m.rowid, name, m.gecos, coalesce(post, 0) as POST

3125 FROM mems m LEFT JOIN posts

3126 ON m.name=posts.author

3127 GROUP by m.rowid

3128 )

3129 SELECT

3130 CASE

3131 WHEN (SELECT user FROM grp_adm

3132 WHERE gname=(SELECT gname FROM grp WHERE rowid=$grid)

3133 AND user=up.name) IS NOT NULL

3134 then 'k'

3135 ELSE ''

3136 END || rowid || ','

3137 || rtrim(substr(name, 1, instr(name, '@')), '@') || ','

3138 || gecos NAME,

3139 post POST, team _TEAM_

3140 FROM user_post up LEFT JOIN teams t

3141 ON up.name=t.user

3142 ORDER BY name;"

3143 ## err grpaction: "`echo \"$sql\"`"

3144 tf=$tmpd/title.$$

3145 echo "グループ[<a href=\"?grp+$grid\">$htmlgrp</a>]参加メンバーに対する操作" > $tf

3146 cmmsg="`cgi_radio rm commission id=\"cmadmin\"`<label accesskey=\"f\"

3147 title=\"Shortcut: f${nl}Add to Administrator of the Group\"

3148 for=\"cmadmin\">管理者委任</label>

3149 <div><p>このグループでの全権を付与します。信頼できる人に託してください。

3150 </p></div>"

3151 excmsg="`cgi_radio rm yes id=\"conf\"`<label accesskey=\"g\"

3152 title=\"Shortcut: g${nl}Remove from the Group\"

3153 for=\"conf\">GRP登録解除</label>

3154 <div>本当に消します! `cgi_checkbox confirm yes` 確認

3155 <p>この操作による通知は本人に行きません。

3156 あらかじめ通知するか、登録解除してよい状況かしっかり確認してください。</p>

3157 </div>"

3158 # Get team list to which current user belongs into $hexteams

3159 allhexteams=$(hexteams "$grp")

3160 if [ -n "$isowner" ]; then

3161 myhexteams="$allhexteams" # admin can remove all teams' attr

3162 else

3163 myhexteams=$(hexteams "$grp" "$user")

3164 fi

3165 if [ -n "$isowner" -a -n "$allhexteams" ]; then

3166 gettingcsv="<p>Download: <a href=\"?getteamcsv+$grid\">Team.csv</a> (Zoom Breakout Room 事前割り当てに使えます)</p>"

3167 fi

3168 if [ -n "$myhexteams" ]; then

3169 rmteammsg="`cgi_radio rm rmteam 'id=\"cmrmteam\"'`<label accesskey=\"s\"

3170 title=\"Shortcut: s${nl}Strip a team tag from\"

3171 for=\"cmrmteam\">チーム属性除去</label>

3172 <div>チーム属性:`cgi_select_h rmteam \"2d2d2d\" $myhexteams`

3173 を除去します: `cgi_checkbox teamconfirm yes` 確認

3174 <p>この操作による通知は本人に行きません。

3175 あらかじめ通知するか、登録解除してよい状況かしっかり確認してください。</p>

3176 </div>

3177 "

3178 fi

3179 stf=$tmpd/selteam.$$

3180 cgi_select_h selteam "5445414d" $allhexteams > $stf

3181 b1='<label> <input type="checkbox" name="usel" value="'

3182 ba='<label class="admin"><input type="checkbox" name="usel" value="'

3183 br='<span id="reverse" title="Reverse Selection"></span>'

3184 #b2='"> <span>' b3='</span></label>'

3185 # | sed -e "s|^$<TR><TD>$k$[0-9]*$,$[^<]*$|\1$ba\2$b2\3$b3|" \

3186 # -e "s|^$<TR><TD>$$[0-9]*$,$[^<]*$|\1$b1\2$b2\3$b3|" \

3187 lnk='"> <span>\5</span></label> [<a href="?home+\3">HOME</a>]'

3188 #-e "s|^$<TR><TD>$k$[0-9]*$,$[^<]*$|\1$ba\2$lnk|" \

3189 cgi_form grpaction<<EOF \

3190 | sed -E \

3191 -e "s|^(<TR><TD)>(k?)([0-9]*),([^,]+),([^<]*)|\1 title=\"\4\">\2$b1\3$lnk|" \

3192 -e 's/^(<TR><TD[^>]*>)k(<label)/\1\2 class="admin"/' \

3193 -e "s|^(<TR><TH>)(NAME)|\1$br \2|" \

3194 | _m4 -D_TITLE_="spaste(\`$tf')" \

3195 -D_SUBTITLE_="チェック後操作ボタン" \

3196 -D_FORM_="syscmd(cat)" -D_DUMPTABLE_="" \

3197 $layout/form+dump.m4.html \

3198 | _m4 -D_TEAM_="spaste(\`$stf')"

3199 <p>下でチェックした人を対象として:</p>

3200 <div class="foldtabs">

3201 `cgi_radio rm addteam 'id="cmteam"'`<label accesskey="a"

3202 title="Shortcut: a${nl}Add a team tag to"

3203 for="cmteam">同じチーム属性を付与</label>

3204 <div>チーム名:`cgi_text team "" 'id="inteam" list="teams"'`

3205 `cgi_datalist_h teams $allhexteams`

3206 </div>

3207 ${rmteammsg}

3208 `cgi_radio rm send id="sendmsg"`<label accesskey="d"

3209 title="Shortcut: d${nl}DirectMail to"

3210 for="sendmsg" title="Direct Message">DM送信</label>

3211 <div>

3212 `cgi_checkbox email yes 'id="email" class="fold"'`<label for="email"

3213 title="Using email format">email書式を使う</label>

3214 <div class="folded">

3215 <table>

3216 <tr><td>From: </td><td>$user</td></tr>

3217 <tr><td>このFrom:で送る</td>

3218 <td>`cgi_checkbox sender yes 'checked'`<small></small>

3219 </td></tr>

3220 <tr><td>Subject: </td><td>`cgi_text subject`</td></tr>

3221 <tr><td>追加宛先(通常空欄): </td><td>`cgi_text supprcpt ""`</td></tr>

3222 <tr><td>ファイル添付: </td>

3223 <td>`cgi_file image "" "multiple $file_accept title=\"$file_accept_help\""`<br><small>文書ファイルはPDFに変換してから</small></td></tr>

3224 </table>

3225 <p>(下記一覧から1人以上選択していない場合は送れません`cgi_submit 送信`)</p>

3226 </div>

3227 <div>本文:`cgi_textarea text "" cols=72`

3228 </div>

3229 </div>

3230 ${isowner:+$cmmsg$excmsg}

3231 `cgi_radio rm close id="x"`<label for="x" accesskey="x">×</label>

3232 </div>

3233 <h4>$htmlgrp 参加者一覧</h4>$gettingcsv$fromtonote

3234 <table class="td2r thl">

3235 `sq $db -header -html "$sql"`

3236 </table>

3237 `cgi_hidden grp $grid`

3238 `cgi_hidden myuid $myuid id="myuid"`

3239 EOF

3240 }

3241 crview4article() { # $1=rowid of blog, $2(optional)=extra SQL

3242 # Create TEMPORARY VIEW

3243 query<<EOF

3244 CREATE TEMPORARY VIEW writeusers AS

3245 SELECT DISTINCT author FROM article

3246 WHERE id in (

3247 select id from article where blogid=(select id from blog where rowid=$1)

3248 );

3249 CREATE TEMPORARY VIEW movablegroups AS

3250 SELECT g.rowid growid , g.gname

3251 FROM (SELECT grp.rowid, grp.gname FROM grp JOIN grp_mem gm

3252 ON grp.gname=gm.gname -- そのユーザが属している

3253 AND user='$user') g -- グループに絞る

3254 WHERE (SELECT author FROM writeusers

3255 EXCEPT

3256 SELECT user FROM grp_mem gm WHERE gm.gname = g.gname)

3257 IS NULL;

3258 $2

3259 EOF

3260 }

3261 sql4readableblogs() {

3262 # Create view of blogs that can be readable to $user

3263 # Blog is readable when:

3264 # 1: blog owner is an user

3265 # 2: else, 2.1: owner-group where the $user belongs

3266 # 2.2: else, owner-group is not moderated

3267 # blog(id, author), blog_s(id, key='owner', val= ->owner)

3268 cat<<EOF ## | tee tmp/sql.out

3269 CREATE TEMPORARY VIEW readableblogs AS

3270 SELECT blog.rowid rid, id, author

3271 FROM blog

3272 NATURAL JOIN

3273 (SELECT id,

3274 max(CASE key WHEN 'owner' THEN val END) owner,

3275 max(CASE key WHEN 'mode' THEN val END) mode

3276 FROM blog_s GROUP by id) bs

3277 WHERE CASE WHEN (SELECT name FROM user where name=bs.owner) IS NOT NULL

3278 THEN 1 -- blog owner is an user, READABLE

3279 WHEN (SELECT val FROM grp_s

3280 WHERE gname=bs.owner AND key='regmode') = 'moderated'

3281 AND

3282 (SELECT user FROM grp_mem

3283 WHERE gname=bs.owner AND user='$user') IS NULL

3284 THEN 0

3285 WHEN mode IN ('quiz', 'enquete')

3286 THEN 0 -- "quiz" mode blog cannot be searched

3287 ELSE 1

3288 END;

3289 EOF

3290 }

3291 mvteamform() {

3292 owner=$1

3293 hexteams=$(hexteams "$owner" "$user")

3294 test -z "$hexteams" && return

3295 none="`echo なし|hexize`"

3296 cat<<-EOF

3297 <!-- <div class="fold">

3298 `cgi_checkbox mv2team send id="mv2team"`<label

3299 for="mv2team">この話題を以下のチームのものにする</label>

3300 <div> -->

3301 <p>この話題をチーム所有にする:

3302 チーム: `cgi_select_h mv2team $none $hexteams`</p>

3303 </form></div></div>

3304 EOF

3305 }

3306 editheading() { # $1=rowid-of-heading

3307 rowid=${1%%[!A-Z0-9a-z_]*}

3308 if [ -z "$rowid" ]; then

3309 echo "話題番号が未指定です。" | html p

3310 return

3311 fi

3312 owner=`getvalbyid blog owner $rowid`

3313 title=`getvalbyid blog title $rowid`

3314 GF_ACTION="?blog" edittable $formdir/blog.def blog $rowid \

3315 | _m4 -D_TITLE_="修正" \

3316 -D_SUBTITLE_="[$title]@$owner" -D_DIARY_="" \

3317 -D_BLOGS_="" -D_DUMPTABLE_="" \

3318 -D_FORM_="syscmd(\`cat')" \

3319 $layout/html.m4.html $layout/form+dump.m4.html

3320 # Move to group

3321 if isuser "$owner"; then

3322 crview4article $rowid

3323 n=`query "SELECT count(*) FROM writeusers;"`

3324 ## err N=$n

3325 if [ $((n)) -gt 0 ]; then

3326 ## err ROWID=$rowid

3327 sql="SELECT growid || ':' || gname FROM movablegroups;"

3328 cat<<-EOF

3329 <div class="fold">

3330 `cgi_checkbox mv send id="mv"`<label

3331 for="mv">この話題をグループ所有に移動する</label>

3332 <div>

3333 <form action="?mvart" method="POST" enctype="multipart/form-data">

3334 移動先グループ:

3335 <select name="mv2grp">

3336 EOF

3337 query ".mode html"

3338 query<<-EOF |

3339 $sql

3340 .mode list

3341 EOF

3342 sed -e '/<\/TR>/d' -e 's,<TR>,,' -e 's,TD>,option>,g' \

3343 -e 's,n>$[0-9]*$:$.*$<,n value="\1">\2<,'

3344 cat<<-EOF

3345 </select>

3346 <p>(移動できるグループは、この「話題」に書き込んでいる人全てが

3347 そのグループに加入しているものに限られます)</p>

3348 <p>`cgi_checkbox cfm yes`<label>確認

3349 (この操作は元に戻すことができません)</label></p>

3350 `cgi_hidden blogrowid $rowid`

3351 `cgi_submit 移動`

3352 `cgi_reset Reset`

3353 </form>

3354 </div>

3355 </div>

3356 EOF

3357 fi

3358 # end of isuser "$owner"

3359 elif { hexteams=$(hexteams "$owner" ) # blog is of GROUP

3360 [ -n "$hexteams" ];}; then

3361 none="`echo なし|hexize`"

3362 cat<<-EOF

3363 <div class="fold">

3364 `cgi_checkbox mv2team send id="mv2team"`<label

3365 for="mv2team">この話題を以下のチームのものにする</label>

3366 <div><p>現在の所属チーム設定:

3367 `query "SELECT

3368 coalesce((SELECT val FROM blog_s

3369 WHERE id=(SELECT id FROM blog WHERE rowid=$rowid)

3370 AND key='team'),

3371 ':なし');"`</p>

3372 <form action="?mvart" method="POST" enctype="multipart/form-data">

3373 移動先チーム: `cgi_select_h mv2team $none $hexteams`

3374 <p>`cgi_checkbox cfm yes`<label>確認</label></p>

3375 `cgi_hidden blogrowid $rowid`<br>

3376 `cgi_submit 移動`

3377 `cgi_reset Reset`

3378 </form></div></div>

3379 EOF

3380 fi

3381 }

3382 mvart() { # move diary to some group or team

3383 # or move blog of group to team which belong to the group

3384 blogrowid=`getpar blogrowid`

3385 cfm=`getpar cfm`

3386 ##### echo move blog:$blogrowid to $mv2grp | html p

3387 blogrowid=${blogrowid%%[!A-Z0-9a-z_]*} # Purify

3388 . ./s4-blog.sh

3389 if [ -z "$blogrowid" ]; then

3390 echo "無効な指定です(mvart)。" | html p

3391 return

3392 elif [ x"$cfm" != x"yes" ]; then

3393 echo "記事移動の確認にチェックがないので通常表示に戻ります。" | html p

3394 elif { mv2grp=`getpar mv2grp`

3395 mv2grp=${mv2grp%%[!A-Z0-9a-z_]*} # Purify

3396 [ -n "$mv2grp" ]; }; then

3397 crview4article $blogrowid

3398 ########## TRANSACTION BEGIN

3399 query "BEGIN;"

3400 n=`query "SELECT count(*) FROM writeusers;"`

3401 ## err Nwriteuser=$n

3402 if [ $((n)) -gt 0 ]; then

3403 query<<-EOF

3404 UPDATE blog_s SET val=(SELECT gname FROM grp WHERE rowid=$mv2grp)

3405 WHERE key='owner'

3406 AND id=(SELECT id FROM blog WHERE rowid=$blogrowid)

3407 AND $mv2grp IN (SELECT growid FROM movablegroups);

3408 EOF

3409 fi

3410 query "END;"

3411 ########## TRANSACTION END

3412 elif { mv2team=`getpar mv2team|sed "s/'/''/g"`

3413 [ -n "$mv2team" ];}; then

3414 # blog owner can move it to ANY team

3415 case "$mv2team" in

3416 'なし')

3417 cat<<-EOF

3418 DELETE FROM blog_s

3419 WHERE id=(SELECT id FROM blog WHERE rowid=$blogrowid)

3420 AND key='team';

3421 EOF

3422 ;;

3423 "") ;;

3424 *)cat<<-EOF

3425 BEGIN;

3426 REPLACE INTO blog_s(id, key, val)

3427 VALUES((SELECT id FROM blog WHERE rowid=$blogrowid),

3428 'team', '$mv2team');

3429 REPLACE INTO blog_s(id, key, val)

3430 VALUES((SELECT id FROM blog WHERE rowid=$blogrowid),

3431 'notify', 'all'); -- Change notify to all

3432 END;

3433 EOF

3434 esac | query

3435 fi

3436 blog_reply $blogrowid

3437 echo yes | html p

3438 }

3439 editart() { # $1=article-rowid $2=blogrowid

3440 rowid=${1%%[!A-Z0-9a-z_]*}

3441 blogrowid=${2%%[!A-Z0-9a-z_]*}

3442 if [ -z "$rowid" -o -z "$blogrowid" ]; then

3443 echo "表示する記事番号が未指定です。" | html p

3444 return

3445 fi

3446 owner=`getvalbyid blog owner $blogrowid`

3447 title=`getvalbyid blog title $blogrowid`

3448 author=`getvalbyid article author $rowid`

3449 ## err EDITart: owner=$owner, author=$author

3450 if isgrpowner "$user" "$owner"; then

3451 : EDIT OK

3452 elif [ x"$owner" != x"$user" -a x"$author" != x"$user" ]; then

3453 echo "本人か所有者しか編集できません." | html p

3454 return

3455 fi

3456 aid=`query "select id from article where rowid=$rowid;"`

3457 tmpout=$tmpd/editart.$$.out

3458 GF_ACTION="?replyblog+$blogrowid#$aid" \

3459 edittable $formdir/article.def article $rowid \

3460 > $tmpout

3461 rm -f /tmp/editart.out

3462 # Cannot use pipelining to m4 with genform() because of stdin stack

3463 _m4 -D_TITLE_="コメントの修正" -D_DIARY_="" \

3464 -D_FORM_="syscmd(cat $tmpout)" \

3465 -D_SUBTITLE_="`gecos $owner`の「$title」" \

3466 -D_BLOGS_= -D_DUMPTABLE_= \

3467 $layout/html.m4.html $layout/form+dump.m4.html

3468 }

3469 send2mem() {

3470 rowid=`getpar grp`

3471 rowid=${rowid%%[!0-9]*} # Cleaning

3472 if [ -z "$rowid" ]; then

3473 echo "グループが未指定です。" | html p

3474 return

3475 fi

3476 message=`getpar message`

3477 if [ -z "$message" ]; then

3478 echo "文章を入れてください。" | html p

3479 return

3480 fi

3481 grp=`getgroupbyid $rowid`

3482 members=`collectemail "$grp"`

3483 myuid=`query "SELECT rowid FROM user WHERE name='$user';"`

3484 mailfrom=`email4groupbyuid "$grp" "$myuid" | sed -e 1q -e 's/[ ,].*//'`

3485 mailfrom="`gecos "$user"` <$mailfrom>"

3486 sj="グループ「$grp」宛メッセージ(from `gecos $user`)"

3487 msg=$(cat<<-EOF

3488 $urlbase?grp+$rowid

3489 グループ $grp に所属する

3490 `gecos $user` さんよりメッセージ:

3491

3492 $message

3493 EOF

3494 )

3495 # smail rcpt subj (file)

3496 for m in $members; do

3497 echo "$msg" |

3498 MAIL_FROM=$mailfrom \

3499 SENDER=$noreply \

3500 REPLYTO=$mailfrom \

3501 smail "$m" "$sj"

3502 done

3503 cat<<EOF

3504 <p>以下のユーザに送信しました。</p>

3505 <pre>

3506 `collectgecosesbyid "$rowid" | sed 's/$/ さん/'`

3507 </pre>

3508 <p><a href="?grp+$rowid">グループ $grp</a>に戻る。</p>

3509 EOF

3510 }

3511 joingrpadmit() {

3512 # $1=yes/no $2=session-key

3513 if [ -z "$2" ]; then

3514 echo "bye bye" | html p; return

3515 fi

3516 t_usr=`session=$2 getpar adduser`

3517 t_grp=`session=$2 getpar group`

3518 ## err joingrpadmit: t_usr=$t_usr, t_grp=$t_grp

3519 _m4 -D_TITLE_="joingrp" $layout/html.m4.html

3520 if [ -z "$t_usr" -o -z "$t_grp" ]; then

3521 echo "無効な加入依頼です。" | html p

3522 echo "有効期限が切れたか、

3523 他の管理者がいる場合は処理済みの可能性があります。" | html p

3524 return

3525 fi

3526 if ! isgrpowner "$user" "$t_grp"; then

3527 echo "グループ管理者のみの機能です。" | html p; return

3528 fi

3529 case $1 in

3530 yes) joingrp "$t_grp" "$t_usr" yes ;;

3531 no) joingrp "$t_grp" "$t_usr" no ;;

3532 *)

3533 echo "無効な指定です($1)。" | html p

3534 return ;;

3535 esac

3536 gid=$(query "select rowid from grp where gname=`sqlquote \"$t_grp\"`;")

3537 rcpts="`getgroupadminmails "$t_grp"` $user"

3538 ## err admit: msgdir=$msgdir, rcpts="["$rcpts"]"

3539 body="に

3540 $t_usr

3541 `[ x$1 = xyes ] && echo 'を追加' || echo 'の解除操作を'`

3542 しました。"

3543 echo "$t_grp$nl$body$nl$nl$url?grp+$gid" | smail "$rcpts" "joingrp $1"

3544 query "delete from session where id='$2';"

3545 echo "グループ <a href=\"?grp+$gid\">$t_grp</a>$nl$body" | html p

3546 }

3547

3548 joingrprequest() {

3549 # $1=group $2=user $3=yes/no $4=email(if any $5=AsAdmin)

3550 jss="joingrp-`date +%s`-`genrandom 12`"

3551 addsession $jss +${memoplimitdays}days

3552 grpadmins=`getgroupadmins "$1"`

3553 query "replace into par values('$jss', 'group', 'string', `sqlquote \"$1\"`),

3554 ('$jss', 'adduser', 'string', `sqlquote \"$user\"`);"

3555 smail "$(collectemail $grpadmins)" "Join request to $1"<<EOF

3556 $url

3557 $user さんから

3558 グループ $1

3559 に加入依頼がありました。

3560

3561 承認する:

3562 $urlbase?joingrpadmit+yes+$jss

3563

3564 白紙に戻す:

3565 $urlbase?joingrpadmit+no+$jss

3566 EOF

3567 echo "管理者に加入依頼を出しました。

3568 ${memoplimitdays}日以内に加入承認操作がされれば加入できますが、

3569 グループ運用方針に懸かることですので直接の問い合わせが重要です。" | html p

3570 }

3571 joingrp() {

3572 # $1=group $2=user $3=yes/no $4=email(if any $5=AsAdmin)

3573 ## err joingrp: \$1=$1 \$2=$2 \$3=$3 \$4=$4

3574 if isgrpowner "$user" "$1"; then

3575 isowner="yes"

3576 elif [ -n "$5" ]; then

3577 isowner="yes"

3578 else

3579 isowner=""

3580 fi

3581 ## err jg:isgrpowner: isowner="$isowner"

3582 if [ -n "$isowner" ]; then

3583 : # GROUP OWNER CAN DO EVERYTHING ABOUT REGISTRATION/RETIREMENT

3584 elif [ x"$2" != x"$user" ]; then # if user is not login user

3585 echo "本人か、グループ管理者しか加入操作はできません。" | html p

3586 return

3587 elif [ x"$3" = x"no" ]; then

3588 : # Do not pursue those who leave

3589 elif [ x"$3" = x"yes" ] && ismember "$user" "$grp"; then

3590 : # Member can change own email address for the joining moderated group

3591 else # adding user is $user itself

3592 case `getgroupattr "$1" regmode` in

3593 moderated)

3594 joingrprequest "$@" # Request only

3595 return

3596 ;;

3597 *)

3598 ;;

3599 esac

3600 fi

3601 qgname=`sqlquote "$1"`

3602 grid=`query "SELECT rowid FROM grp WHERE gname=$qgname;"`

3603 cond="where gname=$qgname and user='$2'"

3604 if [ x"$3" = x"yes" ]; then

3605 query "replace into grp_mem values($qgname, '$2');"

3606 # Notify joingrp to admin

3607 action="に加入しました。"

3608 if [ -n "$4" ]; then

3609 if msg=`emaildomaincheck "$4"`; then

3610 query "replace into grp_mem_s values($qgname, '$user', 'email', \

3611 'string', '$4', NULL);"

3612 else

3613 echo $msg

3614 fi

3615 else

3616 query "delete from grp_mem_s $cond and key='email';"

3617 fi

3618 if [ -n "$5" ]; then # as ADMIN

3619 # Coming here means newly created group

3620 sql="select case\

3621 when (select count(*) from grp_mem where gname=$qgname)=1\

3622 then (select user from grp_mem\

3623 where gname=$qgname and user='$user')\

3624 else '' end; "

3625 err NewGrpChk: $sql

3626 if [ -n "`query \"$sql\"`" ]; then

3627 ## err ADMIN: "replace into grp_adm values($qgname, '$user');"

3628 query "replace into grp_adm values($qgname, '$user');"

3629 fi

3630 fi

3631 else

3632 query "begin;

3633 delete from grp_mem $cond;

3634 delete from grp_mem_s $cond;

3635 delete from grp_mem_m $cond;

3636 delete from grp_adm $cond;

3637 delete from grp_adm_s $cond;

3638 delete from grp_adm_m $cond;

3639 end;"

3640 action="から脱退しました。"

3641 fi

3642 smail_queue "$(collectemail `getgroupadmins $1`)" "Member change of $1"<<-EOF

3643 $url?grp+$grid

3644 $user (`gecos $user`)さんが

3645 グループ $1

3646 $action

3647 EOF

3648 }

3649 grp_add_team() (

3650 # $1=grp-rowid $2=team $3...=user-rowid(s)

3651 grp=`getgroupbyid $1`

3652 team=$2; shift; shift

3653 [ -z "$grid" -o -z "$team" -o -z "$1" ] && return

3654 { echo "BEGIN;"

3655 for user; do

3656 echo "REPLACE INTO grp_mem_m(gname, user, key, type, val) VALUES(\

3657 '$grp',\

3658 (SELECT name FROM user WHERE rowid=$user),\

3659 'team', 'string', '$team');"

3660 done

3661 echo "END;"

3662 } | query

3663 )

3664 grp_rm_team() (

3665 # $1=grp-rowid $2=team $3...=user-rowid(s)

3666 grid=$1

3667 qgrp=$(sqlquote "`getgroupbyid $grid`")

3668 team=$2; shift; shift

3669 [ -z "$grid" -o -z "$team" ] && return

3670 { echo "BEGIN;"

3671 for user; do

3672 echo "DELETE FROM grp_mem_m\

3673 WHERE gname=$qgrp \

3674 AND user=(SELECT name FROM user WHERE rowid=$user)\

3675 AND key='team' AND val='$team';"

3676 done

3677 cat<<-EOF

3678 DELETE FROM blog_s

3679 WHERE rowid=(

3680 SELECT rowid

3681 FROM blog_s a

3682 WHERE key='team'

3683 AND id IN (SELECT id FROM blog_s WHERE key='owner' AND val=$qgrp)

3684 AND NOT EXISTS (SELECT * FROM grp_mem_m

3685 WHERE key='team' AND val=a.val -- a.val=team

3686 AND gname = (SELECT val FROM blog_s b

3687 WHERE a.id=b.id AND key='owner')

3688 ));

3689 EOF

3690

3691 echo "END;"

3692 } | query

3693 )

3694 grp_reg_adm() {

3695 # $1=grp-rowid $2...=user-rowid

3696 grid=$1

3697 grp=`getgroupbyid "$1"`

3698 if [ -z "$grp" ]; then

3699 echo "無効なグループIDです" | html p; return

3700 fi

3701 if ! isgrpowner "$user" "$grp"; then

3702 echo "$grp グループの管理者しかこの操作はできません。" | html p; return

3703 fi

3704 shift

3705 for urid; do

3706 newadm=`query "select name from user where rowid=$urid;"`

3707 if [ -z "$newadm" ]; then

3708 echo "指定ユーザIDがおかしいようです。" | html p; return

3709 fi

3710 err GRP_reg_adm: "replace into grp_adm values(`sqlquote \"$grp\"`, '$newadm');"

3711 err ismember $newadm $grp

3712 if ismember $newadm "$grp"; then

3713 # OK, go ahead

3714 getgname="(select gname from grp where rowid=$grid)"

3715 query "replace into grp_adm values($getgname, '$newadm');"

3716 # confirm insertion

3717 sql="select * from grp_adm where gname=$getgname and user='$newadm'"

3718 if [ -n "`query \"$sql;\"`" ]; then

3719 echo "追加完了: $newadm" | html p

3720 else

3721 echo "追加失敗($1 $urid)" | html p

3722 fi

3723 fi

3724 showgroup $grid

3725 done

3726 }

3727 dt_rowhack() {

3728 # From: <TR>

3729 # ....

3730 # <TD>rowclass=foo</TD>

3731 # </TR>

3732 # To: <TR class="foo">....<TD>foo</TD></TR>

3733 sed -e '

3734 /^<TR>/ {

3735 :loop

3736 s/\n//

3737 N

3738 /<\/TR>/ {

3739 s/\n//

3740 s,^<TR>$.*$<TD>rowclass=$.*$$</TD></TR>$,<TR class="\2">\1<TD>\2\3,

3741 n

3742 }

3743 $q

3744 b loop

3745 }'

3746 }

3747 dumptable() {

3748 # $1=mode $2=Table $3=column-list-of-*_s(defaults to *) $4=conditions(if any)

3749 # textのフィールドだけ全てダンプにしたほうがいいか

3750 # $DT_VIEW sets link

3751 # 6/17の次: editリンクじゃなくてスレッドVIEWリンクでいいんちゃう?

3752 ### elink="<a href=\"$myname?edittable+$2+\\2\">EDIT</a>"

3753 VIEW=${DT_VIEW-replyblog}

3754 if [ -n "$VIEW" ]; then

3755 dvlink=" <a href=\"$myname?$VIEW+\\2\\3\">VI</a><a href=\"$myname?$VIEW+\\2#bottom\">EW</a>"

3756 fi

3757 sqlfile=$tmpd/dump.sql

3758 : > $sqlfile # ensure to be empty

3759 printf '.mode html\n.header 1\n' > $sqlfile

3760 # $DT_CHLD=ChildTable:BindColumn

3761 if [ -n "$DT_CHLD" ]; then

3762 _t=${DT_CHLD%:*} _i=${DT_CHLD#*:}

3763 cat<<-EOF >> $sqlfile

3764 -- presql

3765 CREATE TEMPORARY TABLE IF NOT EXISTS myacclog AS

3766 SELECT * FROM acclog WHERE user='$user' and tbl='$2';

3767 EOF

3768 # Speed up counting of new articles

3769 cat<<-EOF >> $sqlfile

3770 -- presql2

3771 DROP TABLE IF EXISTS _counts;

3772 CREATE TEMPORARY TABLE _counts AS

3773 SELECT $_i, count($_i) cnt

3774 FROM $_t GROUP BY $_i;

3775 /* Prepare NEW count table */

3776 CREATE TEMPORARY TABLE _target AS

3777 SELECT b.rowid trowid, b.id

3778 FROM "$2" b JOIN "$2_s" s

3779 ON b.id=s.id AND s.key='owner'

3780 ${DT_QOWNER:+ AND s.val=$DT_QOWNER};

3781

3782 DROP TABLE IF EXISTS _children;

3783 CREATE TEMPORARY TABLE _children AS

3784 SELECT a.trowid trowid, $_i, a.id, s.val ctime

3785 FROM (SELECT t.trowid, t.id $_i, a.id

3786 FROM _target t LEFT JOIN "$_t" a ON t.id=a.$_i) a

3787 LEFT JOIN ${_t}_s s ON a.id=s.id AND s.key='ctime';

3788

3789 -- ${ddd:+.system gdate +%T.%3N >> tmp/d1}

3790 DROP TABLE IF EXISTS _news;

3791 DROP VIEW IF EXISTS _news;

3792

3793 -- CREATE TEMPORARY TABLE _news($_i, newcnt);

3794 -- INSERT INTO _news

3795 /* **COMPARE** the efficiency of TEMP-TABLE and VIEW !!! */

3796 CREATE TEMPORARY VIEW _news AS

3797 SELECT a.id $_i, coalesce(newcnt, 0) newcnt

3798 FROM (SELECT DISTINCT id FROM _target)

3799 a LEFT JOIN

3800 (SELECT $_i, count(ctime) newcnt

3801 FROM _children x

3802 WHERE ctime > coalesce((SELECT time from myacclog

3803 WHERE tblrowid=x.trowid),

3804 '1970-01-01')

3805 GROUP BY $_i) b

3806 ON a.id=b.$_i;

3807 -- ${ddd:+.system gdate +%T.%3N >> tmp/d1}

3808 EOF

3809 # REMOVE next line until 2019/5/1

3810 cntall="(select count($_i) from $_t where $_i=a.id)"

3811 cntall="(coalesce((select cnt from _counts where $_i=a.id), 0))"

3812 # REMOVE next assignment until 2019/5/1

3813 cntnew="(select count(val) from ${_t}_s where key='ctime' \

3814 and id in (select id from $_t where $_i=a.id) \

3815 and val > coalesce((select time from myacclog where \

3816 tblrowid=a.rowid),\

3817 '1970-01-01'))"

3818 cntnew="(SELECT newcnt FROM _news where $_i=a.id)"

3819 cnt="$cntnew as '新着', $cntall as '総数',"

3820 dt_class=" td2r td3r dumpblogs"

3821 fi

3822 # Construct join expression

3823 eav="" scols=""

3824 pk=`gettblpkey $2`

3825 substr=${dumpcollen:+"substr(%s, 0, $dumpcollen)"}

3826 substr=${substr:-%s}

3827 for col in ${3:-`gettbl_s_cols $2`}; do

3828 valvar=val

3829 case $col in

3830 gecos) scols="$scols${scols:+, }${col#}"

3831 continue ;; # built-in column name

3832 *:*) as=${col#*:} # as can be 稼動状態:frozen=凍結中

3833 col=${col%%:*} # stage:稼動状態:frozen=凍結中 -> stage

3834 case "$as" in

3835 *:*=*) cnd=${as#*:}

3836 h=${cnd%%=*} v=${cnd#*=}

3837 h=`sqlquotestr "$h"`

3838 v=`sqlquotestr "$v"`

3839 valvar="CASE val WHEN $h THEN $v END"

3840 as=${as%%:*} ;;

3841 esac

3842 ;;

3843 *) as=${col} ;;

3844 esac

3845 ss=`printf "$substr" "$valvar"`

3846 eav=$eav${eav:+,}" max(case key when '$col' then $ss end) as $as"

3847 scols="$scols${scols:+, }b.$as"

3848 done

3849 #case author when '$user' then a.rowid else '---' end as ID,

3850 if [ -n "$DT_SQL" ]; then

3851 echo "$DT_SQL"

3852 else

3853 cat<<-EOF

3854 SELECT a.rowid as LINK, $cnt $scols

3855 FROM $2 a LEFT JOIN

3856 (SELECT $pk,$eav,

3857 max(CASE key

3858 WHEN 'owner'

3859 THEN (SELECT gecos FROM gecoses WHERE name=val) END)

3860 as gecos

3861 FROM ${2}_s c GROUP BY $pk)

3862 b ON a.$pk=b.$pk $4;

3863 EOF

3864 fi >> $sqlfile

3865 ## err dt:SQL="`echo \"$presql$presql2$sql\"|tr -d '\n'`"

3866 sqlog<<-EOF

3867 *** SQL-file: $sqlfile ***

3868 `cat $sqlfile`

3869 EOF

3870 if [ "$ddd" ]; then # REMOVE this block until 2019/7/1

3871 err "----- `gdate +%FT%T.%3N` ------------555555aaaaa"

3872 cat $sqlfile >> tmp/sql

3873 # query ".read $sqlfile" > $tmpd/foo

3874 sqlite3 -header -cmd 'pragma foreign_keys=ON' $db ".read $sqlfile" > $tmpd/foo

3875 cp $tmpd/foo tmp/

3876 err "----- `gdate +%FT%T.%3N` ------------555555"

3877 ## $ddd LINE exists at the end of this function

3878 fi

3879 printf '.mode list\n.header 0\n' >> $sqlfile

3880 cat<<EOF | sed "s,$<TR><TD>$$[1-9][0-9]*$$#[0-9a-fxs]*$*</TD>,\1$elink$dvlink</TD>," | dt_rowhack

3881 <div>

3882 <div class="dumptable">

3883 <table class="b$dt_class">

3884 `query ".read $sqlfile"`

3885 </table>

3886 </div>

3887 </div>

3888 EOF

3889 ### `query ".read $sqlfile"`

3890 ### `sq -header -cmd ".mode $1" $db ".read $sqlfile"`

3891

3892 ## REMOVE THIS!

3893 [ "$ddd" ] && err "----- `gdate +%FT%T.%3N` ------------666666"

3894 }

3895

3896 clean-orphaned() {

3897 # This shoud be done by foreign_key rules, but some db lack them

3898 query<<-EOF

3899 -- Find blogs that have no parent

3900 WITH orphanedblog AS (

3901 SELECT blog.id,val FROM blog JOIN blog_s bs

3902 ON blog.id=bs.id AND key='owner'

3903 WHERE val NOT IN (SELECT gname FROM grp)

3904 AND val NOT IN (SELECT name FROM user)

3905 ) -- Remove them

3906 DELETE FROM blog WHERE id IN (SELECT id FROM orphanedblog);

3907

3908 -- Find articles that have no parent blog

3909 WITH orphanedarticle AS (

3910 SELECT id FROM article

3911 WHERE blogid NOT IN (SELECT id FROM blog)

3912 ) -- Remove them

3913 DELETE FROM article WHERE id IN (SELECT id FROM orphanedarticle);

3914 EOF

3915 }

3916

3917 clearcachedir() (

3918 td=`getcachedir "$1"`

3919 err td=$td: ls- `ls $td`

3920 if [ -w "$td/image.1" ]; then

3921 err Removing td=$td

3922 rm -fr $td/ # Clear icon-image cache!

3923 fi

3924 )

3925

3926 par2table() (

3927 # copy current parameters of par into destination table

3928 # $1=definition-file

3929 # Using $user and $session

3930 # Return value:

3931 # 0: Stored successfully

3932 # 1: Insufficient fillings

3933 # 2: No permission to modify the record

3934 # 3: Invalid rowid

3935 # 4: SUCCESS to delete

3936 # 5: Stop deletion for lack of confirm check

3937 # 6: Password length too short

3938 # 7: Password mismatch

3939 # 8: Old password incorrect

3940 # 9: Duplicated post

3941 rowid=`getpar rowid`

3942 if [ ! -e $1 ]; then

3943 echo "テーブル定義ファイルが見付かりません" | html p

3944 exit 1

3945 fi

3946 tbl=${1%.def}

3947 tbl=${tbl##*/}

3948 if [ -n "$rowid" ]; then # Modify existing entry

3949 if [ x"$tbl" = x"user" ]; then

3950 rowowner=`query "select name from $tbl where rowid=$rowid;"`

3951 elif [ x"$tbl" = x"grp" ]; then

3952 sql="select gname from $tbl where rowid=$rowid;"

3953 ##err p2t:grp:q $sql

3954 isgrpowner "$user" "`query $sql`" && rowowner=$user

3955 elif [ x"$tbl" = x"blog" ]; then

3956 # Check if owner in blog_s

3957 blogowner=`getvalbyid blog owner "$rowid"`

3958 if isgrpowner "$user" "$blogowner"; then

3959 rowowner=$user

3960 else

3961 rowowner=`query "SELECT author FROM $tbl WHERE rowid=$rowid;"`

3962 fi

3963 else

3964 # 2016-12-05 There's no owner column in $tbl (need confirmation)

3965 rowowner=`query "SELECT author FROM $tbl WHERE rowid=$rowid;"`

3966 fi

3967 ### err rowowner=$rowowner

3968 if [ x"$user" != x"$rowowner" ]; then

3969 echo "他人のレコードはいじれないの" | html p

3970 return 2

3971 elif [ -z "$rowowner" ]; then

3972 echo "指定したレコードはないみたい" | html p

3973 return 3

3974 fi

3975 rm=`getpar rm` cfm=`getpar confirm`

3976 # Editing existent entry

3977 if [ x"$rm" = x"yes" ]; then

3978 if [ x"$rm$cfm" = x"yesyes" ]; then

3979 query "delete from $tbl where rowid=$rowid;"

3980 clearcachedir "$tbl/$rowid"

3981 if [ x"$tbl" = x"grp" -o x"$tbl" = x"blog" ]; then

3982 clean-orphaned

3983 fi

3984 return 4

3985 else

3986 echo "消去確認のチェックがないので消さなかったの..." | html p

3987 return 5

3988 fi

3989 fi

3990 fi

3991

3992 ts=${tbl}_s tm=${tbl}_m val="" pval="" formaster=""

3993 if [ -n "$rowid" ]; then

3994 # Update of existing record

3995 for col in `gettblcols $tbl`; do

3996 val=`getparquote $col`

3997 [ -z "$val" ] && continue

3998 ## err query "update $tbl set $col=$val where rowid=$rowid"

3999 ## XX: THIS IS DIRTY hack to ensure non-foreign key in blog_s

4000 sql="update $tbl set $col=$val where rowid=$rowid;"

4001 if [ x"$tbl" = x"grp" -a x"$col" = x"gname" \

4002 -o x"tbl" = x"user" -a x"$col" = x"name" ]; then

4003 ## User name cannot be changed with interface provided with this

4004 ## script. But we offer the trigger to change owner user

4005 ## of blog_s table.

4006 #err "select quote($col) from $tbl where rowid=$rowid;"

4007 old=`query "select quote($col) from $tbl where rowid=$rowid;"`

4008 cat<<-EOF | query

4009 -- Here we cannot use BEGIN-COMMIT because groupupdate()

4010 -- should use EXCLUSIVE transaction outside of this.

4011 SAVEPOINT par2table;

4012 $sql

4013 update blog_s set val=$val

4014 where key='owner' and val=$old;

4015 RELEASE SAVEPOINT par2table;

4016 EOF

4017 ## XX: DIRTY Hack Ends here

4018 ## We should keep blog's owner as a single column which has

4019 ## foreign key constraint with primary key of grp/user.

4020 else

4021 query "$sql"

4022 fi

4023 done

4024 # Then, set up $pval for further insertion of tbl_s and tbl_m

4025 for col in `gettblpkey $tbl`; do

4026 val=`query "select $col from $tbl where rowid=$rowid;"|sed -e 's/\"/\"\"/g'`

4027 pval="$pval${pval:+, }\"$val\""

4028 done

4029 else

4030 # New entry

4031 # XXX: WORK-AROUND FOR SOME STUPID BROWSER

4032 # Avoid empty repost of article.

4033 if [ x"$tbl" = x"article" ]; then

4034 # If rowid is empty and ID exists in article-table, that is REPOST!

4035 aid=`getpar id`

4036 xaid=`query "SELECT id FROM $tbl WHERE id='$aid';"`

4037 if [ -n "$xaid" ]; then

4038 # REPOST of article

4039 html p <<-EOF

4040 書き込み直後のリロードなので上書きを回避します。

4041 最新記事は末尾の「再読み込み」ボタンから見てください。

4042 EOF

4043 err "Repost aid=$aid Browser=[$HTTP_USER_AGENT] user=$user"

4044 return 9 # STOP Duplicated posting

4045 fi

4046 fi

4047 # Generate values() for primary keys

4048 for col in `gettblpkey $tbl`; do

4049 # Genuine primary keys for _m and _s

4050 val=`getvalquote $tbl $col`

4051 [ -z "$val" ] && continue

4052 pval="$pval${pval:+, }$val"

4053 done

4054 ##err pval=$pval

4055 for col in `gettblfkey $tbl`; do

4056 # args for values() to insertion into master table

4057 val=`getvalquote $tbl $col`

4058 [ -z "$val" ] && continue

4059 formaster=$formaster"${formaster:+, }$val"

4060 done

4061 formaster="$pval${formaster:+, }$formaster"

4062 ## err formaster=$formaster

4063 if [ -z "$formaster" ]; then

4064 echo "項目を全て埋めてください" | html pre

4065 return 1

4066 fi

4067 ## err "replace into $tbl values($formaster);"

4068 query "replace into $tbl values($formaster);"

4069 ## Insertion to master table, done

4070 fi

4071

4072 transaction=$tmpd/sqlfile.sql; touch $transaction

4073 for kt in s m; do

4074 tb2=${tbl}_$kt

4075 for col in `gettbl_${kt}_cols $tbl`; do

4076 ptype=`getpartype $col "limit 1"`

4077

4078 # First, check update of existing entries in _m

4079 if [ $kt = m ]; then

4080 # sessID|address.1.22|string|Somewhere-x.y.z

4081 sql=""

4082 ##err dots from query "select var from par where var like '$col.%';"

4083 for v in `query "select var from par where var like '$col.%' AND sessid='$session';"`; do

4084 # v=address.1.22

4085 st_rowid=${v##*.}

4086 origcol=${v%%.*} # original column derived from

4087 ##err Updating for $v st_rowid=$st_rowid, partype=`getpartype $v`

4088 ##case `getpartype $v` in

4089 ## err CASE `gettbl_coltype $tbl/$origcol` in

4090 ## err edit flag = `getpar action.$v`

4091 case `getpar action.$v` in

4092 rm)

4093 if [ x`getpar confirm.$v` = x"yes" ]; then

4094 newsql="delete from $tb2"

4095 else

4096 echo "削除確認未チェック" | html p

4097 fi ;;

4098 edit)

4099 case `gettbl_coltype $tbl/$origcol` in

4100 image|document|binary)

4101 file=$tmpd/`getparfilename $v`

4102 if [ ! -s "$file" ]; then # Maybe stupid REPOST

4103 err "Empty REPOST by [$HTTP_USER_AGENT] user=$user"

4104 continue

4105 fi

4106 ## err type=file=$file

4107 [ -z "$file" ] && continue

4108 bn=`sqlquotestr "${file##*/}"`

4109 bin="X'"$(hexize "$file")"'"

4110 ct=`file --mime-type - < "$file" |cut -d' ' -f2`

4111 type=\"file:$ct\"

4112 newsql="update $tb2 set val=$bn, type=$type, bin=$bin"

4113 cachedir=`getcachedir "$tbl/$rowid"`

4114 err getcache tbl/rowid=$tbl/$rowid, rm -r $cachedir

4115 rm -rf $cachedir

4116 ;;

4117 *)

4118 newsql="update $tb2 set val=(select val from par where var \

4119 like '$col.%.$st_rowid' AND sessid='$session')"

4120 ;;

4121 esac

4122 ;;

4123 mv)

4124 # regularize filename and strip directory part

4125 newname=`getpar mv.$v|tr -d '":;#<>?^%$!'|tr -d "'"|tr ' ' _`

4126 newname=`basename $newname`

4127 oldname=`query "SELECT val FROM $tb2 WHERE rowid=$st_rowid;"`

4128 oldext=`expr "$oldname" : '.*\.$.*$'`

4129 newext=`expr "$newname" : '.*\.$.*$'`

4130 err "p2t(mv): oldname=$oldname $oldext -> newname($v)=$newname $newext"

4131 if [ -n "$newname" -a x"$oldext" = x"$newext" ];

4132 then

4133 newsql="UPDATE $tb2 SET val='$newname'"

4134 else

4135 html p<<-EOF

4136 $newname は取り扱えないファイル名です。

4137 空白を含まない名前にして下さい。

4138 拡張子の変更もできません。

4139 EOF

4140 continue

4141 fi

4142 ;;

4143 *) # maybe "keep", do not modify value

4144 continue

4145 ;;

4146 esac

4147 # err newsql=$newsql

4148 sql=$sql$nl"$newsql where rowid=$st_rowid;"

4149 clearcachedir "$tbl/$rowid"

4150 done

4151

4152 if [ x"$bin" = x"NULL" ]; then

4153 ## err repl:normal sql=`echo $sql`

4154 if [ -n "$transaction" ]; then

4155 cat<<-EOF >> $transaction

4156 $sql

4157 DELETE FROM $tb2 WHERE type='string' AND val='';

4158 EOF

4159 else

4160 query "$sql

4161 delete from $tb2 where type='string' and val='';"

4162 ## err repl:normal done

4163 fi

4164 else

4165 # Binary update line is TOO LONG to pipelining

4166 sqlfile="$tmpd/sqlf.$$"

4167 if [ -n "$transaction" ]; then

4168 echo "$sql" >> $transaction

4169 else

4170 echo "$sql" > $sqlfile

4171 query ".read $sqlfile"

4172 fi

4173 fi

4174 # Rest of kt==m: set multiple mode

4175 nr=`getparcount $col`

4176 else

4177 nr=1 # for kt==s, number of records is 1

4178 fi

4179

4180 i=0

4181 while [ $i -lt $nr ]; do

4182 limit="limit 1 offset $i"

4183 i=$((i+1)) # increase beforehand against continue

4184 val=`getvalquote $tbl $col "$limit"`

4185 [ -z "$val" -o x"$val" = x'""' -o x"$val" = x"NULL" ] && continue

4186 ## err $col=$val

4187 bin=NULL

4188 ## err partype$col=`getpartype $col "$limit"`

4189 ptype=`getpartype $col "$limit"` # partype should be obtained each time

4190 case $ptype in

4191 file) file=$tmpd/`getparfilename $col "$limit"`

4192 ## err parfile-$col=$file

4193 [ -z "$file" ] && continue

4194 bin="X'"$(hexize "$file")"'"

4195 ct=`file --mime-type - < "$file"|cut -d' ' -f2`

4196 type=\"file:$ct\" ;;

4197 "*"*) continue ;; # foreign table

4198 *) type=\"string\" ;;

4199 esac

4200 case `gettbl_coltype $tbl/$col` in

4201 password) # special care for password

4202 # name={password,pswd1,pswd2}

4203 p1=`getpar pswd1 "$limit"`

4204 if [ -z "$p1" ]; then

4205 continue # SKIP password setting, if p1 is empty

4206 else

4207 pswd=`getpar pswd "$limit"` p2=`getpar pswd2 "$limit"`

4208 ## err pswd=$pswd

4209 if pwcheck "$pswd"; then

4210 if [ x"$p1" = x"$p2" ]; then

4211 case "$p1" in

4212 ??????????*) ;;

4213 *) echo "パスワードは10字以上にしてください。" | html p

4214 return 6;;

4215 esac

4216 val="\"`echo $p1|mypwhash`\""

4217 else

4218 echo "2つの新パスワード不一致" | html p

4219 return 7

4220 fi

4221 else

4222 echo "旧パスワード違います" | html p

4223 return 8

4224 fi

4225 fi

4226 ;;

4227 esac

4228 ## err p2t: "replace into $tb2 values($pval, \"$col\", $type, $val, bin...);"

4229 #query "replace into $tb2 values($pval, \"$col\", $type, $val, $bin);"

4230 sql="replace into $tb2 values($pval, \"$col\", $type, $val, $bin);"

4231 if [ x"$bin" = x"NULL" ]; then

4232 ## err Normal-query: `echo $sql`

4233 if [ -n "$transaction" ]; then

4234 echo "$sql" >> $transaction

4235 else

4236 query "$sql"

4237 fi

4238 else

4239 sqlfile="$tmpd/query.$$"

4240 ## err sqlfile=`ls -lF $sqlfile`

4241 if [ -n "$transaction" ]; then

4242 echo "$sql" >> $transaction

4243 else

4244 echo "$sql" > $sqlfile

4245 query ".read $sqlfile"

4246 fi

4247 fi

4248 ## err p2t done

4249 done

4250 done

4251 done

4252 [ -n "$transaction" -a -s "$transaction" ] && cat <<-EOF | query

4253 -- We cannot use transaction here, because groupupdate may use it.

4254 SAVEPOINT pa2table_insert;

4255 .read $transaction

4256 RELEASE SAVEPOINT pa2table_insert;

4257 EOF

4258 rc=$?

4259 [ $rc -eq 0 -a x"$tbl" = x"user" ] && flag_profupdate

4260 ## err "Table:$tbl update done "

4261 return $rc

4262 )

4263 genform() {

4264 # $1 = form definition file

4265 # $2, $3 (optional)= table name and ROWID

4266 # If $GF_VIEWONLY set and nonNull, output values without form

4267 # If $GF_ARGS set, use it as content-strings in the form

4268 # If $GF_OWNER set, use it as value of name="owner"

4269 # If $GF_STAGE set, use it as value of name="stage"

4270 forms="" hiddens="" rowid=$3

4271 if [ ! -e "$1" ]; then

4272 echo "そのようなデータベースはないようです($2)。" | html p

4273 return

4274 elif [ -n "$2" ]; then

4275 rec=`query "select * from $2 where rowid='$rowid';"`

4276 if [ -z "$rec" ]; then

4277 pk=`gettblpkey $2`

4278 ###rec=`sq $db "select rowid from $2 where $pk='$rowid'"`

4279 rec=`query "select rowid from $2 where $pk='$rowid';"`

4280 rowid=$rec

4281 rec=$3

4282 fi

4283 if [ -z "$rec" ]; then

4284 echo "そんなレコードはないみたいね..." | html p

4285 return

4286 fi

4287 fi

4288 if [ -z "$GF_VIEWONLY" ]; then

4289 rm='<input id="rm" name="rm" type="checkbox"

4290 value="yes"><label for="rm">このエントリの削除</label>

4291 <span>ほんとうに消しますよ(確認)!

4292 <input name="confirm" type=checkbox value="yes">はい</span>'

4293 fi

4294 # Image Cache dir

4295 ## err genform: getcache=$2/$rowid

4296 td=`getcachedir "$2/$rowid"`

4297 while IFS=: read prompt name keytype type args; do

4298 [ -z "${prompt%%\#*}" ] && continue # skip comment line(#)

4299 sp="${args:+ }"

4300 form="" val=""

4301 if [ -n "$rowid" ]; then

4302 # err genform2a: Seeking for "$2.$name, type=$type"

4303 rawval=`getvalbyid $2 $name $rowid $td`

4304 val=`echo "$rawval"|htmlescape`

4305 ## err genform3a: getvalbyid $2 $name $rowid $td

4306 ## err genform3b: val="[$val]" type="$type"

4307 fi

4308 if [ -n "$GF_VIEWONLY" ]; then

4309 is_hidden "$2" "$name" && continue

4310 fi

4311 case "$type" in

4312 text*)

4313 cgiform=cgi_multi_$type

4314 if [ -s $td/$name.count -a -n "$val" ]; then

4315 form=`$cgiform $name $td`

4316 val=$(echo "$val"|

4317 while read fn; do

4318 echo "<tr><td>`cat $td/$fn|htmlescape|hreflink`

4319 </td></tr>$nl"

4320 done)

4321 val="<table>$nl$val$nl</table>"

4322 else

4323 #form="<input name=\"$name\" value=\"$val\" type=\"$type\"$sp$args>$nl"

4324 form=`cgi_$type $name "$rawval" "$args"`

4325 fi

4326 ;;

4327 [Rr][Aa][Dd][Ii][Oo])

4328 fh="<label><input type=\"radio\" name=\"$name\""

4329 form="`echo $args|sed -e \

4330 \"s,$[^ =][^=]*$=$[^= ][^= ]*$,$fh value=\\"\2\\">\1</label>,g\"`"

4331 ;;

4332 [Cc][Hh][Ee][Cc][Kk][Bb][Oo][Xx])

4333 form="<label><input type=\"checkbox\" name=\"$name\" value=\"${args#*=}\">${args%=*}</label>"

4334 ;;

4335 [Ss][Ee][Ll][Ee][Cc][Tt])

4336 fh="<select name=\"$name\">$nl"

4337 form=$(for l in $args; do

4338 echo "<option value=\"${l#*=}\">${l%=*}</option>"

4339 done)

4340 if [ -n "$val" ]; then

4341 form=`echo $form|sed -e "s,$value=.$val.$,\\1 selected,"`

4342 fi

4343 form="$fh$form</select>"

4344 ;;

4345 [Ii][Mm][Aa][Gg][Ee]|[Dd][Oo][Cc][Uu][Mm][Ee][Nn][Tt]|[Bb]inary)

4346 if [ -s $td/$name.count ]; then

4347 form=`cgi_multi_file $name $td "$args"`

4348 if [ -n "$val" ]; then

4349 hrfb="$myname?showattc+$2_m"

4350 val=$(echo "$rawval" \

4351 | while read fn; do

4352 data=`percenthex "$td/$fn"`

4353 #ct=`cat $td/$fn.content-type`

4354 ct=`file --mime-type - < "$td/$fn"|cut -d' ' -f2`

4355 ri=`cat "$td/$fn.rowid"`

4356 ## err fn=$fn, name=$name, ri=$ri; ls -lF "$td/" 1>&3

4357 #imgsrc="<img src=\"data:$ct,$data\">"

4358 #echo "<a href=\"$hrfb+$ri\">$imgsrc</a><br>"

4359 iconhref2 "$td/$fn" "$hrfb+$ri" ""

4360 done)

4361 fi

4362 else

4363 form="<input type=\"file\" name=\"$name\" $args>"

4364 if [ -n "$val" ]; then

4365 imgs=$(echo "$rawval"\

4366 |while read fn;do

4367 data=`percenthex "$td/$fn"`

4368 echo "<img src=\"data:image/png,$data\">$fn<br>"

4369 done)

4370 form=$form"<br>$imgs"

4371 val=$imgs # 2015-06-15

4372 else

4373 form="<input type=\"file\" name=\"$name\" $args>"

4374 fi

4375 fi

4376 ;;

4377 [Hh][Ii][Dd][Dd][Ee][Nn])

4378 if [ -n "$GF_STAGE" -a x"$name" = x"stage" ]; then

4379 args="value=\"$GF_STAGE\""

4380 fi

4381 form="<input type=\"hidden\" name=\"$name\" $args>"

4382 prompt='' # Remove prompt

4383 ;;

4384 [Aa][Uu][Tt][Hh][Oo][Rr])

4385 [ -n "$GF_VIEWONLY" ] && continue

4386 form="<input type=\"hidden\" name=\"author\" value=\"$user\">"

4387 prompt="" ;;

4388 [Oo][Ww][Nn][Ee][Rr])

4389 [ -n "$GF_VIEWONLY" ] && continue

4390 val=${GF_OWNER:-$val}

4391 val=${val:-$user}

4392 form="<input type=\"hidden\" name=\"owner\" value=\"$val\">"

4393 prompt="" ;;

4394 [Uu][Ss][Ee][Rr])

4395 # XXX: is null $user ok?

4396 #form="<input type=\"hidden\" name=\"user\" value=\"$user\">"

4397 [ -n "$GF_VIEWONLY" ] && continue

4398 form="$user"

4399 ;;

4400 [Pp]assword)

4401 [ -n "$GF_VIEWONLY" ] && continue

4402 form="`cgi_passwd`"

4403 val=""

4404 ;;

4405 [Ss][Ee][Rr][Ii][Aa][Ll]|[Ss][Tt][Aa][Mm][Pp])

4406 [ -n "$GF_VIEWONLY" ] && continue

4407 if [ -z "$rowid" ]; then

4408 val=`genserial`

4409 fi

4410 form="<input type=\"hidden\" name=\"$name\" value=\"$val\">"

4411 prompt="" ;;

4412 [Ss][Ee][Ss][Ss][Ii][Oo][Nn])

4413 prompt=""

4414 ;;

4415 parent|path|blog*)

4416 prompt=""

4417 ;;

4418 "*"*)

4419 tail=$tail"``"

4420 continue ;;

4421 esac

4422 if [ -n "$prompt" ]; then

4423 if [ -n "${GF_VIEWONLY}" ]; then

4424 form=$val

4425 else

4426 :

4427 fi

4428 forms=$forms" <tr class=\"$name\"><th>$prompt</th><td>$form</td></tr>$nl"

4429 else

4430 hiddens=$hiddens$nl"$form"

4431 fi

4432 done < $1

4433 # enctype="multipart/form-data"

4434 cat<<EOF

4435 <form action="${GF_ACTION:-$myname}" method="POST" enctype="multipart/form-data">

4436 ${rowid:+$rm}

4437 <table class="b $2">

4438 $forms

4439 </table>$hiddens

4440 ${GF_STAGE:+`cgi_hidden stage $GF_STAGE`}

4441 ${rowid:+<input type="hidden" name="rowid" value="$rowid">}

4442 EOF

4443 if [ -z $GF_VIEWONLY ]; then

4444 cat<<EOF

4445 <input type="submit" name="sub" value="OK">

4446 <input type="reset" name="res" value="Reset">

4447 EOF

4448 fi

4449 cat<<EOF

4450 $GF_ARGS</form>

4451 $tail

4452 EOF

4453 }

4454 edittable() {

4455 # $1=form-def $2=table $3 rowid

4456 genform "$@"

4457 }

4458 viewtable() {

4459 GF_VIEWONLY=1 genform "$@"

4460 }

4461 showattc() {

4462 # $1=table_m $2=rowid &optional $3=RawFlag

4463 ## err \$1=$1 \$2=$2 \$3=$3

4464 if ! isfilereadable $user $1 $2; then

4465 contenttype; echo

4466 echo "このファイルは管理者のみしか見られません" | html p

4467 putfooter; exit

4468 fi

4469 idir=`umask 002; mktempd` || exit 1

4470 # tmpfiles=$tmpfiles"${tmpfiles+ }$idir"

4471 bin=$idir/$myname-$$.bin

4472 sql="select quote(bin) from $1 where rowid='$2';"

4473 ## err showattc: sql: $sql

4474 sq $db "$sql" | unhexize > $bin

4475 tv=`query "select type||'//'||val from $1 where rowid='$2';"`

4476 type=${tv%//*} fn=${tv#*//}

4477 ## err tv=$tv type=$type fn=$fn, tp2=${tv%\|*}

4478 ct=${type#file:}

4479 case $ct in # all text/* changed to text/plain

4480 text/*)

4481 charset=`nkf -g $bin|cut -d' ' -f1`

4482 case $charset in

4483 ASCII*) charset="" ;;

4484 esac

4485 if [ -z "$3" ]; then

4486 ct="text/html${charset:+; charset=$charset}"

4487 link="?showattc+$1+$2+raw"

4488 nkf -e $bin | htmlescape | nkf --oc="$charset" \

4489 | sed 's,^,<span></span>,' \

4490 | _m4 -D_TITLE_="$fn" -D_CONTENT_TYPE_="$ct" \

4491 -D_LINK_="$link" \

4492 -D_BODY_="syscmd(\`cat')" $layout/pretty.m4.txt

4493 exit $?

4494 fi

4495 ct="text/plain${charset:+; charset=$charset}"

4496 ;;

4497 esac

4498 contenttype "$ct"

4499 echo "Content-Disposition: filename=\"$fn\""

4500 echo "Content-Length: " `cat $bin | wc -c`; echo

4501 #echo "Content-Type: " ${type#file:}; echo

4502 cat $bin

4503 }

4504 #

4505 # Some default stupid handler on CGI values

4506 #

4507 default_storedb() {

4508 # ARG: $1=table-def-file

4509 # RET: $tbl=table-name, $col=mail-column, $cols=columns

4510 tbl=`basename $1`

4511 tbl=${tbl%.def}

4512 cols="`grep :text $1|cut -d: -f2`"

4513 col=`echo "$cols"|head -1`

4514 vcol=`getpar $col`

4515 err default0: \$1=$1 col=$col cols="[$cols]" vcol=$vcol

4516 if [ -n "$vcol" ]; then

4517 par2table $1

4518 else

4519 return 2 # No insertion occurred

4520 fi

4521 }

4522

4523 default_view() { # $1=def-file

4524 ### DT_VIEW="edittable+$tbl" dumptable html $tbl "$cols" \

4525 ## DT_VIEW="edittable+$tbl" dumptable html $tbl "name memo file" \

4526 default_storedb "$@"

4527 query "select rowid from $tbl order by rowid desc;" \

4528 | while read rowid; do

4529 viewtable $1 $tbl $rowid

4530 done | _m4 -D_TITLE_="$tbl" \

4531 -D_FORM_="`genform $1`" \

4532 -D_DUMPTABLE_="syscmd(cat)" \

4533 $layout/html.m4.html $layout/form+dump.m4.html

4534 }

4535 default_viewtext() { # $1=def-file

4536 ### DT_VIEW="edittable+$tbl" dumptable html $tbl "$cols" \

4537 default_storedb "$@"

4538 DT_VIEW="viewtable+$tbl" dumptable html $tbl "name memo file" \

4539 | _m4 -D_TITLE_="$tbl" \

4540 -D_FORM_="`genform $1`" \

4541 -D_DUMPTABLE_="syscmd(cat)" \

4542 $layout/html.m4.html $layout/form+dump.m4.html

4543 }

4544 default_smail() {

4545 default_storedb "$@"

4546 if [ $? -eq 2 ]; then

4547 _m4 -D_TITLE_="入力" \

4548 -D_FORM_="`genform $1`" \

4549 -D_DUMPTABLE_="" \

4550 $layout/html.m4.html $layout/form+dump.m4.html

4551 return

4552 fi

4553 cond=""

4554 for pk in `gettblpkey $tbl`; do

4555 pv=$(sqlquote "$(getpar $pk)")

4556 cond="$cond${cond:+ and }$pk=$pv"

4557 done

4558 sql="select rowid from $tbl where $cond;"

4559 rowid=`query "$sql"`

4560 ## err smail1 - "$sql" "-> rowid=$rowid"

4561

4562 while IFS=: read prompt name keytype type args; do # Read from $1

4563 val=`getpar $name`

4564 if [ -n "$val" ]; then

4565 text="$text

4566 $prompt

4567 $name=$val

4568 ---------------------------------------------------------"

4569 fi

4570 case "$type" in

4571 image|document|file)

4572 fn="`getvalbyid $tbl $name $rowid $tmpd`"

4573 fns=$(echo "$fn"|while read fn; do

4574 err mv $tmpd/$fn.orig $tmpd/$fn

4575 mv $tmpd/$fn.orig $tmpd/$fn

4576 rm $tmpd/$fn.rowid # Remove cache flag

4577 ## err "`ls $tmpd/$fn`"

4578 echo $fn

4579 done)

4580 files="$files $fns"

4581 ;;

4582 esac

4583 done < $1

4584 ## err FILES=$files "`ls -lF $tmpd`"

4585 subj="from ${REMOTE_ADDR}"

4586 (echo "$url"

4587 echo "への書き込みがありました。"

4588 echo "------"

4589 echo "$text"

4590 ) | (cd $tmpd &&

4591 err LS="`ls -lF`" &&

4592 $mydir/sendmultipart.sh -t "$admin" -s "$subj" $files)

4593 _m4 -D_TITLE_="入力完了" $layout/html.m4.html

4594 echo "以下の内容で送信しました。" | html p

4595 viewtable $1 $tbl \

4596 `query "select rowid from $tbl order by rowid desc limit 1;"`

4597 echo "戻る" | html a "href=\"?\""

4598 }