annotate s4-funcs.sh @ 451:8965bdad3172

Add convenient link pattern [[#ArticleId]] for direct link to articles.
author HIROSE Yuuji <yuuji@gentei.org>
date Mon, 14 Aug 2017 12:32:36 +0859
parents 9724472a3cd2
children c00857f0e9d2
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1 #!/bin/sh
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2 # Here's global variable table. Do not use this names.
1
HIROSE Yuuji <yuuji@gentei.org>
parents: 0
diff changeset
3 # $HGid$
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
4
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
5 [ -f s4-config.sh ] && . ./s4-config.sh
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
6
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
7 myname=`basename ${SCRIPT_NAME:-$0}`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
8 mydir=`dirname ${SCRIPT_FILENAME:-$0}`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
9 myargs="$@"
8
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
10 PATH=/usr/local/sqlite3/bin:/usr/local/vim7/bin:/usr/iekei/ImageMagick/bin:/usr/local/ImageMagick/bin:$PATH
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
11 tmpdir=${TMPDIR:-tmp}
2
7aa52f9874ae .hgignore added
HIROSE Yuuji <yuuji@gentei.org>
parents: 1
diff changeset
12 dbdir=${DBDIR:-db}
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
13 tmpfiles=""
2
7aa52f9874ae .hgignore added
HIROSE Yuuji <yuuji@gentei.org>
parents: 1
diff changeset
14 db=${DB:-$dbdir/cgi.sq3}
83
815840076efa Directory structure refreshed
HIROSE Yuuji <yuuji@gentei.org>
parents: 81
diff changeset
15 admin=${ADMIN:-hostmaster@example.org}
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
16 templ=${TEMPL:-templ}
67
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
17 layout=${LAYOUT:-$templ/default}
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
18 formdir=${FORMDIR:-$templ/form}
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
19 imgdir=${IMGDIR:-img}
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
20 url=${URL:-"${REQUEST_SCHEME:-http${HTTPS:+s}}://$HTTP_HOST$REQUEST_URI"}
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
21 urlbase=${url%%\?*}
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
22 msgdir=$templ/msg
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
23 timeout="+2 days"
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
24 memoplimitdays="7"
252
75dfaceac01f Link to newest article of the blog in the recent writing place
HIROSE Yuuji <yuuji@gentei.org>
parents: 251
diff changeset
25 dumpcollen=22
67
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
26 #thumbxy=120x120
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
27 thumbxy=96x96
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
28 iconxy_S=80x80
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
29 iconxy_M=400x400
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
30 maximagexy=1600x1600
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
31 ### maximagexy=400x400
209
70fa878fe3ea "accept" attribute modified
HIROSE Yuuji <yuuji@gentei.org>
parents: 208
diff changeset
32 file_accept='accept="image/*,text/*,audio/*,application/vnd.oasis.*,application/pdf,application/x-*"'
236
19b92549b5b7 Add button to clear all unread article list
HIROSE Yuuji <yuuji@gentei.org>
parents: 235
diff changeset
33 blogreadflagrowid=0
358
8166096f4b36 Record query into log
HIROSE Yuuji <yuuji@gentei.org>
parents: 357
diff changeset
34 querylog=$tmpdir/query.log
207
355fcbdc3b49 Add 'file_accept'
HIROSE Yuuji <yuuji@gentei.org>
parents: 203
diff changeset
35
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
36 tconfs=""
231
332092fa437e Separate cachedir
HIROSE Yuuji <yuuji@gentei.org>
parents: 230
diff changeset
37 imgcached=cache/img.`date +%Y/%m`
4
6822f4362bf9 New system name declared as yas4
HIROSE Yuuji <yuuji@gentei.org>
parents: 3
diff changeset
38 conftbl=_tblconf
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
39 nl="
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
40 "
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
41 iconcachekey="profimgcache_S"
352
dd0c70353869 More HELP text for search form. Add search result report.
HIROSE Yuuji <yuuji@gentei.org>
parents: 351
diff changeset
42 case "$HTTP_USER_AGENT" in
dd0c70353869 More HELP text for search form. Add search result report.
HIROSE Yuuji <yuuji@gentei.org>
parents: 351
diff changeset
43 *i[Pp]hone*|*[Aa]ndroid*) touchpanel=1 ;;
dd0c70353869 More HELP text for search form. Add search result report.
HIROSE Yuuji <yuuji@gentei.org>
parents: 351
diff changeset
44 *) touchpanel="" ;;
dd0c70353869 More HELP text for search form. Add search result report.
HIROSE Yuuji <yuuji@gentei.org>
parents: 351
diff changeset
45 esac
17
01f579d2c889 Rename to s4
HIROSE Yuuji <yuuji@gentei.org>
parents: 16
diff changeset
46 . ./s4-cgi.sh
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
47
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
48 : <<EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
49
249
6bb5513efb8e Add caution comment to the beginning of description
HIROSE Yuuji <yuuji@gentei.org>
parents: 248
diff changeset
50 !! 検索等でblogテーブル参照時は sql4readableblogs() で定義される
6bb5513efb8e Add caution comment to the beginning of description
HIROSE Yuuji <yuuji@gentei.org>
parents: 248
diff changeset
51 !! readableblogs テーブルを使うこと
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
52 資料配布、グループ管理・ML、ファイル交換、クリッカー、アンケート
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
53 レポート提出管理
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
54 ひとつのarticleをheadingにして新規ツリーを作成、あるといいかも。
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
55
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
56 [2016]
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
57 7/12 根本への反省
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
58 * cgi自身の $1, $2 での切り替えでなく、CGI変数での受け渡しにすべき。
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
59 arg1/arg2/arg3 的に $1 に / 区切りでつけた方がよかったかな。
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
60
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
61 [以下2015]
120
d870eaf0e4dd Revert to "sq $db"
HIROSE Yuuji <yuuji@gentei.org>
parents: 119
diff changeset
62 8/4 ○グループに承認加入モードを追加
d870eaf0e4dd Revert to "sq $db"
HIROSE Yuuji <yuuji@gentei.org>
parents: 119
diff changeset
63 ○グループに参加していない場合は grpaction できない
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
64 Web
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
65 締切設定
120
d870eaf0e4dd Revert to "sq $db"
HIROSE Yuuji <yuuji@gentei.org>
parents: 119
diff changeset
66
d870eaf0e4dd Revert to "sq $db"
HIROSE Yuuji <yuuji@gentei.org>
parents: 119
diff changeset
67 8/2 ○s4.cgi生成系 → index.cgi生成
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
68 ○自分の提出物リスト
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
69
52
46e53418e28f missing selection condition added
HIROSE Yuuji <yuuji@gentei.org>
parents: 47
diff changeset
70 7/19 ○設置
46e53418e28f missing selection condition added
HIROSE Yuuji <yuuji@gentei.org>
parents: 47
diff changeset
71 ○一斉送信
46e53418e28f missing selection condition added
HIROSE Yuuji <yuuji@gentei.org>
parents: 47
diff changeset
72 ○getparfilename の tmpd の扱い
46e53418e28f missing selection condition added
HIROSE Yuuji <yuuji@gentei.org>
parents: 47
diff changeset
73 ○やっぱりs4にしようかな
4
6822f4362bf9 New system name declared as yas4
HIROSE Yuuji <yuuji@gentei.org>
parents: 3
diff changeset
74 7/18 ○書込著者からホームへのリンク
2
7aa52f9874ae .hgignore added
HIROSE Yuuji <yuuji@gentei.org>
parents: 1
diff changeset
75 7/17 ○個人blogに「レポート提出用」がついたときの挙動
7aa52f9874ae .hgignore added
HIROSE Yuuji <yuuji@gentei.org>
parents: 1
diff changeset
76 ○添付ファイル回収
7aa52f9874ae .hgignore added
HIROSE Yuuji <yuuji@gentei.org>
parents: 1
diff changeset
77 ○imgcacheは別ディレクトリにしないと + .htaccess
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
78 7/15 ○レポート提出モードの表示を付ける
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
79 管理者権限での削除? → まだいいか
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
80
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
81 7/13 ○前回アクセス基準の新着数は欲しいなあ
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
82 ○レポート提出はどうしよう
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
83 → ○blogにモードを追加:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
84 ○レポート提出モード
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
85 添付ファイル (誰が見たかログ)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
86 クリッカーは別立てメニューにしないと(管理者がON/OFF)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
87 ○添付ファイルの読み出し権(6/22から) ← モードで対処
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
88
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
89
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
90 7/9 ○管理者の追加
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
91 △グループメンバの操作 → 要不要を吟味
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
92 ○グループ情報編集の行先はそのグループがいい?
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
93 ○新規グループの作成はどこから入るか
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
94 △グループホームとユーザホームを揃える
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
95
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
96 7/8 ○グループ一覧をユーザ一覧と揃える。
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
97
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
98 7/6の次 ○グループのconf編集の入口
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
99 ○グループ検索
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
100
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
101 6/22の次 ○ホーム画面、○招待状、親記事追跡、○編集ボタン、削除ボタン、
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
102
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
103
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
104 6/7の次 ○blogを作ってみる || userconfig || _mのまとめ編集(削除)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
105 6/7の次の次 ○userconfigの画面だけ作ってみる。
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
106
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
107 ○ 5/28の次 edittableに「削除」ボタンを足す
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
108 ○6/1 par2tableを triplex 対応に
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
109 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'));
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
110 →とすると 一気に
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
111
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
112 ## form.def を考えなおそう:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
113 ## userのように必須カラムを決まった位置に付ける?
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
114 ## 必須カラム、owner(foreign key passwd(name)), update datetime
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
115 ## ユーザ管理とグループ管理はデフォルトで持たせてしまえ
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
116
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
117 ## 縦持ちデータの入力/編集を供給する関数 single + multi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
118 ## 持てるテーブル構造はシステム標準5種 + ユーザ定義2種類
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
119 ## 1. passwd
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
120 ## 2. grp
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
121 ## 3. grp_mem
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
122 ## 4. topic 記事のIDとなる
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
123 ## 5. topic_cont 特定IDの記事の内容物
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
124 ## 6. list 繰り返し登場あり
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
125 ## 7. hash 繰り返し登場なし
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
126
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
127 ## ● listの定義:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
128 ## create table list(id unique, parentID, type, value);
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
129 ## ● hashの定義:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
130 ## create table hash(parentID, type, value, primary key(parentID, type));
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
131
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
132 ## グループ属性: community, friend
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
133 ## ○ blob使えるのかな。streamで行けるのか? xxdで行けた。ありがたい。
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
134 ## form-defとtableは1対1対応でいいか
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
135 ## csv2sq3 で .csv.sq3 の Makefile
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
136
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
137 ## 書き込みオブジェクトとは何か?
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
138 ## topic : id, belongto, title, owner, mode
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
139 ## type := root | comment
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
140 ## topic_cont : id, topicid(F), ppath, contenttype, filename, content,
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
141 ## unique(id, filename)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
142 ## type := body(single) | attachment(multi)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
143
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
144 ## group := name(P), tag, gecos, owner(F), mode
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
145 ## tag := personal | friend | ... any string
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
146 ## group_member := gname(F), type, name(F), UNIQUE(gname, type, name)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
147 ## type := "u" | "g"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
148 ## できたー!
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
149 ## 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';
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
150
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
151 ↓以下に変更
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
152 with recursive allmem as
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
153 (select gname,val from grp_m where gname='foo'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
154 union all select grp_m.gname,grp_m.val from
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
155 grp_m,allmem where allmem.val=grp_m.gname)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
156 select val from allmem where val in (select name from user);
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
157
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
158
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
159 with recursive allmem as
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
160 (select gname,val from grp_m where gname='foo'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
161 union all select grp_m.gname,grp_m.val from grp_m,allmem
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
162 where allmem.val=grp_m.gname)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
163 select a.*, coalesce(b.val,a.val) from allmem a left join grp_mem_s b
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
164 on a.gname=b.gname and a.val=b.user and b.key='email'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
165 where a.val in (select name from user);
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
166
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
167
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
168 ## triggerもできた。
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
169 ## 5/22から:グループ作成画面
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
170 ## 埋め込み画像 data:CONTENT-TYPE;base64,.....
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
171
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
172 ## 考え得るノードタイプ
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
173 ## 日報 - 個人所属かグループ所属か
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
174 ## 課題提出 - 個人所属かグループ所属か
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
175 ## グループ管理
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
176 ## 個人情報管理
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
177 ##
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
178
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
179 ## 例: group:sip - topic:1:sip:Aperture:yuuji:rw
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
180 ## - topic:2:sip:ISO:yuuji:rw
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
181 ## topic_cont 1:1:/:body:text...Aperture
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
182 ## 2:1:/1:body:text..Aperture
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
183 ## 3:1:/1:attachment:binary..Aperture
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
184 ## 4:1:/2:body:text..Aperture
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
185 ## 5:1:/2:attachment:binary..Aperture
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
186 ## 6:2:/:body:text..ISO
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
187 ## 7:2:/6:body:text..ISO
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
188 ## 8:2:/6:attachment:binary..
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
189
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
190 ## ログテーブル
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
191 ## time, who, action, tbl, id idなんか取れるかな
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
192
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
193
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
194
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
195 ■表設計
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
196 * 3つの表に分散管理
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
197 id格納表 + hash表 + list表
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
198 * *_s *_m
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
199
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
200
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
201
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
202 user, user_map, user_col
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
203
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
204 ■抽象エントリタイプ
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
205 * user
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
206 idとして機能 → table中の owner に自動挿入(?)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
207 * group
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
208 権限判定に利用
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
209 * serial
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
210 自動idとして機能
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
211 * password
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
212 入力 type=passwordで入力
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
213 変更 oldpasswd, password×2 で確認後修正
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
214 * session
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
215 password認証後のセッションキーとして機能
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
216 * text
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
217 入力 type=text
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
218 * textarea
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
219 入力 textarea
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
220 * image|document
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
221 入力 type=fileで入力し、mime-typeを確認
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
222 * owner
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
223 入力時の $user で、外部キー制約が付く
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
224 * gowner
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
225 グループとしての所有者で、外部キー制約が付く
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
226 * timestamp
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
227 datetime()
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
228 * parent
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
229 木構造の場合の親の位置
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
230 * path
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
231 木構造の場合の自分の位置
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
232
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
233 格納タイプ
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
234 * list
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
235 表 parentID, key, val でUNIQUE(parentID, key, val)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
236 * hash
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
237 表 parentID, key, val でUNIQUE(parentID, key)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
238
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
239 オブジェクトタイプ
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
240 * entry
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
241 id, title, owner
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
242 * textpart
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
243 id, parentID, text
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
244 * binarypart
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
245 id, parentID, contenttype, filename, content
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
246 * content
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
247 hash(textpart), list(binarypart)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
248 * topic
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
249 id, hash(content), list(reply)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
250 * reply
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
251 id, parentID, content
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
252 * blog
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
253 list(entry)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
254 blog = [topic, list(reply)]
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
255
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
256
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
257 blog = [ {"title" => "hoge", "owner" => "yuuji", "date" => "2015-04-27",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
258 "text" => "hogehoge ..",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
259 "reply" => [ {"serial" => 1,
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
260 "author" => "taro",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
261 "date" => "2015-04-28",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
262 "parent" => "/",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
263 "path" => "/1",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
264 "text" => "blah, blah, ....",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
265 "image" => ["a.jpg", "b.jpg"] },
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
266 {"serial" => 2,
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
267 "author" => "hanako",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
268 "date" => "2015-04-29",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
269 "parent" => "/",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
270 "path" => "/2",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
271 "text" => "blah, blah, ....",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
272 "image" => [] }]},
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
273 {"title" => "buha", ...} ]
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
274
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
275
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
276 user:=
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
277 ユーザ名(英数字):name:p:text:length="20" maxlength="40"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
278 パスワード:pswd:s:password:length="20" maxlength="40"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
279 説明(日本語OK):gecos:s:text:length="20" maxlength="40"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
280 セッションキー:skey:s:session
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
281 メイルアドレス:email:m:text:length="20" maxlength="40"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
282 住所:address:m:textarea:maxlength="400"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
283 プロフィール画像:profimg:m:image:maxlength="400K"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
284 履歴書:profpdf:m:document:maxlength="4M"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
285
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
286 変換表
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
287 /user/email=m
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
288
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
289 blog:=
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
290 シリアル:id:p:serial
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
291 タイトル:title:s:text:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
292 所有者:owner:s:owner:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
293 時刻:ctime:s:stamp:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
294 リード文:heading:s:textarea:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
295 リプライ:reply:m:*article:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
296
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
297 article:=
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
298 シリアル:id:p:serial
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
299 筆者:author:s:owner
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
300 時刻:ctime:s:stamp:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
301 参照元:parent:s:parent:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
302 パス:path:s:path:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
303 本文:text:s:textarea:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
304 画像:image:m:image:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
305
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
306 履歴書:profpdf:m:document:maxlength="4M"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
307
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
308
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
309 EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
310
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
311 sq() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
312 # ./args.rb -cmd ".timeout 3000" "$@"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
313 sqlite3 -cmd 'PRAGMA foreign_keys=ON' -cmd ".timeout 3000" "$@"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
314 }
163
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
315 dbsetup() {
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
316 [ -d $tmpdir ] || mkdir -m 1777 $tmpdir
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
317 [ -d $dbdir ] || mkdir -m 1775 $dbdir
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
318 sqi=$tmpdir/sqi.$$
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
319 sqo=$tmpdir/sqo.$$
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
320 mkfifo $sqi $sqo
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
321 #tail -f $sqi | sq $db & # "tail -f" is too heavy. DO NOT USE!!
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
322 sq $db < $sqi &
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
323 sq3pid="`jobs -p` $!"
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
324 exec 2>> $tmpdir/error.out
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
325 exec 3>> $tmpdir/debug.out
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
326 exec 5> $sqi # Turning $sqi access through fd5 for continuous open state
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
327 rm $sqi
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
328 }
396
cacd961d3405 Dirty workaround for produced zombie processes
HIROSE Yuuji <yuuji@gentei.org>
parents: 395
diff changeset
329 cleanup2() { # Dirty workaround for produced zombie processes
cacd961d3405 Dirty workaround for produced zombie processes
HIROSE Yuuji <yuuji@gentei.org>
parents: 395
diff changeset
330 pkill -9 -u `id -u` -P 1
cacd961d3405 Dirty workaround for produced zombie processes
HIROSE Yuuji <yuuji@gentei.org>
parents: 395
diff changeset
331 }
163
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
332 cleanup() {
337
48d0b6c4de65 Revise SQL for article search drastically for speed.
HIROSE Yuuji <yuuji@gentei.org>
parents: 332
diff changeset
333 trap '' INT HUP EXIT TERM PIPE
163
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
334 echo .quit >&5
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
335 kill $sq3pid
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
336 kill $sq3pid
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
337 rm -f $sqo $sqi
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
338 rm -rf $tmpfiles
396
cacd961d3405 Dirty workaround for produced zombie processes
HIROSE Yuuji <yuuji@gentei.org>
parents: 395
diff changeset
339 cleanup2
118
45d1b0f09e48 grpaction is limited to its member
HIROSE Yuuji <yuuji@gentei.org>
parents: 117
diff changeset
340 }
358
8166096f4b36 Record query into log
HIROSE Yuuji <yuuji@gentei.org>
parents: 357
diff changeset
341 # We want to use piped function to put querylog, but we use
8166096f4b36 Record query into log
HIROSE Yuuji <yuuji@gentei.org>
parents: 357
diff changeset
342 # simple redirection for the sake of speed.
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
343 query() {
180
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
344 echo ".once $sqo" >&5
359
44096124b0a6 Log time stampe uses '+%F %T'
HIROSE Yuuji <yuuji@gentei.org>
parents: 358
diff changeset
345 echo "`date '+%F %T'`:[${user:-NULL}] <<<" >> $querylog
180
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
346 if [ -z "$1" ]; then
358
8166096f4b36 Record query into log
HIROSE Yuuji <yuuji@gentei.org>
parents: 357
diff changeset
347 tee -a $querylog
180
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
348 else
358
8166096f4b36 Record query into log
HIROSE Yuuji <yuuji@gentei.org>
parents: 357
diff changeset
349 echo "$@" >> $querylog
180
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
350 echo "$@"
358
8166096f4b36 Record query into log
HIROSE Yuuji <yuuji@gentei.org>
parents: 357
diff changeset
351 fi >&5
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
352 cat $sqo
358
8166096f4b36 Record query into log
HIROSE Yuuji <yuuji@gentei.org>
parents: 357
diff changeset
353 echo '>>>' >> $querylog
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
354 }
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
355 _m4() {
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
356 #_S4NAME_=f,f,f
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
357 m4 ${_S4NAME_:+"-D_S4NAME_=${_S4NAME_}"} "$@"
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
358 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
359 ismember() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
360 # $1=user, $2=group
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
361 err ismem: "select user from grp_mem where gname=$(sqlquote $2) and user='$1';"
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
362 test -n "`query \"select user from grp_mem where gname=$(sqlquote \"$2\") and user='$1';\"`"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
363 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
364 isuser() { # Check if $1 is a valid user
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
365 test -n "`query \"select name from user where name='$1';\"`"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
366 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
367 isgroup() { # Check if $1 is a valid group
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
368 err isgroup: "select gname from grp where gname=$(sqlquote $1);"
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
369 test -n "`query \"select gname from grp where gname=$(sqlquote \"$1\");\"`"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
370 }
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
371 isgrpowner() (
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
372 # $1=user, $2=group
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
373 gn=`sqlquote "$2"`
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
374 sql="select user from grp_adm where gname=$gn and user='$1';"
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
375 err isgrpowner: $sql
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
376 test -n "`query $sql`"
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
377 )
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
378 getgroupadminmails() {
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
379 # $1=group
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
380 for i in $(getgroupadmins $1); do
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
381 email4group "$1" "$i" ;
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
382 done
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
383 }
56
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
384 getgroupadmins() { # $1=group
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
385 # This function is called in a backquote, so needn't to be subshellized
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
386 qgrp=`sqlquote "$1"`
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
387 query "select user from grp_adm where gname=$qgrp;"
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
388 }
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
389 getgroupattr() { # $1=group $2=attr
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
390 # This function is called in a backquote, so needn't to be subshellized
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
391 getvalbyid grp $2 \
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
392 $(query "select rowid from grp where gname=`sqlquote \"$1\"`;")
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
393 }
56
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
394 getgroupbyid() {
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
395 # $1=id|gname
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
396 sql="select coalesce((select gname from grp where gname=$(sqlquote \"$1\")),
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
397 (select gname from grp where rowid=$(sqlquote $1)));"
71
3a157da0801d cache name fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 69
diff changeset
398 # err ggbyid: `echo $sql`
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
399 query $sql
56
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
400 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
401 isfilereadable() { # $1=user $2=tbl $3=rowid
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
402 # Return true if user($1) can read attachment files in tbl($2):rowid($3)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
403 [ -z "$1" -o -z "$2" -o -z "$3" ] && return 1 # invalid argument
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
404
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
405 # Return true when anonymous mode
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
406 [ "$anonymousmode" ] && return 0
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
407 # case `getvalbyid blog mode $2` in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
408 # normal|*open*|"") return 0 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
409 # *closed*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
410 # owner=`getvalbyid blog owner $2`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
411 # if isgrp $owner; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
412 # isgrpowner $1 $owner && return 0 || return 1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
413 # elif isuser $owner; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
414 # [ x"$1" = x"$owner" ] && return 0 || return 1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
415 # fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
416 # esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
417 # ↑ 要はこういう処理を↓で一気にやっている
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
418 sql="with getblog as (\
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
419 select key,val from blog_s where id=(\
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
420 select blogid from article where id in\
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
421 (select id from $2 where rowid=$3))),\
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
422 getowner as (select val from getblog where key='owner'),\
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
423 getmode as (select val from getblog where key='mode')\
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
424 select case\
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
425 when (select author from article where\
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
426 id=(select id from $2 where rowid=$3))='$1' \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
427 then 'author'\
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
428 when (select val from getmode) in ('report-open', 'normal')\
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
429 then 'open'\
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
430 when (select val from getmode) is null \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
431 then 'open'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
432 when (select val from getowner) in (select gname from grp)\
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
433 then (select user from grp_adm where \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
434 gname=(select val from getowner) and \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
435 user='$1')\
39
5ed3caba8dd1 report-closed + user mode -> hidden to other user
HIROSE Yuuji <yuuji@gentei.org>
parents: 33
diff changeset
436 when (select author from article where\
5ed3caba8dd1 report-closed + user mode -> hidden to other user
HIROSE Yuuji <yuuji@gentei.org>
parents: 33
diff changeset
437 id=(select id from $2 where rowid=$3))='$1'
5ed3caba8dd1 report-closed + user mode -> hidden to other user
HIROSE Yuuji <yuuji@gentei.org>
parents: 33
diff changeset
438 then 'user+author'
5ed3caba8dd1 report-closed + user mode -> hidden to other user
HIROSE Yuuji <yuuji@gentei.org>
parents: 33
diff changeset
439 else '' end;"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
440 ## err isfilereadable: sql="`echo $sql`"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
441 # caseのネストで内側のcaseがスカラーtrueを返しても外側はtrue扱いにならない
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
442 result=`query "$sql"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
443 [ -n "$result" ] && return 0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
444 return 2
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
445 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
446 linkhome() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
447 # $1=UserOrGroup
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
448 echo -n '<a href="?'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
449 if isuser $1; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
450 err "select 'home+'||rowid from user where name='$1';"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
451 query "select 'home+'||rowid from user where name='$1';"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
452 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
453 echo -n "grp+$1"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
454 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
455 echo "\">`gecos $1`</a>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
456 }
208
36b6354de5cb Profile form should escape entities. Apply ^href conversion to Profile
HIROSE Yuuji <yuuji@gentei.org>
parents: 207
diff changeset
457 hreflink() {
284
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
458 # s4 specific notation:
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
459 # ^href=URL
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
460 # ^iframe=URL
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
461 # OSM umap Wikistyle Notation:
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
462 # [[URL]] - Simle Link
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
463 # [[URL|Word]] - Link with anchor word
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
464 # {{URL}} - <img src="URL">
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
465 # {{URL|width}} - <img src="URL" width="width">
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
466 # {{{URL}} } - <iframe src="URL"></iframe>
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
467 # {{{URL|height}} - <iframe src="URL" height="height"></iframe>
267
9bfa9bda1289 Add `!' to href pattern.
HIROSE Yuuji <yuuji@gentei.org>
parents: 266
diff changeset
468 _hrefptn="[-A-Za-z0-9,.:;/~_%#&+?=@!]*"
451
8965bdad3172 Add convenient link pattern [[#ArticleId]] for direct link to articles.
HIROSE Yuuji <yuuji@gentei.org>
parents: 448
diff changeset
469 sed -e "s|\[\[\#\([0-9][0-9]*\)\]\]|<a href=\"?aid\1\">#\1</a>|g" \
8965bdad3172 Add convenient link pattern [[#ArticleId]] for direct link to articles.
HIROSE Yuuji <yuuji@gentei.org>
parents: 448
diff changeset
470 -e "s|\[\[\($_hrefptn\)\|\([^]]*\)\]\]|<a href=\"\1\">\2</a>|g" \
284
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
471 -e "s|\[\[\($_hrefptn\)\]\]|<a href=\"\1\">\1</a>|" \
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
472 -e "s|{{{\($_hrefptn\)\|\(.*\)}}}|<iframe src=\"\1\" height=\"\2\"></iframe>|g" \
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
473 -e "s|{{{\($_hrefptn\)}}}|<iframe src=\"\1\"></iframe>|g" \
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
474 -e "s|{{\($_hrefptn\)\|\(.*\)}}|<img src=\"\1\" width=\"\2\">|g" \
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
475 -e "s|{{\($_hrefptn\)}}|<img src=\"\1\">|g"\
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
476 -e "s|^href=\($_hrefptn\)|<a &>\1</a>|" \
425
961173fdc904 # at the beginning of the line turns to <h2>...</h2>
HIROSE Yuuji <yuuji@gentei.org>
parents: 424
diff changeset
477 -e "s|^iframe=\($_hrefptn\)|<iframe src=\"\1\"></iframe>|" \
426
b3b33923638c ## at the beginning of the line turns to <h2>...</h2>
HIROSE Yuuji <yuuji@gentei.org>
parents: 425
diff changeset
478 -e "s,^#### *\(.*\),<h4>\1</h4>," \
b3b33923638c ## at the beginning of the line turns to <h2>...</h2>
HIROSE Yuuji <yuuji@gentei.org>
parents: 425
diff changeset
479 -e "s,^### *\(.*\),<h3>\1</h3>," \
b3b33923638c ## at the beginning of the line turns to <h2>...</h2>
HIROSE Yuuji <yuuji@gentei.org>
parents: 425
diff changeset
480 -e "s,^## *\(.*\),<h2>\1</h2>,"
208
36b6354de5cb Profile form should escape entities. Apply ^href conversion to Profile
HIROSE Yuuji <yuuji@gentei.org>
parents: 207
diff changeset
481 }
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
482 minitbl() {
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
483 sed -n '
295
56c2d2df5b7b minitbl() detection rule modified from /^|[^|]/ to /^|.*|/
HIROSE Yuuji <yuuji@gentei.org>
parents: 292
diff changeset
484 /^|.*|/ {; # If the line begin with "|" and has 2 or more "|"
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
485 s,|$,,; # Remove trailing "|" first
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
486 s,|\* *\([^|]*\) *,<th>\1</th>,g; # "|*..." to "<th>...</th>"
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
487 s,| *\([^|]*\) *,<td>\1</td>,g; # "|..." to "<td>...</td>"
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
488 s,^,<tr>,; s,$,</tr>,; # Enclose with "<tr>" and "</tr>"
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
489 H; # Concat this line to HoldSpace
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
490 s/.*//; # Delete PatternSpace for finalization
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
491 $ b cont
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
492 d; # If in final line, output the rest, else jump to next turn
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
493 }
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
494 :cont
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
495 x; # For non-"|" lines, check HoldSpace
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
496 /^./ {; # If HoldSpace has "|" table elements
398
f50d4df067b5 Workaround regexp fix for FreeBSD sed
HIROSE Yuuji <yuuji@gentei.org>
parents: 397
diff changeset
497 s|^.|<table class="mini">|; # Enclose whole elements like this:
f50d4df067b5 Workaround regexp fix for FreeBSD sed
HIROSE Yuuji <yuuji@gentei.org>
parents: 397
diff changeset
498 # . of ^. is workaround for FreeBSD sed
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
499 # s|$|</table>|; # <table class="mini">..\n..</table>
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
500 p; # Print whole "table" element
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
501 s/.*//; # Erase all when done.
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
502 x; s|^|</table>|; x; # Preppend /table to the next line
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
503 }
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
504 x; # Back to the newest line
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
505 p; # Print rest'
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
506 }
179
479b57681014 Subshellize acclog() and sanitize rowid
HIROSE Yuuji <yuuji@gentei.org>
parents: 178
diff changeset
507 acclog() (
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
508 # $1=table, $2=rowid
179
479b57681014 Subshellize acclog() and sanitize rowid
HIROSE Yuuji <yuuji@gentei.org>
parents: 178
diff changeset
509 n=${2%%[!0-9]*} # Remove non-digit chars from $2(should be rowid)
479b57681014 Subshellize acclog() and sanitize rowid
HIROSE Yuuji <yuuji@gentei.org>
parents: 178
diff changeset
510 if [ -n "$n" ]; then
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
511 now=`date +"%F %T"`
179
479b57681014 Subshellize acclog() and sanitize rowid
HIROSE Yuuji <yuuji@gentei.org>
parents: 178
diff changeset
512 #query "replace into acclog values('$user', '$1', '$n', '$now');"
278
2f1607d8b56b New access log schema started
HIROSE Yuuji <yuuji@gentei.org>
parents: 276
diff changeset
513 #query "replace into acclog values('$user', '$1', $n, '$now');"
2f1607d8b56b New access log schema started
HIROSE Yuuji <yuuji@gentei.org>
parents: 276
diff changeset
514 query "replace into tblaccesses values('$user', '$1', $n, '$now');"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
515 fi
179
479b57681014 Subshellize acclog() and sanitize rowid
HIROSE Yuuji <yuuji@gentei.org>
parents: 178
diff changeset
516 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
517 gecos() (
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
518 u=`sqlquote "${1:-$user}"`
173
31e63d173d38 gecos() uses gecoses table
HIROSE Yuuji <yuuji@gentei.org>
parents: 171
diff changeset
519 query "select gecos from gecoses where name=$u;"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
520 )
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
521 setpar() {
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
522 query "replace into par values('$session', '$1', '$2', \"$3\");"
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
523 }
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
524 replpar() {
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
525 query "update par set val=\"$3\" where sessid='$session' and var='$1' and type='$2';"
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
526 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
527 getpar() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
528 val=`query "select val from par where var='$1' and sessid='$session' $2;"`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
529 ## err getpar/val1: "val=[$val]"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
530 if [ -z "$val" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
531 val=`query "select val from cookie where var='$1' and sessid='$session' $2;"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
532 fi
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
533 ## err getpar/val2: "val=[$val]"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
534 case "$var" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
535 owner)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
536 if [ x"$user" = x"$val" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
537 echo $user; return
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
538 elif ismember $user $val; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
539 echo $val; return
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
540 fi ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
541 esac
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
542 ## err getpar/ret: "val=[$val]"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
543 echo "$val"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
544 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
545
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
546 getpartype() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
547 query "select type from par where var='$1' and sessid='$session' $2;"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
548 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
549 getparcount() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
550 query "select count(*) from par where var='$1' and sessid='$session' $2;"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
551 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
552 getparfilename() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
553 # null if type of $1 is not file
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
554 (f=`query "select val from par where var='$1' and sessid='$session' and type='file' $2;"`
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
555 [ -n "$f" ] && echo $f)
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
556 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
557 sqlquote() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
558 (v="$1"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
559 case "$v" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
560 "") return ;; # null
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
561 "X'"*) # quoted hex string
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
562 echo $1 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
563 *\"*) # string including dbl-quote"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
564 v=`echo "$v"|sed -e 's/\"/\"\"/g'`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
565 echo "\"$v\""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
566 return ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
567 *.*.*|*-*-*|*[Ee]*[Ee]*|[Ee]*|*[\ -,:-df-~]*) # string
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
568 echo "\"$v\""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
569 return ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
570 *)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
571 if expr "$v" : '[-0-9.Ee][-0-9.Ee]*$' >/dev/null 2>&1; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
572 echo $v # MAYBE numeric, maybe...
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
573 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
574 echo "\"$v\""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
575 fi ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
576 esac)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
577 }
298
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
578 sqlquotestr() (
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
579 case "$1" in
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
580 *\'*) v=`echo "$1"| sed "s/'/''/g"`
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
581 echo "'$v'" ;;
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
582 *) echo "'$1'" ;;
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
583 esac
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
584 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
585 mktempd() {
11
3565d93c2fb1 add mpsplit.pl
HIROSE Yuuji <yuuji@gentei.org>
parents: 8
diff changeset
586 TMPDIR=$tmpd mktemp -d -t $session
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
587 }
69
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
588 getcachedir() { # $1=maintable
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
589 if [ -n "$imgcached" ]; then
231
332092fa437e Separate cachedir
HIROSE Yuuji <yuuji@gentei.org>
parents: 230
diff changeset
590 echo $imgcached/$(echo ${1:-hoge}|md5)/$thumbxy
69
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
591 else
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
592 echo $tmpd/$thumbxy
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
593 fi
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
594 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
595 getval() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
596 # $1=table $2=col $3(optional)=condition
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
597 case `gettbl_coltype "/$1/$2"` in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
598 user|author) # author added 2015-06-18 for article(author)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
599 echo "$user" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
600 stamp|datetime)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
601 date "+%F %T" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
602 serial)
218
849e6dee3485 Rewind it to use $2 instead of "serial" (getval())
HIROSE Yuuji <yuuji@gentei.org>
parents: 217
diff changeset
603 (s=`getpar $2`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
604 if [ -n "$s" ]; then echo $s; else echo "`date +%s`x$$"; fi) ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
605 *)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
606 getpar "$2" "$3";;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
607 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
608 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
609
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
610 getvalquote() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
611 # $1=table $2=col $3(optional)=condition
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
612 (v=`getval "$@"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
613 case "$v" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
614 "") echo NULL ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
615 *) sqlquote "$v" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
616 esac)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
617 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
618 getparquote() {
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
619 sqlquote "`getpar $1`"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
620 }
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
621 getbinbyid() {
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
622 # $1=tbl $2=col $3=rowid $4=tmpdirForBinary
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
623
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
624 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
625 getvalbyid() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
626 # $1=tbl $2=col $3=rowid $4=tmpdirForBinary
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
627 # If two or more values found, save them to $tmpd/${column}.$N and
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
628 # store the number of files into $tmpd/${column}.count and
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
629 # their each rowid stored into $tmpd/${column}.$N.rowid.
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
630 ## err gtb-$1=`gettblcols $1`, tbl=$1, col=$2, '$3'=$3
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
631
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
632 (for c in `gettblcols $1`; do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
633 if [ x"$2" = x"$c" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
634 ###sq $db "select $2 from $1 where rowid=$3"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
635 query "select $2 from $1 where rowid=$3;"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
636 return
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
637 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
638 done
231
332092fa437e Separate cachedir
HIROSE Yuuji <yuuji@gentei.org>
parents: 230
diff changeset
639 rowid=$3
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
640 pk=`gettblpkey $1`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
641 key=`query "select $pk from $1 where rowid=$3;"`
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
642 getkey="(select $pk from $1 where rowid=$3)"
388
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
643 td=${4:-$tmpd}
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
644 [ -d $td ] || mkdir -p $td
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
645 ### err "select $pk from $1 where rowid=$3" - key=$key '$4(tmp)'=$4
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
646 for kt in s m; do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
647 t=${1}_$kt
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
648 for c in `gettbl_${kt}_cols $1`; do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
649 vcount=1 # count(val)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
650 if [ x"$2" = x"$c" ]; then
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
651 #### cond="$t where $pk=\"$key\" and key=\"$c\"" #2015-07-22
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
652 cond="$t where $pk=$getkey and key=\"$c\""
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
653 val=`query "select val from $cond limit 1;"`
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
654 type=`query "select type from $cond limit 1;"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
655 if [ $kt = m ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
656 ###vcount=`sq $db "select count(val) from $cond"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
657 # Reset val to store filenames if type is string
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
658 val=`query "select val from $cond and type like 'file:%' order by rowid;"`
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
659 err gvb1-sql: "select count(val) from $cond;"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
660 vcount=`query "select count(val) from $cond;"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
661 echo $vcount > $td/$c.count
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
662 i=0
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
663 ## err gvbid: i=$i vcount=$vcount
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
664 while [ $i -lt $vcount ]; do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
665 slice="order by rowid limit 1 offset $i"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
666 i=$((i+1))
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
667 fn=$c.$i
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
668 err td=$td, fn=$fn, type=$type, val="[$val]"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
669 case $type in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
670 file:*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
671 #file=$td/$val
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
672 r_f=`query "select rowid||'//'||val from $cond $slice;"`
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
673 f_rid=${r_f%%//*}
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
674 file=$td/${r_f##*//}
47
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
675 # FOR SPEED: Skip file generation if imgcache exists
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
676 [ -s "$file" -a -s "$td/$fn.rowid" -a -s "$file.rowid" ] \
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
677 && [ x"$f_rid" = x"`cat $td/$fn.rowid`" ] \
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
678 && continue
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
679 # err gvbid-get="select quote(bin) from $cond $slice;"
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
680 ## err output: "fn=[$fn] file=[$file]"
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
681 sq $db<<EOF | unhexize > "$file"
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
682 .output '$td/$fn.rowid'
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
683 select rowid from $cond $slice;
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
684 .output '$td/$fn'
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
685 select val from $cond $slice;
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
686 .output '$td/${fn}.content-type'
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
687 select substr(type, 6) from $cond $slice;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
688 .output stdout
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
689 select quote(bin) from $cond $slice;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
690 EOF
131
9782a978d53c Image cach detection method modified
HIROSE Yuuji <yuuji@gentei.org>
parents: 128
diff changeset
691 ## err gvbid-get2: "`ls -lF $file`"
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
692 ## err i=$i - file=$file rowid=`cat $td/$fn.rowid`
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
693 cp "$td/$fn.rowid" "$file.rowid" 2>&3 # for convenience
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
694 cp "$file" "$file.orig" 2>&3
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
695 ls -lh "$file" |
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
696 awk '{print $5"B"}'|sed 's/BB/B/' > "$file.size"
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
697 case "$type" in
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
698 *:[Ii]mage*) mogrify -geometry $thumbxy "$file" ;;
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
699 ### ここのアイコンを増やしたい
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
700 *|*:[Aa]pplication*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
701 convert -geometry $thumbxy $imgdir/file-icon.png \
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
702 png:- > "$file"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
703 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
704 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
705 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
706 *)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
707 sq $db<<EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
708 .output $td/$fn.rowid
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
709 select rowid from $cond $slice;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
710 .output $td/$fn
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
711 select val from $cond $slice;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
712 EOF
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
713 val=$val${val:+$nl}"`echo $fn`" # should be delimited by newline
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
714 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
715 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
716 done
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
717 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
718 rm -f $td/$c.count
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
719 case $type in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
720 file:*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
721 echo "$val" \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
722 | while read fn; do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
723 file=$td/$fn
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
724 if [ ! -s "$file" ]; then
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
725 ## sq $db "select quote(bin) from $cond and val=\"$fn\"" \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
726 query "select quote(bin) from $cond and val=\"$fn\";" \
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
727 | unhexize > "$file"
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
728 ##@@## -- echo ${type#file:} > "$file.content-type"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
729 case $type in
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
730 *:[Ii]mage*) mogrify -geometry $thumbxy "$file" ;;
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
731 *:[Aa]pplication*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
732 convert -geometry $thumbxy $imgdir/file-icon.png \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
733 png:- > $file ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
734 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
735 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
736 done
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
737 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
738 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
739 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
740 echo "$val" # Keep newlines by ""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
741 return
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
742 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
743 done
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
744 done)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
745 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
746 getvalbypkey() (
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
747 # $1=tbl $2=col $3=pkey $4=tmpdirForBinary
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
748 pk=`gettblpkey $1`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
749 rowid=`query "select rowid from $1 where $pk='$3';"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
750 getvalbyid "$1" "$2" $rowid $4
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
751 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
752 getvalbycond() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
753 # $1=tbl $2=col $3=SQL-Condition
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
754 ###rowid=`sq $db "select rowid from $1 where $3"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
755 rowid=`query "select rowid from $1 where $3;"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
756 if [ -n "$rowid" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
757 getvalbyid "$1" "$2" $rowid "$4"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
758 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
759 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
760 getpwfield() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
761 # getpwfield user column
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
762 # val=`sqlite3 $db "select $2 from passwd where name='$1' $3"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
763 val=`getvalbycond user $2 "name='$1'"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
764 if [ -n "$val" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
765 echo "$val"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
766 return 0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
767 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
768 return 1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
769 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
770 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
771 encode() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
772 if [ -z "$sha1" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
773 if type sha1 >/dev/null 2>&1; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
774 sha1=sha1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
775 elif type sha1sum >/dev/null 2>&1; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
776 sha1=sha1sum
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
777 elif type gsha1sum >/dev/null 2>&1; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
778 sha1=gsha1sum
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
779 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
780 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
781 $sha1 "$@" | cut -d' ' -f1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
782 }
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
783 enjpeg() {
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
784 if [ -z "$cjpeg" ]; then
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
785 if type cjpeg >/dev/null 2>&1; then
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
786 cjpeg="cjpeg"
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
787 else
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
788 cjpeg="convert - jpeg:-"
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
789 fi
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
790 fi
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
791 $cjpeg "$@"
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
792 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
793 mycrypt() (
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
794 key=$1 salt=$2
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
795 err \$2=$2
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
796 case $2 in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
797 '$'*'$'*) salt=${salt#\$4\$}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
798 salt=${salt%\$*} ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
799 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
800 echo -n '$4$'"$salt"'$'
144
f9e8504bb8f2 Abort if encode fails
HIROSE Yuuji <yuuji@gentei.org>
parents: 143
diff changeset
801 echo "$salt$key" | encode || exit 1 # Abort if fail to call encode
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
802 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
803 hexize() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
804 if [ -z "$hexize" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
805 if type xxd >/dev/null 2>&1; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
806 hexize="xxd -p"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
807 else
8
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
808 hexize_hd() {
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
809 hexdump -ve '1/1 "%.2x"'
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
810 }
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
811 hexize="hexize_hd"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
812 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
813 fi
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
814 cat "$@" | $hexize | tr -d '\n'
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
815 }
8
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
816 unhexize() {
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
817 if [ -z "$unhex" ]; then
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
818 if type xxd >/dev/null 2>&1; then
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
819 unhex="xxd -p -r"
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
820 elif type perl >/dev/null 2>&1; then
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
821 cat >$tmpd/unhex.pl<<EOF
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
822 s/([0-9a-f]{2})/print chr hex \$1/gie
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
823 EOF
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
824 # Perl refuses -e in setuid circumstances, which can be absurdly
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
825 # avoided by creating scripts in a file where its parent directory is
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
826 # world writable...:)
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
827 unhex="perl -n $tmpd/unhex.pl"
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
828 fi
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
829 fi
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
830 cat "$@" | $unhex
8
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
831 # cat $1 | tee /tmp/uh.in| $unhex | tee /tmp/uh.out
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
832 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
833 percenthex() {
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
834 hexize "$@" | sed 's/\(..\)/%\1/g'
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
835 }
155
511406c0cbbe Do HTML escape at value editing
HIROSE Yuuji <yuuji@gentei.org>
parents: 154
diff changeset
836 htmlescape() {
511406c0cbbe Do HTML escape at value editing
HIROSE Yuuji <yuuji@gentei.org>
parents: 154
diff changeset
837 sed -e 's/\&/\&amp;/g' -e 's/"/\&quot;/g' -e "s/'/\&apos;/g" \
511406c0cbbe Do HTML escape at value editing
HIROSE Yuuji <yuuji@gentei.org>
parents: 154
diff changeset
838 -e "s/</\&lt;/g; s/>/\&gt;/g"
511406c0cbbe Do HTML escape at value editing
HIROSE Yuuji <yuuji@gentei.org>
parents: 154
diff changeset
839 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
840 enascii() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
841 if [ -z "$enascii" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
842 if type kakasi >/dev/null 2>&1; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
843 enascii="kakasi -Ha -Ka -Ja -Ea -ka"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
844 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
845 enascii_now=`date +%FT%T`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
846 enascii_sed() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
847 nkf -Z0Z1Z2 \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
848 | sed -e "s/^/$enascii_now/" -e "s|[^-0-9.A-z/,()_=]|x|g"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
849 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
850 enascii="enascii_sed"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
851 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
852 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
853 cat "$@" | $enascii
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
854 }
154
75598f2d3118 TEST: blog_showentry2 - constructing loop by output from single SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 153
diff changeset
855 size_h() {
164
0cc22764899e size_h returns more recognizable unit
HIROSE Yuuji <yuuji@gentei.org>
parents: 163
diff changeset
856 i="$1" oi=$1
0cc22764899e size_h returns more recognizable unit
HIROSE Yuuji <yuuji@gentei.org>
parents: 163
diff changeset
857 set -- B B KB MB GB TB
0cc22764899e size_h returns more recognizable unit
HIROSE Yuuji <yuuji@gentei.org>
parents: 163
diff changeset
858 while [ $((i)) -gt 9 -a -n "$1" ]; do # -gt 9 means $oi > 1024
154
75598f2d3118 TEST: blog_showentry2 - constructing loop by output from single SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 153
diff changeset
859 oi=$i
75598f2d3118 TEST: blog_showentry2 - constructing loop by output from single SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 153
diff changeset
860 i=$((i/1024))
164
0cc22764899e size_h returns more recognizable unit
HIROSE Yuuji <yuuji@gentei.org>
parents: 163
diff changeset
861 shift
154
75598f2d3118 TEST: blog_showentry2 - constructing loop by output from single SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 153
diff changeset
862 done
75598f2d3118 TEST: blog_showentry2 - constructing loop by output from single SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 153
diff changeset
863 echo ${oi}$1
75598f2d3118 TEST: blog_showentry2 - constructing loop by output from single SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 153
diff changeset
864 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
865 gettblconf() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
866 if [ -z "$tconfs" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
867 ## tconfs=`sq $db \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
868 tconfs=`query \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
869 "select tbl||'/'||col||'='||keytype||'/'||objtype from $conftbl;"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
870 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
871 # /tb1/col1=p/text /tb1/col2=s/text /tb1/col3=m/image /tb2/col1=p/text ...
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
872 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
873 gettblkeys() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
874 # $1=tbl
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
875 gettblconf
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
876 echo "$tconfs" | fgrep "/$1/" | \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
877 (type="" keys="" fks="" cols="" scols="" mcols="" hcols=""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
878 while IFS='=' read tc conf; do # tc=/tb1/col1 conf=s/text
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
879 col=${tc##*/} type=${conf%%/*}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
880 case $type in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
881 *p*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
882 cols=$cols"${cols:+:}$col"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
883 keys=$keys"${keys:+:}$col" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
884 *f*) cols=$cols"${cols:+:}$col"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
885 fks=$fks"${fks:+:}$col" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
886 *m*) mcols=$mcols"${mcols:+:}$col" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
887 *s*) scols=$scols"${scols:+:}$col" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
888 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
889 case $type in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
890 *h*) hcols=$hcols"${hcols:+:}$col" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
891 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
892 done
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
893 echo "_keys=$keys _fks=$fks _cols=$cols _scols=$scols _mcols=$mcols _hcols=$hcols")
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
894 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
895 gettblpkey() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
896 # $1=tbl
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
897 gettblkeys $1 | cut -d ' ' -f 1 | sed -e 's/.*=//' -e 's/:/ /g'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
898 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
899 gettblfkey() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
900 (x=`gettblkeys $1`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
901 x=${x#*_fks=} # cut before "_fks=" including
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
902 echo ${x%% *} | tr ':' ' ')
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
903 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
904 gettblcols() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
905 (x=`gettblkeys $1`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
906 x=${x#*_cols=} # cut before "_cols=" including
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
907 echo ${x%% *} | tr ':' ' ')
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
908 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
909 gettbl_s_cols() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
910 (x=`gettblkeys $1`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
911 x=${x#*_scols=} # cut before "_scols=" including
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
912 echo ${x%% *} | tr ':' ' ')
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
913 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
914 gettbl_m_cols() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
915 (x=`gettblkeys $1`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
916 x=${x#*_mcols=} # cut before "_mcols=" including
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
917 echo ${x%% *} | tr ':' ' ')
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
918 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
919 gettbl_h_cols() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
920 (x=`gettblkeys $1`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
921 x=${x#*_hcols=} # cut before "_hcols=" including
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
922 echo ${x%% *} | tr ':' ' ')
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
923 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
924 gettbl_coltype() (
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
925 gettblconf
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
926 x=`echo "$tconfs"|fgrep $1=`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
927 x=${x#*=} # cut before =
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
928 echo ${x#*/} # cut before p/ including
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
929 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
930 is_hidden() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
931 # $1=Tbl $2=col
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
932 gettblconf
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
933 x=`echo "$tconfs"|fgrep /$1/$2=`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
934 x=${x#*=} # cut before =
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
935 x=${x%%/*} # cut after /
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
936 case $x in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
937 *h*) return 0 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
938 *) return 1 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
939 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
940 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
941
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
942 dbsetbyid() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
943 # $1=tbl $2=id $3=col $4=val/filename - &optional - $5=content-type
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
944 (t0=$1 t=$1 p=$2 c=$3
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
945 tsc=$t/$c val=$4
386
606404fbb3d3 Sort group list by posting time(wtime)
HIROSE Yuuji <yuuji@gentei.org>
parents: 384
diff changeset
946 quotedp=$(sqlquotestr "$p")
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
947 unset primary update
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
948 gettblconf
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
949 #err tsc=$tsc, tconfs="$tconfs"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
950 conf=`echo "$tconfs"|fgrep "$tsc"=`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
951 #err conf=$conf
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
952 case ${conf#*=} in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
953 p*) primary=1 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
954 f*) update=1 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
955 u*) ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
956 m*) t=${t}_m;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
957 s*) t=${t}_s;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
958 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
959 #err t=$t
386
606404fbb3d3 Sort group list by posting time(wtime)
HIROSE Yuuji <yuuji@gentei.org>
parents: 384
diff changeset
960 type=string fn=""
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
961 case $conf in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
962 */password)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
963 type=encoded ### val=`echo $val|encode`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
964 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
965 */image*|*/document*)
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
966 type=`file --mime-type - < "$val" | cut -d' ' -f2`
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
967 bin="X'`hexize "$val"`'"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
968 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
969 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
970 pkey=`echo "$tconfs"|grep "${t0}/.*=p"|sed 1q`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
971 pkey=${pkey#/*/} # cut $tbl/
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
972 pkey=${pkey%=p/*} # cut =p/... -> primary key
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
973 if [ "$primary" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
974 nulls=`echo "$tconfs"|grep "$t/.*=[fu]/"|sed 's/^.*/, NULL/'|tr -d '\n'`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
975 ###sq $db "replace into $t values(\"$val\"$nulls)"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
976 query "replace into $t values(\"$val\"$nulls);"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
977 elif [ "$update" ]; then
386
606404fbb3d3 Sort group list by posting time(wtime)
HIROSE Yuuji <yuuji@gentei.org>
parents: 384
diff changeset
978 query "update $1 set $c=\"$val\" where $pkey=$quotedp;"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
979 else
386
606404fbb3d3 Sort group list by posting time(wtime)
HIROSE Yuuji <yuuji@gentei.org>
parents: 384
diff changeset
980 query "replace into $t values($quotedp, \"$c\", \"$type\", \"$val\", \"$bin\");"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
981 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
982 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
983 }
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
984 expire() (
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
985 at="${1:-$timeout}"
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
986 FMT="${2:-%F %T}"
6
7ccd9c2eb97e Add templates
HIROSE Yuuji <yuuji@gentei.org>
parents: 4
diff changeset
987 TZ=GMT gdate -d "$at" +"$FMT"
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
988 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
989 addsession() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
990 # expireをセット
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
991 # loginの先にどの画面に行くかの状態遷移表書式を決める
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
992 expire=`expire ${2:-"+1min"}`
309
4188f5b3fd67 Use "quier()" instead of "sq $db" at parameter setup
HIROSE Yuuji <yuuji@gentei.org>
parents: 308
diff changeset
993 query "replace into session values('$1', '$expire');"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
994 # Remove old session parameters
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
995 now=`expire now`
309
4188f5b3fd67 Use "quier()" instead of "sq $db" at parameter setup
HIROSE Yuuji <yuuji@gentei.org>
parents: 308
diff changeset
996 query "delete from session where expire < '$now';"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
997 }
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
998 gencookie() (
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
999 for kv; do
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1000 expire="`expire '' '%a, %d-%b-%Y %H:%M:%S GMT'`"
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1001 echo "Set-Cookie: $kv; expires=$expire"
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1002 done
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1003 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1004 contenttype() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1005 echo "Content-type: ${1:-text/html; charset=utf-8}"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1006 contenttype() {} # Only need to work once
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1007 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1008 putheader() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1009
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1010 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1011 putfooter() {
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1012 _m4 -D_TITLE_="${TITLE:-$myname}" $layout/footer.m4.html
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1013 }
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1014 getcookie() (
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1015 for kv in `echo $HTTP_COOKIE|sed 's/[;, ]/ /g'`; do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1016 k="${kv%%=*}"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1017 v="`echo ${kv#*=}|nkf -Ww -mQ|sed -e 's/\"/\"\"/g'`"
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1018 query "replace into cookie values('$session', '$k', 'string', \"$v\");"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1019 done
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1020 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1021 genrandom() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1022 # $1=columns (default: 10)
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1023 dd if=/dev/urandom count=1 2>/dev/null|nkf -MB|fold -w${1:-10}|sed -n 10p
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1024 }
268
138da0f3a2e5 Duplicate post by reloading or back+submit, dissolved
HIROSE Yuuji <yuuji@gentei.org>
parents: 267
diff changeset
1025 genserial() {
138da0f3a2e5 Duplicate post by reloading or back+submit, dissolved
HIROSE Yuuji <yuuji@gentei.org>
parents: 267
diff changeset
1026 echo $((($(date +%s)-1433084400)/10))c$$
138da0f3a2e5 Duplicate post by reloading or back+submit, dissolved
HIROSE Yuuji <yuuji@gentei.org>
parents: 267
diff changeset
1027 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1028 smail() {
166
32557aa9af94 $SMAIL_TO controls To: header value.
HIROSE Yuuji <yuuji@gentei.org>
parents: 164
diff changeset
1029 # smail rcpts subj (file)
300
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
1030 # $SMAIL_TO <- Recipient value of To: header
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
1031 # $MAIL_FROM <- From: header value
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
1032 from=`echo "${MAIL_FROM:-$admin}"|nkf -jM|tr -d '\n'`
411
e30fe590a53e Allow replymark in other than the first line.
HIROSE Yuuji <yuuji@gentei.org>
parents: 400
diff changeset
1033 rcpt=`echo $1|tr ' ' '\n'|sort -u|tr '\n' ' '` # uniq and strip newlines
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
1034 subj=`echo $2|nkf -jM|tr -d '\n'`
300
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
1035 (_m4 -D_RCPT_="${SMAIL_TO:-$rcpt}" -D_SUBJ_="\`$subj'" -D_FROM_="$from" $msgdir/mail-header.m4
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1036 cat $3 | nkf -jd ) | sendmail -f $admin $rcpt
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1037 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1038 setviastring() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1039 table=$1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1040 oifs="$IFS"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1041 IFS="&"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1042 for us in $2; do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1043 k=${us%%=*}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1044 v="`echo ${us#*=}|tr '%+' '= '|nkf -Ww -mQ|sed -e 's/\"/\"\"/g'`"
309
4188f5b3fd67 Use "quier()" instead of "sq $db" at parameter setup
HIROSE Yuuji <yuuji@gentei.org>
parents: 308
diff changeset
1045 query "replace into $table values('$session', '$k', 'string', \"$v\");"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1046 #echo $k=$v
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1047 done
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1048 IFS="$oifs"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1049 }
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1050 checkdomain() (
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1051 # Check the validity of domain by referring DNS
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1052 item=$1
83
815840076efa Directory structure refreshed
HIROSE Yuuji <yuuji@gentei.org>
parents: 81
diff changeset
1053 err checkdomain $1
815840076efa Directory structure refreshed
HIROSE Yuuji <yuuji@gentei.org>
parents: 81
diff changeset
1054 host ${item#*@} 1>&3 2>&3
815840076efa Directory structure refreshed
HIROSE Yuuji <yuuji@gentei.org>
parents: 81
diff changeset
1055 host ${item#*@} >/dev/null 2>&1
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1056 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1057 pwcheck() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1058 # $1=passwd
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1059 dbpswd=`getpwfield $user pswd`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1060 encpswd=`mycrypt "$1" "$dbpswd"`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1061 ## err user=$user, pswd=$1, db=$dbpswd, enc=$encpswd
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1062 [ x"$dbpswd" = x"$encpswd" ]
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1063 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1064 mypwhash() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1065 mycrypt `cat` `genrandom 5`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1066 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1067 wasureta() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1068 user=$1
83
815840076efa Directory structure refreshed
HIROSE Yuuji <yuuji@gentei.org>
parents: 81
diff changeset
1069 if ! checkdomain $user; then
815840076efa Directory structure refreshed
HIROSE Yuuji <yuuji@gentei.org>
parents: 81
diff changeset
1070 contenttype; echo
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1071 _m4 -D_TITLE_='Invalid email' $layout/title-only.html
83
815840076efa Directory structure refreshed
HIROSE Yuuji <yuuji@gentei.org>
parents: 81
diff changeset
1072 echo "ユーザ名($user)には正しいメイルアドレスが必要です。" | html p
815840076efa Directory structure refreshed
HIROSE Yuuji <yuuji@gentei.org>
parents: 81
diff changeset
1073 putfooter
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1074 exit 0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1075 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1076 newpswd=`genrandom` # newsalt=`genrandom 5`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1077 #encpswd=`mycrypt "$newpswd" "$newsalt"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1078 encpswd=`echo $newpswd|mypwhash`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1079 dbsetbyid user $user pswd "$encpswd"
100
8dc950197939 "radio" and "checkbox"
HIROSE Yuuji <yuuji@gentei.org>
parents: 83
diff changeset
1080 # Avoid $user substitution with m4, because $url comes from user input.
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1081 _m4 -D_PSWD_="$newpswd" -D_URL_="$url" -D_ADMIN_="$admin" \
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
1082 $msgdir/mail-newaccount.m4 \
100
8dc950197939 "radio" and "checkbox"
HIROSE Yuuji <yuuji@gentei.org>
parents: 83
diff changeset
1083 | sed "s/_USER_/$user/g" \
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1084 | smail $user "New Account"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1085 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1086 checkauth() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1087 user=`getpar user`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1088 skc=`getpar skey` # from cookie
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1089 [ -z "$user" ] && return 3
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1090 skey="`getpwfield $user skey`"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1091 if [ -n "$skey" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1092 if [ x"$skey" = x"$skc" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1093 return 0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1094 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1095 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1096 pswd=`getpar pswd`
298
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
1097 quser=`sqlquotestr "$user"`
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
1098 dbuser=`query "SELECT name FROM user WHERE name=$quser;"`
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
1099 if [ -z "$dbuser" ]; then
299
b38514180d13 Fake wasureta for invalid user
HIROSE Yuuji <yuuji@gentei.org>
parents: 298
diff changeset
1100 return 1
298
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
1101 elif [ x"$pswd" = x"wasureta" ]; then
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1102 wasureta $user
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1103 return 1 # wasureta error
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1104 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1105 # dbpswd="`sq $db \"select pswd from passwd where name='$user'\"`"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1106 # putheader; echo; echo user=$user, db=$dbpswd, enc=$encpswd
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1107 if pwcheck "$pswd"; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1108 newsession=`genrandom 50`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1109 dbsetbyid user $user skey "$newsession"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1110 gencookie "user=$user" "skey=$newsession"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1111 return 0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1112 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1113 return 2 # Password mismatch
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1114 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1115 showlogin() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1116 args=`echo $myargs|tr ' ' '+'`
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1117 _m4 -D_SYSNAME_="Welcome" -D_MYNAME_="$myname${args+?}$args" \
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1118 $layout/login.m4.html
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1119 exit 0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1120 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1121 dologin() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1122 checkauth
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1123 st=$?
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1124 if [ $st != 0 ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1125 contenttype; echo
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1126 _m4 -D_USER_="$user" -D_URL_="$url" -D_ADMIN_="$admin" \
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
1127 $msgdir/login-fail-$st.m4.html
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1128 showlogin # and EXIT
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1129 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1130 }
67
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
1131
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
1132 # Do instant jobs here
163
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
1133 dbsetup
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1134 trap cleanup INT HUP EXIT TERM PIPE
163
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
1135 # trap cleanup INT HUP
67
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
1136
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
1137 err() {
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
1138 echo "$@" 1>&3
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
1139 }
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
1140
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1141 cgiinit() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1142 session=`date +%F-$$`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1143 tmpf=tmp/stream
11
3565d93c2fb1 add mpsplit.pl
HIROSE Yuuji <yuuji@gentei.org>
parents: 8
diff changeset
1144 tmpd=`tmpd=$tmpdir mktempd`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1145 tmpfiles=$tmpfiles" $tmpd"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1146 addsession $session
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1147 getcookie
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1148 case "$REQUEST_METHOD" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1149 get|GET) s="$QUERY_STRING" ;;
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
1150 post|POST) ## dd count=$CONTENT_LENGTH bs=1 of=$tmpf 2>/dev/null #slow
137
1731efcb74c7 Add comment on dd bs=LARGE
HIROSE Yuuji <yuuji@gentei.org>
parents: 136
diff changeset
1151 ## dd bs=$CONTENT_LENGTH count=1 of=$tmpf # NOT working
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
1152 # cat > $tmpf # too much?
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
1153 head -c $CONTENT_LENGTH > $tmpf # safe?
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
1154 (echo CL=$CONTENT_LENGTH; ls -lF $tmpf) 1>&3
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1155 s="`cat tmp/stream`"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1156 tmpfiles=$tmpfiles"${tmpfiles+ }$tmpf"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1157 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1158 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1159 case "$CONTENT_TYPE" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1160 *boundary*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1161 bndry=${CONTENT_TYPE#*boundary=}
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
1162 #for us in `LC_CTYPE=C ./mpsplit.rb "$bndry" $tmpd < $tmpf`
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
1163 for us in `LC_CTYPE=C ./mpsplit.pl "$bndry" $tmpd < $tmpf`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1164 do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1165 k=${us%%\=*}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1166 #echo u=$us
11
3565d93c2fb1 add mpsplit.pl
HIROSE Yuuji <yuuji@gentei.org>
parents: 8
diff changeset
1167 #v="`echo ${us#*=}|nkf -Ww -mQ|sed -e 's/\"/\"\"/g'`"
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
1168 v="`echo ${us#*=}|unhexize|sed -e 's/\"/\"\"/g'`"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1169 # err k=$k v=$v
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1170 case "$k" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1171 *:filename)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1172 type='file'; k=${k%:filename}
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1173 # DO NOT ALLOW Space and '|' in file names
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1174 newv=`echo "$v"|sed 's/[ \|]/X/g'`
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1175 if [ x"$v" != x"$newv" ]; then
329
e4fedb216119 Making sure whether it runs on ksh
HIROSE Yuuji <yuuji@gentei.org>
parents: 328
diff changeset
1176 :
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1177 fi
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1178 # (echo k=$k v="[$v]"; ls -lF "$tmpd/$v"; file --mime-type "$tmpd/$v") 1>&3
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1179 case `file --mime-type - < "$tmpd/$v"|cut -d' ' -f2` in
132
7a9cd078bf6a bzip2 *.xcf files
HIROSE Yuuji <yuuji@gentei.org>
parents: 131
diff changeset
1180 [Ii]mage/x-xcf)
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1181 bzip2 "$tmpd/$v"
132
7a9cd078bf6a bzip2 *.xcf files
HIROSE Yuuji <yuuji@gentei.org>
parents: 131
diff changeset
1182 v=${v}.bz2
7a9cd078bf6a bzip2 *.xcf files
HIROSE Yuuji <yuuji@gentei.org>
parents: 131
diff changeset
1183 ;;
7a9cd078bf6a bzip2 *.xcf files
HIROSE Yuuji <yuuji@gentei.org>
parents: 131
diff changeset
1184 [Ii]mage/x-*|*/vnd.*) ;;
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1185 [Ii]mage/*)
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1186 mogrify -resize $maximagexy'>' "$tmpd/$v"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1187 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1188 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1189 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1190 *)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1191 type='string'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1192 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1193 esac
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
1194 #sq $db "replace into par values('$session', '$k', '$type', \"$v\")"
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
1195 setpar "$k" "$type" "$v"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1196 done
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1197 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1198 *)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1199 setviastring par "$s"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1200 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1201 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1202 }
58
ccd0c6736215 Argument order reversed on email4group
HIROSE Yuuji <yuuji@gentei.org>
parents: 56
diff changeset
1203 email4group() {
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
1204 # Get for-$1=group email address(es) for $2...=users
58
ccd0c6736215 Argument order reversed on email4group
HIROSE Yuuji <yuuji@gentei.org>
parents: 56
diff changeset
1205 qgrp=`sqlquote "$1"`; shift
ccd0c6736215 Argument order reversed on email4group
HIROSE Yuuji <yuuji@gentei.org>
parents: 56
diff changeset
1206 users=`for i; do sqlquote "$i"; done`
ccd0c6736215 Argument order reversed on email4group
HIROSE Yuuji <yuuji@gentei.org>
parents: 56
diff changeset
1207 users=`echo $users|tr ' ' ','`
56
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
1208 sql="select coalesce(s.val, g.user) from grp_mem g
58
ccd0c6736215 Argument order reversed on email4group
HIROSE Yuuji <yuuji@gentei.org>
parents: 56
diff changeset
1209 left join grp_mem_s s on g.gname=s.gname and g.user=s.user
ccd0c6736215 Argument order reversed on email4group
HIROSE Yuuji <yuuji@gentei.org>
parents: 56
diff changeset
1210 and s.key='email'
ccd0c6736215 Argument order reversed on email4group
HIROSE Yuuji <yuuji@gentei.org>
parents: 56
diff changeset
1211 where g.gname=$qgrp and g.user in ($users);"
56
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
1212 query "$sql"
58
ccd0c6736215 Argument order reversed on email4group
HIROSE Yuuji <yuuji@gentei.org>
parents: 56
diff changeset
1213 }
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
1214 email4groupbyuid() {
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
1215 # Get for-$1=group email address(es) for $2...=user-ids
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
1216 qgrp=`sqlquote "$1"`; shift
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
1217 uids=`echo "$@"`
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
1218 uids=`echo $uids|tr ' ' ','`
240
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1219 sql="WITH
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1220 grpemails AS (
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1221 SELECT gname, user, val email
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1222 FROM grp_mem NATURAL JOIN grp_mem_s
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1223 WHERE key='email' AND gname=$qgrp),
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1224 useremails AS (
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1225 SELECT user.rowid rid, user.name, val email
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1226 FROM user
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1227 LEFT JOIN user_s
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1228 ON user.name=user_s.name AND user_s.key='email')
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1229 SELECT DISTINCT coalesce(g.email, u.name)
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1230 FROM useremails u LEFT JOIN grpemails g
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1231 ON u.name=g.user
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1232 WHERE u.rid in ($uids);"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1233 ## err email4gByid `echo $sql`
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
1234 query "$sql"
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
1235 }
443
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1236 collectmembersbyid() {
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1237 # Collect user names of group specified by grid
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1238 rid=${1%%[!0-9]*} # Cleaning
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1239 query "SELECT user FROM grp_mem \
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1240 WHERE gname=(SELECT gname FROM grp WHERE rowid=$rid);"
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1241 }
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1242 collectmembersbyid() {
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1243 # Collect user names of group name
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1244 qgrp=`sqlquote "$1"`
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1245 query "SELECT user FROM grp_mem WHERE gname=$qgrp;"
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1246 }
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1247 collectgecosesbyid() {
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1248 # Collect user gecoses of group
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1249 rid=${1%%[!0-9]*} # Cleaning
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1250 query<<-EOF
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1251 SELECT gecos
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1252 FROM gecoses
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1253 WHERE name IN (SELECT user FROM grp_mem
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1254 WHERE gname=(SELECT gname FROM grp WHERE rowid=$rid));
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1255 EOF
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1256 }
47
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
1257 collectemail() (
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1258 # Collect email addresses for group $1
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1259 # If $TEAM is set, filter by team name
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1260 # If $EXCEPT is set as username(s) delimited by comma,
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1261 # remove $EXCEPT from list: ....NOT IN ($EXCEPT)
47
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
1262 for e; do
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
1263 if isuser "$e"; then
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1264 em=`query "select val from user_m where name='$e' and key='email';"`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1265 [ -n "$em" ] && echo "$em" || echo "$e"
47
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
1266 else
56
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
1267 qgrp=`sqlquote "$e"`
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1268 if [ -z "$TEAM" ]; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1269 gmem="grp_mem"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1270 else
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1271 tm=`sqlquote "$TEAM"`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1272 gmem="(SELECT gname, user FROM grp_mem_m WHERE gname='$e' AND key='team' AND val=$tm)"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1273 fi
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1274 ex=${EXCEPT:+"AND g.user NOT IN ($EXCEPT)"}
62
5ca8f194faf2 Collect emails for group give a preference to email values in user_m.
HIROSE Yuuji <yuuji@gentei.org>
parents: 61
diff changeset
1275 sql="select coalesce(s.val,um.val,g.user) from
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1276 $gmem g left join grp_mem_s s
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1277 on g.gname=s.gname and g.user=s.user and s.key='email'
62
5ca8f194faf2 Collect emails for group give a preference to email values in user_m.
HIROSE Yuuji <yuuji@gentei.org>
parents: 61
diff changeset
1278 left join user_m um on g.user=um.name and um.key='email'
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1279 where g.gname=$qgrp $ex;"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1280 ## err CollectEmail: `echo "$sql"`
47
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
1281 query "$sql"
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
1282 fi
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
1283 done
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
1284 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1285 sendinvitation() (
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1286 # $1=email
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1287 iss="invite-`date +%s`-$user"
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
1288 addsession $iss +${memoplimitdays}days # 1 week due date
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1289 query "replace into par values('$iss', 'invite', 'string', \"$1\");"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1290 gecos=`gecos`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1291 name=$user"${gecos:+($gecos)}"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1292 regist="$urlbase?reg+$iss"
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1293 _m4 -D_URL_="$urlbase" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1294 -D_USER_="$name" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1295 -D_EMAIL_="$1" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1296 -D_REGIST_="$regist" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1297 -D_ADMIN_="$admin" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1298 $msgdir/mail-invite.m4 \
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1299 | smail $1 "BBSへの御招待"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1300 return 0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1301 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1302 emaildomaincheck() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1303 case "$1" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1304 *@*@*) echo "無効なアドレスです"; return 1 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1305 *@*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1306 local=${1%@*} domain=${1#*@}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1307 if ! host $domain >/dev/null 2>&1; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1308 echo "ドメイン($domain)が見付かりません。"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1309 return 2
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1310 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1311 return 0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1312 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1313 *) echo "正しいメイルアドレスをいれてください"; return 3 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1314 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1315 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1316 invite() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1317 email=`getpar email`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1318 case $email in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1319 *@*@*) repo="無効なアドレスです" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1320 *@*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1321 local=${email%@*} domain=${email#*@}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1322 if ! repo=`emaildomaincheck $email`; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1323 repo="招待アドレスのエラー: $repo"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1324 elif [ -n "`query \"select * from user where name='$email';\"`" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1325 repo="$email さんは既に加入しています。"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1326 elif sendinvitation $email; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1327 repo="アドレス($email)宛に案内を送信しました。"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1328 fi ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1329 "") repo="招待したい人のメイルアドレスを入力してください。" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1330 *) repo="無効なアドレスです" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1331 esac
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1332 addr=`query "select val from par where sessid like 'invite-%-$user';"`
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1333 if [ -n "$addr" ]; then
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1334 susp="<h2>招待済みで加入待ちのアドレス</h2><pre>$addr</pre>"
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1335 fi
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1336 _m4 -D_TITLE_="招待" -D_REPORT_="\`$repo'" -D_ACTION_="?invite" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1337 -D_BODYCLASS_="default" -D_SUSPENDED_="$susp" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1338 $layout/html.m4.html $layout/invite.m4.html
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1339 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1340 regist() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1341 # $1=session-id-for-invitation
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1342 _m4 -D_TITLE_="Invitation" $layout/html.m4.html
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1343 if [ -z "$1" ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
1344 echo "bye bye" | html p
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1345 reutrn
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1346 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1347 email=`session=$1 getpar invite`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1348 if [ -z "$email" ];then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1349 cat<<EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1350 <p>無効な招待状チケットです。</p>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1351 <p>招待状の有効期限(1週間)が切れているか、チケット番号が異なっています。
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1352 加入している人に、再度招待してもらいましょう。</p>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1353 EOF
65
HIROSE Yuuji <yuuji@gentei.org>
parents: 62
diff changeset
1354 return
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1355 fi
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
1356 echo "$email さんようこそ" | html h2
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1357 query "replace into user values('$email');"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1358 # Fake login password to wasureta
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1359 query "replace into par values('$session', 'pswd', 'string', 'wasureta'),
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1360 ('$session', 'user', 'string', '$email');"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1361 wasureta $email
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
1362 echo "このアドレスに初期パスワードを送信しました。" |html p
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
1363 echo "新着メイルを確認してログインしてください。" |html p
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1364 addsession $1 # for removal after 1 minute
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1365 _m4 -D_SYSNAME_="Initial Login" -D_MYNAME_="$myname?userconf" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1366 $layout/login.m4.html
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1367 return
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1368 }
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1369 group_safename() {
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1370 # Convert $1 to safe group name
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1371 echo "$1" | tr -d '"'"'",
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1372 }
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1373 groupupdate() {
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1374 gname=`getpar gname`
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
1375 qgname=`sqlquote "$gname"`
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1376 if [ -n "$gname" ]; then
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1377 # See ALSO same job in showgroup()
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1378 newgname=`group_safename "$gname"`
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1379 err newgname=$newgname
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1380 if [ x"$newgname" != x"$gname" ]; then
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1381 err NewGNAME: gname=$newgname
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1382 gname=$newgname
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1383 echo "使用禁止文字を除去し $gname としました。" | html p
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1384 replpar gname string "$gname"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1385 fi
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1386 # Name confliction check
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1387 parow=`getpar rowid`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1388 ## err parow=$parow
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
1389 qgname=`sqlquote "$gname"` # Set again in case gname modified
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1390 query "BEGIN EXCLUSIVE;"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1391 ## err "select count(gname) from grp where rowid != ${parow:-0} and gname = $qgname;"
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1392 count=$(query "select count(gname) from grp where rowid != ${parow:-0} and gname = $qgname;")
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1393 if [ $count -gt 0 ]; then
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1394 echo "そのグループ名は既にあります。" | html p
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1395 query "END;"
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1396 return
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1397 fi
123
718abe22a5d1 Call large query with SQL script in par2table()
HIROSE Yuuji <yuuji@gentei.org>
parents: 122
diff changeset
1398 par2table $formdir/grp.def
122
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1399 query "END TRANSACTION;"
163
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
1400 # Remove orphan
122
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1401 : <<EOF
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1402 select a.id,b.val from (select * from blog where id in
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1403 (select id from blog_s where key='owner'
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1404 and val not in (select name from user union select gname from grp)))
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1405 a left join blog_s b on a.id=b.id and b.key='owner';
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1406 EOF
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1407 rm=`getpar rm` cfm=`getpar confirm`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1408 ## err groupupdate:::: after par2tbl rmcfm=$rm$cfm
122
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1409 if [ x"$rm$cfm" = x"yesyes" ]; then
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1410 if [ -z "`query \"select gname from grp where gname=$qgname;\"`" ]; then
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1411 sql="delete from blog where id in
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1412 (select id from blog_s where key='owner' and val=$qgname);"
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1413 err rm-grp cleaning sql=`echo $sql`
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1414 query "$sql";
307
e7a7f6cb9627 When removing a group, switch to grp-list and return
HIROSE Yuuji <yuuji@gentei.org>
parents: 306
diff changeset
1415 grps # When removing a group, switch to grp-list
e7a7f6cb9627 When removing a group, switch to grp-list and return
HIROSE Yuuji <yuuji@gentei.org>
parents: 306
diff changeset
1416 return # and return
122
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1417 fi
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1418 fi
305
e751156de740 Do not add email address to grp_mem_s at new group creation
HIROSE Yuuji <yuuji@gentei.org>
parents: 302
diff changeset
1419 [ -z "$parow" ] && joingrp "$gname" "$user" yes "" as-admin
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1420 fi
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1421 sql="select rowid from grp where gname=$qgname;"
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1422 grid=$(query $sql)
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1423 ## err grpupdate:new-grid=$grid, sql=$sql
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1424 grp $grid
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1425 }
382
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1426 groupclone() {
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1427 # $1=grp-rowid of clone-base group
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1428 qgrp=`query "SELECT quote(gname) FROM grp WHERE rowid=$1;"`
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1429 if [ -z "$qgrp" ]; then
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1430 echo "無効なグループIDです($1)" | html p
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1431 return
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1432 fi
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1433 i=0
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1434 while true; do
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1435 copy="-copy$i"
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1436 newqname=`query "SELECT quote($qgrp || '$copy');"`
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1437 # err Trying new grp=$newqname with copy=$copy
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1438 test=`query "SELECT gname FROM grp WHERE gname=$newqname;"`
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1439 if [ -n "$test" ]; then
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1440 i=$((i++))
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1441 continue
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1442 fi
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1443 break
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1444 done
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1445 # Creating New group "$newqname" with members of old group
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1446 # err Creating new grp=$newqname with copy=$copy
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1447 query<<-EOF
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1448 BEGIN;
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1449 INSERT INTO grp VALUES($newqname); -- Create NEW one
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1450 REPLACE INTO grp_s(gname, key, val) -- Copy tag
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1451 SELECT $newqname, key, val
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1452 FROM grp_s WHERE gname=$qgrp AND key IN ('tag', 'mode');
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1453 REPLACE INTO grp_s(gname, key, type, val) -- Copy gecos with "copy$n"
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1454 SELECT $newqname, key, type, val || '$copy'
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1455 FROM grp_s WHERE gname=$qgrp AND key='gecos';
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1456 -- Copy members and their configuration --
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1457 REPLACE INTO grp_mem SELECT $newqname, user
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1458 FROM grp_mem WHERE gname=$qgrp;
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1459 REPLACE INTO grp_mem_s SELECT $newqname, user, key, type, val, bin
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1460 FROM grp_mem_s WHERE gname=$qgrp;
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1461 REPLACE INTO grp_mem_m SELECT $newqname, user, key, type, val, bin
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1462 FROM grp_mem_m WHERE gname=$qgrp;
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1463 -- Copy administrators --
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1464 REPLACE INTO grp_adm SELECT $newqname, user
383
93ba4a8f3398 Oops, grp_adm should not be copied from grp_mem
HIROSE Yuuji <yuuji@gentei.org>
parents: 382
diff changeset
1465 FROM grp_adm WHERE gname=$qgrp;
382
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1466 COMMIT;
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1467 EOF
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1468 newrowid=`query "SELECT rowid FROM grp WHERE gname=$newqname;"`
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1469 STOPCLONEMSG=1 groupconf "$newrowid"
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1470 }
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1471 groupman() {
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1472 note="<p>グループ名に使用できない文字は自動的に削除されます。</p>"
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1473
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1474 GF_STAGE="grpconf"
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1475 GF_STAGE=groupupdate
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1476 DT_VIEW=grp dumptable html grp 'gname gecos:DESC mtime:TIME' 'order by b.TIME desc' \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1477 |_m4 -D_TITLE_="グループ作成" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1478 -D_FORM_="$note`genform $formdir/grp.def`" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1479 -D_DUMPTABLE_="syscmd(cat)" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1480 $layout/html.m4.html $layout/form+dump.m4.html
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1481 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1482 userconf() {
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1483 [ -n "`getpar rowid`" ] && par2table $formdir/user.def
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1484 _m4 -D_BODYCLASS_=userconf -D_TITLE_="ユーザ情報編集" $layout/html.m4.html
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1485 GF_ACTION="?home" edittable "$formdir/user.def" "user" "$user"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1486 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1487 groupconf() {
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
1488 # $1=rowid in grp (2015-07-21 changed from gname)
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1489 [ -n "`getpar rowid`" ] && par2table $formdir/grp.def
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1490 _m4 -D_BODYCLASS_=groupconf -D_TITLE_="グループ情報編集" $layout/html.m4.html
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
1491 #rowid=`query "select rowid from grp where gname='$1';"`
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
1492 rowid=${1%%[!A-Z0-9a-z_]*}
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1493 # GF_ACTION="?grp+$1" edittable "$formdir/grp.def" "grp" "$rowid" #2015-0804
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1494 GF_STAGE="groupupdate" edittable "$formdir/grp.def" "grp" "$rowid"
384
305381d205bb Shring anchored portion of link to groupclone()
HIROSE Yuuji <yuuji@gentei.org>
parents: 383
diff changeset
1495 if [ -z "$STOPCLONEMSG" ]; then
305381d205bb Shring anchored portion of link to groupclone()
HIROSE Yuuji <yuuji@gentei.org>
parents: 383
diff changeset
1496 echo "同じ構成員で新規グループ<a href=\"?groupclone+$rowid\">作成</a>" \
305381d205bb Shring anchored portion of link to groupclone()
HIROSE Yuuji <yuuji@gentei.org>
parents: 383
diff changeset
1497 | html p
305381d205bb Shring anchored portion of link to groupclone()
HIROSE Yuuji <yuuji@gentei.org>
parents: 383
diff changeset
1498 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1499 }
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1500 mems() {
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1501 _m4 -D_TITLE_="参加者一覧" -D_BODYCLASS_=listmember $layout/html.m4.html
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1502 kwd=`getpar kwd`
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1503 listmember $kwd
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1504 }
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1505 grps() {
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1506 _m4 -D_TITLE_="グループ一覧" -D_BODYCLASS_=listgroup $layout/html.m4.html
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1507 kwd=`getpar kwd`
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1508 listgroup $kwd \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1509 | _m4 -D_DUMPTABLE_="syscmd(cat)" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1510 -D_TITLE_="グループ関連操作" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1511 -D_FORM_="<a href=\"?groupman\">新規グループ作成</a>" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1512 $layout/form+dump.m4.html
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1513 }
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1514 grp() { # $1=group-rowid
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1515 gpg=`getpar grp`
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1516 grid=${1:-$gpg}
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1517 grp=`getgroupbyid "$grid"`
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1518 ## . ./s4-blog.sh
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1519 jg=`getpar joingrp`
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1520 if [ -n "$jg" ]; then
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1521 [ -n "$jg" -a -n "$grp" ] &&
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1522 joingrp "$grp" "$user" "$jg" "`getpar email`"
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1523 fi
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
1524 htmlheader=$layout/html.m4.html
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1525 showgroup "$grid"
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1526 }
343
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1527 sql4interestblogs() {
177
1adafaf079a0 remove debug code
HIROSE Yuuji <yuuji@gentei.org>
parents: 176
diff changeset
1528 cat<<EOF
343
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1529 CREATE TEMPORARY VIEW interestblogs AS
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1530 SELECT blog.rowid rid, id, author
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1531 FROM blog
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1532 NATURAL JOIN
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1533 (SELECT id, val owner FROM blog_s WHERE key='owner') bs
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1534 WHERE CASE WHEN (SELECT name FROM user where name=bs.owner) IS NOT NULL
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1535 THEN 1 -- blog owner is an user, READABLE
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1536 WHEN (SELECT user FROM grp_mem
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1537 WHERE gname=bs.owner AND user='$user') IS NULL
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1538 THEN 0
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1539 ELSE 1
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1540 END;
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1541 EOF
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1542 }
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1543 listnewblogsql() { # $1=user
345
8134b548b385 Taking default access time broken, fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 343
diff changeset
1544 deftime=`query "SELECT coalesce((SELECT time FROM acclog
8134b548b385 Taking default access time broken, fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 343
diff changeset
1545 WHERE user='$user'
8134b548b385 Taking default access time broken, fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 343
diff changeset
1546 AND tblrowid=$blogreadflagrowid),
8134b548b385 Taking default access time broken, fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 343
diff changeset
1547 "0");"`
392
be955399aec9 Owner should be taken via getvalbyid
HIROSE Yuuji <yuuji@gentei.org>
parents: 391
diff changeset
1548 cat<<EOF
343
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1549 `sql4interestblogs`
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1550 WITH article_ctime as (
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1551 SELECT id,blogid,author,val ctime
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1552 FROM article join article_s s using(id)
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1553 WHERE s.key='ctime'
175
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
1554 ), blog_title_owner as (
343
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1555 SELECT blg.rid brid, id,
175
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
1556 max(case key when 'title' then val end) title,
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
1557 max(case key when 'owner' then val end) owner
343
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1558 FROM interestblogs blg, blog_s using(id) group by id
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1559 ), visited AS (
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1560 SELECT b.id id, brid, b.owner owner, b.title title, ctime, ac.author author
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1561 FROM blog_title_owner b, article_ctime ac
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1562 JOIN acclog al
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1563 ON b.id=ac.blogid
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1564 AND al.tbl='blog'
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1565 AND al.tblrowid=brid
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1566 AND al.user='$user'
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1567 AND al.time < ctime
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1568 AND '$deftime' < ctime
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1569 ), unvisited as (
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1570 SELECT b.id id, brid, b.owner owner, b.title title, ctime, ac.author author
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1571 FROM blog_title_owner b, article_ctime ac
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1572 ON b.id=ac.blogid
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1573 WHERE brid NOT IN (SELECT tblrowid FROM acclog
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1574 WHERE tbl='blog' AND user='$user')
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1575 AND ctime > '$deftime'
175
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
1576 ), blogall as (
343
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1577 /* ---------------------------------------
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1578 Collect new articles with dividing them into visited and unvisited
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1579 separately, because constructing joined table of artice X acclog
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1580 tends to become HUGE combinations.
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1581 --------------------------------------- */
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1582 SELECT * FROM visited UNION SELECT * FROM unvisited
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1583 ), news as (
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1584 select bl.brid brid, bl.title, bl.id blid, ctime,
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1585 count(bl.id) "新着", bl.owner, bl.author
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1586 from blogall bl /* left join a_u l
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1587 on bl.brid=l.tblrowid */
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1588 group by bl.id order by ctime desc,"新着" desc, bl.id
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1589 LIMIT 10
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1590 ) SELECT brid LINK, "新着",
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1591 (SELECT count(*) FROM article WHERE blogid=blid) "総数",
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1592 ctime, title,
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1593 (SELECT gecos FROM gecoses WHERE name=author) gecos
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
1594 FROM news;
175
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
1595 EOF
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
1596 }
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
1597
243
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
1598 search_form() {
301
ba0730073d6f Add (1)article-ID search, (2)DATE search
HIROSE Yuuji <yuuji@gentei.org>
parents: 300
diff changeset
1599 help="(1)空白区切りの単語で本文検索
302
9edf8e87e198 Search form help more explanatory
HIROSE Yuuji <yuuji@gentei.org>
parents: 301
diff changeset
1600 (2)@YYYY-MM-DD 日付け(シェルパターン可)で日付け検索
352
dd0c70353869 More HELP text for search form. Add search result report.
HIROSE Yuuji <yuuji@gentei.org>
parents: 351
diff changeset
1601 @2016-0[1-6] → 2016年1月から6月
dd0c70353869 More HELP text for search form. Add search result report.
HIROSE Yuuji <yuuji@gentei.org>
parents: 351
diff changeset
1602 @>2016-01 @<2016-02-15 → 2016年1月から2月14日までの期間
dd0c70353869 More HELP text for search form. Add search result report.
HIROSE Yuuji <yuuji@gentei.org>
parents: 351
diff changeset
1603 @week → 最近一週間
302
9edf8e87e198 Search form help more explanatory
HIROSE Yuuji <yuuji@gentei.org>
parents: 301
diff changeset
1604 (3)#番号 で記事ID検索
9edf8e87e198 Search form help more explanatory
HIROSE Yuuji <yuuji@gentei.org>
parents: 301
diff changeset
1605 (1)と(2)は組み合わせOK
9edf8e87e198 Search form help more explanatory
HIROSE Yuuji <yuuji@gentei.org>
parents: 301
diff changeset
1606 例: @2016-10-0[1-9] 芋煮
445
12548e1a4ff8 Add comment about quiz board exclusion from search
HIROSE Yuuji <yuuji@gentei.org>
parents: 443
diff changeset
1607 → 2016年10月上旬でキーワード「芋煮」を含む記事検索
12548e1a4ff8 Add comment about quiz board exclusion from search
HIROSE Yuuji <yuuji@gentei.org>
parents: 443
diff changeset
1608 ※クイズ板は検索対象から外されます。"
331
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
1609 auth=""
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
1610 placeholder="全記事からの検索"
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
1611 case "$1" in
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
1612 author=*)
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
1613 a=`echo "${1#author=}"|htmlescape`
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
1614 g=`gecos ${1#author=}`
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
1615 auth="<input type=\"hidden\" name=\"author\" value=\"$a\">"
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
1616 placeholder="このユーザの書込検索"
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
1617 help="★★ $g さんの書き込みから検索します$nl$help"
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
1618 ;;
418
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
1619 grp=*)
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
1620 a=`echo "${1#grp=}"|htmlescape`
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
1621 g=`gecos ${1#grp=}`
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
1622 auth="<input type=\"hidden\" name=\"owner\" value=\"$a\">"
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
1623 placeholder="このグループからの検索"
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
1624 ;;
331
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
1625 esac
243
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
1626 cat<<-EOF
418
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
1627 <div class="right">
331
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
1628 <form action="$myname">$auth
301
ba0730073d6f Add (1)article-ID search, (2)DATE search
HIROSE Yuuji <yuuji@gentei.org>
parents: 300
diff changeset
1629 <input type="text" name="kwd" value="" title="$help"
340
a06cd57df83a Add accesskey-attribute to frequently used tabls and form.
HIROSE Yuuji <yuuji@gentei.org>
parents: 339
diff changeset
1630 placeholder=" $placeholder " width="10" accesskey="k">
352
dd0c70353869 More HELP text for search form. Add search result report.
HIROSE Yuuji <yuuji@gentei.org>
parents: 351
diff changeset
1631 ${touchpanel:+<p class="help">$help</p>}
243
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
1632 <input type="hidden" name="stage" value="searchart">
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
1633 </form>
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
1634 </div>
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
1635 EOF
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
1636 }
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
1637
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1638 imgsrc_cache() (
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1639 # $1 = directory for cache'ing
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1640 # $2 = table (user_m or grp_m)
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1641 # $3 = keycond (was: condition for choosingowner)
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1642 # $4 = size : S = Small, M = Medium, O = Original
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1643 dir="$1" tbl="$2"
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1644 keycond="$3"
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1645 whos="$keycond AND key='profimg' AND type LIKE 'file:image%'
327
5e56160ad1f5 Use the last profimg as profile image instead of first one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 326
diff changeset
1646 ORDER BY rowid DESC LIMIT 1"
332
9dc6f9e60f6a Quote file names. Select last profimg in listentry.
HIROSE Yuuji <yuuji@gentei.org>
parents: 331
diff changeset
1647 [ -d "$dir" ] || mkdir -p "$dir"
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
1648 tmpf=$tmpd/imgsrc_cache.$$
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1649 case "$4" in
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1650 [Ss]) size=S ;;
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1651 [Oo]) size=O ;;
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1652 *) size=M ;;
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1653 esac
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1654 # ImageCache filename storing schema:
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1655 # <table_s>.{key, val}={"profimgcache_S", "$cacheimg_S"}
312
b8a8e627b376 Remove debugging code. Stay revealed profile image rows.
HIROSE Yuuji <yuuji@gentei.org>
parents: 311
diff changeset
1656 sql0="SELECT val || '//' || type FROM $tbl WHERE $whos;"
b8a8e627b376 Remove debugging code. Stay revealed profile image rows.
HIROSE Yuuji <yuuji@gentei.org>
parents: 311
diff changeset
1657 sql1="SELECT hex(bin) FROM $tbl WHERE $whos;"
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1658 valtype=`query "$sql0"`
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1659 filename=${valtype%%//*}
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1660 filetype=${valtype##*//file:}
339
47d83939666b Add extension to icon cache file if it has no one
HIROSE Yuuji <yuuji@gentei.org>
parents: 337
diff changeset
1661 if [ x"$filename" = x"${filename%.*}" ]; then
47d83939666b Add extension to icon cache file if it has no one
HIROSE Yuuji <yuuji@gentei.org>
parents: 337
diff changeset
1662 # If nor filename extension found, set it to image type
47d83939666b Add extension to icon cache file if it has no one
HIROSE Yuuji <yuuji@gentei.org>
parents: 337
diff changeset
1663 case "$filetype" in
47d83939666b Add extension to icon cache file if it has no one
HIROSE Yuuji <yuuji@gentei.org>
parents: 337
diff changeset
1664 image/*) filename=$filename.${filetype#image/} ;;
47d83939666b Add extension to icon cache file if it has no one
HIROSE Yuuji <yuuji@gentei.org>
parents: 337
diff changeset
1665 esac
47d83939666b Add extension to icon cache file if it has no one
HIROSE Yuuji <yuuji@gentei.org>
parents: 337
diff changeset
1666 fi
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1667 cacheimg_S=$dir/S_$filename
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1668 cacheimg_M=$dir/M_$filename
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1669 cacheimg_O=$dir/$filename
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1670 cacheimg=$dir/${size}_$filename
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1671 sumfile="$dir/$filename.sum"
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1672 sum=`query "$sql1" | tee $tmpf | encode` # encode() is maybe sha1
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
1673 if test -s "$sumfile" && [ x"`cat \"$sumfile\"`" = x"$sum" ] \
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
1674 && test -s "$cacheimg_S" && test -s "$cacheimg_M" ; then
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
1675 # if cache is fresh and has the same checksum,
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1676 echo "<img src=\"$cacheimg\">"
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1677 else
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
1678 fifo=`mktemp "$tmpf.fifo.XXXXXXX"`
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
1679 rm -f $fifo # Safe, because $tmpf is in mktemp dir.
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
1680 fifo2=$fifo.2
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
1681 mkfifo $fifo $fifo2
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1682 fmt=${filename##*.}
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1683 ## [[ NOTE ]]
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1684 ## a. convert oldimage newimage
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1685 ## b. convert oldimage fmt:- | convert - newimage
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1686 ## b is much smaller than a
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1687 cat $tmpf | unhexize \
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1688 | tee $fifo \
392
be955399aec9 Owner should be taken via getvalbyid
HIROSE Yuuji <yuuji@gentei.org>
parents: 391
diff changeset
1689 | convert -define ${fmt}:size=${iconxy_M} \
be955399aec9 Owner should be taken via getvalbyid
HIROSE Yuuji <yuuji@gentei.org>
parents: 391
diff changeset
1690 -resize ${iconxy_M}'>' - ${fmt}:- \
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
1691 | tee $fifo2 \
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1692 | convert - "$cacheimg_M" &
392
be955399aec9 Owner should be taken via getvalbyid
HIROSE Yuuji <yuuji@gentei.org>
parents: 391
diff changeset
1693 cat $fifo | convert -define ${fmt}:size=${iconxy_S} \
be955399aec9 Owner should be taken via getvalbyid
HIROSE Yuuji <yuuji@gentei.org>
parents: 391
diff changeset
1694 -resize ${iconxy_S}'>' - ${fmt}:- \
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1695 | convert - "$cacheimg_S" &
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1696 printf '%s' "<img src=\"data:${filetype},"
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
1697 hexize "$fifo2" |sed 's/\(..\)/%\1/g' # Use medium as pre-cached image
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1698 echo '">'
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1699 echo "$sum" > $sumfile
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1700 fi
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1701 ## Now preparing cache image, done.
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1702 ## Store this information to DB
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1703 stbl=${tbl%_m}_s # user_s or grp_s
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1704 pkey=${keycond%%=*} # Primary Key name
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1705 pval=${keycond#*=} # Primary Key value
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1706 query <<-EOF
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1707 REPLACE INTO $stbl($pkey, key, type, val)
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1708 VALUES($pval, '$iconcachekey', 'string', `sqlquote "$cacheimg_S"`);
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1709 EOF
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1710 )
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1711
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1712 showhome() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1713 # $1=userRowIdToShow
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1714 err showhome \$1=$1
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1715 case "$1" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1716 *@*) uname=`getvalbypkey user name "$1"` ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1717 *) uname=`getvalbyid user name $1` ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1718 esac
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1719 ## err ShowHome: uname=$uname
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1720 td=`getcachedir home/"$1"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1721 gecos=`gecos "$uname"`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1722 ## err SH:gecos=$gecos
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1723 GF_VIEWONLY=1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1724 cond="gname in (select gname from grp_mem where user='$uname')"
331
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
1725 search_form_args=""
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1726 if [ x"$user" = x"$uname" ]; then
341
bad68ea6c30a Add more accesskeys
HIROSE Yuuji <yuuji@gentei.org>
parents: 340
diff changeset
1727 conflink="<a href=\"?userconf\" accesskey=\"e\"
bad68ea6c30a Add more accesskeys
HIROSE Yuuji <yuuji@gentei.org>
parents: 340
diff changeset
1728 title=\"E\">プロフィールの編集</a> /
bad68ea6c30a Add more accesskeys
HIROSE Yuuji <yuuji@gentei.org>
parents: 340
diff changeset
1729 <a href=\"?blog\" accesskey=\"n\" title=\"N\">新規話題の作成</a>"
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
1730 # Display folders
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
1731 sql="select count(id) from article_m where id
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
1732 in (select id from article where author='$user')
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
1733 and type like 'file:%';"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1734 ## err nfile-sql=`echo "$sql"`
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
1735 nfile=`query "$sql"`
312
b8a8e627b376 Remove debugging code. Stay revealed profile image rows.
HIROSE Yuuji <yuuji@gentei.org>
parents: 311
diff changeset
1736 # err nfile=$nfile
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
1737 if [ $nfile -gt 0 ]; then
342
385b3174d265 Accesskey batting resolved
HIROSE Yuuji <yuuji@gentei.org>
parents: 341
diff changeset
1738 conflink="$conflink / <a href=\"?lsmyfile\" accesskey=\"l\"
385b3174d265 Accesskey batting resolved
HIROSE Yuuji <yuuji@gentei.org>
parents: 341
diff changeset
1739 title=\"L\">過去の提出ファイル</a>"
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
1740 fi
331
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
1741 else
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
1742 search_form_args="author=$uname"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1743 fi
17
01f579d2c889 Rename to s4
HIROSE Yuuji <yuuji@gentei.org>
parents: 16
diff changeset
1744 . ./s4-blog.sh
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1745
243
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
1746 tf=$tmpd/title.$$ pf=$tmpd/profile.$$ bf=$tmpd/blogs.$$ sf=$tmpd/search.$$
331
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
1747 search_form $search_form_args > $sf
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
1748 echo "$gecos さん" > $tf
319
a868f03970b5 Profimg hiding rule revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 312
diff changeset
1749 { echo "<div class=\"noprofimg\">"
a868f03970b5 Profimg hiding rule revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 312
diff changeset
1750 viewtable $formdir/user.def user $1
a868f03970b5 Profimg hiding rule revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 312
diff changeset
1751 echo "</div>"
a868f03970b5 Profimg hiding rule revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 312
diff changeset
1752 } > $pf
146
3d0de7bdbf40 Profile image
HIROSE Yuuji <yuuji@gentei.org>
parents: 144
diff changeset
1753
147
HIROSE Yuuji <yuuji@gentei.org>
parents: 146
diff changeset
1754 sqcond="WHERE name='$uname' AND key='profimg' AND type LIKE 'file:image%'"
146
3d0de7bdbf40 Profile image
HIROSE Yuuji <yuuji@gentei.org>
parents: 144
diff changeset
1755 img=`query "SELECT type FROM user_m $sqcond LIMIT 1;"`
148
afc3bf5c9dbb profimg should be saved in $tmpd
HIROSE Yuuji <yuuji@gentei.org>
parents: 147
diff changeset
1756 imf=$tmpd/profimg.$$; touch $imf
146
3d0de7bdbf40 Profile image
HIROSE Yuuji <yuuji@gentei.org>
parents: 144
diff changeset
1757 if [ -n "$img" ]; then
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1758 if true; then
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1759 tbl=user_m
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1760 enticond="name='$uname'"
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1761 imgsrc_cache "$td/main" user_m "$enticond" M
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1762 else
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1763 { printf '%s' "<IMG src=\"data:${img#file:},"
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1764 query "SELECT hex(bin) FROM user_m $sqcond ORDER BY rowid LIMIT 1;" \
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1765 | sed 's/\(..\)/%\1/g'
151
7bb7086ea0d0 Unclosed tag, fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 150
diff changeset
1766 echo '">'
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1767 }
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
1768 fi > $imf
146
3d0de7bdbf40 Profile image
HIROSE Yuuji <yuuji@gentei.org>
parents: 144
diff changeset
1769 fi
150
6ee08d8b0f5f Display the number of blogs of the user.
HIROSE Yuuji <yuuji@gentei.org>
parents: 149
diff changeset
1770 nblog=`query "SELECT count(id) FROM blog_s WHERE key='owner' AND \
6ee08d8b0f5f Display the number of blogs of the user.
HIROSE Yuuji <yuuji@gentei.org>
parents: 149
diff changeset
1771 val='$uname';"`
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1772 listblog $uname > $bf
260
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1773
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1774 hometail=$tmpd/tail.$$
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1775 mkfifo $hometail
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1776
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1777 #Calling listgroupbytable, originally here
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1778
260
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1779 (
328
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
1780 # Display Most Recent Entry
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
1781 shortval=${dumpcollen:+"substr(val, 0, $dumpcollen)"}
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
1782 shortval=${shortval:-val}
252
75dfaceac01f Link to newest article of the blog in the recent writing place
HIROSE Yuuji <yuuji@gentei.org>
parents: 251
diff changeset
1783
340
a06cd57df83a Add accesskey-attribute to frequently used tabls and form.
HIROSE Yuuji <yuuji@gentei.org>
parents: 339
diff changeset
1784 # The m.aid in the next line is suspicious. But works fine in SQLite3...
328
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
1785 DT_SQL="SELECT b.rowid || '#' || m.aid LINK,
253
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
1786 ctime,
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
1787 (SELECT $shortval FROM blog_s WHERE key='title' AND id=b.id) title,
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
1788 (SELECT gecos FROM gecoses
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
1789 WHERE name=(SELECT val FROM blog_s
257
5d0dbbf9310c Show text in the table of recent writing articles
HIROSE Yuuji <yuuji@gentei.org>
parents: 255
diff changeset
1790 WHERE key='owner' AND id=b.id)) owner,
5d0dbbf9310c Show text in the table of recent writing articles
HIROSE Yuuji <yuuji@gentei.org>
parents: 255
diff changeset
1791 (SELECT $shortval val FROM article_s WHERE id=m.aid AND key='text') text
253
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
1792 FROM blog b
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
1793 JOIN
254
8a0cf46afb0a Revise SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 253
diff changeset
1794 (SELECT distinct blogid, a.id aid, max(val) ctime
253
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
1795 FROM article a, article_s s
328
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
1796 ON a.id=s.id AND a.author='$uname' AND s.key='ctime'
253
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
1797 GROUP BY blogid ORDER BY val DESC LIMIT 50
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
1798 ) m
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
1799 ON b.id=m.blogid;"
328
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
1800 # This should be as follows
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
1801 : <<EOF
255
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
1802 WITH arts AS(
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
1803 SELECT (SELECT rowid FROM blog WHERE id=a.blogid) brid,
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
1804 a.blogid, a.id id, s.val ctime
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
1805 FROM article a NATURAL JOIN article_s s
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
1806 WHERE s.key = 'ctime' AND a.author='$user'
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
1807 GROUP by s.id
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
1808 )
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
1809 SELECT a0.brid,a0.blogid,a0.id,a0.ctime
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
1810 FROM arts a0
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
1811 JOIN
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
1812 (SELECT blogid,max(ctime) mct FROM arts a1 GROUP BY blogid) a1
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
1813 ON a0.blogid=a1.blogid AND a0.ctime=a1.mct
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
1814 ORDER BY ctime DESC LIMIT 50;
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
1815 EOF
253
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
1816
328
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
1817 cat<<-EOF
340
a06cd57df83a Add accesskey-attribute to frequently used tabls and form.
HIROSE Yuuji <yuuji@gentei.org>
parents: 339
diff changeset
1818 `cgi_radio foldtabs yes 'id="mre" accesskey="d"'`<label
341
bad68ea6c30a Add more accesskeys
HIROSE Yuuji <yuuji@gentei.org>
parents: 340
diff changeset
1819 for="mre" title="D">最近の書き込み先</label>
260
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1820 <div class="lcto">
194
b1847cc3912a Display Most Recent Entry of user's
HIROSE Yuuji <yuuji@gentei.org>
parents: 187
diff changeset
1821 `DT_VIEW=replyblog dumptable html blog`
b1847cc3912a Display Most Recent Entry of user's
HIROSE Yuuji <yuuji@gentei.org>
parents: 187
diff changeset
1822 </div>
b1847cc3912a Display Most Recent Entry of user's
HIROSE Yuuji <yuuji@gentei.org>
parents: 187
diff changeset
1823 EOF
328
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
1824 unset DT_SQL
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
1825 if [ x"$user" = x"$uname" ]; then
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1826 # Display NEWS
351
deb4cc74a415 Remove old code and add title of accesskey
HIROSE Yuuji <yuuji@gentei.org>
parents: 350
diff changeset
1827 # 2016-06-26
deb4cc74a415 Remove old code and add title of accesskey
HIROSE Yuuji <yuuji@gentei.org>
parents: 350
diff changeset
1828 if [ x"`getpar readchk``getpar read`" = x"yesyes" ]; then
deb4cc74a415 Remove old code and add title of accesskey
HIROSE Yuuji <yuuji@gentei.org>
parents: 350
diff changeset
1829 acclog blog $blogreadflagrowid
deb4cc74a415 Remove old code and add title of accesskey
HIROSE Yuuji <yuuji@gentei.org>
parents: 350
diff changeset
1830 # echo "全部既読にしました" | html p
175
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
1831 fi
351
deb4cc74a415 Remove old code and add title of accesskey
HIROSE Yuuji <yuuji@gentei.org>
parents: 350
diff changeset
1832 # 2016-02-19 Counting NEWS without using dumptable.
deb4cc74a415 Remove old code and add title of accesskey
HIROSE Yuuji <yuuji@gentei.org>
parents: 350
diff changeset
1833 sql=`listnewblogsql "$user"`
deb4cc74a415 Remove old code and add title of accesskey
HIROSE Yuuji <yuuji@gentei.org>
parents: 350
diff changeset
1834 new10=`DT_SQL="$sql" DT_VIEW=replyblog dumptable html blog`
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1835 cont=`echo "$new10"|grep "^<TR>"|wc -l`
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1836 cont=$((cont-1))
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1837 err newcount=$cont
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1838 if [ $cont -gt 0 ]; then
260
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1839 #echo "全体の新着記事${cont}傑" | html h2
340
a06cd57df83a Add accesskey-attribute to frequently used tabls and form.
HIROSE Yuuji <yuuji@gentei.org>
parents: 339
diff changeset
1840 cgi_radio foldtabs yes 'id="new10" accesskey="f"'
428
2e32349c4dd6 "NEWS" Tab's indicator should be "F", not "X"
HIROSE Yuuji <yuuji@gentei.org>
parents: 426
diff changeset
1841 echo "<label for=\"new10\" title=\"F\">新着${cont}傑</label><div>"
236
19b92549b5b7 Add button to clear all unread article list
HIROSE Yuuji <yuuji@gentei.org>
parents: 235
diff changeset
1842 cat<<-EOF | html form 'action="?home"'
262
f7939f4297d4 Rewrote a cgi variable by mistake, fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 260
diff changeset
1843 `cgi_checkbox readchk yes 'id="read"'`<label
236
19b92549b5b7 Add button to clear all unread article list
HIROSE Yuuji <yuuji@gentei.org>
parents: 235
diff changeset
1844 for="read">新着ふくめて全部読んだことにする</label>
260
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1845 `cgi_submit '確定'`
236
19b92549b5b7 Add button to clear all unread article list
HIROSE Yuuji <yuuji@gentei.org>
parents: 235
diff changeset
1846 `cgi_hidden read yes`
19b92549b5b7 Add button to clear all unread article list
HIROSE Yuuji <yuuji@gentei.org>
parents: 235
diff changeset
1847 EOF
260
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1848 echo "$new10 <!-- new10 -->"
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1849 echo "</div>"
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1850 fi
328
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
1851 else # Not My Home ($user != $uname)
329
e4fedb216119 Making sure whether it runs on ksh
HIROSE Yuuji <yuuji@gentei.org>
parents: 328
diff changeset
1852 : # DT_SQL=
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1853 fi
260
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1854 ) > $hometail & # Is background call safe to m4??
128
42234d2d6e9c Add Full-Range search
HIROSE Yuuji <yuuji@gentei.org>
parents: 127
diff changeset
1855 #
260
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1856 listgroupbytable $formdir/grp.def $cond |
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1857 _m4 -D_BODYCLASS_=home -D_TITLE_="spaste(\`$tf')" \
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1858 -D_PROFILE_="spaste(\`$pf')$conflink" \
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1859 -D_PROFIMG_="spaste(\`$imf')" \
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1860 -D_BLOGS_="spaste(\`$bf')" \
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1861 -D_SEARCH_="spaste(\`$sf')" \
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1862 -D_NBLOG_="$nblog" \
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1863 -D_GROUPS_="syscmd(\`cat')" \
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1864 -D_HOMETAIL_="syscmd(\`cat $hometail')" \
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1865 $layout/html.m4.html $layout/home.m4.html
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
1866
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1867 # Record access log
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1868 [ -n "$1" ] && [ x"$1" != x"$user" ] && acclog user $1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1869 }
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1870 commission() { # $1=grp-rowid $2=user-rowid
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1871 contenttype; echo
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1872 ## err commission: "$@"
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1873 gname=`getgroupbyid $1`
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1874 echo "グループ $gname 管理者委任" \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1875 | _m4 -D_TITLE_="syscmd(\`cat')" $layout/html.m4.html
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1876 if [ -n "$2" ]; then
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1877 grp_reg_adm "$@"
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1878 else
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1879 echo "無効な指定です。普通のアクセスならここに来ないはず。"|html p
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1880 fi
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1881 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1882 listgroupbytable() {
52
46e53418e28f missing selection condition added
HIROSE Yuuji <yuuji@gentei.org>
parents: 47
diff changeset
1883 # $1=deffile $2...=condition
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1884 tagline=`grep :tag: $1`; shift
52
46e53418e28f missing selection condition added
HIROSE Yuuji <yuuji@gentei.org>
parents: 47
diff changeset
1885 and="${1:+and }" where=${1:+where }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1886 href="<a href=\"$myname?grp+"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1887 echo '<div class="listgroup">'
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1888 NGsql="select distinct tag from\
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1889 (select gname, max(case key when 'tag' then val end) as tag, \
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1890 max(case key when 'ctime' then val end) as ctime\
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1891 from grp_s group by gname order by ctime);"
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1892 sql="select val from grp_s where key='tag' $and$* group by val;"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1893 ## err ListGRP: query sql="$sql"
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
1894 for tag in `query "$sql"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1895 do
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1896 ## err ListGrp: tag=$tag
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1897 tn=${tagline%%=${tag}*}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1898 tn=${tn##*[ :]}
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1899 sql="select rowid||':'||gname as 'グループ名',説明 from
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1900 (select (select rowid from grp g where g.gname=grp_s.gname)
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1901 as rowid,
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1902 gname,
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1903 max(case key when 'gecos' then val end) as '説明',
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1904 max(case key when 'tag' then val end) as 'tag',
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1905 max(case key when 'mtime' then val end) as mtime from grp_s
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1906 $where$* group by gname having tag='$tag' order by mtime desc);"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1907 ## err PersonalGroupList= `echo $sql`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1908 echo "<h2>$tn</h2>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1909 echo '<table class="b listgroup">'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1910 sq -header -html $db "$sql" \
31
737a6e2717a9 Regexp fix
HIROSE Yuuji <yuuji@gentei.org>
parents: 26
diff changeset
1911 | sed "s,\(<TR><TD>\)\([0-9]*\):\([^ ]*\)</TD>,\1$href\2\">\3</a>,"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1912 echo '</table>'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1913 done
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1914 echo '</div>'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1915 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1916 iconhref() (
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1917 # $1=icon-file, $2=Href $3=title $4...=anchor
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1918 data=`percenthex "$1"`
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1919 ct=`file --mime-type - < "$1"|cut -d' ' -f2`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1920 ## err iconhref: \$1=$1 \$2=$2 \$3="$@"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1921 href=$2; title=$3; shift 3
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1922 echo "<a href=\"$href\"><img title=\"$title\" src=\"data:$ct,$data\">$@</a>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1923 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1924 iconhref2() (
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1925 # $1=icon-file, $2=Href $3=title $4...=anchor
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1926 src=$1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1927 href=$2; title=$3; shift 3
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1928 echo "<a href=\"$href\"><img title=\"$title\" src=\"$src\">$@</a>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1929 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1930 listentry() (
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
1931 # $1=user/group $2=SearchKeyword $3=condition(if any) $4=grprowid(if in grp)
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1932 # Referring variable $iamowner=$grp to attach owner-request links
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1933 ## err listentry: \$1=$1 \$2=$2 \$3=$3
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
1934 cond='' hiddens=''
447
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
1935 offset=`getpar offset`; offset=${offset%%[!0-9]*}
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
1936 if [ -z "$offset" ]; then
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
1937 offset=`getpar start`; offset=${offset%%[!0-9]*}
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
1938 offset=$((offset-1))
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
1939 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1940 offset=$((offset + 0)) # change to numeric forcibly
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1941 [ $offset -lt 0 ] && offset=0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1942 limit=30
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1943 dir=`getcachedir "$1"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1944 if [ x"$1" = x"user" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1945 hrb="$myname?home"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1946 deficon=person-default.png
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
1947 entity="ユーザ" tbl=user link=rowid nm=name # stage=mems
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
1948 [ -n "$4" ] && hiddens=`cgi_hidden grid $4`
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
1949 gcs=gecos
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1950 else # if group
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1951 hrb="$myname?grp"
22
9951e231df30 Add default group icon
HIROSE Yuuji <yuuji@gentei.org>
parents: 17
diff changeset
1952 deficon=group-default.png
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
1953 entity="グループ" tbl=grp link=rowid nm=gname stage=grps
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
1954 gcs=name
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1955 tagline=`grep :tag: $formdir/grp.def|cut -d: -f5-`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1956 if [ -n "$tagline" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1957 tagconv=`echo $tagline|sed 's/\([^= :]*\)=\([^= :]*\)/-D\2=\1/g'`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1958 ## err tagconv=$tagconv
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1959 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1960 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1961 if [ ! -d $dir ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1962 mkdir -p $dir
131
9782a978d53c Image cach detection method modified
HIROSE Yuuji <yuuji@gentei.org>
parents: 128
diff changeset
1963 fi
9782a978d53c Image cach detection method modified
HIROSE Yuuji <yuuji@gentei.org>
parents: 128
diff changeset
1964 if [ ! -s $dir/$deficon ]; then
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1965 convert -geometry $thumbxy $imgdir/$deficon $dir/$deficon
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1966 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1967 if [ -n "$2" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1968 cond="where nick like '%$2%' or b.name like '%$2%'"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1969 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1970
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1971 # XX: これ複雑すぎるかな。もっとシンプルにしたい。$3条件も。2015-07-08
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
1972 # grpは呼出し元の動的スコープ変数でよくないな...
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
1973 ##qgrp=`sqlquote $grp`
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
1974 getgrp="(select gname from grp where rowid=${rowid:--1})"
220
7d05425e4057 Put information how many members in that group.
HIROSE Yuuji <yuuji@gentei.org>
parents: 219
diff changeset
1975 sql="select a.rowid, a.$link,
7d05425e4057 Put information how many members in that group.
HIROSE Yuuji <yuuji@gentei.org>
parents: 219
diff changeset
1976 coalesce(b.$gcs, a.$nm) as nick,
388
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
1977 quote(a.$nm) as qname,
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
1978 (SELECT val FROM ${tbl}_s
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
1979 WHERE $nm=a.$nm AND key='$iconcachekey') icon,
220
7d05425e4057 Put information how many members in that group.
HIROSE Yuuji <yuuji@gentei.org>
parents: 219
diff changeset
1980 coalesce(b.gecos, a.$nm) /* If group, concat (Nusers) */
7d05425e4057 Put information how many members in that group.
HIROSE Yuuji <yuuji@gentei.org>
parents: 219
diff changeset
1981 || case when a.$nm in (select gname from grp)
7d05425e4057 Put information how many members in that group.
HIROSE Yuuji <yuuji@gentei.org>
parents: 219
diff changeset
1982 then printf('(%d名)',
7d05425e4057 Put information how many members in that group.
HIROSE Yuuji <yuuji@gentei.org>
parents: 219
diff changeset
1983 (select count(user) from grp_mem where gname=a.$nm))
233
1ad7ef38c0a0 Display gecos correctly in listentry(user)
HIROSE Yuuji <yuuji@gentei.org>
parents: 232
diff changeset
1984 else ' <'||a.$nm||'>'
220
7d05425e4057 Put information how many members in that group.
HIROSE Yuuji <yuuji@gentei.org>
parents: 219
diff changeset
1985 end
7d05425e4057 Put information how many members in that group.
HIROSE Yuuji <yuuji@gentei.org>
parents: 219
diff changeset
1986 as name,
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
1987 b.tag,
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
1988 case when a.$nm in (select user from grp_adm
69
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
1989 where gname=$getgrp) then '(管理者)'
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
1990 when '$user' in (select user from grp_adm where gname=a.$nm)
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
1991 then '(ADMIN)'
171
cdade692e17d Add "is-member" flag to group list
HIROSE Yuuji <yuuji@gentei.org>
parents: 166
diff changeset
1992 when '$user' in (select user from grp_mem where gname=a.$nm)
cdade692e17d Add "is-member" flag to group list
HIROSE Yuuji <yuuji@gentei.org>
parents: 166
diff changeset
1993 then '(Member)'
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
1994 when '$iamowner' = '' then ''
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
1995 else ',not='||a.rowid end as ownerlink,
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
1996 CASE '$entity'
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
1997 WHEN 'グループ'
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
1998 THEN coalesce(
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
1999 (SELECT val FROM grp_s WHERE gname=a.$nm AND key='regmode'),
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2000 'open')
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2001 ||
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2002 CASE WHEN '$user'
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2003 IN (SELECT user FROM grp_mem WHERE gname=a.$nm)
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2004 THEN ' ismember'
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2005 ELSE ''
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2006 END
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2007 ELSE 'user'
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2008 END regmode
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2009 from $tbl a left join
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2010 (select $nm as name,
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2011 max(case key when 'gecos' then val end) as gecos,
297
8933d3701c00 Newer edited group has more precedence of sorting in group list.
HIROSE Yuuji <yuuji@gentei.org>
parents: 295
diff changeset
2012 max(case key when 'tag' then val end) as tag,
387
2c928bb47c90 Sort condition missing
HIROSE Yuuji <yuuji@gentei.org>
parents: 386
diff changeset
2013 max(case key when 'mtime' then val end) as mtime,
2c928bb47c90 Sort condition missing
HIROSE Yuuji <yuuji@gentei.org>
parents: 386
diff changeset
2014 max(case key when 'wtime' then val end) as wtime
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2015 from ${tbl}_s group by $nm)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2016 b on a.$nm=b.name $cond $3
387
2c928bb47c90 Sort condition missing
HIROSE Yuuji <yuuji@gentei.org>
parents: 386
diff changeset
2017 order by b.tag desc, b.wtime desc, b.mtime desc, a.rowid asc"
297
8933d3701c00 Newer edited group has more precedence of sorting in group list.
HIROSE Yuuji <yuuji@gentei.org>
parents: 295
diff changeset
2018 # Give precedence to newer maintained groups (2016-09-24)
8933d3701c00 Newer edited group has more precedence of sorting in group list.
HIROSE Yuuji <yuuji@gentei.org>
parents: 295
diff changeset
2019 # Note that mtime is stored only in grp_s.
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2020 ## err LE:sql.1="$sql"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2021 total=`query "with x as ($sql) select count(*) from x;"`
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
2022 echo "${entity} 一覧" | html h2
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2023 if [ $total -gt $limit ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2024 echo '<div class="right">'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2025 cgi_form $stage <<EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2026 <label>次の語を含む${entity}で検索:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2027 `cgi_text kwd $kwd`</label>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2028 EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2029 echo '</div>'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2030 fi
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2031 hiddens="$hiddens
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2032 `cgi_hidden kwd \"$kwd\"`
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2033 `cgi_hidden stage \"$stage\"`"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2034 cat<<EOF
447
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
2035 <form action="$myname" method="POST">
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
2036 <p>${total}件中の<input class="hidesub" type="text" name="start"
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
2037 value="$((offset+1))" size="3">件めから${kwd:+" - 検索語: $kwd"}$hiddens
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
2038 <input type="submit" value="確定"></p>
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
2039 </form>
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2040 EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2041 if [ $((offset+limit)) -lt $total ]; then
235
014f459543d5 Put Prev/Next button at the bottom of list in addition to above
HIROSE Yuuji <yuuji@gentei.org>
parents: 233
diff changeset
2042 nextbtn=$(
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2043 cat<<EOF
235
014f459543d5 Put Prev/Next button at the bottom of list in addition to above
HIROSE Yuuji <yuuji@gentei.org>
parents: 233
diff changeset
2044 <div class="right clear"><form action="$myname" method="POST">
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2045 `cgi_submit 次の${limit}件`
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2046 $hiddens
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2047 `cgi_hidden offset $((offset + limit))`</form></div>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2048 EOF
235
014f459543d5 Put Prev/Next button at the bottom of list in addition to above
HIROSE Yuuji <yuuji@gentei.org>
parents: 233
diff changeset
2049 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2050 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2051 if [ $offset -gt 0 ]; then
235
014f459543d5 Put Prev/Next button at the bottom of list in addition to above
HIROSE Yuuji <yuuji@gentei.org>
parents: 233
diff changeset
2052 prevbtn=$(
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2053 cat<<EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2054 <form action="$myname" method="POST">
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2055 `cgi_submit 前の${limit}件`
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2056 $hiddens
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2057 `cgi_hidden offset $((offset - limit))`</form>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2058 EOF
235
014f459543d5 Put Prev/Next button at the bottom of list in addition to above
HIROSE Yuuji <yuuji@gentei.org>
parents: 233
diff changeset
2059 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2060 fi
235
014f459543d5 Put Prev/Next button at the bottom of list in addition to above
HIROSE Yuuji <yuuji@gentei.org>
parents: 233
diff changeset
2061 pnbtn="$nextbtn$prevbtn"
014f459543d5 Put Prev/Next button at the bottom of list in addition to above
HIROSE Yuuji <yuuji@gentei.org>
parents: 233
diff changeset
2062 echo $pnbtn
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2063
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2064 ## err ListEntry: `echo "$sql"\;`
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
2065 # sq $db here??? 2016-11-28
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2066 query "$sql limit $limit ${offset:+offset $offset};" \
388
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2067 | while IFS='|' read id lnk name qname icon gecos tag ownerp type; do
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
2068 err name=$name owner=$ownerp lnk=$lnk
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2069 err newlnk=$lnk regmode=$regmode
230
67c8b9558572 Allow duplicated file names in icon.
HIROSE Yuuji <yuuji@gentei.org>
parents: 229
diff changeset
2070 icondir=$dir/$id
332
9dc6f9e60f6a Quote file names. Select last profimg in listentry.
HIROSE Yuuji <yuuji@gentei.org>
parents: 331
diff changeset
2071 # Pick up only last icon
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2072 echo "<div class=\"iconlist xy$thumbxy $type\">
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2073 <p class=\"tag _$tag\">$tag</p>" \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2074 | _m4 $tagconv
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
2075 if [ -n "$NOSPEEDUP" ]; then
388
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2076 files=`getvalbyid $tbl profimg $id $icondir`
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2077 if [ -n "$files" ]; then
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2078 icon=`echo "$files"|tail -1`
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2079 iconhref2 "$icondir/$icon" "$hrb+$lnk" "$gecos"
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2080 else
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2081 iconhref "$dir/$deficon" "$hrb+$lnk" "$gecos"
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2082 fi
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2083 elif [ -n "$icon" -a -s "$icon" ]; then
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
2084 iconhref2 "$icon" "$hrb+$lnk" "$gecos"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2085 else
388
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2086 cond="$nm=$qname"
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2087 # err imgsrc_cache "$dir/list" ${tbl}_m "$cond" S
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2088 # err query "SELECT type FROM ${tbl}_m $cond LIMIT 1;"
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2089 img=`query "SELECT type FROM ${tbl}_m WHERE $cond AND key='profimg' LIMIT 1;"`
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2090 # err "img=[$img]"
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2091 if [ -n "$img" ]; then
390
5a40f38d7daf Do not forget link to home
HIROSE Yuuji <yuuji@gentei.org>
parents: 388
diff changeset
2092 echo "<a href=\"$hrb+$lnk\">"
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
2093 imgsrc_cache "$icondir" ${tbl}_m "$nm=$qname" S
390
5a40f38d7daf Do not forget link to home
HIROSE Yuuji <yuuji@gentei.org>
parents: 388
diff changeset
2094 echo "</a>"
388
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2095 else
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2096 iconhref2 "$dir/$deficon" "$hrb+$lnk" "$gecos"
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2097 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2098 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2099 echo "<br>$name${ownerp:+<br>$ownerp}"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2100 echo "</div>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2101 done
235
014f459543d5 Put Prev/Next button at the bottom of list in addition to above
HIROSE Yuuji <yuuji@gentei.org>
parents: 233
diff changeset
2102 echo ${pnbtn:+"<hr>$nextbtn$prevbtn"}
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2103 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2104 listmember() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2105 listentry user "$@"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2106 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2107 listgroup() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2108 listentry group "$@"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2109 }
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2110 hexteams() { # $1=gname, $2(optional)=user
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2111 cond=${2:+" AND user='$2'"}
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2112 query "SELECT DISTINCT hex(val) FROM grp_mem_m
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2113 WHERE gname='$1' AND key='team'$cond;"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2114 }
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2115 showgroup() { # $1=group-rowid
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2116 if [ -z "$1" ]; then
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2117 grid=`getpar grid`
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2118 grid=${grid%%[!0-9]*}
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2119 [ -n "$grid" ] && grp=`getgroupbyid $grid`
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2120 else
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2121 grid=$1
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2122 fi
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2123 grp=`getgroupbyid $grid`
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
2124 qgrp=`sqlquote "$grp"`
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
2125 ## err showgroup2: grid=$grid grp=$grp qgrp="[$qgrp]"
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
2126 if isgroup "$grp"; then
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2127 tf=$tmpd/title.$$
418
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2128 sf=$tmpd/search.$$
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2129 bodyclass=`query "SELECT val FROM grp_s
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2130 WHERE gname=$qgrp AND key='regmode';"`
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2131 if ismember "$user" "$grp"; then
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2132 ismember="ismember"
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
2133 qgrp=`sqlquote "$grp"`
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2134 bodyclass="$bodyclass${bodyclass:+ }ismember"
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2135 else
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2136 ismember="" # bodyclass="group"
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2137 fi
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2138 bodyclass="$bodyclass grouphome"
418
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2139 echo "<div class=\"search\">`search_form grp=\"$grp\"`</div>"> $sf
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2140 echo "グループ $grp" > $tf
418
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2141
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2142 showgroupsub $formdir/grp.def "$grid" | \
418
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2143 _m4 -D_TITLE_="syscmd(\`cat $tf')" \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2144 -D_FORM_="syscmd(\`cat')" \
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2145 -D_BODYCLASS_="$bodyclass" \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2146 -D_DUMPTABLE_="" \
418
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2147 $htmlheader $sf $layout/form+dump.m4.html
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2148 # $htmlheader $layout/form+dump.m4.html
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2149 # $htmlheader is defined in grp()
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
2150 else # if $grp is removed at par2table
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
2151 listgroup
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
2152 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2153 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2154 showgroupsub() {
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2155 # $1=def-file $2=group-rowid
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2156 # Using $ismember
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2157 rowid=$2
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2158 grp=`getgroupbyid $2`
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
2159 qgrp=`sqlquote "$grp"`
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2160 td=`getcachedir grp/"$2"`
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2161 #rowid=`sq $db "select rowid from grp where gname=$qgrp"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2162 if [ -z "$rowid" ]; then
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2163 #rowid=`sq $db "select rowid from grp where rowid=$grp"`
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2164 #grp=`sq $db "select gname from grp where rowid=$grp"`
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
2165 echo "showgroupsub: invalid argument($1 $2)" | html p
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
2166 return
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2167 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2168 val=`getvalbyid grp profimg $rowid $tmpd`
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2169 enticond="gname=$qgrp"
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2170 img=`query "SELECT type FROM grp_m WHERE $enticond LIMIT 1;"`
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2171 if [ -n "$img" ]; then
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2172 cat<<-EOF
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2173 <p class="groupimg">
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2174 `imgsrc_cache $td/main grp_m "$enticond" M`</p>
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2175 EOF
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2176 fi
319
a868f03970b5 Profimg hiding rule revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 312
diff changeset
2177 echo "<div class=\"noprofimg\">"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2178 viewtable $1 grp $rowid
319
a868f03970b5 Profimg hiding rule revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 312
diff changeset
2179 echo "</div>"
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
2180 if isgrpowner "$user" "$grp"; then
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
2181 echo "<p><a href=\"?groupconf+$rowid\">グループ情報の編集</a>"
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2182 iamowner=$rowid
371
302eae8f723b Display blog-mode only when user is group owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 370
diff changeset
2183 colmd=" mode"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2184 fi
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2185 if [ -n "$ismember" ]; then
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2186 echo "${iamowner:+ / }<a href=\"?blog+$rowid\">グループの新規話題作成</a>"
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2187 echo "/ <a href=\"?grpaction+$rowid\">メンバーを個別選択しての操作</a></p>"
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2188 # div.fold input[type="checkbox"]:checked ~ div {display: block;}
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2189 cat<<EOF
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2190 <form action="?send2mem" method="POST" enctype="multipart/form-data">
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2191 <div class="fold clear">
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2192 `cgi_checkbox send yes id="send"`<label
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2193 for="send">グループ全員にメッセージ送信</label>
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2194 <div>
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2195 `cgi_textarea message "" "cols=60"`
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2196 `cgi_submit 送信`
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2197 `cgi_reset リセット`
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2198 </div>
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2199 `cgi_hidden grp $rowid`
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2200 </div></form>
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2201 EOF
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2202 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2203 # 加入ボタン + 加入者リスト
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2204 if [ -n "$ismember" ]; then
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2205 ismem='checked' state="(参加中)"
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2206 else
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2207 nomem='checked' state="(現在非加入)"
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2208 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2209 # このグループでの加入アドレス
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2210 eml=`query "select val from grp_mem_s where gname=$qgrp and user='$user' \
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2211 and key='email';"`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2212 ##err EML: "select val from grp_mem_s where gname='$2' and user='$user' \
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2213 ## and key='email';"
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2214 ##err email=$eml
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2215 cat <<EOF
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2216 <div class="fold clear">
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2217 `cgi_checkbox reg yes id="reg"`<label
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2218 for="reg">自身の加入状態を操作する</label>$state
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2219 <div>
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2220 EOF
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2221 cgi_form grp <<EOF
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2222 <p>このグループに</p>
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2223 <table class="b">
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2224 <tr><th>メンバーとして</th><td>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2225 <label>`cgi_radio joingrp "yes" $ismem`参加</label> /
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2226 <label>`cgi_radio joingrp "no" $nomem`参加しない</label></td></tr>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2227 <tr><th>参加する場合のメイルアドレス<br>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2228 <small>(メインのアドレスとは違うものにする場合に記入<br>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2229 同じでよい場合は空欄に)</small></th>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2230 <td>`cgi_text email $eml`</td></tr>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2231 </table>
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2232 `cgi_hidden grp $rowid`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2233 EOF
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2234 if [ x`getgroupattr $grp regmode` = x'moderated' -a -z "$ismem" ]; then
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2235 echo "moderated (承認加入の)グループなので実際に参加できるのは
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2236 グループ管理者が承認操作をした後になります。" | html p 'class="warn"'
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2237 fi
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2238 echo '</div></div>'
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2239 echo '<h2>話題一覧</h2>'
418
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2240 thelp="1ヶ月分のまとめには上部検索窓に @month と入れてください。"
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2241 cat<<-EOF
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2242 <form class="summary" action="$myname" title="$thelp">
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2243 `cgi_hidden owner "$grp"`
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2244 `cgi_hidden kwd "@week"`
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2245 `cgi_hidden stage searchart`
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2246 `cgi_submit "一週間のまとめ"`
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2247 </form>
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2248 EOF
60
9f4e85181d40 Add new articles digest
HIROSE Yuuji <yuuji@gentei.org>
parents: 59
diff changeset
2249 cond="where a.id in (select id from blog_s where key='owner' and val=$qgrp) order by ctime desc"
397
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2250 colstate="state:稼動状態:frozen=rowclass=凍結"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2251 DT_CHLD=article:blogid \
371
302eae8f723b Display blog-mode only when user is group owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 370
diff changeset
2252 DT_VIEW=replyblog dumptable html blog \
438
bd72a82f0a9c In group home table, move team field after heading followed by notify.
HIROSE Yuuji <yuuji@gentei.org>
parents: 437
diff changeset
2253 "ctime title heading team notify:通知$colmd $colstate" "$cond"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2254
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2255 getgname="(select gname from grp where rowid=$rowid)"
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2256 c="group by a.name having a.name in (select user from grp_mem where gname=$getgname)"
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2257 cm="?commission+$rowid"
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2258 thumbxy=50x50 listmember "" "$c" "$rowid" \
153
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2259 |sed -e "s|\(<br>\),not=\(.*\)|\1|" # 間違って押しやすい
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2260 # team list
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2261 hexteams=`hexteams "$grp"`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2262 if [ -n "$hexteams" ]; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2263 echo "チーム一覧" | html h2
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2264 echo '<div class="dumptable"><table class="b">'
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2265 sq $db -html -header<<-EOF
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2266 SELECT val TEAM,
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2267 group_concat((SELECT gecos FROM gecoses WHERE name=user), ',')
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2268 MEMBERS
224
5ac0684fc3ac correction from debug code
HIROSE Yuuji <yuuji@gentei.org>
parents: 223
diff changeset
2269 FROM grp_mem_m WHERE gname=$qgrp AND key='team' GROUP BY val;
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2270 EOF
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2271 echo '</table></div>'
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2272 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2273 }
288
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2274 grp_getbodyclass() {
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2275 # Get css class name for document.
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2276 # `moderated' for moderated groups
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2277 # `ismember' for groups where user belongs
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2278 # $1=GroupName (w/o quote)
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2279 # $user=userNameCurrentlyLogin
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2280 ## err grp_getbodyclass: 1="$1"
288
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2281 qgrp=`sqlquote "$1"`
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2282 query<<-EOF
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2283 SELECT coalesce(
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2284 (SELECT val FROM grp_s WHERE gname=$qgrp AND key='regmode'),
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2285 'open')
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2286 ||
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2287 CASE WHEN '$user'
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2288 IN (SELECT user FROM grp_mem WHERE gname=$qgrp)
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2289 THEN ' ismember'
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2290 ELSE ''
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2291 END;
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2292 EOF
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2293 }
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2294 grpaction() { # $1=group-rowid
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2295 err GRP_ACTION:IN
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2296 grid=${1:-`getpar grp`}
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2297 grp=`getgroupbyid "$grid"`
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2298 if [ -z "$grp" ]; then
118
45d1b0f09e48 grpaction is limited to its member
HIROSE Yuuji <yuuji@gentei.org>
parents: 117
diff changeset
2299 echo "無効な指定です。" | html p; return
45d1b0f09e48 grpaction is limited to its member
HIROSE Yuuji <yuuji@gentei.org>
parents: 117
diff changeset
2300 fi
433
03ced2f9f271 Quote group name
HIROSE Yuuji <yuuji@gentei.org>
parents: 431
diff changeset
2301 if ! ismember $user "$grp"; then
118
45d1b0f09e48 grpaction is limited to its member
HIROSE Yuuji <yuuji@gentei.org>
parents: 117
diff changeset
2302 echo "加入者のみに許可された操作です。" | html p; return
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2303 fi
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2304 echo "グループ $grp 個別選択操作" \
288
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2305 | _m4 -D_TITLE_="syscmd(\`cat')" \
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2306 -D_BODYCLASS_="`grp_getbodyclass \"$grp\"`" \
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2307 $layout/html.m4.html
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2308
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2309 isowner=""
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2310 isgrpowner "$user" "$grp" && isowner="yes"
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2311 usel=`getpar usel`
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2312 if [ -n "$usel" ]; then
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2313 uids=$(echo `echo $usel`|tr ' ' ',')
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2314 ## err grpaction-1: grp=$grp, `echo $sql`
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2315 text=`getpar text`
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2316
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2317 rm=`getpar rm` cfm=`getpar confirm`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2318 ## err rm=$rm cfm=$cfm
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2319 if [ x"$rm" = x"yes" ]; then
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2320 if [ "$isowner" ]; then
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2321 if [ x"$rm$cfm" = x"yesyes" ]; then
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2322 # Eliminate
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2323 cond="where gname=(select gname from grp where rowid=$grid) and user in (select name from user where rowid in ($uids))"
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2324 for tbl in grp_mem grp_mem_s grp_mem_m; do
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2325 sql="delete from $tbl $cond;"
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2326 # echo "sql=$sql"
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2327 query "$sql"
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2328 err rmGRPuser "$sql"
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2329 done
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2330 num=`query "select count(*) from user where rowid in ($uids);"`
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2331 #err num=$num
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2332 if [ 0$num -gt 0 ]; then
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2333 sql="select coalesce(b.val,a.name) from user a left join \
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2334 user_s b on a.name=b.name and key='gecos' where a.rowid in ($uids);"
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2335 # err `echo "$sql"`
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2336 html pre<<EOF
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2337 以下の${num}名のグループ $grp 登録を解除しました。
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2338 `query "$sql"`
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2339 EOF
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2340 fi
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2341 else
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
2342 echo "確認のチェックがないのでやめておきます。" | html p
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2343 return
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2344 fi
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2345 else # not Group Owner
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
2346 echo "グループ管理者でないのでメンバー操作はできません。" | html p
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2347 return
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2348 fi
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2349 cat<<EOF
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2350
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2351 EOF
153
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2352 elif [ x"$rm" = x"send" ]; then # if sendmsg mode
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2353 if [ -z "$text" ]; then # if msg is empty
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2354 echo "なにかメッセージを..." | html p
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2355 return 0
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2356 fi
300
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2357 gecos=`gecos $user`
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2358 mkfrom=`getpar mkfrom`
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2359 if [ x"$mkfrom" = x"yes" ]; then
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2360 safegc=`echo "$gecos" | tr -d '<>@'`
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2361 myuid=`query "SELECT rowid FROM user WHERE name='$user';"`
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2362 fromad=`email4groupbyuid "$grp" "$myuid"`
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2363 mail_from="$safegc <$fromad>"
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2364 else
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2365 mail_from="$admin"
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2366 fi
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2367 MAIL_FROM=$mail_from \
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2368 smail "`email4groupbyuid "$grp" $usel` $user" \
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2369 "$gecos さんからのメッセージ" <<EOF
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2370 $url
300
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2371 のグループ「$grp」のメンバーである $gecos さんから、
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2372 あなた宛へのメッセージです。
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2373 ----------------------------------------------------------
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2374 $text
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2375 EOF
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2376 if [ $? = 0 ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
2377 echo "Note: 以下のメンバーにメッセージを送信しました。" | html p
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2378 sql="select coalesce(b.val, a.name) from
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2379 (select name from user where rowid in ($uids)) a
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2380 left join user_s b on a.name=b.name and b.key='gecos';"
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
2381 html pre<<EOF
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
2382 `query "$sql"`
300
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2383 (送信者である $gecos さんも含まれます)
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
2384 EOF
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2385 err SendDone: `echo $sql`
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2386 fi
153
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2387 elif [ x"$rm" = x"commission" ]; then
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2388 grp_reg_adm $grid $usel
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2389 elif [ x"$rm" = x"addteam" ]; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2390 team=`getpar team|sed "s/'/''/g"` # for single quotation
440
dc7acfdb6bfc Add comment
HIROSE Yuuji <yuuji@gentei.org>
parents: 439
diff changeset
2391 newteam=`echo $team|tr -d ,` # ..and strip spaces of both ends
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2392 if [ x"$team" != x"$newteam" ]; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2393 echo "チーム名に使えない文字を除去しました" | html p
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2394 team=newteam
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2395 fi
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2396 if [ -z "$team" -o x"$team" = x"なし" ]; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2397 cat<<-EOF | html p
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2398 有効なチーム名を入力してください。
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2399 カンマだけ、「なし」という名前は使えません。
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2400 EOF
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2401 echo "有効なチーム名を入力してください。" | html p
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2402 else
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2403 grp_add_team $grid "$team" $usel
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2404 fi
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2405 elif [ x"$rm" = x"rmteam" ]; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2406 if [ x"yes" = x"`getpar teamconfirm`" ]; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2407 rmteam=`getpar rmteam|sed "s/'/''/g"`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2408 if [ -n "`query \"SELECT val FROM grp_mem_m WHERE\
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2409 gname='$grp' AND user='$user' AND key='team'\
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2410 AND val='$rmteam';\"`" ]; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2411 grp_rm_team $grid "$rmteam" $usel
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2412 else
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2413 echo "所属していないチームの除去操作はできません。"|html p
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2414 fi
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2415 else
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2416 echo "確認チェックなしなのでチーム除去しませんでした。"|html p
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2417 fi
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2418 fi
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2419 fi
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2420 # New entry
435
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2421 sql="WITH mems AS (
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2422 SELECT g.rowid, name, gecos FROM grp_mem gm LEFT JOIN gecoses g
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2423 ON gm.user=g.name
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2424 WHERE gname=(SELECT gname FROM grp WHERE rowid=$grid)
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2425 ), posts AS (
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2426 SELECT author, count(author) post
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2427 FROM article NATURAL JOIN article_s
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2428 WHERE blogid IN (SELECT id FROM blog_s
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2429 WHERE key='owner'
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2430 AND val=(SELECT gname FROM grp WHERE rowid=$grid))
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2431 AND key='text'
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2432 GROUP BY author
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2433 ), teams AS (
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2434 SELECT user, group_concat(val, ', ') team
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2435 FROM grp_mem_m
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2436 WHERE gname=(SELECT gname FROM grp WHERE rowid=$grid)
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2437 AND key='team'
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2438 GROUP BY user
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2439 ), user_post AS (
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2440 SELECT m.rowid, name, m.gecos, coalesce(post, 0) as POST
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2441 FROM mems m LEFT JOIN posts
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2442 ON m.name=posts.author
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2443 GROUP by m.rowid
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2444 )
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2445 SELECT
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2446 CASE
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2447 WHEN (SELECT user FROM grp_adm
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2448 WHERE gname=(SELECT gname FROM grp WHERE rowid=$grid)
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2449 AND user=up.name) IS NOT NULL
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2450 then 'k'
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2451 ELSE ''
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2452 END || rowid || ',' || gecos NAME,
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2453 post POST, team TEAM
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2454 FROM user_post up LEFT JOIN teams t
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2455 ON up.name=t.user
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
2456 ORDER BY gecos;"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2457 ## err grpaction: "`echo \"$sql\"`"
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2458 tf=$tmpd/title.$$
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
2459 echo "グループ[<a href=\"?grp+$grid\">$grp</a>]参加メンバーに対する操作" > $tf
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
2460 cmmsg="`cgi_radio rm commission id=\"cmadmin\"`<label
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
2461 for=\"cmadmin\">グループ管理者委任</label>
153
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2462 <div><p>このグループでの全権を付与します。信頼できる人に託してください。
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
2463 </p></div>"
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
2464 excmsg="`cgi_radio rm yes id=\"conf\"`<label
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
2465 for=\"conf\">グループ登録解除</label>
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
2466 <div>本当に消します! `cgi_checkbox confirm yes` 確認
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2467 <p>この操作による通知は本人に行きません。
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2468 あらかじめ通知するか、登録解除してよい状況かしっかり確認してください。</p>
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2469 </div>"
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2470 # Get team list to which current user belongs into $hexteams
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2471 myhexteams=$(hexteams "$grp" "$user")
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2472 allhexteams=$(hexteams "$grp")
227
ce24afbd3139 Team-removal control should obey $myhexteams.
HIROSE Yuuji <yuuji@gentei.org>
parents: 226
diff changeset
2473 if [ -n "$myhexteams" ]; then
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
2474 rmteammsg="`cgi_radio rm rmteam 'id=\"cmrmteam\"'`<label
292
3866eb7c2a23 Shorten heading string
HIROSE Yuuji <yuuji@gentei.org>
parents: 291
diff changeset
2475 for=\"cmrmteam\">チーム属性除去</label>
228
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2476 <div>チーム属性:`cgi_select_h rmteam \"2d2d2d\" $myhexteams`
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2477 を除去します: `cgi_checkbox teamconfirm yes` 確認
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2478 <p>この操作による通知は本人に行きません。
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2479 あらかじめ通知するか、登録解除してよい状況かしっかり確認してください。</p>
228
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2480 </div><!-- end of $rmteammsg -->
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2481 "
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2482 fi
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2483 b1='<label> <input type="checkbox" name="usel" value="'
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2484 ba='<label class="admin"><input type="checkbox" name="usel" value="'
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2485 #b2='"> <span>' b3='</span></label>'
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2486 # | sed -e "s|^\(<TR><TD>\)k\([0-9]*\),\([^<]*\)|\1$ba\2$b2\3$b3|" \
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2487 # -e "s|^\(<TR><TD>\)\([0-9]*\),\([^<]*\)|\1$b1\2$b2\3$b3|" \
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2488 lnk='"> <span>\3</span></label> [<a href="?home+\2">HOME</a>]'
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2489 cgi_form grpaction<<EOF \
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2490 | sed -e "s|^\(<TR><TD>\)k\([0-9]*\),\([^<]*\)|\1$ba\2$lnk|" \
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2491 -e "s|^\(<TR><TD>\)\([0-9]*\),\([^<]*\)|\1$b1\2$lnk|" \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2492 | _m4 -D_TITLE_="spaste(\`$tf')" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2493 -D_SUBTITLE_="チェック後操作ボタン" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2494 -D_FORM_="syscmd(cat)" -D_DUMPTABLE_="" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2495 $layout/form+dump.m4.html
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
2496 <p>下でチェックした人を対象として:</p>
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
2497 <div class="foldtabs">
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2498 `cgi_radio rm addteam 'id="cmteam"'`<label
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
2499 for="cmteam">同じチーム属性を付与</label>
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2500 <div>チーム名:`cgi_text team "" 'id="inteam" list="teams"'`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2501 `cgi_datalist_h teams $allhexteams`
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
2502 </div>
228
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2503 ${rmteammsg}
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2504 `cgi_radio rm send id="sendmsg"`<label
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
2505 for="sendmsg">メッセージ送信</label>
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2506 <div>
300
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2507 `cgi_checkbox mkfrom yes 'id="mkfrom" checked'`<label for="mkfrom"
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2508 >差出人を自分に(チェックを外すと相手が返事できない)</label><br>
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2509 `cgi_textarea text "" cols=40`
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2510 </div>
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
2511 ${isowner:+$cmmsg$excmsg}
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
2512 `cgi_radio rm close id="x"`<label for="x">×</label>
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2513 </div>
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2514 <h4>$grp 参加者一覧</h4>
275
b82007959b54 The 2nd column of grpaction-member-list should be right aligned
HIROSE Yuuji <yuuji@gentei.org>
parents: 274
diff changeset
2515 <table class="td2r">
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2516 `sq $db -header -html "$sql"`
207
355fcbdc3b49 Add 'file_accept'
HIROSE Yuuji <yuuji@gentei.org>
parents: 203
diff changeset
2517 </table>
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2518 `cgi_hidden grp $grid`
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2519 EOF
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2520 }
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2521 crview4article() { # $1=rowid of blog, $2(optional)=extra SQL
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2522 # Create TEMPORARY VIEW
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2523 query<<EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2524 CREATE TEMPORARY VIEW writeusers AS
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2525 SELECT DISTINCT author FROM article
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2526 WHERE id in (
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2527 select id from article where blogid=(select id from blog where rowid=$1)
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2528 );
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2529 CREATE TEMPORARY VIEW movablegroups AS
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2530 SELECT g.rowid growid , g.gname
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2531 FROM (SELECT grp.rowid, grp.gname FROM grp JOIN grp_mem gm
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2532 ON grp.gname=gm.gname -- そのユーザが属している
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2533 AND user='$user') g -- グループに絞る
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2534 WHERE (SELECT author FROM writeusers
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2535 EXCEPT
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2536 SELECT user FROM grp_mem gm WHERE gm.gname = g.gname)
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2537 IS NULL;
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2538 $2
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2539 EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2540 }
245
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2541 sql4readableblogs() {
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2542 # Create view of blogs that can be readable to $user
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2543 # Blog is readable when:
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2544 # 1: blog owner is an user
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2545 # 2: else, 2.1: owner-group where the $user belongs
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2546 # 2.2: else, owner-group is not moderated
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2547 # blog(id, author), blog_s(id, key='owner', val= ->owner)
300
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2548 cat<<EOF ## | tee tmp/sql.out
245
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2549 CREATE TEMPORARY VIEW readableblogs AS
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2550 SELECT blog.rowid rid, id, author
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2551 FROM blog
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2552 NATURAL JOIN
443
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
2553 (SELECT id,
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
2554 max(CASE key WHEN 'owner' THEN val END) owner,
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
2555 max(CASE key WHEN 'mode' THEN val END) mode
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
2556 FROM blog_s GROUP by id) bs
245
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2557 WHERE CASE WHEN (SELECT name FROM user where name=bs.owner) IS NOT NULL
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2558 THEN 1 -- blog owner is an user, READABLE
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2559 WHEN (SELECT val FROM grp_s
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2560 WHERE gname=bs.owner AND key='regmode') = 'moderated'
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2561 AND
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2562 (SELECT user FROM grp_mem
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2563 WHERE gname=bs.owner AND user='$user') IS NULL
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2564 THEN 0
443
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
2565 WHEN mode = 'quiz'
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
2566 THEN 0 -- "quiz" mode blog cannot be searched
245
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2567 ELSE 1
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2568 END;
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2569 EOF
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
2570 }
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2571 editheading() { # $1=rowid-of-heading
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2572 rowid=${1%%[!A-Z0-9a-z_]*}
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2573 if [ -z "$rowid" ]; then
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2574 echo "話題番号が未指定です。" | html p
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2575 return
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2576 fi
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2577 owner=`getvalbyid blog owner $rowid`
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2578 title=`getvalbyid blog title $rowid`
121
34b72806cd22 Too much quoting
HIROSE Yuuji <yuuji@gentei.org>
parents: 120
diff changeset
2579 GF_ACTION="?blog" edittable $formdir/blog.def blog $rowid \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2580 | _m4 -D_TITLE_="修正" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2581 -D_SUBTITLE_="[$title]@$owner" -D_DIARY_="" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2582 -D_BLOGS_="" -D_DUMPTABLE_="" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2583 -D_FORM_="syscmd(\`cat')" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2584 $layout/html.m4.html $layout/form+dump.m4.html
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2585 # Move to group
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2586 if isuser "$owner"; then
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2587 crview4article $rowid
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2588 n=`query "SELECT count(*) FROM writeusers;"`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2589 ## err N=$n
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2590 if [ $((n)) -gt 0 ]; then
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2591 ## err ROWID=$rowid
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2592 sql="SELECT growid || ':' || gname FROM movablegroups;"
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2593 cat<<-EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2594 <div class="fold">
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2595 `cgi_checkbox mv send id="mv"`<label
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2596 for="mv">この話題をグループ所有に移動する</label>
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2597 <div>
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2598 <form action="?mvart" method="POST" enctype="multipart/form-data">
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2599 移動先グループ:
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2600 <select name="mv2grp">
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2601 EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2602 query ".mode html"
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2603 query<<-EOF |
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2604 $sql
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2605 .mode list
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2606 EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2607 sed -e '/<\/TR>/d' -e 's,<TR>,,' -e 's,TD>,option>,g' \
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2608 -e 's,n>\([0-9]*\):\(.*\)<,n value="\1">\2<,'
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2609 cat<<-EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2610 </select>
214
e4dd3cf443b0 Add comment to article moving page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 213
diff changeset
2611 <p>(移動できるグループは、この「話題」に書き込んでいる人全てが
e4dd3cf443b0 Add comment to article moving page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 213
diff changeset
2612 そのグループに加入しているものに限られます)</p>
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2613 <p>`cgi_checkbox cfm yes`<label>確認
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2614 (この操作は元に戻すことができません)</label></p>
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2615 `cgi_hidden blogrowid $rowid`
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2616 `cgi_submit 移動`
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2617 `cgi_reset Reset`
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2618 </form>
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2619 </div>
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2620 </div>
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2621 EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2622 fi
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2623 # end of isuser "$owner"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2624 elif { hexteams=$(hexteams "$owner" ) # blog is of GROUP
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2625 [ -n "$hexteams" ];}; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2626 none="`echo なし|hexize`"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2627 cat<<-EOF
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2628 <div class="fold">
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2629 `cgi_checkbox mv2team send id="mv2team"`<label
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2630 for="mv2team">この話題を以下のチームのものにする</label>
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2631 <div><p>現在の所属チーム設定:
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2632 `query "SELECT
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2633 coalesce((SELECT val FROM blog_s
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2634 WHERE id=(SELECT id FROM blog WHERE rowid=$rowid)
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2635 AND key='team'),
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2636 ':なし');"`</p>
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2637 <form action="?mvart" method="POST" enctype="multipart/form-data">
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2638 移動先チーム: `cgi_select_h mv2team $none $hexteams`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2639 <p>`cgi_checkbox cfm yes`<label>確認</label></p>
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2640 `cgi_hidden blogrowid $rowid`<br>
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2641 `cgi_submit 移動`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2642 `cgi_reset Reset`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2643 </form></div></div>
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2644 EOF
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2645 fi
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2646 }
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2647 mvart() { # move diary to some group or team
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2648 # or move blog of group to team which belong to the group
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2649 blogrowid=`getpar blogrowid`
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2650 cfm=`getpar cfm`
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2651 ##### echo move blog:$blogrowid to $mv2grp | html p
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2652 blogrowid=${blogrowid%%[!A-Z0-9a-z_]*} # Purify
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2653 . ./s4-blog.sh
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2654 if [ -z "$blogrowid" ]; then
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2655 echo "無効な指定です(mvart)。" | html p
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2656 return
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2657 elif [ x"$cfm" != x"yes" ]; then
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2658 echo "記事移動の確認にチェックがないので通常表示に戻ります。" | html p
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2659 elif { mv2grp=`getpar mv2grp`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2660 mv2grp=${mv2grp%%[!A-Z0-9a-z_]*} # Purify
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2661 [ -n "$mv2grp" ]; }; then
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2662 crview4article $blogrowid
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2663 ########## TRANSACTION BEGIN
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2664 query "BEGIN;"
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2665 n=`query "SELECT count(*) FROM writeusers;"`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2666 ## err Nwriteuser=$n
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2667 if [ $((n)) -gt 0 ]; then
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2668 query<<-EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2669 UPDATE blog_s SET val=(SELECT gname FROM grp WHERE rowid=$mv2grp)
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2670 WHERE key='owner'
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2671 AND id=(SELECT id FROM blog WHERE rowid=$blogrowid)
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2672 AND $mv2grp IN (SELECT growid FROM movablegroups);
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2673 EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2674 fi
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2675 query "END;"
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2676 ########## TRANSACTION END
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2677 elif { mv2team=`getpar mv2team|sed "s/'/''/g"`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2678 [ -n "$mv2team" ];}; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2679 # blog owner can move it to ANY team
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2680 case "$mv2team" in
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2681 'なし')
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2682 cat<<-EOF
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2683 DELETE FROM blog_s
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2684 WHERE id=(SELECT id FROM blog WHERE rowid=$blogrowid)
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2685 AND key='team';
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2686 EOF
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2687 ;;
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2688 "") ;;
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2689 *)cat<<-EOF
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2690 BEGIN;
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2691 REPLACE INTO blog_s(id, key, val)
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2692 VALUES((SELECT id FROM blog WHERE rowid=$blogrowid),
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2693 'team', '$mv2team');
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2694 REPLACE INTO blog_s(id, key, val)
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2695 VALUES((SELECT id FROM blog WHERE rowid=$blogrowid),
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2696 'notify', 'all'); -- Change notify to all
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2697 END;
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2698 EOF
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2699 esac | query
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2700 fi
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2701 blog_reply $blogrowid
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
2702 echo yes | html p
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2703 }
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2704 editart() { # $1=article-rowid $2=blogrowid
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2705 rowid=${1%%[!A-Z0-9a-z_]*}
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2706 blogrowid=${2%%[!A-Z0-9a-z_]*}
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2707 if [ -z "$rowid" -o -z "$blogrowid" ]; then
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2708 echo "表示する記事番号が未指定です。" | html p
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2709 return
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2710 fi
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2711 owner=`getvalbyid blog owner $blogrowid`
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2712 title=`getvalbyid blog title $blogrowid`
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2713 author=`getvalbyid article author $rowid`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2714 ## err EDITart: owner=$owner, author=$author
436
e1bdad674c09 Quote arguments that hold group name.
HIROSE Yuuji <yuuji@gentei.org>
parents: 435
diff changeset
2715 if isgrpowner "$user" "$owner"; then
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2716 : EDIT OK
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2717 elif [ x"$owner" != x"$user" -a x"$author" != x"$user" ]; then
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2718 echo "本人か所有者しか編集できません." | html p
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2719 return
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2720 fi
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2721 aid=`query "select id from article where rowid=$rowid;"`
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2722 tmpout=$tmpd/editart.$$.out
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2723 GF_ACTION="?replyblog+$blogrowid#$aid" \
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2724 edittable $formdir/article.def article $rowid \
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2725 > $tmpout
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2726 rm -f /tmp/editart.out
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2727 # Cannot use pipelining to m4 with genform() because of stdin stack
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2728 _m4 -D_TITLE_="コメントの修正" -D_DIARY_="" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2729 -D_FORM_="syscmd(cat $tmpout)" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2730 -D_SUBTITLE_="`gecos $owner`の「$title」" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2731 -D_BLOGS_= -D_DUMPTABLE_= \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2732 $layout/html.m4.html $layout/form+dump.m4.html
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2733 }
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2734 send2mem() {
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2735 rowid=`getpar grp`
443
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
2736 rowid=${rowid%%[!0-9]*} # Cleaning
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2737 if [ -z "$rowid" ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
2738 echo "グループが未指定です。" | html p
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2739 return
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2740 fi
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2741 message=`getpar message`
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2742 if [ -z "$message" ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
2743 echo "文章を入れてください。" | html p
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2744 return
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2745 fi
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2746 grp=`getgroupbyid $rowid`
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2747 members=`collectemail $grp`
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2748 # smail rcpt subj (file)
443
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
2749 SMAIL_TO="`echo "$grp" | nkf -jM | tr -d '\n'` readers <$admin>" \
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
2750 smail "$members" "グループ $grp 宛メッセージ(from `gecos $user`)" <<EOF
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2751 $urlbase?grp+$rowid
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2752 グループ $grp に所属する
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2753 `gecos $user` さんよりメッセージ:
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2754
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2755 $message
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2756 EOF
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2757 cat<<EOF
443
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
2758 <p>以下のユーザに送信しました。</p>
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2759 <pre>
443
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
2760 `collectgecosesbyid "$rowid" | sed 's/$/ さん/'`
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2761 </pre>
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2762 <p><a href="?grp+$rowid">グループ $grp</a>に戻る。</p>
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2763 EOF
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2764 }
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2765 joingrpadmit() {
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2766 # $1=yes/no $2=session-key
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2767 if [ -z "$2" ]; then
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2768 echo "bye bye" | html p; return
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2769 fi
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2770 t_usr=`session=$2 getpar user`
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2771 t_grp=`session=$2 getpar group`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2772 ## err joingrpadmit: t_usr=$t_usr, t_grp=$t_grp
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2773 _m4 -D_TITLE_="joingrp" $layout/html.m4.html
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2774 if [ -z "$t_usr" -o -z "$t_grp" ]; then
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2775 echo "無効な加入依頼です。" | html p
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2776 echo "有効期限が切れたか、
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2777 他の管理者がいる場合は処理済みの可能性があります。" | html p
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2778 return
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2779 fi
436
e1bdad674c09 Quote arguments that hold group name.
HIROSE Yuuji <yuuji@gentei.org>
parents: 435
diff changeset
2780 if ! isgrpowner "$user" "$t_grp"; then
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2781 echo "グループ管理者のみの機能です。" | html p; return
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2782 fi
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2783 case $1 in
308
e38ea2702570 Call joingrp() without $4(extra email address)
HIROSE Yuuji <yuuji@gentei.org>
parents: 307
diff changeset
2784 yes) joingrp "$t_grp" "$t_usr" yes ;;
e38ea2702570 Call joingrp() without $4(extra email address)
HIROSE Yuuji <yuuji@gentei.org>
parents: 307
diff changeset
2785 no) joingrp "$t_grp" "$t_usr" no ;;
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2786 *)
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2787 echo "無効な指定です($1)。" | html p
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2788 return ;;
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2789 esac
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
2790 gid=$(query "select rowid from grp where gname=`sqlquote \"$t_grp\"`;")
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2791 rcpts="`getgroupadminmails $t_grp` $user"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2792 ## err admit: msgdir=$msgdir, rcpts="["$rcpts"]"
310
e8f1847eebca Add link to group name in joingrpadmit report screen
HIROSE Yuuji <yuuji@gentei.org>
parents: 309
diff changeset
2793 body="グループ <a href=\"?grp+$gid\">$t_grp</a>
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2794
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2795 $t_usr
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2796 `[ x$1 = xyes ] && echo 'を追加' || echo 'の解除操作を'`
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2797 しました。"
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2798 (echo "$body"; echo; echo "$url?grp+$gid") | smail "$rcpts" "joingrp $1"
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2799 query "delete from session where id='$2';"
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2800 echo "$body" | html p
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2801 }
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2802
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2803 joingrprequest() {
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2804 # $1=group $2=user $3=yes/no $4=email(if any $5=AsAdmin)
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2805 jss="joingrp-`date +%s`-`genrandom 12`"
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2806 addsession $jss +${memoplimitdays}days
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
2807 query "replace into par values('$jss', 'group', 'string', `sqlquote \"$1\"`),
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
2808 ('$jss', 'user', 'string', `sqlquote \"$user\"`);"
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2809 smail "$(collectemail `getgroupadmins $1`)" "Join request to $1"<<EOF
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2810 $url
270
707ff3870ad1 Put user name in joingrprequest mail
HIROSE Yuuji <yuuji@gentei.org>
parents: 268
diff changeset
2811 $user さんから
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2812 グループ $1
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2813 に加入依頼がありました。
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2814
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2815 承認する:
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2816 $urlbase?joingrpadmit+yes+$jss
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2817
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2818 白紙に戻す:
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2819 $urlbase?joingrpadmit+no+$jss
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2820 EOF
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2821 echo "管理者に加入依頼を出しました。
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2822 ${memoplimitdays}日以内に加入承認操作がされれば加入できますが、
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2823 グループ運用方針に懸かることですので直接の問い合わせが重要です。" | html p
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2824 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2825 joingrp() {
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
2826 # $1=group $2=user $3=yes/no $4=email(if any $5=AsAdmin)
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2827 ## err joingrp: \$1=$1 \$2=$2 \$3=$3 \$4=$4
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2828 if isgrpowner "$user" "$1"; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2829 isowner="yes"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2830 elif [ -n "$5" ]; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2831 isowner="yes"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2832 else
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2833 isowner=""
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2834 fi
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2835 ## err jg:isgrpowner: isowner="$isowner"
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2836 if [ -n "$isowner" ]; then
120
d870eaf0e4dd Revert to "sq $db"
HIROSE Yuuji <yuuji@gentei.org>
parents: 119
diff changeset
2837 : # GROUP OWNER CAN DO EVERYTHING ABOUT REGISTRATION/RETIREMENT
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2838 elif [ x"$2" != x"$user" ]; then # if user is not login user
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2839 echo "本人か、グループ管理者しか加入操作はできません。" | html p
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2840 return
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2841 elif [ x"$3" = x"no" ]; then
120
d870eaf0e4dd Revert to "sq $db"
HIROSE Yuuji <yuuji@gentei.org>
parents: 119
diff changeset
2842 : # Do not pursue those who leave
271
a8bb72580c91 Member can change own email address for the joining moderated group
HIROSE Yuuji <yuuji@gentei.org>
parents: 270
diff changeset
2843 elif [ x"$3" = x"yes" ] && ismember "$user" "$grp"; then
a8bb72580c91 Member can change own email address for the joining moderated group
HIROSE Yuuji <yuuji@gentei.org>
parents: 270
diff changeset
2844 : # Member can change own email address for the joining moderated group
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2845 else # adding user is $user itself
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2846 case `getgroupattr $1 regmode` in
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2847 moderated)
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2848 joingrprequest "$@" # Request only
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2849 return
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2850 ;;
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2851 *)
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2852 ;;
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2853 esac
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2854 fi
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
2855 qgname=`sqlquote "$1"`
424
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
2856 grid=`query "SELECT rowid FROM grp WHERE gname=$qgname;"`
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2857 cond="where gname=$qgname and user='$2'"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2858 if [ x"$3" = x"yes" ]; then
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2859 query "replace into grp_mem values($qgname, '$2');"
424
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
2860 # Notify joingrp to admin
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
2861 action="に加入しました。"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2862 if [ -n "$4" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2863 if msg=`emaildomaincheck "$4"`; then
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2864 query "replace into grp_mem_s values($qgname, '$user', 'email', \
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2865 'string', '$4', NULL);"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2866 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2867 echo $msg
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2868 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2869 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2870 query "delete from grp_mem_s $cond and key='email';"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2871 fi
306
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
2872 if [ -n "$5" ]; then # as ADMIN
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
2873 # Coming here means newly created group
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
2874 sql="select case\
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
2875 when (select count(*) from grp_mem where gname=$qgname)=1\
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
2876 then (select user from grp_mem\
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
2877 where gname=$qgname and user='$user')\
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
2878 else '' end; "
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
2879 err NewGrpChk: $sql
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
2880 if [ -n "`query \"$sql\"`" ]; then
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2881 ## err ADMIN: "replace into grp_adm values($qgname, '$user');"
306
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
2882 query "replace into grp_adm values($qgname, '$user');"
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
2883 fi
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
2884 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2885 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2886 query "delete from grp_mem $cond;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2887 delete from grp_mem_s $cond;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2888 delete from grp_mem_m $cond;"
424
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
2889 action="から脱退しました。"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2890 fi
424
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
2891 smail "$(collectemail `getgroupadmins $1`)" "Member change of $1"<<-EOF
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
2892 $url?grp+$grid
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
2893 $user (`gecos $user`)さんが
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
2894 グループ $1
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
2895 $action
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
2896 EOF
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2897 }
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2898 grp_add_team() (
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2899 # $1=grp-rowid $2=team $3...=user-rowid(s)
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2900 grp=`getgroupbyid $1`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2901 team=$2; shift; shift
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2902 [ -z "$grid" -o -z "$team" -o -z "$1" ] && return
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2903 { echo "BEGIN;"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2904 for user; do
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2905 echo "REPLACE INTO grp_mem_m(gname, user, key, type, val) VALUES(\
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2906 '$grp',\
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2907 (SELECT name FROM user WHERE rowid=$user),\
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2908 'team', 'string', '$team');"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2909 done
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2910 echo "END;"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2911 } | query
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2912 )
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2913 grp_rm_team() (
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2914 # $1=grp-rowid $2=team $3...=user-rowid(s)
228
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2915 grid=$1
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2916 qgrp=$(sqlquote "`getgroupbyid $grid`")
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2917 team=$2; shift; shift
228
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2918 [ -z "$grid" -o -z "$team" ] && return
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2919 { echo "BEGIN;"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2920 for user; do
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2921 echo "DELETE FROM grp_mem_m\
228
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2922 WHERE gname=$qgrp \
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2923 AND user=(SELECT name FROM user WHERE rowid=$user)\
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2924 AND key='team' AND val='$team';"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2925 done
228
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2926 cat<<-EOF
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2927 DELETE FROM blog_s
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2928 WHERE rowid=(
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2929 SELECT rowid
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2930 FROM blog_s a
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2931 WHERE key='team'
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2932 AND id IN (SELECT id FROM blog_s WHERE key='owner' AND val=$qgrp)
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2933 AND NOT EXISTS (SELECT * FROM grp_mem_m
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2934 WHERE key='team' AND val=a.val -- a.val=team
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2935 AND gname = (SELECT val FROM blog_s b
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2936 WHERE a.id=b.id AND key='owner')
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2937 ));
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2938 EOF
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
2939
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2940 echo "END;"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2941 } | query
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2942 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2943 grp_reg_adm() {
153
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2944 # $1=grp-rowid $2...=user-rowid
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2945 grid=$1
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2946 grp=`getgroupbyid "$1"`
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2947 if [ -z "$grp" ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
2948 echo "無効なグループIDです" | html p; return
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2949 fi
436
e1bdad674c09 Quote arguments that hold group name.
HIROSE Yuuji <yuuji@gentei.org>
parents: 435
diff changeset
2950 if ! isgrpowner "$user" "$grp"; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
2951 echo "$grp グループの管理者しかこの操作はできません。" | html p; return
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2952 fi
153
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2953 shift
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2954 for urid; do
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2955 newadm=`query "select name from user where rowid=$urid;"`
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2956 if [ -z "$newadm" ]; then
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2957 echo "指定ユーザIDがおかしいようです。" | html p; return
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2958 fi
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
2959 err GRP_reg_adm: "replace into grp_adm values(`sqlquote \"$grp\"`, '$newadm');"
153
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2960 err ismember $newadm $grp
434
cf20459261cb Quote $grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 433
diff changeset
2961 if ismember $newadm "$grp"; then
153
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2962 # OK, go ahead
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2963 getgname="(select gname from grp where rowid=$grid)"
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2964 query "replace into grp_adm values($getgname, '$newadm');"
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2965 # confirm insertion
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2966 sql="select * from grp_adm where gname=$getgname and user='$newadm'"
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2967 if [ -n "`query \"$sql;\"`" ]; then
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2968 echo "追加完了: $newadm" | html p
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2969 else
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2970 echo "追加失敗($1 $urid)" | html p
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2971 fi
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2972 fi
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2973 showgroup $grid
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2974 done
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2975 }
397
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2976 dt_rowhack() {
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2977 # From: <TR>
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2978 # ....
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2979 # <TD>rowclass=foo</TD>
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2980 # </TR>
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2981 # To: <TR class="foo">....<TD>foo</TD></TR>
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2982 sed -e '
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2983 /^<TR>/ {
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2984 :loop
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2985 s/\n//
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2986 N
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2987 /<\/TR>/ {
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2988 s/\n//
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2989 s,^<TR>\(.*\)<TD>rowclass=\(.*\)\(</TD></TR>\),<TR class="\2">\1<TD>\2\3,
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2990 n
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2991 }
400
0a5fdb619325 $p produces duplicated final line on gsed(fixed)
HIROSE Yuuji <yuuji@gentei.org>
parents: 398
diff changeset
2992 $q
397
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2993 b loop
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2994 }'
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2995 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2996 dumptable() {
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
2997 # $1=mode $2=Table $3=column-list-of-*_s(defaults to *) $4=conditions(if any)
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2998 # textのフィールドだけ全てダンプにしたほうがいいか
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2999 # $DT_VIEW sets link
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3000 # 6/17の次: editリンクじゃなくてスレッドVIEWリンクでいいんちゃう?
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3001 ### elink="<a href=\"$myname?edittable+$2+\\2\">EDIT</a>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3002 VIEW=${DT_VIEW-replyblog}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3003 if [ -n "$VIEW" ]; then
362
955cd7b517d3 Anchor of link-to-bottom expands from `W' to `EW'
HIROSE Yuuji <yuuji@gentei.org>
parents: 361
diff changeset
3004 dvlink=" <a href=\"$myname?$VIEW+\\2\\3\">VI</a><a href=\"$myname?$VIEW+\\2#bottom\">EW</a>"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3005 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3006 # $DT_CHLD=ChildTable:BindColumn
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3007 if [ -n "$DT_CHLD" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3008 _t=${DT_CHLD%:*} _i=${DT_CHLD#*:}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3009 cntall="(select count($_i) from $_t where $_i=a.id)"
281
dd8629e6d67e Ugly workaround to speed up count-new
HIROSE Yuuji <yuuji@gentei.org>
parents: 280
diff changeset
3010 # XXX: Dirty workaround for slow subquery of acclog
dd8629e6d67e Ugly workaround to speed up count-new
HIROSE Yuuji <yuuji@gentei.org>
parents: 280
diff changeset
3011 presql="CREATE TEMPORARY TABLE IF NOT EXISTS myacclog AS
dd8629e6d67e Ugly workaround to speed up count-new
HIROSE Yuuji <yuuji@gentei.org>
parents: 280
diff changeset
3012 SELECT * FROM acclog WHERE user='$user' and tbl='$2';"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3013 cntnew="(select count(val) from ${_t}_s where key='ctime' \
281
dd8629e6d67e Ugly workaround to speed up count-new
HIROSE Yuuji <yuuji@gentei.org>
parents: 280
diff changeset
3014 and id in (select id from $_t where $_i=a.id) \
dd8629e6d67e Ugly workaround to speed up count-new
HIROSE Yuuji <yuuji@gentei.org>
parents: 280
diff changeset
3015 and val > coalesce((select time from myacclog where \
dd8629e6d67e Ugly workaround to speed up count-new
HIROSE Yuuji <yuuji@gentei.org>
parents: 280
diff changeset
3016 tblrowid=a.rowid),\
dd8629e6d67e Ugly workaround to speed up count-new
HIROSE Yuuji <yuuji@gentei.org>
parents: 280
diff changeset
3017 '1970-01-01'))"
60
9f4e85181d40 Add new articles digest
HIROSE Yuuji <yuuji@gentei.org>
parents: 59
diff changeset
3018 cnt="$cntnew as '新着', $cntall as '総数',"
252
75dfaceac01f Link to newest article of the blog in the recent writing place
HIROSE Yuuji <yuuji@gentei.org>
parents: 251
diff changeset
3019 dt_class=" td2r td3r dumpblogs"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3020 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3021 # Construct join expression
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3022 eav="" scols=""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3023 pk=`gettblpkey $2`
397
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3024 substr=${dumpcollen:+"substr(%s, 0, $dumpcollen)"}
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3025 substr=${substr:-%s}
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3026 for col in ${3:-`gettbl_s_cols $2`}; do
397
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3027 valvar=val
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
3028 case $col in
60
9f4e85181d40 Add new articles digest
HIROSE Yuuji <yuuji@gentei.org>
parents: 59
diff changeset
3029 gecos) scols="$scols${scols:+, }${col#}"
9f4e85181d40 Add new articles digest
HIROSE Yuuji <yuuji@gentei.org>
parents: 59
diff changeset
3030 continue ;; # built-in column name
397
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3031 *:*) as=${col#*:} # as can be 稼動状態:frozen=凍結中
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3032 col=${col%%:*} # stage:稼動状態:frozen=凍結中 -> stage
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3033 case "$as" in
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3034 *:*=*) cnd=${as#*:}
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3035 h=${cnd%%=*} v=${cnd#*=}
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3036 h=`sqlquotestr "$h"`
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3037 v=`sqlquotestr "$v"`
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3038 valvar="CASE val WHEN $h THEN $v END"
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3039 as=${as%%:*} ;;
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3040 esac
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3041 ;;
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
3042 *) as=${col} ;;
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
3043 esac
397
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3044 ss=`printf "$substr" "$valvar"`
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3045 eav=$eav${eav:+,}" max(case key when '$col' then $ss end) as $as"
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
3046 scols="$scols${scols:+, }b.$as"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3047 done
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3048 #case author when '$user' then a.rowid else '---' end as ID,
175
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
3049 sql=${DT_SQL:-"select \
203
c120ade0c9c3 Change table header ID to LINK
HIROSE Yuuji <yuuji@gentei.org>
parents: 200
diff changeset
3050 a.rowid as LINK,\
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3051 $cnt\
60
9f4e85181d40 Add new articles digest
HIROSE Yuuji <yuuji@gentei.org>
parents: 59
diff changeset
3052 $scols from $2 a left join\
9f4e85181d40 Add new articles digest
HIROSE Yuuji <yuuji@gentei.org>
parents: 59
diff changeset
3053 (select $pk,$eav,
9f4e85181d40 Add new articles digest
HIROSE Yuuji <yuuji@gentei.org>
parents: 59
diff changeset
3054 max(case key when 'owner'
207
355fcbdc3b49 Add 'file_accept'
HIROSE Yuuji <yuuji@gentei.org>
parents: 203
diff changeset
3055 then (SELECT gecos FROM gecoses WHERE name=val) END) as gecos
175
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
3056 from ${2}_s c group by $pk) b on a.$pk=b.$pk $4;"}
357
78c0a2b43ec1 More deactivation of debug log
HIROSE Yuuji <yuuji@gentei.org>
parents: 356
diff changeset
3057 ## err dt:SQL="`echo \"$presql$sql\"|tr -d '\n'`"
397
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3058 cat<<EOF | sed "s,\(<TR><TD>\)\([1-9][0-9]*\)\(#[0-9a-fxs]*\)*</TD>,\1$elink$dvlink</TD>," | dt_rowhack
200
ffc676bd8277 Protect div.dumptable from div.fold
HIROSE Yuuji <yuuji@gentei.org>
parents: 196
diff changeset
3059 <div> <!-- for folding by check button (s4-funcs.sh:dumptable()) -->
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3060 <div class="dumptable">
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3061 <table class="b$dt_class">
281
dd8629e6d67e Ugly workaround to speed up count-new
HIROSE Yuuji <yuuji@gentei.org>
parents: 280
diff changeset
3062 `sq -header -cmd ".mode $1" $db "$presql$sql"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3063 </table>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3064 </div> <!-- dumptable -->
200
ffc676bd8277 Protect div.dumptable from div.fold
HIROSE Yuuji <yuuji@gentei.org>
parents: 196
diff changeset
3065 </div> <!-- for folding by check button (s4-funcs.sh:dumptable()) -->
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3066 EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3067 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3068
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3069 par2table() (
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3070 # copy current parameters of par into destination table
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3071 # $1=definition-file
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3072 # Using $user and $session
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3073 # Return value:
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3074 # 0: Stored successfully
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3075 # 1: Insufficient fillings
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3076 # 2: No permission to modify the record
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3077 # 3: Invalid rowid
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3078 # 4: SUCCESS to delete
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3079 # 5: Stop deletion for lack of confirm check
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3080 # 6: Password length too short
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3081 # 7: Password mismatch
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3082 # 8: Old password incorrect
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3083 rowid=`getpar rowid`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3084 if [ ! -e $1 ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3085 echo "テーブル定義ファイルが見付かりません" | html p
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3086 exit 1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3087 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3088 tbl=${1%.def}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3089 tbl=${tbl##*/}
2
7aa52f9874ae .hgignore added
HIROSE Yuuji <yuuji@gentei.org>
parents: 1
diff changeset
3090 if [ -n "$rowid" ]; then # Modify existing entry
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3091 if [ x"$tbl" = x"user" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3092 rowowner=`query "select name from $tbl where rowid=$rowid;"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3093 elif [ x"$tbl" = x"grp" ]; then
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
3094 sql="select gname from $tbl where rowid=$rowid;"
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
3095 ##err p2t:grp:q $sql
436
e1bdad674c09 Quote arguments that hold group name.
HIROSE Yuuji <yuuji@gentei.org>
parents: 435
diff changeset
3096 isgrpowner "$user" "`query $sql`" && rowowner=$user
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3097 else
394
f095e97066c5 Remove "SELECT owner"
HIROSE Yuuji <yuuji@gentei.org>
parents: 393
diff changeset
3098 # 2016-12-05 There's no owner column in $tbl (need confirmation)
f095e97066c5 Remove "SELECT owner"
HIROSE Yuuji <yuuji@gentei.org>
parents: 393
diff changeset
3099 rowowner=`query "SELECT author FROM $tbl WHERE rowid=$rowid;"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3100 fi
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
3101 ### err rowowner=$rowowner
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3102 if [ x"$user" != x"$rowowner" ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3103 echo "他人のレコードはいじれないの" | html p
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3104 return 2
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3105 elif [ -z "$rowowner" ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3106 echo "指定したレコードはないみたい" | html p
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3107 return 3
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3108 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3109 rm=`getpar rm` cfm=`getpar confirm`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3110 # Editing existent entry
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3111 if [ x"$rm" = x"yes" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3112 if [ x"$rm$cfm" = x"yesyes" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3113 query "delete from $tbl where rowid=$rowid;"
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3114 return 4
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3115 else
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3116 echo "消去確認のチェックがないので消さなかったの..." | html p
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3117 return 5
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3118 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3119 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3120 fi
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3121
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3122 ts=${tbl}_s tm=${tbl}_m val="" pval="" formaster=""
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3123 if [ -n "$rowid" ]; then
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3124 # Update of existing record
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3125 for col in `gettblcols $tbl`; do
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3126 val=`getparquote $col`
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3127 [ -z "$val" ] && continue
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3128 ## err query "update $tbl set $col=$val where rowid=$rowid"
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3129 ## XX: THIS IS DIRTY hack to ensure non-foreign key in blog_s
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3130 sql="update $tbl set $col=$val where rowid=$rowid;"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3131 if [ x"$tbl" = x"grp" -a x"$col" = x"gname" \
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3132 -o x"tbl" = x"user" -a x"$col" = x"name" ]; then
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3133 ## User name cannot be changed with interface provided with this
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3134 ## script. But we offer the trigger to change owner user
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3135 ## of blog_s table.
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3136 #err "select quote($col) from $tbl where rowid=$rowid;"
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3137 old=`query "select quote($col) from $tbl where rowid=$rowid;"`
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3138 cat<<-EOF | query
382
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
3139 -- Here we cannot use BEGIN-COMMIT because groupupdate()
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
3140 -- should use EXCLUSIVE transaction outside of this.
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
3141 SAVEPOINT par2table;
180
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
3142 $sql
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
3143 update blog_s set val=$val
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
3144 where key='owner' and val=$old;
382
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
3145 RELEASE SAVEPOINT par2table;
180
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
3146 EOF
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3147 ## XX: DIRTY Hack Ends here
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3148 ## We should keep blog's owner as a single column which has
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3149 ## foreign key constraint with primary key of grp/user.
180
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
3150 else
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
3151 query "$sql"
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
3152 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3153 done
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3154 # Then, set up $pval for further insertion of tbl_s and tbl_m
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3155 for col in `gettblpkey $tbl`; do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3156 val=`query "select $col from $tbl where rowid=$rowid;"|sed -e 's/\"/\"\"/g'`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3157 pval="$pval${pval:+, }\"$val\""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3158 done
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3159 else
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3160 # New entry
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3161 # Generate values() for primary keys
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3162 for col in `gettblpkey $tbl`; do
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3163 # Genuine primary keys for _m and _s
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3164 val=`getvalquote $tbl $col`
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3165 [ -z "$val" ] && continue
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3166 pval="$pval${pval:+, }$val"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3167 done
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3168 ##err pval=$pval
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3169 for col in `gettblfkey $tbl`; do
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3170 # args for values() to insertion into master table
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3171 val=`getvalquote $tbl $col`
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3172 [ -z "$val" ] && continue
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3173 formaster=$formaster"${formaster:+, }$val"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3174 done
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3175 formaster="$pval${formaster:+, }$formaster"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3176 ## err formaster=$formaster
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3177 if [ -z "$formaster" ]; then
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3178 echo "項目を全て埋めてください" | html pre
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3179 return 1
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3180 fi
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3181 ## err "replace into $tbl values($formaster);"
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3182 query "replace into $tbl values($formaster);"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3183 ## Insertion to master table, done
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3184 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3185
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3186 for kt in s m; do
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3187 tb2=${tbl}_$kt
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3188 for col in `gettbl_${kt}_cols $tbl`; do
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3189 ptype=`getpartype $col "limit 1"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3190
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3191 # First, check update of existing entries in _m
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3192 if [ $kt = m ]; then
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3193 # sessID|address.1.22|string|Somewhere-x.y.z
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3194 sql=""
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3195 ##err dots from query "select var from par where var like '$col.%';"
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3196 for v in `query "select var from par where var like '$col.%';"`; do
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3197 # v=address.1.22
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3198 st_rowid=${v##*.}
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3199 origcol=${v%%.*} # original column derived from
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3200 ##err Updating for $v st_rowid=$st_rowid, partype=`getpartype $v`
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3201 ##case `getpartype $v` in
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3202 ## err CASE `gettbl_coltype $tbl/$origcol` in
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3203 ## err edit flag = `getpar action.$v`
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3204 case `getpar action.$v` in
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3205 rm)
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3206 if [ x`getpar confirm.$v` = x"yes" ]; then
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3207 newsql="delete from $tb2"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3208 else
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3209 echo "削除確認未チェック" | html p
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3210 fi ;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3211 edit)
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3212 case `gettbl_coltype $tbl/$origcol` in
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3213 image|document|binary)
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3214 file=$tmpd/`getparfilename $v`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3215 ## err type=file=$file
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3216 [ -z "$file" ] && continue
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
3217 bn=`sqlquotestr "${file##*/}"`
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
3218 bin="X'"$(hexize "$file")"'"
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
3219 ct=`file --mime-type - < "$file" |cut -d' ' -f2`
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3220 type=\"file:$ct\"
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
3221 newsql="update $tb2 set val=$bn, type=$type, bin=$bin"
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3222 cachedir=`getcachedir "$tbl/$rowid"`
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3223 err getcache tbl/rowid=$tbl/$rowid, rm -r $cachedir
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
3224 rm -rf $cachedir
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3225 ;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3226 *)
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3227 newsql="update $tb2 set val=(select val from par where var \
75
5e95c17f6b78 variable separation
HIROSE Yuuji <yuuji@gentei.org>
parents: 74
diff changeset
3228 like '$col.%.$st_rowid')"
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3229 ;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3230 esac
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3231 ;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3232 *) # maybe "keep", do not modify value
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3233 continue
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3234 ;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3235 esac
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3236 # err newsql=$newsql
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3237 sql=$sql$nl"$newsql where rowid=$st_rowid;"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3238 done
124
9742dbee5cba Call large query with SQL script in par2table() - at edit
HIROSE Yuuji <yuuji@gentei.org>
parents: 123
diff changeset
3239
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3240 if [ x"$bin" = x"NULL" ]; then
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3241 ## err repl:normal sql=`echo $sql`
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3242 query "$sql
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
3243 delete from $tb2 where type='string' and val='';"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3244 ## err repl:normal done
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3245 else
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3246 sqlfile="$tmpd/sqlf.$$"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3247 echo "$sql" > $sqlfile
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3248 ## err repl:sqlfile=`ls -lF $sqlfile`
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3249 query ".read $sqlfile"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3250 ## err repl:done
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3251 fi
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3252 # Rest of kt==m: set multiple mode
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3253 nr=`getparcount $col`
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3254 else
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3255 nr=1 # for kt==s, number of records is 1
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3256 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3257
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3258 i=0
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3259 while [ $i -lt $nr ]; do
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3260 limit="limit 1 offset $i"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3261 i=$((i+1)) # increase beforehand against continue
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3262 val=`getvalquote $tbl $col "$limit"`
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3263 [ -z "$val" -o x"$val" = x'""' -o x"$val" = x"NULL" ] && continue
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3264 ## err $col=$val
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3265 bin=NULL
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3266 ## err partype$col=`getpartype $col "$limit"`
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3267 case $ptype in
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3268 file) file=$tmpd/`getparfilename $col "$limit"`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3269 ## err parfile-$col=$file
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3270 [ -z "$file" ] && continue
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
3271 bin="X'"$(hexize "$file")"'"
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
3272 ct=`file --mime-type - < "$file"|cut -d' ' -f2`
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3273 type=\"file:$ct\" ;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3274 "*"*) continue ;; # foreign table
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3275 *) type=\"string\" ;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3276 esac
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3277 case `gettbl_coltype $tbl/$col` in
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3278 password) # special care for password
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3279 # name={password,pswd1,pswd2}
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3280 p1=`getpar pswd1 "$limit"`
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3281 if [ -z "$p1" ]; then
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3282 continue # SKIP password setting, if p1 is empty
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3283 else
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3284 pswd=`getpar pswd "$limit"` p2=`getpar pswd2 "$limit"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3285 ## err pswd=$pswd
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3286 if pwcheck "$pswd"; then
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3287 if [ x"$p1" = x"$p2" ]; then
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3288 case "$p1" in
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3289 ??????????*) ;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3290 *) echo "パスワードは10字以上にしてください。" | html p
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3291 return 6;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3292 esac
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3293 val="\"`echo $p1|mypwhash`\""
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3294 else
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3295 echo "2つの新パスワード不一致" | html p
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3296 return 7
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3297 fi
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3298 else
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3299 echo "旧パスワード違います" | html p
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3300 return 8
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3301 fi
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3302 fi
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3303 ;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3304 esac
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3305 ## err p2t: "replace into $tb2 values($pval, \"$col\", $type, $val, bin...);"
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3306 #query "replace into $tb2 values($pval, \"$col\", $type, $val, $bin);"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3307 sql="replace into $tb2 values($pval, \"$col\", $type, $val, $bin);"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3308 if [ x"$bin" = x"NULL" ]; then
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3309 ## err Normal-query: `echo $sql`
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3310 query "$sql"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3311 else
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3312 sqlfile="$tmpd/query.$$"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3313 echo "$sql" > $sqlfile
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3314 ## err sqlfile=`ls -lF $sqlfile`
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3315 query ".read $sqlfile"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3316 fi
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3317 ## err p2t done
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3318 done
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3319 done
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3320 done
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3321 return 0
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3322 ##err donee
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3323 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3324 genform() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3325 # $1 = form definition file
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3326 # $2, $3 (optional)= table name and ROWID
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3327 # If $GF_VIEWONLY set and nonNull, output values without form
219
e2dea2f63a69 Duplicate posting by reload avoided
HIROSE Yuuji <yuuji@gentei.org>
parents: 218
diff changeset
3328 # If $GF_ARGS set, use it as content-strings in the form
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3329 # If $GF_OWNER set, use it as value of name="owner"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3330 # If $GF_STAGE set, use it as value of name="stage"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3331 forms="" hiddens="" rowid=$3
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3332 if [ ! -e "$1" ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3333 echo "そのようなデータベースはないようです($2)。" | html p
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3334 return
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3335 elif [ -n "$2" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3336 rec=`query "select * from $2 where rowid='$rowid';"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3337 if [ -z "$rec" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3338 pk=`gettblpkey $2`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3339 ###rec=`sq $db "select rowid from $2 where $pk='$rowid'"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3340 rec=`query "select rowid from $2 where $pk='$rowid';"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3341 rowid=$rec
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3342 rec=$3
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3343 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3344 if [ -z "$rec" ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3345 echo "そんなレコードはないみたいね..." | html p
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3346 return
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3347 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3348 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3349 if [ -z "$GF_VIEWONLY" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3350 rm='<input id="rm" name="rm" type="checkbox"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3351 value="yes"><label for="rm">このエントリの削除</label>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3352 <span>ほんとうに消しますよ(確認)!
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3353 <input name="confirm" type=checkbox value="yes">はい</span>'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3354 fi
69
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
3355 # Image Cache dir
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3356 ## err genform: getcache=$2/$rowid
77
10bd684f07d2 Argument for getcache fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 76
diff changeset
3357 td=`getcachedir "$2/$rowid"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3358 while IFS=: read prompt name keytype type args; do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3359 [ -z "${prompt%%\#*}" ] && continue # skip comment line(#)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3360 sp="${args:+ }"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3361 form="" val=""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3362 if [ -n "$rowid" ]; then
141
6da489b573ca Do not try to cat cached file when return val is null.
HIROSE Yuuji <yuuji@gentei.org>
parents: 137
diff changeset
3363 # err genform2a: Seeking for "$2.$name, type=$type"
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
3364 rawval=`getvalbyid $2 $name $rowid $td`
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
3365 val=`echo "$rawval"|htmlescape`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3366 ## err genform3a: getvalbyid $2 $name $rowid $td
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3367 ## err genform3b: val="[$val]" type="$type"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3368 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3369 if [ -n "$GF_VIEWONLY" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3370 is_hidden "$2" "$name" && continue
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3371 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3372 case "$type" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3373 text*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3374 cgiform=cgi_multi_$type
141
6da489b573ca Do not try to cat cached file when return val is null.
HIROSE Yuuji <yuuji@gentei.org>
parents: 137
diff changeset
3375 if [ -s $td/$name.count -a -n "$val" ]; then
69
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
3376 form=`$cgiform $name $td`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3377 val=$(echo "$val"|
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3378 while read fn; do
208
36b6354de5cb Profile form should escape entities. Apply ^href conversion to Profile
HIROSE Yuuji <yuuji@gentei.org>
parents: 207
diff changeset
3379 echo "<tr><td>`cat $td/$fn|htmlescape|hreflink`
36b6354de5cb Profile form should escape entities. Apply ^href conversion to Profile
HIROSE Yuuji <yuuji@gentei.org>
parents: 207
diff changeset
3380 </td></tr>$nl"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3381 done)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3382 val="<table>$nl$val$nl</table>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3383 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3384 #form="<input name=\"$name\" value=\"$val\" type=\"$type\"$sp$args>$nl"
361
34076e5a4018 Should not htmlescape at calling cgi_type*
HIROSE Yuuji <yuuji@gentei.org>
parents: 359
diff changeset
3385 form=`cgi_$type $name "$rawval" "$args"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3386 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3387 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3388 [Rr][Aa][Dd][Ii][Oo])
100
8dc950197939 "radio" and "checkbox"
HIROSE Yuuji <yuuji@gentei.org>
parents: 83
diff changeset
3389 fh="<label><input type=\"radio\" name=\"$name\""
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3390 form="`echo $args|sed -e \
100
8dc950197939 "radio" and "checkbox"
HIROSE Yuuji <yuuji@gentei.org>
parents: 83
diff changeset
3391 \"s,\([^ =][^=]*\)=\([^= ][^= ]*\),$fh value=\\"\2\\">\1</label>,g\"`"
8dc950197939 "radio" and "checkbox"
HIROSE Yuuji <yuuji@gentei.org>
parents: 83
diff changeset
3392 ;;
8dc950197939 "radio" and "checkbox"
HIROSE Yuuji <yuuji@gentei.org>
parents: 83
diff changeset
3393 [Cc][Hh][Ee][Cc][Kk][Bb][Oo][Xx])
101
4aefd0ddf88b name=... missing
HIROSE Yuuji <yuuji@gentei.org>
parents: 100
diff changeset
3394 form="<label><input type=\"checkbox\" name=\"$name\" value=\"${args#*=}\">${args%=*}</label>"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3395 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3396 [Ss][Ee][Ll][Ee][Cc][Tt])
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3397 fh="<select name=\"$name\">$nl"
112
cec40085a1d4 Seed for form of "select" now requires no values
HIROSE Yuuji <yuuji@gentei.org>
parents: 102
diff changeset
3398 form=$(for l in $args; do
cec40085a1d4 Seed for form of "select" now requires no values
HIROSE Yuuji <yuuji@gentei.org>
parents: 102
diff changeset
3399 echo "<option value=\"${l#*=}\">${l%=*}</option>"
cec40085a1d4 Seed for form of "select" now requires no values
HIROSE Yuuji <yuuji@gentei.org>
parents: 102
diff changeset
3400 done)
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3401 if [ -n "$val" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3402 form=`echo $form|sed -e "s,\(value=.$val.\),\\1 selected,"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3403 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3404 form="$fh$form</select>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3405 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3406 [Ii][Mm][Aa][Gg][Ee]|[Dd][Oo][Cc][Uu][Mm][Ee][Nn][Tt]|[Bb]inary)
69
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
3407 if [ -s $td/$name.count ]; then
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
3408 form=`cgi_multi_file $name $td "$args"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3409 if [ -n "$val" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3410 hrfb="$myname?showattc+$2_m"
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
3411 val=$(echo "$rawval" \
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3412 | while read fn; do
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
3413 data=`percenthex "$td/$fn"`
69
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
3414 #ct=`cat $td/$fn.content-type`
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
3415 ct=`file --mime-type - < "$td/$fn"|cut -d' ' -f2`
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
3416 ri=`cat "$td/$fn.rowid"`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3417 ## err fn=$fn, name=$name, ri=$ri; ls -lF "$td/" 1>&3
69
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
3418 #imgsrc="<img src=\"data:$ct,$data\">"
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
3419 #echo "<a href=\"$hrfb+$ri\">$imgsrc</a><br>"
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
3420 iconhref "$td/$fn" "$hrfb+$ri" ""
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3421 done)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3422 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3423 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3424 form="<input type=\"file\" name=\"$name\" $args>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3425 if [ -n "$val" ]; then
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
3426 imgs=$(echo "$rawval"\
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3427 |while read fn;do
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
3428 data=`percenthex "$td/$fn"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3429 echo "<img src=\"data:image/png,$data\">$fn<br>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3430 done)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3431 form=$form"<br>$imgs"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3432 val=$imgs # 2015-06-15
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3433 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3434 form="<input type=\"file\" name=\"$name\" $args>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3435 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3436 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3437 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3438 [Hh][Ii][Dd][Dd][Ee][Nn])
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3439 if [ -n "$GF_STAGE" -a x"$name" = x"stage" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3440 args="value=\"$GF_STAGE\""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3441 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3442 form="<input type=\"hidden\" name=\"$name\" $args>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3443 prompt='' # Remove prompt
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3444 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3445 [Aa][Uu][Tt][Hh][Oo][Rr])
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
3446 [ -n "$GF_VIEWONLY" ] && continue
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3447 form="<input type=\"hidden\" name=\"author\" value=\"$user\">"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3448 prompt="" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3449 [Oo][Ww][Nn][Ee][Rr])
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
3450 [ -n "$GF_VIEWONLY" ] && continue
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3451 val=${GF_OWNER:-$val}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3452 val=${val:-$user}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3453 form="<input type=\"hidden\" name=\"owner\" value=\"$val\">"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3454 prompt="" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3455 [Uu][Ss][Ee][Rr])
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3456 # XXX: is null $user ok?
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3457 #form="<input type=\"hidden\" name=\"user\" value=\"$user\">"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3458 [ -n "$GF_VIEWONLY" ] && continue
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3459 form="$user"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3460 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3461 [Pp]assword)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3462 [ -n "$GF_VIEWONLY" ] && continue
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3463 form="`cgi_passwd`"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3464 val=""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3465 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3466 [Ss][Ee][Rr][Ii][Aa][Ll]|[Ss][Tt][Aa][Mm][Pp])
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
3467 [ -n "$GF_VIEWONLY" ] && continue
127
c17964aa7715 Do not reset serial number when rowid given
HIROSE Yuuji <yuuji@gentei.org>
parents: 124
diff changeset
3468 if [ -z "$rowid" ]; then
268
138da0f3a2e5 Duplicate post by reloading or back+submit, dissolved
HIROSE Yuuji <yuuji@gentei.org>
parents: 267
diff changeset
3469 val=`genserial`
127
c17964aa7715 Do not reset serial number when rowid given
HIROSE Yuuji <yuuji@gentei.org>
parents: 124
diff changeset
3470 fi
67
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
3471 form="<input type=\"hidden\" name=\"$name\" value=\"$val\">"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3472 prompt="" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3473 [Ss][Ee][Ss][Ss][Ii][Oo][Nn])
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3474 prompt=""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3475 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3476 parent|path|blog*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3477 prompt=""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3478 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3479 "*"*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3480 tail=$tail"``"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3481 continue ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3482 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3483 if [ -n "$prompt" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3484 if [ -n "${GF_VIEWONLY}" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3485 form=$val
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3486 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3487 :
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3488 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3489 forms=$forms" <tr class=\"$name\"><th>$prompt</th><td>$form</td></tr>$nl"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3490 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3491 hiddens=$hiddens$nl"$form"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3492 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3493 done < $1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3494 # enctype="multipart/form-data"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3495 cat<<EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3496 <form action="${GF_ACTION:-$myname}" method="POST" enctype="multipart/form-data">
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3497 ${rowid:+$rm}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3498 <table class="b $2">
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3499 $forms
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3500 </table>$hiddens
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
3501 ${GF_STAGE:+`cgi_hidden stage $GF_STAGE`}
8
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
3502 ${rowid:+<input type="hidden" name="rowid" value="$rowid">}
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3503 EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3504 if [ -z $GF_VIEWONLY ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3505 cat<<EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3506 <input type="submit" name="sub" value="OK">
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3507 <input type="reset" name="res" value="Reset">
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3508 EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3509 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3510 cat<<EOF
219
e2dea2f63a69 Duplicate posting by reload avoided
HIROSE Yuuji <yuuji@gentei.org>
parents: 218
diff changeset
3511 $GF_ARGS</form>
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3512 $tail
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3513 EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3514 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3515 edittable() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3516 # $1=form-def $2=table $3 rowid
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3517 genform "$@"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3518 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3519 viewtable() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3520 GF_VIEWONLY=1 genform "$@"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3521 }
68
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3522 showattc() {
350
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
3523 # $1=table_m $2=rowid &optional $3=RawFlag
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3524 ## err \$1=$1 \$2=$2 \$3=$3
68
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3525 if ! isfilereadable $user $1 $2; then
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3526 contenttype; echo
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3527 echo "このファイルは管理者のみしか見られません" | html p
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3528 putfooter; exit
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3529 fi
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3530 idir=`umask 002; mktempd` || exit 1
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3531 # tmpfiles=$tmpfiles"${tmpfiles+ }$idir"
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3532 bin=$idir/$myname-$$.bin
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3533 sql="select quote(bin) from $1 where rowid='$2';"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3534 ## err showattc: sql: $sql
68
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3535 sq $db "$sql" | unhexize > $bin
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
3536 tv=`query "select type||'//'||val from $1 where rowid='$2';"`
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
3537 type=${tv%//*} fn=${tv#*//}
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3538 ## err tv=$tv type=$type fn=$fn, tp2=${tv%\|*}
68
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3539 ct=${type#file:}
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3540 case $ct in # all text/* changed to text/plain
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3541 text/*)
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3542 charset=`nkf -g $bin|cut -d' ' -f1`
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3543 case $charset in
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3544 ASCII*) charset="" ;;
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3545 esac
350
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
3546 if [ -z "$3" ]; then
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
3547 ct="text/html${charset:+; charset=$charset}"
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
3548 link="?showattc+$1+$2+raw"
395
3d82052c3cd3 Do htmlescape() for euc-jp string and restore to original charset
HIROSE Yuuji <yuuji@gentei.org>
parents: 394
diff changeset
3549 nkf -e $bin | htmlescape | nkf --oc="$charset" \
350
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
3550 | sed 's,^,<span></span>,' \
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
3551 | _m4 -D_TITLE_="$fn" -D_CONTENT_TYPE_="$ct" \
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
3552 -D_LINK_="$link" \
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
3553 -D_BODY_="syscmd(\`cat')" $layout/pretty.m4.txt
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
3554 exit $?
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
3555 fi
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
3556 ct="text/plain${charset:+; charset=$charset}"
68
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3557 ;;
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3558 esac
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3559 contenttype "$ct"
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3560 echo "Content-Disposition: filename=\"$fn\""
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3561 echo "Content-Length: " `cat $bin | wc -c`; echo
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3562 #echo "Content-Type: " ${type#file:}; echo
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3563 cat $bin
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
3564 }
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3565 #
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3566 # Some default stupid handler on CGI values
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3567 #
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3568 default_storedb() {
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3569 # ARG: $1=table-def-file
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3570 # RET: $tbl=table-name, $col=mail-column, $cols=columns
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3571 tbl=`basename $1`
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3572 tbl=${tbl%.def}
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3573 cols="`grep :text $1|cut -d: -f2`"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3574 col=`echo "$cols"|head -1`
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3575 vcol=`getpar $col`
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3576 err default0: \$1=$1 col=$col cols="[$cols]" vcol=$vcol
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3577 if [ -n "$vcol" ]; then
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3578 par2table $1
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3579 else
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3580 return 2 # No insertion occurred
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3581 fi
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3582 }
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3583
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3584 default_view() { # $1=def-file
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3585 ### DT_VIEW="edittable+$tbl" dumptable html $tbl "$cols" \
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3586 ## DT_VIEW="edittable+$tbl" dumptable html $tbl "name memo file" \
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3587 default_storedb "$@"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3588 query "select rowid from $tbl order by rowid desc;" \
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3589 | while read rowid; do
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3590 viewtable $1 $tbl $rowid
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3591 done | _m4 -D_TITLE_="$tbl" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3592 -D_FORM_="`genform $1`" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3593 -D_DUMPTABLE_="syscmd(cat)" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3594 $layout/html.m4.html $layout/form+dump.m4.html
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3595 }
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3596 default_viewtext() { # $1=def-file
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3597 ### DT_VIEW="edittable+$tbl" dumptable html $tbl "$cols" \
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3598 default_storedb "$@"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3599 DT_VIEW="viewtable+$tbl" dumptable html $tbl "name memo file" \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3600 | _m4 -D_TITLE_="$tbl" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3601 -D_FORM_="`genform $1`" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3602 -D_DUMPTABLE_="syscmd(cat)" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3603 $layout/html.m4.html $layout/form+dump.m4.html
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3604 }
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3605 default_smail() {
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3606 default_storedb "$@"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3607 if [ $? -eq 2 ]; then
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3608 _m4 -D_TITLE_="入力" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3609 -D_FORM_="`genform $1`" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3610 -D_DUMPTABLE_="" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3611 $layout/html.m4.html $layout/form+dump.m4.html
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3612 return
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3613 fi
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3614 cond=""
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3615 for pk in `gettblpkey $tbl`; do
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
3616 pv=$(sqlquote "$(getpar $pk)")
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3617 cond="$cond${cond:+ and }$pk=$pv"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3618 done
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3619 sql="select rowid from $tbl where $cond;"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3620 rowid=`query "$sql"`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3621 ## err smail1 - "$sql" "-> rowid=$rowid"
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3622
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3623 while IFS=: read prompt name keytype type args; do # Read from $1
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3624 val=`getpar $name`
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3625 if [ -n "$val" ]; then
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3626 text="$text
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3627 $prompt
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3628 $name=$val
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3629 ---------------------------------------------------------"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3630 fi
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3631 case "$type" in
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3632 image|document|file)
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3633 fn="`getvalbyid $tbl $name $rowid $tmpd`"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3634 fns=$(echo "$fn"|while read fn; do
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3635 err mv $tmpd/$fn.orig $tmpd/$fn
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3636 mv $tmpd/$fn.orig $tmpd/$fn
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3637 rm $tmpd/$fn.rowid # Remove cache flag
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3638 ## err "`ls $tmpd/$fn`"
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3639 echo $fn
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3640 done)
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3641 files="$files $fns"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3642 ;;
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3643 esac
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3644 done < $1
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3645 ## err FILES=$files "`ls -lF $tmpd`"
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3646 subj="from ${REMOTE_ADDR}"
102
7cdaac365897 s/$URL/$url/
HIROSE Yuuji <yuuji@gentei.org>
parents: 101
diff changeset
3647 (echo "$url"
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3648 echo "への書き込みがありました。"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3649 echo "------"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3650 echo "$text"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3651 ) | (cd $tmpd &&
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3652 err LS="`ls -lF`" &&
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3653 $mydir/sendmultipart.sh -t "$admin" -s "$subj" $files)
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3654 _m4 -D_TITLE_="入力完了" $layout/html.m4.html
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3655 echo "以下の内容で送信しました。" | html p
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3656 viewtable $1 $tbl \
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3657 `query "select rowid from $tbl order by rowid desc limit 1;"`
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3658 echo "戻る" | html a "href=\"?\""
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
3659 }

yatex.org