s4: s4-funcs.sh annotate

annotate s4-funcs.sh @ 26:514acfff7453

periodic

author	HIROSE Yuuji <yuuji@gentei.org>
date	Wed, 22 Jul 2015 09:02:55 +0900
parents	9951e231df30
children	737a6e2717a9

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 5bafa0d981e0 First 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="$@"
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	10 #bindir=`(cd $mydir/bin; pwd)`
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	11 # :$bindir
8 3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	12 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	13 tmpdir=${TMPDIR:-tmp}
2 7aa52f9874ae .hgignore added HIROSE Yuuji <yuuji@gentei.org> parents: 1 diff changeset	14 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	15 tmpfiles=""
2 7aa52f9874ae .hgignore added HIROSE Yuuji <yuuji@gentei.org> parents: 1 diff changeset	16 db=${DB:-$dbdir/cgi.sq3}
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	17 admin=wwwadmin@gentei.org
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	18 templ=${TEMPL:-templ}
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	19 layout=$templ/default
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	20 formdir=$templ/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	21 imgdir=img
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	22 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	23 urlbase=${url%%\?*}
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	24 msg=$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	25 timeout="+2 days"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	26 dumpcollen=20
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=120x120
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	28 thumbxy=96x96
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	29 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	30 ### maximagexy=400x400
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 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	32 imgcached=imgcache.`date +%Y/%m`
4 6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: 3 diff changeset	33 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	34 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	35 "
17 01f579d2c889 Rename to s4 HIROSE Yuuji <yuuji@gentei.org> parents: 16 diff changeset	36 . ./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	37
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	38 : <<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	39
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 資料配布、グループ管理・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	41 レポート提出管理
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	42 グループへの一斉送信機能は付いたが表に出てない(7/6)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	43 ひとつの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	44
4 6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: 3 diff changeset	45 7/19 設置
2 7aa52f9874ae .hgignore added HIROSE Yuuji <yuuji@gentei.org> parents: 1 diff changeset	46 締切設定
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 一斉送信
4 6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: 3 diff changeset	48 自分の提出物リスト
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	49 getparfilename の tmpd の扱い
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	50 やっぱりs4にしようかな
4 6822f4362bf9 New system name declared as yas4 HIROSE Yuuji <yuuji@gentei.org> parents: 3 diff changeset	51 7/18 ○書込著者からホームへのリンク
2 7aa52f9874ae .hgignore added HIROSE Yuuji <yuuji@gentei.org> parents: 1 diff changeset	52 7/17 ○個人blogに「レポート提出用」がついたときの挙動
7aa52f9874ae .hgignore added HIROSE Yuuji <yuuji@gentei.org> parents: 1 diff changeset	53 ○添付ファイル回収
7aa52f9874ae .hgignore added HIROSE Yuuji <yuuji@gentei.org> parents: 1 diff changeset	54 ○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	55 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	56 管理者権限での削除? → まだいいか
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	57
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	58 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	59 ○レポート提出はどうしよう
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	60 → ○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	61 ○レポート提出モード
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	62 添付ファイル (誰が見たかログ)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	63 クリッカーは別立てメニューにしないと(管理者が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	64 ○添付ファイルの読み出し権(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	65
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	66
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	67 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	68 △グループメンバの操作 → 要不要を吟味
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	69 ○グループ情報編集の行先はそのグループがいい?
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	70 ○新規グループの作成はどこから入るか
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	71 △グループホームとユーザホームを揃える
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	72
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	73 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	74
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	75 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	76 ○グループ検索
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	77
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 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	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 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	82 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	83
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 ○ 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	85 ○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	86 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	87 →とすると一気に
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 ## 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	90 ## 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	91 ## 必須カラム、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	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 ## 縦持ちデータの入力/編集を供給する関数 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	95 ## 持てるテーブル構造はシステム標準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	96 ## 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	97 ## 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	98 ## 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	99 ## 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	100 ## 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	101 ## 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	102 ## 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	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 ## ● 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	105 ## 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	106 ## ● 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	107 ## 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	108
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 ## グループ属性: 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	110 ## ○ 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	111 ## 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	112 ## 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	113
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 ## 書き込みオブジェクトとは何か?
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 ## 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	116 ## 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	117 ## 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	118 ## 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	119 ## 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	120
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 ## 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	122 ## 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	123 ## 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	124 ## 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	125 ## できたー!
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 ## 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	127 ↓
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 ↓以下に変更
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 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	130 (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	131 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	132 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	133 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	134
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
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 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	137 (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	138 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	139 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	140 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	141 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	142 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	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
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 ## 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	146 ## 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	147 ## 埋め込み画像 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	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 ## 考え得るノードタイプ
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 ## グループ管理
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 ## 個人情報管理
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 ##
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
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 ## 例: 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	157 ## - 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	158 ## 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	159 ## 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	160 ## 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	161 ## 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	162 ## 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	163 ## 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	164 ## 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	165 ## 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	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 ## 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	169
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
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 * 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	174 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	175 * _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	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 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	180
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 ■抽象エントリタイプ
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 * 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	183 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	184 * 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	185 権限判定に利用
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 * 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	187 自動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	188 * 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	189 入力 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	190 変更 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	191 * 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	192 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	193 * 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	194 入力 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	195 * 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	196 入力 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	197 * 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	198 入力 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	199 * 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	200 入力時の $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	201 * 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	202 グループとしての所有者で、外部キー制約が付く
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 * 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	204 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	205 * 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	206 木構造の場合の親の位置
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 * 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	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
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 格納タイプ
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 * 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	212 表 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	213 * 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	214 表 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	215
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 オブジェクトタイプ
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 * 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	218 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	219 * 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	220 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	221 * 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	222 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	223 * 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	224 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	225 * 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	226 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	227 * 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	228 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	229 * 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	230 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	231 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	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 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	235 "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	236 "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	237 "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	238 "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	239 "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	240 "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	241 "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	242 "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	243 {"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	244 "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	245 "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	246 "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	247 "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	248 "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	249 "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	250 {"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	251
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
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 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	254 ユーザ名(英数字):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	255 パスワード: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	256 説明(日本語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	257 セッションキー: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	258 メイルアドレス: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	259 住所: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	260 プロフィール画像: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	261 履歴書: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	262
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 変換表
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 /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	265
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 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	267 シリアル: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	268 タイトル: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	269 所有者: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	270 時刻: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	271 リード文: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	272 リプライ: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	273
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 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	275 シリアル: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	276 筆者: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	277 時刻: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	278 参照元: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	279 パス: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	280 本文: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	281 画像: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	282
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 履歴書: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	284
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 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	287
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 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	289 # ./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	290 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	291 }
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 ####XXXXXXXXXXXXXXXXXXXXXX 場所移動
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 sqi=/tmp/sqi.$$
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 sqo=/tmp/sqo.$$
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 mkfifo $sqi $sqo
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 tail -f $sqi \| 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	297 sq3pid="`jobs -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	298
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 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	300 cat<<EOF > $sqi
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 .once $sqo
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 $@
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 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	304 cat $sqo
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 exec 3>> $tmpdir/debug.out
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	307 exec 2>> $tmpdir/error.out
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	308 err() {
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 echo "$@" 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	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
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	312 _m4() {
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	313
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	314 }
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	315 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	316 # $1=user, $2=group
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	317 err ismem: "select user from grp_mem where gname=$(sqlquote $2) and user='$1';"
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	318 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	319 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	320 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	321 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	322 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	323 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	324 err isgroup: "select gname from grp where gname=$(sqlquote $1);"
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	325 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	326 }
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	327 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	328 # $1=user, $2=group
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	329 gn=`sqlquote "$2"`
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	330 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	331 err isgrpowner: $sql
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	332 test -n "`query $sql`"
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	333 )
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	334 getgroupbyid() (
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	335 # $1=id\|gname
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	336 sql="select coalesce((select gname from grp where gname=$(sqlquote $1)),
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	337 (select gname from grp where rowid=$(sqlquote $1)));"
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	338 err ggbyid: `echo $sql`
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	339 query $sql
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	340 )
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	341 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	342 # 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	343 [ -z "$1" -o -z "$2" -o -z "$3" ] && return 1 # invalid argument
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	344
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	345 # 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	346 # 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	347 # 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	348 # 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	349 # 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	350 # 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	351 # 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	352 # [ 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	353 # 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	354 # 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	355 # ↑ 要はこういう処理を↓で一気にやっている
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	356 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	357 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	358 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	359 (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	360 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	361 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	362 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	363 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	364 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	365 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	366 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	367 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	368 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	369 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	370 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	371 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	372 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	373 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	374 else 'user' end;"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	375 err isfilereadable: sql="$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	376 # 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	377 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	378 [ -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	379 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	380 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	381 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	382 # $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	383 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	384 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	385 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	386 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	387 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	388 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	389 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	390 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	391 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	392 acclog() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	393 # $1=table, $2=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	394 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	395 now=`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	396 query "replace into acclog values('$user', '$1', '$2', '$now');"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	397 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	398 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	399 gecos() (
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	400 u=`sqlquote ${1:-$user}`
2 7aa52f9874ae .hgignore added HIROSE Yuuji <yuuji@gentei.org> parents: 1 diff changeset	401 #gecos=`query "select val from user_s where name='$u' and key='gecos';"`
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	402 sql="select case when (select name from user where name=$u) is not null
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	403 then (select val from user_s where name=$u and key='gecos')
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	404 when (select gname from grp where gname=$u) is not null
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	405 then (select val from grp_s where gname=$u and key='gecos')
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	406 else $u
2 7aa52f9874ae .hgignore added HIROSE Yuuji <yuuji@gentei.org> parents: 1 diff changeset	407 end;"
7aa52f9874ae .hgignore added HIROSE Yuuji <yuuji@gentei.org> parents: 1 diff changeset	408 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	409 )
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	410 setpar() {
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	411 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	412 }
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	413 replpar() {
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	414 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	415 }
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	416 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	417 err getpar: "select val 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	418 val=`query "select val from par where var='$1' and sessid='$session' $2;"`
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	419 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	420 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	421 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	422 fi
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	423 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	424 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	425 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	426 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	427 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	428 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	429 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	430 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	431 esac
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	432 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	433 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	434 }
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
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	436 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	437 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	438 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	439 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	440 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	441 }
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 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	443 # 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	444 (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	445 [ -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	446 }
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 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	448 (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	449 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	450 "") 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	451 "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	452 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	453 \") # 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	454 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	455 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	456 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	457 ..\|--\|[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	458 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	459 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	460 *)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	461 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	462 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	463 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	464 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	465 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	466 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	467 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	468 mktempd() {
11 3565d93c2fb1 add mpsplit.pl HIROSE Yuuji <yuuji@gentei.org> parents: 8 diff changeset	469 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	470 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	471 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	472 # $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	473 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	474 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	475 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	476 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	477 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	478 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	479 (s=`getpar 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	480 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	481 *)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	482 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	483 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	484 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	485
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	486 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	487 # $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	488 (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	489 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	490 "") 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	491 *) 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	492 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	493 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	494 getparquote() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	495 sqlquote `getpar $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	496 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	497 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	498 # $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	499 # 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	500 # 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	501 # their each rowid stored into $tmpd/${column}.$N.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	502 ### err gtb-$1=`gettblcols $1`, tbl=$1, col=$2, '$3'=$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	503 (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	504 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	505 err "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	506 ###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	507 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	508 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	509 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	510 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	511 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	512 # key=`sq $db "select $pk 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	513 key=`query "select $pk 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	514 ### 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	515 for kt in s m; do
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	516 td=${4:-$tmpd}
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 [ -d $td ] \|\| mkdir -p $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	518 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	519 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	520 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	521 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	522 cond="$t where $pk=\"$key\" and key=\"$c\""
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	523 ###val=`query "select val from $cond;"`
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	524 val=`query "select val from $cond limit 1;"`
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	525 ###type=`query "select type from $cond;"`
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	526 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	527 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	528 ###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	529 # 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	530 val=`query "select val from $cond and type like 'file:%' order by 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	531 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	532 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	533 i=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 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	535 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	536 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	537 fn=$c.$i
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	538 ##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	539 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	540 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	541 #file=$td/$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	542 file=$td/`query "select val from $cond $slice;"`
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	543 ####tmp [ -s $file -a -s $td/$fn.rowid ] && continue
8 3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	544 sq $db<<EOF \| unhexize > $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	545 .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	546 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	547 .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	548 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	549 .output $file.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	550 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	551 .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	552 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	553 EOF
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	554 ## err i=$i - file=$file rowid=`cat $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	555 ln $td/$fn.rowid $file.rowid 2>&3 # for convenience
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 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	557 :[Ii]mage) mogrify -geometry $thumbxy $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	558 ### ここのアイコンを増やしたい
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 \|:[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	560 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	561 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	562 ;;
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 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	564 ;;
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 *)
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 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	567 .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	568 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	569 .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	570 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	571 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	572 val=$val"`echo $fn`" # should be delimited by newline
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 ;;
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 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	575 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	576 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	577 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	578 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	579 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	580 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	581 \| 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	582 file=$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	583 if [ ! -s $file ]; 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	584 ## 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	585 query "select quote(bin) from $cond and val=\"$fn\";" \
8 3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	586 \| unhexize > $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	587 echo ${type#file:} > $file.content-type
2 7aa52f9874ae .hgignore added HIROSE Yuuji <yuuji@gentei.org> parents: 1 diff changeset	588 # err TTTTTTTTTTTTTTTT: $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	589 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	590 :[Ii]mage) mogrify -geometry $thumbxy $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	591 :[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	592 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	593 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	594 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	595 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	596 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	597 ;;
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 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	599 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	600 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	601 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	602 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	603 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	604 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	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 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	607 # $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	608 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	609 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	610 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	611 )
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 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	613 # $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	614 ###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	615 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	616 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	617 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	618 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	619 }
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 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	621 # 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	622 # 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	623 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	624 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	625 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	626 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	627 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	628 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	629 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	630 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	631 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	632 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	633 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	634 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	635 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	636 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	637 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	638 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	639 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	640 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	641 $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	642 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	643 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	644 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	645 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	646 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	647 '$''$') 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	648 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	649 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	650 echo -n '$4$'"$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	651 echo "$salt$key" \| 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	652 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	653 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	654 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	655 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	656 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	657 else
8 3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	658 hexize_hd() {
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	659 hexdump -ve '1/1 "%.2x"'
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	660 }
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	661 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	662 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	663 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	664 cat $1 \| $hexize \| 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	665 }
8 3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	666 unhexize() {
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	667 if [ -z "$unhex" ]; then
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	668 if type xxd >/dev/null 2>&1; then
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	669 unhex="xxd -p -r"
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	670 elif type perl >/dev/null 2>&1; then
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	671 cat >$tmpd/unhex.pl<<EOF
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	672 s/([0-9a-f]{2})/print chr hex \$1/gie
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	673 EOF
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	674 # Perl refuses -e in setuid circumstances, which can be absurdly
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	675 # 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	676 # world writable...:)
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	677 unhex="perl -n $tmpd/unhex.pl"
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	678 fi
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	679 fi
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	680 cat $1 \| $unhex
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	681 # cat $1 \| tee /tmp/uh.in\| $unhex \| tee /tmp/uh.out
3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	682 }
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 percenthex() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	684 hexize $1 \| sed 's/$..$/%\1/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	685 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	686 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	687 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	688 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	689 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	690 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	691 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	692 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	693 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	694 \| 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	695 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	696 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	697 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	698 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	699 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	700 }
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 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	702 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	703 ## 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	704 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	705 "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	706 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	707 # /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	708 }
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 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	710 # $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	711 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	712 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	713 (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	714 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	715 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	716 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	717 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	718 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	719 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	720 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	721 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	722 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	723 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	724 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	725 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	726 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	727 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	728 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	729 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	730 }
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 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	732 # $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	733 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	734 }
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 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	736 (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	737 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	738 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	739 }
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 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	741 (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	742 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	743 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	744 }
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 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	746 (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	747 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	748 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	749 }
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 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	751 (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	752 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	753 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	754 }
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 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	756 (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	757 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	758 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	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 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	761 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	762 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	763 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	764 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	765 )
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 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	767 # $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	768 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	769 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	770 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	771 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	772 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	773 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	774 *) 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	775 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	776 }
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
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 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	779 # $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	780 (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	781 tsc=$t/$c val=$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	782 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	783 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	784 #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	785 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	786 #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	787 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	788 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	789 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	790 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	791 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	792 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	793 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	794 #err t=$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	795 type=text 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	796 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	797 */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	798 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	799 ;;
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 /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	801 type=`file --mime-type $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	802 bin="X'`hexize $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	803 ;;
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 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	805 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	806 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	807 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	808 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	809 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	810 ###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	811 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	812 elif [ "$update" ]; 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	813 ###sq $db "update $1 set $c=\"$val\" where $pkey=\"$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	814 query "update $1 set $c=\"$val\" where $pkey=\"$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	815 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	816 #err "replace into $t values(\"$p\", \"$c\", \"$type\", \"$val\", \"$bin\")"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	817 ###sq $db "replace into $t values(\"$p\", \"$c\", \"$type\", \"$val\", \"$bin\")"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	818 query "replace into $t values(\"$p\", \"$c\", \"$type\", \"$val\", \"$bin\");"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	819 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	820 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	821 }
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	822 expire() (
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	823 at="${1:-$timeout}"
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	824 FMT="${2:-%F %T}"
6 7ccd9c2eb97e Add templates HIROSE Yuuji <yuuji@gentei.org> parents: 4 diff changeset	825 TZ=GMT gdate -d "$at" +"$FMT"
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	826 )
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	827 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	828 # 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	829 # 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	830 expire=`expire ${2:-"+1min"}`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	831 err addsession "$1" exp=$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	832 sq $db "replace into session values('$1', '$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	833 # 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	834 now=`expire now`
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 sq $db "delete from session where expire < '$now'"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	836 }
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	837 gencookie() (
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	838 for kv; do
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	839 expire="`expire '' '%a, %d-%b-%Y %H:%M:%S GMT'`"
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	840 echo "Set-Cookie: $kv; expires=$expire"
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	841 done
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	842 )
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	843 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	844 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	845 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	846 }
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 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	848
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 putfooter() {
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 m4 -D_TITLE_="${TITLE:-$myname}" $layout/footer.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	852 }
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	853 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	854 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	855 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	856 v="`echo ${kv#*=}\|nkf -Ww -mQ\|sed -e 's/\"/\"\"/g'`"
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	857 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	858 done
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	859 )
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	860 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	861 # $1=columns (default: 10)
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	862 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	863 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	864 smail() {
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 # smail rcpt subj (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	866 rcpt=`echo $1` # strip newlines
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 subj="`echo $2\|nkf -jM`"
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 # echo rcpt=$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	869 (m4 -D_RCPT_="$rcpt" -D_SUBJ_="$subj" -D_FROM_=$admin $msg/mail-header.m4
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 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	871 }
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 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	873 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	874 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	875 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	876 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	877 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	878 v="`echo ${us#*=}\|tr '%+' '= '\|nkf -Ww -mQ\|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	879 sq $db "replace into $table values('$session', '$k', 'string', \"$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	880 #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	881 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	882 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	883 }
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	884 checkdomain() (
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	885 # Check the validity of domain by referring DNS
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	886 item=$1
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	887 host ${item#@*} >/dev/null 2>&1
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	888 )
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	889 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	890 # $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	891 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	892 encpswd=`mycrypt "$1" "$dbpswd"`
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 err user=$user, pswd=$1, 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	894 [ 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	895 }
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 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	897 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	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 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	900 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	901 if checkdomain $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	902 echo "ユーザ名には正しいメイルアドレスが必要です。"
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 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	904 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	905 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	906 #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	907 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	908 dbsetbyid user $user pswd "$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	909 m4 -D_USER_="$user" -D_PSWD_="$newpswd" -D_URL_="$url" \
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 $msg/mail-newaccount.m4 \
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 \| 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	912 }
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 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	914 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	915 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	916 [ -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	917 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	918 err user=$user skey=$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	919 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	920 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	921 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	922 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	923 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	924 pswd=`getpar 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	925 if [ x"$pswd" = x"wasureta" ]; 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	926 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	927 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	928 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	929 # 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	930 # 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	931 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	932 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	933 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	934 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	935 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	936 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	937 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	938 }
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 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	940 args=`echo $myargs\|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	941 m4 -D_SYSNAME_="Welcome" -D_MYNAME_="$myname${args+?}$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	942 $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	943 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	944 }
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 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	946 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	947 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	948 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	949 contenttype; echo
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 m4 -D_USER_="$user" -D_URL_="$url" -D_ADMIN_="$admin" \
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 $msg/login-fail-$st.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	952 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	953 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	954 }
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 cleanup() {
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 echo .quit > $sqi
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 kill $sq3pid
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 rm -f $sqo $sqi
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 rm -rf $tmpfiles
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	960 }
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 trap cleanup INT HUP 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	962 # trap cleanup INT HUP
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 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	964 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	965 tmpf=tmp/stream
11 3565d93c2fb1 add mpsplit.pl HIROSE Yuuji <yuuji@gentei.org> parents: 8 diff changeset	966 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	967 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	968 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	969 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	970 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	971 get\|GET) s="$QUERY_STRING" ;;
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	972 post\|POST) ## dd count=$CONTENT_LENGTH bs=1 of=$tmpf 2>/dev/null #slow
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	973 # cat > $tmpf # too much?
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	974 head -c $CONTENT_LENGTH > $tmpf # safe?
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	975 (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	976 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	977 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	978 ;;
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 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	980 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	981 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	982 bndry=${CONTENT_TYPE#*boundary=}
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	983 #for us in `LC_CTYPE=C ./mpsplit.rb "$bndry" $tmpd < $tmpf`
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	984 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	985 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	986 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	987 #echo u=$us
11 3565d93c2fb1 add mpsplit.pl HIROSE Yuuji <yuuji@gentei.org> parents: 8 diff changeset	988 #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	989 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	990 # 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	991 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	992 *: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	993 type='file'; k=${k%:filename}
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	994 (echo k=$k; ls -lF $tmpd/$v; file --mime-type $tmpd/$v) 1>&3
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	995 case `file --mime-type $tmpd/$v\|cut -d' ' -f2` in
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	996 [Ii]mage/*)
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	997 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	998 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	999 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	1000 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1001 *)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1002 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	1003 ;;
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 esac
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1005 #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	1006 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	1007 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	1008 ;;
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 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	1011 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1012 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	1013 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1014 collectemail() {
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 # Collect email addresses for group $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	1016 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	1017 em=`query "select val from user_m where name='$1' 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	1018 [ -n "$em" ] && echo "$em" \|\| 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	1019 else
26 514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1020 # sql="with recursive allmem as
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1021 # (select gname,val from grp_m where gname='$1'
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1022 # union all select grp_m.gname,grp_m.val from grp_m,allmem
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1023 # where allmem.val=grp_m.gname)
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1024 # select coalesce(b.val,a.val)
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1025 # from allmem a left join grp_mem_s b
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1026 # on a.gname=b.gname and a.val=b.user and b.key='email'
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1027 # where a.val in (select name from user) limit 10000;"
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1028 # tmp tmp tmp tmp tmp tmp tmp
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1029 qgrp=`sqlquote $1`
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1030 sql="select coalesce(s.val,g.user) from grp_mem g left join grp_mem_s s
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1031 on g.gname=s.gname and g.user=s.user and s.key='email'
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1032 where g.gname=$qgrp;"
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1033 err CollectEmail: `echo "$sql"`
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1034 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	1035 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	1036 }
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 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	1038 # $1=email
26 514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1039 iss="invite-`date +%s`-$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	1040 addsession $iss +7days # 1 week due date
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 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	1042 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	1043 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	1044 regist="$urlbase?reg+$iss"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1045 m4 -D_URL_="$urlbase" \
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 -D_USER_="$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	1047 -D_EMAIL_="$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	1048 -D_REGIST_="$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	1049 -D_ADMIN_="$admin" \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1050 $msg/mail-invite.m4 \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1051 \| 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	1052 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	1053 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1054 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	1055 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	1056 @@*) 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	1057 @)
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 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	1059 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	1060 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	1061 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	1062 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	1063 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	1064 ;;
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 *) 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	1066 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	1067 }
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 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	1069 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	1070 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	1071 @@*) 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	1072 @)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1073 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	1074 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	1075 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	1076 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	1077 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	1078 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	1079 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	1080 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	1081 "") 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	1082 *) 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	1083 esac
26 514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1084 addr=`query "select val from par where sessid like 'invite-%-$user';"`
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1085 err addr=$addr
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1086 if [ -n "$addr" ]; then
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1087 susp="<h2>招待済みで加入待ちのアドレス</h2><pre>$addr</pre>"
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1088 fi
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1089 m4 -D_TITLE_="招待" -D_REPORT_="$repo" -D_ACTION_="?invite" \
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1090 -D_BODYCLASS_="default" -D_SUSPENDED_="$susp" \
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	1091 $layout/html.m4.html $layout/invite.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	1092 }
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 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	1094 # $1=session-id-for-invitation
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 m4 -D_TITLE_="Invitation" $layout/html.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	1096 if [ -z "$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	1097 echo "<p>bye bye</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	1098 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	1099 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	1100 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	1101 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	1102 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	1103 <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	1104 <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	1105 加入している人に、再度招待してもらいましょう。</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	1106 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	1107 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	1108 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	1109 echo "<h2>$email さんようこそ</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	1110 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	1111 # 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	1112 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	1113 ('$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	1114 wasureta $email
26 514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1115 addsession $1 # for removal after 1 minute
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	1116 m4 -D_SYSNAME_="Initial Login" -D_MYNAME_="$myname?userconf" \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1117 $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	1118 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	1119 }
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 userconf() {
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 m4 -D_BODYCLASS_=userconf -D_TITLE_="ユーザ情報編集" $layout/html.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	1122 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	1123 }
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 groupconf() {
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1125 # $1=rowid in grp (2015-07-21 changed from gname)
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	1126 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	1127 #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	1128 rowid=${1%%[!A-Z0-9a-z_]*}
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	1129 err gcon \$1=$1 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	1130 GF_ACTION="?grp+$1" edittable "$formdir/grp.def" "grp" "$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	1131 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1132 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	1133 # $1=userRowIdToShow
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1134 err showhome \$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	1135 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	1136 @) 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	1137 *) 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	1138 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	1139 err ShowHome: uname=$uname
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1140 gecos=`gecos "$uname"`
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 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	1142 cond="gname in (select gname from grp_mem where user='$uname')"
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 if [ x"$user" = x"$uname" ]; 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	1144 conflink="<a href=\"?userconf\">プロフィールの編集</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	1145 <a href=\"?blog\">新規話題の作成</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	1146 fi
17 01f579d2c889 Rename to s4 HIROSE Yuuji <yuuji@gentei.org> parents: 16 diff changeset	1147 . ./s4-blog.sh
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	1148
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	1149 m4 -D_BODYCLASS_=home -D_TITLE_="$gecos さん" \
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	1150 -D_PROFILE_="`viewtable $formdir/user.def user $1`$conflink" \
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	1151 -D_BLOGS_="`listblog $uname`" \
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	1152 -D_GROUPS_="`listgroupbytable $formdir/grp.def $cond`" \
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	1153 $layout/html.m4.html $layout/home.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	1154
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 #
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 # 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	1157 [ -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	1158 }
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
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 listgroupbytable() {
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 # $1=deffile
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1162 tagline=`grep :tag: $1`; shift
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1163 and="${1:+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	1164 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	1165 echo '<div class="listgroup">'
26 514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1166 NGsql="select distinct tag from\
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1167 (select gname, max(case key when 'tag' then val end) as tag, \
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1168 max(case key when 'ctime' then val end) as ctime\
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1169 from grp_s group by gname order by ctime);"
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1170 sql="select val from grp_s where key='tag' $and$* group by val;"
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1171 err ListGRP: query sql="$sql"
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1172 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	1173 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	1174 err ListGrp: tag=$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	1175 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	1176 tn=${tn##*[ :]}
26 514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1177 sql="select rowid\|\|':'\|\|gname as 'グループ名',説明 from (select (select rowid from grp g where g.gname=grp_s.gname) as rowid,gname,max(case key when 'gecos' then val end) as '説明',max(case key when 'tag' then val end) as 'tag',max(case key when 'mtime' then val end) as mtime from grp_s group by gname having tag='$tag' order by mtime desc);"
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	1178 err PersonalGroupList= `echo $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	1179 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	1180 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	1181 sq -header -html $db "$sql" \
26 514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1182 \| sed "s,$<TR><TD>$$[0-9]$:$[-_A-z0-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	1183 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	1184 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	1185 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	1186 }
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 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	1188 # $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	1189 data=`percenthex $1`
3 95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	1190 ct=`file --mime-type $1\|cut -d' ' -f2`
95cebd686c97 add templ/* HIROSE Yuuji <yuuji@gentei.org> parents: 2 diff changeset	1191 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	1192 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	1193 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	1194 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1195 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	1196 # $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	1197 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	1198 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	1199 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	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 listentry() (
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 # $1=user/group $2=SearchKeyword $3=condition(if any)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1203 # Referring variable $iamowner=$grp to attach owner-request links
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1204 err listentry: \$1=$1 \$2=$2 \$3=$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	1205 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	1206 offset=`getpar offset`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1207 offset=${offset%%[!0-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	1208 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	1209 [ $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	1210 limit=30
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1211 dir=$tmpdir/$imgcached/$thumbxy.`echo $1\|md5`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1212 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	1213 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	1214 deficon=person-default.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	1215 entity="ユーザ" tbl=user link=rowid nm=name stage=mems
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1216 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	1217 hrb="$myname?grp"
22 9951e231df30 Add default group icon HIROSE Yuuji <yuuji@gentei.org> parents: 17 diff changeset	1218 deficon=group-default.png
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1219 entity="グループ" tbl=grp link=rowid nm=gname stage=grps
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	1220 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	1221 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	1222 tagconv=`echo $tagline\|sed 's/$[^= :]$=$[^= :]$/-D\2=\1/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	1223 err tagconv=$tagconv
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1224 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	1225 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	1226 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	1227 mkdir -p $dir
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1228 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	1229 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	1230 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	1231 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	1232 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	1233
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1234 # XX: これ複雑すぎるかな。もっとシンプルにしたい。$3条件も。2015-07-08
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1235 qgrp=`sqlquote $grp`
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1236 qgrp=${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	1237 sql="select a.rowid, a.$link, coalesce(b.gecos, a.$nm) as nick, b.tag,
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1238 case when a.$nm in (select user from grp_adm
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1239 where gname=$qgrp) then '(管理者)' -- from group mode
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1240 when '$user' in (select user from grp_adm where gname=a.$nm)
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1241 then '(ADMIN)'
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1242 when '$iamowner' = '' 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	1243 else ',not='\|\|a.rowid end as ownerlink
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1244 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	1245 (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	1246 max(case key when 'gecos' then val end) as 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	1247 max(case key when 'tag' then val end) as 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	1248 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	1249 b on a.$nm=b.name $cond $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	1250 order by b.tag desc, a.rowid asc"
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1251 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	1252 total=`query "with x as ($sql) select count(*) from x;"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1253 echo "<h2>${entity} 一覧</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	1254 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	1255 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	1256 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	1257 <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	1258 `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	1259 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	1260 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	1261 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	1262 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	1263 <p>${total}件中の${offset}件めから${kwd:+" - 検索語: $kwd"}</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	1264 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	1265 if [ $((offset+limit)) -lt $total ]; 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	1266 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	1267 <div class="right"><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	1268 `cgi_submit 次の${limit}件`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1269 `cgi_hidden kwd "$kwd"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1270 `cgi_hidden stage "$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	1271 `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	1272 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	1273 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	1274 if [ $offset -gt 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	1275 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	1276 <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	1277 `cgi_submit 前の${limit}件`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1278 `cgi_hidden stage "$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	1279 `cgi_hidden kwd "$kwd"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1280 `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	1281 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	1282 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	1283
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1284 err ListEntry: `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	1285
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 query "$sql limit $limit ${offset:+offset $offset};" \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1287 \| while IFS='\|' read id lnk name tag ownerp; do
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1288 err name=$name owner=$ownerp lnk=$lnk
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1289 err newlnk=$lnk
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	1290 files=`getvalbyid $tbl profimg $id $dir`
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 # Pick up only first icon
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 echo "<div class=\"iconlist xy$thumbxy\"><p class=\"tag _$tag\">$tag</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	1293 \| m4 $tagconv
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1294 if [ -n "$files" ]; 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	1295 icon=`echo "$files"\|head -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	1296 iconhref $dir/$icon "$hrb+$lnk" "$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	1297 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	1298 iconhref $dir/$deficon "$hrb+$lnk" "$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	1299 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	1300 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	1301 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	1302 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	1303 )
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 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	1305 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	1306 }
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 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	1308 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	1309 }
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 showgroup() {
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 grp=$1
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1312 err showgroup1: grp=$grp qgrp="[$(sqlquote $grp)]"
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1313
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1314 gname=`getpar gname`
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1315 if [ -n "$gname" ]; then
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1316 err UPdating/Removing of group:::::::
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1317 par2table $formdir/grp.def
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1318 fi
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1319 err showgroup2: grp=$grp qgrp="[$(sqlquote $grp)]"
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1320 if isgroup "$grp"; then
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1321 showgroupsub $formdir/grp.def "$grp" \| \
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1322 m4 -D_TITLE_="グループ $grp" \
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1323 -D_FORM_="syscmd(\`cat')" \
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1324 -D_DUMPTABLE_="" \
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1325 $layout/groupman.m4.html
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1326 else # if $grp is removed at par2table
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1327 listgroup
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1328 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	1329 }
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 showgroupsub() {
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 # $1=def-file $2=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	1332 grp=$2
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1333 qgrp=`sqlquote $grp`
636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1334 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	1335 if [ -z "$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	1336 rowid=`sq $db "select rowid from grp where rowid=$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	1337 grp=`sq $db "select gname from grp where rowid=$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	1338 fi
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1339 mmgrp=`echo "$grp"\|nkf -Ww -MQ\|tr '=' '%'`
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	1340 val=`getvalbyid grp profimg $rowid $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	1341 # 6/14の次グループのHOMEで出す情報を作る 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	1342 viewtable $1 grp $rowid
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1343 if isgrpowner "$user" "$grp"; then
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1344 echo "<p><a href=\"?groupconf+$rowid\">グループ情報の編集</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	1345 iamowner=$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	1346 fi
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1347 if ismember "$user" "$grp"; then
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1348 echo "${iamowner:+ / }<a href=\"?blog+$rowid\">グループの新規話題作成</a></p>"
26 514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1349 # div.fold input[type="checkbox"]:checked ~ div {display: block;}
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1350 cat<<EOF
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1351 <form action="?send2mem" method="POST" enctype="multipart/form-data">
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1352 <div class="fold">
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1353 `cgi_checkbox send yes id="send"`<label
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1354 for="send">グループ全員にメッセージ送信</label>
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1355 <div>
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1356 `cgi_textarea message "" "cols=60"`
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1357 `cgi_submit 送信`
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1358 `cgi_reset リセット`
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1359 </div>
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1360 `cgi_hidden grp $rowid`
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1361 </div></form>
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1362 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	1363 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	1364 # 加入ボタン + 加入者リスト
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1365 err ismember $user $grp
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1366 ismember "$user" "$grp" && ismem='checked' \|\| nomem='checked'
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 # このグループでの加入アドレス
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 eml=`query "select val from grp_mem_s where gname='$2' and 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	1369 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	1370 err EML: "select val from grp_mem_s where gname='$2' and 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	1371 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	1372 err email=$eml
26 514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1373 cat <<EOF
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1374 <div class="fold">
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1375 `cgi_checkbox reg yes id="reg"`<label
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1376 for="reg">自身の参加状態を操作する</label>
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1377 <div>
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1378 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	1379 cgi_form grp <<EOF
26 514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1380 <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	1381 <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	1382 <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	1383 <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	1384 <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	1385 <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	1386 <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	1387 同じでよい場合は空欄に)</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	1388 <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	1389 </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	1390 `cgi_hidden grp $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	1391 EOF
26 514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1392 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	1393 echo '<h2>話題一覧</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	1394 cgi_form searchart<<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	1395 <label>`cgi_text 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	1396 `cgi_hidden owner $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	1397 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	1398 cond="where a.id in (select id from blog_s where key='owner' and val='$grp') order by ctime desc"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1399 DT_CHLD=article:blogid \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1400 DT_VIEW=replyblog dumptable html blog 'ctime title heading' "$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	1401
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1402 c="group by b.name having b.name in (select user from grp_mem where gname='$grp')"
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1403 cm="?commission+$mmgrp"
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	1404 thumbxy=50x50 listmember "" "$c" \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1405 \|sed -e "s\|$<br>$,not=$.*$\|\1<a href=\"$cm+\2\">管理者委託</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	1406 }
26 514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1407 send2grpmember() {
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1408 rowid=`getpar grp`
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1409 if [ -z "$rowid" ]; then
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1410 echo "<p>グループが未指定です。</p>"
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1411 return
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1412 fi
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1413 message=`getpar message`
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1414 if [ -z "$msg" ]; then
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1415 echo "<p>文章を入れてください。</p>"
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1416 return
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1417 fi
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1418 grp=`getgroupbyid $rowid`
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1419 members=`collectemail $grp`
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1420 # smail rcpt subj (file)
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1421 smail "$members" "グループ $grp 宛メッセージ(from `gecos $user`)" <<EOF
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1422 $urlbase?grp+$rowid
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1423 グループ $grp に所属する
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1424 `gecos $user` さんよりメッセージ:
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1425
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1426 $message
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1427 EOF
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1428 cat<<EOF
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1429 <p>以下の宛先に送信しました。</p>
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1430 <pre>
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1431 $members
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1432 </pre>
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1433 <p><a href="?grp+$rowid">グループ $grp</a>に戻る。</p>
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1434 EOF
514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1435 }
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	1436 joingrp() {
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1437 # $1=group $2=user $3=yes/no $4=email(if any $5=AsAdmin)
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	1438 err joingrp: \$1=$1 \$2=$2 \$3=$3 \$4=$4
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1439 isgrpowner "$user" "$1" && isowner="yes" \|\| isowner=""
16 636df1c1bdf2 Track group by rowid in URLs HIROSE Yuuji <yuuji@gentei.org> parents: 14 diff changeset	1440 err jg:isgrpowner: isowner="$isowner"
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	1441 if [ x"$2" != x"$user" ]; then # if user is not login user
26 514acfff7453 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 22 diff changeset	1442 if [ -z "$isowner" ]; 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	1443 echo "<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	1444 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	1445 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	1446 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	1447 cond="where gname='$1' and user='$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	1448 if [ x"$3" = 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	1449 query "replace into grp_mem values('$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	1450 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	1451 if msg=`emaildomaincheck "$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	1452 err "replace into grp_mem_s values('$1', '$user', '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	1453 '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	1454 query "replace into grp_mem_s values('$1', '$user', '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	1455 'string', '$4', NULL);"
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1456 if [ -n "$5" ]; then # as ADMIN
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1457 # Coming here means newly created group
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1458 sql="select case\
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1459 when (select count(*) from grp_mem where gname='$1')=1\
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1460 then (select user from grp_mem\
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1461 where gname='$1' and user='$user')\
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1462 else '' end;"
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1463 err NewGrpChk: $sql
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1464 if [ -n "`query \"$sql\"`" ]; then
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1465 err ADMIN: "replace into grp_adm values('$1', '$user');"
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1466 query "replace into grp_adm values('$1', '$user');"
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1467 fi
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1468 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	1469 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	1470 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	1471 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	1472 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	1473 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	1474 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	1475 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	1476 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	1477 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	1478 delete from grp_mem_m $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	1479 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	1480 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1481 grp_reg_adm() {
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 # $1=grp $2=user-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	1483 if ! isgrpowner $user $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	1484 echo "<p>$1 グループの管理者しかこの操作はできません。"; 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	1485 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	1486 newadm=`query "select name from user where rowid=$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	1487 if [ -z "$newadm" ]; 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	1488 echo "<p>指定ユーザIDがおかしいようです。</p>"; 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	1489 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	1490 err GRP_reg_adm: "replace into grp_adm values('$1', '$newadm');"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1491 err ismember $newadm $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	1492 if ismember $newadm $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	1493 # OK, go ahead
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1494 query "replace into grp_adm values('$1', '$newadm');"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1495 # confirm insertion
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1496 sql="select * from grp_adm where gname='$1' and user='$newadm'"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1497 if [ -n "`query \"$sql;\"`" ]; 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	1498 echo "<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	1499 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	1500 echo "<p>追加失敗($1 $2)</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	1501 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	1502 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	1503 showgroup $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	1504 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1505 dumptable() {
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1506 # $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	1507 # 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	1508 # $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	1509 # 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	1510 ### 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	1511 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	1512 if [ -n "$VIEW" ]; 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	1513 dvlink=" <a href=\"$myname?$VIEW+\\2\">VIEW</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	1514 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	1515 # $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	1516 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	1517 _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	1518 cntall="(select count($_i) from $_t where $_i=a.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	1519 cntnew="(select count(val) from ${_t}_s where key='ctime' \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1520 and id in (select id from $_t where $_i=a.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	1521 and val > coalesce((select time from acclog 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	1522 user='$user' and tbl='$2' and rowid=a.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	1523 '1970-01-01'))"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1524 cnt="$cntnew\|\|'/'\|\|$cntall 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	1525 dt_class=" td2r"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1526 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	1527 # 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	1528 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	1529 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	1530 substr=${dumpcollen:+"substr(val, 0, $dumpcollen)"}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1531 substr=${substr:-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	1532 for col in ${3:-`gettbl_s_cols $2`}; do
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1533 case $col in
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1534 :) col=${col%:} as=${col#:} ;;
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1535 *) as=${col} ;;
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1536 esac
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1537 eav=$eav${eav:+,}" max(case key when '$col' then $substr end) as $as"
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1538 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	1539 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	1540 #case author when '$user' then a.rowid else '---' end as 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	1541 sql="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	1542 a.rowid as 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	1543 $cnt\
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1544 $scols from $2 a left join (select $pk,$eav from ${2}_s group by $pk) b on a.$pk=b.$pk $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	1545 err SQL="$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	1546 cat<<EOF \| sed "s,$<TR><TD>$$[1-9][0-9]*$</TD>,\1$elink$dvlink</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	1547 <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	1548 <table class="b$dt_class">
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1549 `sq -header -cmd ".mode $1" $db "$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	1550 </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	1551 </div> <!-- 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	1552 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	1553 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1554
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1555 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	1556 # 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	1557 # $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	1558 # Using $user and $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	1559 rowid=`getpar rowid`
8 3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	1560 err ...........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	1561 if [ ! -e $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	1562 echo "<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	1563 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	1564 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	1565 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	1566 tbl=${tbl##*/}
2 7aa52f9874ae .hgignore added HIROSE Yuuji <yuuji@gentei.org> parents: 1 diff changeset	1567 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	1568 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	1569 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	1570 elif [ x"$tbl" = x"grp" ]; then
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1571 sql="select gname from $tbl where rowid=$rowid;"
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1572 ##err p2t:grp:q $sql
f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1573 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	1574 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	1575 rowowner=`query "select owner 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	1576 rowowner=${rowowner:-`query "select author from $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	1577 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	1578 fi
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1579 ### 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	1580 if [ x"$user" != x"$rowowner" ]; 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	1581 echo "<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	1582 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	1583 elif [ -z "$rowowner" ]; 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	1584 echo "<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	1585 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	1586 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	1587 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	1588 # 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	1589 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	1590 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	1591 query "delete 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	1592 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	1593 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	1594 echo "<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	1595 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	1596 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	1597 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	1598 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	1599 # XX: Subshelling here is unnecessary 2015-07-05
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1600 (ts=${tbl}_s tm=${tbl}_m val="" pval="" formaster="" getrow=""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1601 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	1602 # Update of existing record
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1603 for col in `gettblcols $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	1604 val=`getparquote $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	1605 [ -z "$val" ] && 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	1606 err sq $db "update $tbl set $col=$val 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	1607 query "update $tbl set $col=$val 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	1608 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	1609 # 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	1610 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	1611 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	1612 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	1613 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	1614 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	1615 # New 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	1616 # Generate values() for primary keys
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1617 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	1618 # Genuine primary keys for _m and _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	1619 val=`getvalquote $tbl $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	1620 [ -z "$val" ] && 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	1621 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	1622 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	1623 err pval=$pval
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1624 for col in `gettblfkey $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	1625 # args for values() to insertion into master 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	1626 val=`getvalquote $tbl $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	1627 [ -z "$val" ] && 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	1628 formaster=$formaster"${formaster:+, }$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	1629 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	1630 formaster="$pval${formaster:+, }$formaster"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1631 err formaster=$formaster
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1632 if [ -z "$formaster" ]; 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	1633 echo "<pre>項目を全て埋めてください</pre>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1634 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	1635 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	1636 err "replace into $tbl values($formaster);"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1637 echo "replace into $tbl values($formaster); $getrow" \| 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	1638 ## Insertion to master table, 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	1639 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	1640
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1641 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	1642 tb2=${tbl}_$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	1643 for col in `gettbl_${kt}_cols $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	1644 ptype=`getpartype $col "limit 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	1645
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1646 # First, check update of existing entries in _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	1647 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	1648 # sessID\|address.1.22\|string\|Somewhere-x.y.z
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1649 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	1650 err dots from query "select var from par where var like '$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	1651 for v in `query "select var from par where var like '$col.%';"`; 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	1652 # v=address.1.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	1653 rowid=${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	1654 origcol=${v%%.*} # original column derived 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	1655 err Updating for $v rowid=$rowid, partype=`getpartype $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	1656 ##case `getpartype $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	1657 err CASE `gettbl_coltype $tbl/$origcol` 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	1658 err edit flag = `getpar action.$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	1659 case `getpar action.$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	1660 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	1661 if [ x`getpar confirm.$v` = 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	1662 newsql="delete from $tb2"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1663 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	1664 echo "<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	1665 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	1666 edit)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1667 case `gettbl_coltype $tbl/$origcol` 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	1668 image\|document\|binary)
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1669 file=$tmpd/`getparfilename $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	1670 err type=file=$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	1671 [ -z "$file" ] && 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	1672 bn=${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	1673 bin="X'"$(hexize $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	1674 ct=`file --mime-type $file\|cut -d' ' -f2`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1675 type=\"file:$ct\"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1676 newsql="update $tb2 set val='$bn', type=$type, bin=$bin"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1677 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1678 *)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1679 newsql="update $tb2 set val=(select val from par where var \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1680 like '$col.%.$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	1681 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1682 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	1683 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1684 *) # maybe `keep', do not modify 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	1685 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	1686 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1687 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	1688 # err newsql=$newsql
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1689 sql=$sql$nl"$newsql 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	1690 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	1691 echo "$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	1692 delete from $tb2 where type='string' and val='';" \| 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	1693 # Rest of kt==m: set multiple 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	1694 nr=`getparcount $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	1695 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	1696 nr=1 # for kt==s, number of records is 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	1697 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	1698
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1699 i=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	1700 while [ $i -lt $nr ]; 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	1701 limit="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	1702 i=$((i+1)) # increase beforehand against 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	1703 val=`getvalquote $tbl $col "$limit"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1704 [ -z "$val" -o x"$val" = x'""' -o x"$val" = x"NULL" ] && 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	1705 err $col=$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	1706 bin=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	1707 err partype$col=`getpartype $col "$limit"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1708 case $ptype in
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1709 file) file=$tmpd/`getparfilename $col "$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	1710 err parfile-$col=$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	1711 [ -z "$file" ] && 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	1712 bin="X'"$(hexize $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	1713 ct=`file --mime-type $file\|cut -d' ' -f2`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1714 type=\"file:$ct\" ;;
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 "") continue ;; # foreign 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	1716 *) 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	1717 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	1718 case `gettbl_coltype $tbl/$col` 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	1719 password) # special care for 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	1720 # name={password,pswd1,pswd2}
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 p1=`getpar pswd1 "$limit"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1722 if [ -z "$p1" ]; 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	1723 continue # SKIP password setting, if p1 is empty
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 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	1725 pswd=`getpar pswd "$limit"` p2=`getpar pswd2 "$limit"`
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 ## err pswd=$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	1727 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	1728 if [ x"$p1" = x"$p2" ]; 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	1729 case "$p1" 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	1730 ????????*) ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1731 *) echo "<p>8字以上にしてください。</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	1732 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	1733 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	1734 val="\"`echo $p1\|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	1735 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	1736 echo "<p>2つの新パスワード不一致</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	1737 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	1738 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	1739 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	1740 echo "<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	1741 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	1742 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	1743 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	1744 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1745 esac
14 59b6b1c446c8 remove debug code HIROSE Yuuji <yuuji@gentei.org> parents: 13 diff changeset	1746 ## err p2t: "replace into $tb2 values($pval, \"$col\", $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	1747 echo "replace into $tb2 values($pval, \"$col\", $type, $val, $bin);" \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1748 \| 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	1749 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	1750 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	1751 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	1752 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	1753 err donee)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1754 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1755 par2table_old() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1756 # 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	1757 # $1=dst-table $2=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	1758 # Using $user and $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	1759 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	1760 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	1761 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	1762 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	1763 sq $db "delete from $1 where rowid=$rowid and owner=\"$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	1764 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	1765 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	1766 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	1767 cat $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	1768 \| (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	1769 while IFS=: read prompt name 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	1770 [ x"$name" = x"stage" ] && 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	1771 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	1772 val=`getpar $name\|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	1773 sq $db "update $1 set $name=\"$val\" where rowid=$rowid and owner=\"$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	1774 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	1775 eav=$eav${eav+,}" max(case var when '$name' then val end)"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1776 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	1777 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	1778 [ -n "$rowid" ] && 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	1779 cond="where sessid='$session' group by sessid"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1780 sq $db "replace into $1 select $eav,\"$user\" from par $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	1781 # Think over again about putting $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	1782 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1783 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1784 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	1785 # $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	1786 # $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	1787 # If $GF_VIEWONLY set and nonNull, output values without 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	1788 # If $GF_HIDDEN set, use it hidden values
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1789 # 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	1790 # 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	1791 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	1792 if [ ! -e "$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	1793 echo "<p>そのようなデータベースはないようです($2)。</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	1794 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	1795 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	1796 err genform1: "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	1797 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	1798 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	1799 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	1800 ###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	1801 err "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	1802 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	1803 err rec-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	1804 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	1805 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	1806 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	1807 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	1808 echo "<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	1809 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	1810 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	1811 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	1812 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	1813 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	1814 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	1815 <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	1816 <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	1817 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	1818 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	1819 [ -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	1820 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	1821 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	1822 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	1823 val=`getvalbyid $2 $name $rowid $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	1824 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	1825 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	1826 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	1827 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	1828 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	1829 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	1830 cgiform=cgi_multi_$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	1831 if [ -s $tmpd/$name.count ]; 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	1832 form=`$cgiform $name $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	1833 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	1834 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	1835 echo "<tr><td>`cat $tmpd/$fn`</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	1836 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	1837 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	1838 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	1839 #form="<input name=\"$name\" value=\"$val\" type=\"$type\"$sp$args>$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	1840 err genform: cgi_$type $name $val "$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	1841 form=`cgi_$type $name "$val" "$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	1842 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	1843 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1844 [Rr][Aa][Dd][Ii][Oo])
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1845 fh="<input type=\"radio\" name=\"$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	1846 form="`echo $args\|sed -e \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1847 \"s,$[^=][^=]$=$[^= ][^= ]$,$fh value=\\"\2\\">\1,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	1848 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1849 [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	1850 fh="<select name=\"$name\">$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	1851 form="`echo $args\|sed -e \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1852 's,$[^=][^=]$=$[^= ][^= ]$,<option value=\"\2\">\1</option>,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	1853
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1854 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	1855 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	1856 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	1857 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	1858 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1859 [Ii][Mm][Aa][Gg][Ee]\|[Dd][Oo][Cc][Uu][Mm][Ee][Nn][Tt]\|[Bb]inary)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1860 if [ -s $tmpd/$name.count ]; 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	1861 form=`cgi_multi_file $name $tmpd "$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	1862 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	1863 hrfb="$myname?showattc+$2_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	1864 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	1865 \| 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	1866 data=`percenthex $tmpd/$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	1867 #ct=`cat $tmpd/$fn.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	1868 ct=`file --mime-type $tmpd/$fn\|cut -d' ' -f2`
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 ri=`cat $tmpd/$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	1870 ## err fn=$fn, name=$name, ri=$ri; ls -lF $tmpd 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	1871 imgsrc="<img src=\"data:$ct,$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	1872 echo "<a href=\"$hrfb+$ri\">$imgsrc</a><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	1873 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	1874 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	1875 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	1876 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	1877 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	1878 imgs=$(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	1879 \|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	1880 data=`percenthex $tmpd/$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	1881 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	1882 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	1883 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	1884 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	1885 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	1886 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	1887 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	1888 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	1889 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1890 [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	1891 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	1892 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	1893 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	1894 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	1895 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	1896 ;;
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 [Aa][Uu][Tt][Hh][Oo][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	1898 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	1899 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	1900 [Oo][Ww][Nn][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	1901 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	1902 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	1903 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	1904 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	1905 [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	1906 # 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	1907 #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	1908 [ -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	1909 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	1910 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1911 [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	1912 [ -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	1913 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	1914 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	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 [Ss][Ee][Rr][Ii][Aa][Ll]\|[Ss][Tt][Aa][Mm][Pp])
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 val=$((($(date +%s)-1433084400)/10))c$$
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1918 form="<input type=\"hidden\" name=\"serial\" 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	1919 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	1920 [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	1921 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	1922 ;;
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 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	1924 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	1925 ;;
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 "")
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 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	1928 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	1929 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	1930 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	1931 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	1932 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	1933 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	1934 :
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	1935 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	1936 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	1937 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	1938 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	1939 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	1940 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	1941 # 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	1942 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	1943 <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	1944 ${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	1945 <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	1946 $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	1947 </table>$hiddens
13 f2204bd941d5 periodic HIROSE Yuuji <yuuji@gentei.org> parents: 11 diff changeset	1948 ${GF_STAGE:+`cgi_hidden stage $GF_STAGE`}
8 3db7524d3dea Add default images HIROSE Yuuji <yuuji@gentei.org> parents: 6 diff changeset	1949 ${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	1950 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	1951 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	1952 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	1953 <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	1954 <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	1955 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	1956 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	1957 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	1958 </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	1959 $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	1960 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	1961 }
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 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	1963 # $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	1964 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	1965 }
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 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	1967 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	1968 }

Mercurial > hgrepos > hgweb.cgi > s4

annotate s4-funcs.sh @ 26:514acfff7453