s4

annotate s4-funcs.sh @ 207:355fcbdc3b49

find changesets by author, revision, files, or words in the commit message
Add 'file_accept'
author HIROSE Yuuji <yuuji@gentei.org>
date Mon, 25 Apr 2016 19:47:27 +0859
parents c120ade0c9c3
children 36b6354de5cb
rev   line source
yuuji@0 1 #!/bin/sh
yuuji@0 2 # Here's global variable table. Do not use this names.
yuuji@1 3 # $HGid$
yuuji@26 4
yuuji@26 5 [ -f s4-config.sh ] && . ./s4-config.sh
yuuji@26 6
yuuji@0 7 myname=`basename ${SCRIPT_NAME:-$0}`
yuuji@0 8 mydir=`dirname ${SCRIPT_FILENAME:-$0}`
yuuji@0 9 myargs="$@"
yuuji@8 10 PATH=/usr/local/sqlite3/bin:/usr/local/vim7/bin:/usr/iekei/ImageMagick/bin:/usr/local/ImageMagick/bin:$PATH
yuuji@0 11 tmpdir=${TMPDIR:-tmp}
yuuji@2 12 dbdir=${DBDIR:-db}
yuuji@0 13 tmpfiles=""
yuuji@2 14 db=${DB:-$dbdir/cgi.sq3}
yuuji@83 15 admin=${ADMIN:-hostmaster@example.org}
yuuji@3 16 templ=${TEMPL:-templ}
yuuji@67 17 layout=${LAYOUT:-$templ/default}
yuuji@67 18 formdir=${FORMDIR:-$templ/form}
yuuji@67 19 imgdir=${IMGDIR:-img}
yuuji@16 20 url=${URL:-"${REQUEST_SCHEME:-http${HTTPS:+s}}://$HTTP_HOST$REQUEST_URI"}
yuuji@0 21 urlbase=${url%%\?*}
yuuji@117 22 msgdir=$templ/msg
yuuji@0 23 timeout="+2 days"
yuuji@117 24 memoplimitdays="7"
yuuji@0 25 dumpcollen=20
yuuji@67 26 #thumbxy=120x120
yuuji@0 27 thumbxy=96x96
yuuji@0 28 maximagexy=1600x1600
yuuji@0 29 ### maximagexy=400x400
yuuji@207 30 file_accept='accept="image/*,application/vnd.*,application/pdf,text/*"'
yuuji@207 31
yuuji@0 32 tconfs=""
yuuji@0 33 imgcached=imgcache.`date +%Y/%m`
yuuji@4 34 conftbl=_tblconf
yuuji@0 35 nl="
yuuji@0 36 "
yuuji@17 37 . ./s4-cgi.sh
yuuji@0 38
yuuji@0 39 : <<EOF
yuuji@0 40
yuuji@0 41 資料配布、グループ管理・ML、ファイル交換、クリッカー、アンケート
yuuji@0 42 レポート提出管理
yuuji@0 43 ひとつのarticleをheadingにして新規ツリーを作成、あるといいかも。
yuuji@0 44
yuuji@120 45 8/4 ○グループに承認加入モードを追加
yuuji@120 46 ○グループに参加していない場合は grpaction できない
yuuji@79 47 Web
yuuji@79 48 締切設定
yuuji@120 49
yuuji@120 50 8/2 ○s4.cgi生成系 → index.cgi生成
yuuji@81 51 ○自分の提出物リスト
yuuji@79 52
yuuji@52 53 7/19 ○設置
yuuji@52 54 ○一斉送信
yuuji@52 55 ○getparfilename の tmpd の扱い
yuuji@52 56 ○やっぱりs4にしようかな
yuuji@4 57 7/18 ○書込著者からホームへのリンク
yuuji@2 58 7/17 ○個人blogに「レポート提出用」がついたときの挙動
yuuji@2 59 ○添付ファイル回収
yuuji@2 60 ○imgcacheは別ディレクトリにしないと + .htaccess
yuuji@0 61 7/15 ○レポート提出モードの表示を付ける
yuuji@0 62 管理者権限での削除? → まだいいか
yuuji@0 63
yuuji@0 64 7/13 ○前回アクセス基準の新着数は欲しいなあ
yuuji@0 65 ○レポート提出はどうしよう
yuuji@0 66 → ○blogにモードを追加:
yuuji@0 67 ○レポート提出モード
yuuji@0 68 添付ファイル (誰が見たかログ)
yuuji@0 69 クリッカーは別立てメニューにしないと(管理者がON/OFF)
yuuji@0 70 ○添付ファイルの読み出し権(6/22から) ← モードで対処
yuuji@0 71
yuuji@0 72
yuuji@0 73 7/9 ○管理者の追加
yuuji@0 74 △グループメンバの操作 → 要不要を吟味
yuuji@0 75 ○グループ情報編集の行先はそのグループがいい?
yuuji@0 76 ○新規グループの作成はどこから入るか
yuuji@0 77 △グループホームとユーザホームを揃える
yuuji@0 78
yuuji@0 79 7/8 ○グループ一覧をユーザ一覧と揃える。
yuuji@0 80
yuuji@0 81 7/6の次 ○グループのconf編集の入口
yuuji@0 82 ○グループ検索
yuuji@0 83
yuuji@0 84 6/22の次 ○ホーム画面、○招待状、親記事追跡、○編集ボタン、削除ボタン、
yuuji@0 85
yuuji@0 86
yuuji@0 87 6/7の次 ○blogを作ってみる || userconfig || _mのまとめ編集(削除)
yuuji@0 88 6/7の次の次 ○userconfigの画面だけ作ってみる。
yuuji@0 89
yuuji@0 90 ○ 5/28の次 edittableに「削除」ボタンを足す
yuuji@0 91 ○6/1 par2tableを triplex 対応に
yuuji@0 92 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'));
yuuji@0 93 →とすると 一気に
yuuji@0 94
yuuji@0 95 ## form.def を考えなおそう:
yuuji@0 96 ## userのように必須カラムを決まった位置に付ける?
yuuji@0 97 ## 必須カラム、owner(foreign key passwd(name)), update datetime
yuuji@0 98 ## ユーザ管理とグループ管理はデフォルトで持たせてしまえ
yuuji@0 99
yuuji@0 100 ## 縦持ちデータの入力/編集を供給する関数 single + multi
yuuji@0 101 ## 持てるテーブル構造はシステム標準5種 + ユーザ定義2種類
yuuji@0 102 ## 1. passwd
yuuji@0 103 ## 2. grp
yuuji@0 104 ## 3. grp_mem
yuuji@0 105 ## 4. topic 記事のIDとなる
yuuji@0 106 ## 5. topic_cont 特定IDの記事の内容物
yuuji@0 107 ## 6. list 繰り返し登場あり
yuuji@0 108 ## 7. hash 繰り返し登場なし
yuuji@0 109
yuuji@0 110 ## ● listの定義:
yuuji@0 111 ## create table list(id unique, parentID, type, value);
yuuji@0 112 ## ● hashの定義:
yuuji@0 113 ## create table hash(parentID, type, value, primary key(parentID, type));
yuuji@0 114
yuuji@0 115 ## グループ属性: community, friend
yuuji@0 116 ## ○ blob使えるのかな。streamで行けるのか? xxdで行けた。ありがたい。
yuuji@0 117 ## form-defとtableは1対1対応でいいか
yuuji@0 118 ## csv2sq3 で .csv.sq3 の Makefile
yuuji@0 119
yuuji@0 120 ## 書き込みオブジェクトとは何か?
yuuji@0 121 ## topic : id, belongto, title, owner, mode
yuuji@0 122 ## type := root | comment
yuuji@0 123 ## topic_cont : id, topicid(F), ppath, contenttype, filename, content,
yuuji@0 124 ## unique(id, filename)
yuuji@0 125 ## type := body(single) | attachment(multi)
yuuji@0 126
yuuji@0 127 ## group := name(P), tag, gecos, owner(F), mode
yuuji@0 128 ## tag := personal | friend | ... any string
yuuji@0 129 ## group_member := gname(F), type, name(F), UNIQUE(gname, type, name)
yuuji@0 130 ## type := "u" | "g"
yuuji@0 131 ## できたー!
yuuji@0 132 ## 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';
yuuji@0 133 ↓
yuuji@0 134 ↓以下に変更
yuuji@0 135 with recursive allmem as
yuuji@0 136 (select gname,val from grp_m where gname='foo'
yuuji@0 137 union all select grp_m.gname,grp_m.val from
yuuji@0 138 grp_m,allmem where allmem.val=grp_m.gname)
yuuji@0 139 select val from allmem where val in (select name from user);
yuuji@0 140
yuuji@0 141
yuuji@0 142 with recursive allmem as
yuuji@0 143 (select gname,val from grp_m where gname='foo'
yuuji@0 144 union all select grp_m.gname,grp_m.val from grp_m,allmem
yuuji@0 145 where allmem.val=grp_m.gname)
yuuji@0 146 select a.*, coalesce(b.val,a.val) from allmem a left join grp_mem_s b
yuuji@0 147 on a.gname=b.gname and a.val=b.user and b.key='email'
yuuji@0 148 where a.val in (select name from user);
yuuji@0 149
yuuji@0 150
yuuji@0 151 ## triggerもできた。
yuuji@0 152 ## 5/22から:グループ作成画面
yuuji@0 153 ## 埋め込み画像 data:CONTENT-TYPE;base64,.....
yuuji@0 154
yuuji@0 155 ## 考え得るノードタイプ
yuuji@0 156 ## 日報 - 個人所属かグループ所属か
yuuji@0 157 ## 課題提出 - 個人所属かグループ所属か
yuuji@0 158 ## グループ管理
yuuji@0 159 ## 個人情報管理
yuuji@0 160 ##
yuuji@0 161
yuuji@0 162 ## 例: group:sip - topic:1:sip:Aperture:yuuji:rw
yuuji@0 163 ## - topic:2:sip:ISO:yuuji:rw
yuuji@0 164 ## topic_cont 1:1:/:body:text...Aperture
yuuji@0 165 ## 2:1:/1:body:text..Aperture
yuuji@0 166 ## 3:1:/1:attachment:binary..Aperture
yuuji@0 167 ## 4:1:/2:body:text..Aperture
yuuji@0 168 ## 5:1:/2:attachment:binary..Aperture
yuuji@0 169 ## 6:2:/:body:text..ISO
yuuji@0 170 ## 7:2:/6:body:text..ISO
yuuji@0 171 ## 8:2:/6:attachment:binary..
yuuji@0 172
yuuji@0 173 ## ログテーブル
yuuji@0 174 ## time, who, action, tbl, id idなんか取れるかな
yuuji@0 175
yuuji@0 176
yuuji@0 177
yuuji@0 178 ■表設計
yuuji@0 179 * 3つの表に分散管理
yuuji@0 180 id格納表 + hash表 + list表
yuuji@0 181 * *_s *_m
yuuji@0 182
yuuji@0 183
yuuji@0 184
yuuji@0 185 user, user_map, user_col
yuuji@0 186
yuuji@0 187 ■抽象エントリタイプ
yuuji@0 188 * user
yuuji@0 189 idとして機能 → table中の owner に自動挿入(?)
yuuji@0 190 * group
yuuji@0 191 権限判定に利用
yuuji@0 192 * serial
yuuji@0 193 自動idとして機能
yuuji@0 194 * password
yuuji@0 195 入力 type=passwordで入力
yuuji@0 196 変更 oldpasswd, password×2 で確認後修正
yuuji@0 197 * session
yuuji@0 198 password認証後のセッションキーとして機能
yuuji@0 199 * text
yuuji@0 200 入力 type=text
yuuji@0 201 * textarea
yuuji@0 202 入力 textarea
yuuji@0 203 * image|document
yuuji@0 204 入力 type=fileで入力し、mime-typeを確認
yuuji@0 205 * owner
yuuji@0 206 入力時の $user で、外部キー制約が付く
yuuji@0 207 * gowner
yuuji@0 208 グループとしての所有者で、外部キー制約が付く
yuuji@0 209 * timestamp
yuuji@0 210 datetime()
yuuji@0 211 * parent
yuuji@0 212 木構造の場合の親の位置
yuuji@0 213 * path
yuuji@0 214 木構造の場合の自分の位置
yuuji@0 215
yuuji@0 216 格納タイプ
yuuji@0 217 * list
yuuji@0 218 表 parentID, key, val でUNIQUE(parentID, key, val)
yuuji@0 219 * hash
yuuji@0 220 表 parentID, key, val でUNIQUE(parentID, key)
yuuji@0 221
yuuji@0 222 オブジェクトタイプ
yuuji@0 223 * entry
yuuji@0 224 id, title, owner
yuuji@0 225 * textpart
yuuji@0 226 id, parentID, text
yuuji@0 227 * binarypart
yuuji@0 228 id, parentID, contenttype, filename, content
yuuji@0 229 * content
yuuji@0 230 hash(textpart), list(binarypart)
yuuji@0 231 * topic
yuuji@0 232 id, hash(content), list(reply)
yuuji@0 233 * reply
yuuji@0 234 id, parentID, content
yuuji@0 235 * blog
yuuji@0 236 list(entry)
yuuji@0 237 blog = [topic, list(reply)]
yuuji@0 238
yuuji@0 239
yuuji@0 240 blog = [ {"title" => "hoge", "owner" => "yuuji", "date" => "2015-04-27",
yuuji@0 241 "text" => "hogehoge ..",
yuuji@0 242 "reply" => [ {"serial" => 1,
yuuji@0 243 "author" => "taro",
yuuji@0 244 "date" => "2015-04-28",
yuuji@0 245 "parent" => "/",
yuuji@0 246 "path" => "/1",
yuuji@0 247 "text" => "blah, blah, ....",
yuuji@0 248 "image" => ["a.jpg", "b.jpg"] },
yuuji@0 249 {"serial" => 2,
yuuji@0 250 "author" => "hanako",
yuuji@0 251 "date" => "2015-04-29",
yuuji@0 252 "parent" => "/",
yuuji@0 253 "path" => "/2",
yuuji@0 254 "text" => "blah, blah, ....",
yuuji@0 255 "image" => [] }]},
yuuji@0 256 {"title" => "buha", ...} ]
yuuji@0 257
yuuji@0 258
yuuji@0 259 user:=
yuuji@0 260 ユーザ名(英数字):name:p:text:length="20" maxlength="40"
yuuji@0 261 パスワード:pswd:s:password:length="20" maxlength="40"
yuuji@0 262 説明(日本語OK):gecos:s:text:length="20" maxlength="40"
yuuji@0 263 セッションキー:skey:s:session
yuuji@0 264 メイルアドレス:email:m:text:length="20" maxlength="40"
yuuji@0 265 住所:address:m:textarea:maxlength="400"
yuuji@0 266 プロフィール画像:profimg:m:image:maxlength="400K"
yuuji@0 267 履歴書:profpdf:m:document:maxlength="4M"
yuuji@0 268
yuuji@0 269 変換表
yuuji@0 270 /user/email=m
yuuji@0 271
yuuji@0 272 blog:=
yuuji@0 273 シリアル:id:p:serial
yuuji@0 274 タイトル:title:s:text:
yuuji@0 275 所有者:owner:s:owner:
yuuji@0 276 時刻:ctime:s:stamp:
yuuji@0 277 リード文:heading:s:textarea:
yuuji@0 278 リプライ:reply:m:*article:
yuuji@0 279
yuuji@0 280 article:=
yuuji@0 281 シリアル:id:p:serial
yuuji@0 282 筆者:author:s:owner
yuuji@0 283 時刻:ctime:s:stamp:
yuuji@0 284 参照元:parent:s:parent:
yuuji@0 285 パス:path:s:path:
yuuji@0 286 本文:text:s:textarea:
yuuji@0 287 画像:image:m:image:
yuuji@0 288
yuuji@0 289 履歴書:profpdf:m:document:maxlength="4M"
yuuji@0 290
yuuji@0 291
yuuji@0 292 EOF
yuuji@0 293
yuuji@0 294 sq() {
yuuji@0 295 # ./args.rb -cmd ".timeout 3000" "$@"
yuuji@0 296 sqlite3 -cmd 'PRAGMA foreign_keys=ON' -cmd ".timeout 3000" "$@"
yuuji@0 297 }
yuuji@163 298 dbsetup() {
yuuji@163 299 [ -d $tmpdir ] || mkdir -m 1777 $tmpdir
yuuji@163 300 [ -d $dbdir ] || mkdir -m 1775 $dbdir
yuuji@163 301 sqi=$tmpdir/sqi.$$
yuuji@163 302 sqo=$tmpdir/sqo.$$
yuuji@163 303 mkfifo $sqi $sqo
yuuji@163 304 #tail -f $sqi | sq $db & # "tail -f" is too heavy. DO NOT USE!!
yuuji@163 305 sq $db < $sqi &
yuuji@163 306 sq3pid="`jobs -p` $!"
yuuji@163 307 exec 2>> $tmpdir/error.out
yuuji@163 308 exec 3>> $tmpdir/debug.out
yuuji@163 309 exec 5> $sqi # Turning $sqi access through fd5 for continuous open state
yuuji@163 310 rm $sqi
yuuji@163 311 }
yuuji@163 312 cleanup() {
yuuji@163 313 echo .quit >&5
yuuji@163 314 kill $sq3pid
yuuji@163 315 kill $sq3pid
yuuji@163 316 rm -f $sqo $sqi
yuuji@163 317 rm -rf $tmpfiles
yuuji@118 318 }
yuuji@0 319 query() {
yuuji@180 320 echo ".once $sqo" >&5
yuuji@180 321 if [ -z "$1" ]; then
yuuji@180 322 cat
yuuji@180 323 else
yuuji@180 324 echo "$@"
yuuji@180 325 fi >&5
yuuji@0 326 cat $sqo
yuuji@0 327 }
yuuji@187 328 _m4() {
yuuji@187 329 #_S4NAME_=f,f,f
yuuji@187 330 m4 ${_S4NAME_:+"-D_S4NAME_=${_S4NAME_}"} "$@"
yuuji@187 331 }
yuuji@0 332 ismember() {
yuuji@0 333 # $1=user, $2=group
yuuji@16 334 err ismem: "select user from grp_mem where gname=$(sqlquote $2) and user='$1';"
yuuji@16 335 test -n "`query \"select user from grp_mem where gname=$(sqlquote $2) and user='$1';\"`"
yuuji@0 336 }
yuuji@0 337 isuser() { # Check if $1 is a valid user
yuuji@0 338 test -n "`query \"select name from user where name='$1';\"`"
yuuji@0 339 }
yuuji@0 340 isgroup() { # Check if $1 is a valid group
yuuji@16 341 err isgroup: "select gname from grp where gname=$(sqlquote $1);"
yuuji@16 342 test -n "`query \"select gname from grp where gname=$(sqlquote $1);\"`"
yuuji@0 343 }
yuuji@16 344 isgrpowner() (
yuuji@0 345 # $1=user, $2=group
yuuji@16 346 gn=`sqlquote "$2"`
yuuji@16 347 sql="select user from grp_adm where gname=$gn and user='$1';"
yuuji@16 348 err isgrpowner: $sql
yuuji@16 349 test -n "`query $sql`"
yuuji@16 350 )
yuuji@117 351 getgroupadminmails() {
yuuji@117 352 # $1=group
yuuji@117 353 for i in $(getgroupadmins $1); do
yuuji@117 354 email4group "$1" "$i" ;
yuuji@117 355 done
yuuji@117 356 }
yuuji@56 357 getgroupadmins() { # $1=group
yuuji@56 358 # This function is called in a backquote, so needn't to be subshellized
yuuji@56 359 qgrp=`sqlquote "$1"`
yuuji@56 360 query "select user from grp_adm where gname=$qgrp;"
yuuji@56 361 }
yuuji@117 362 getgroupattr() { # $1=group $2=attr
yuuji@117 363 # This function is called in a backquote, so needn't to be subshellized
yuuji@117 364 getvalbyid grp $2 \
yuuji@117 365 $(query "select rowid from grp where gname=`sqlquote $1`;")
yuuji@117 366 }
yuuji@56 367 getgroupbyid() {
yuuji@16 368 # $1=id|gname
yuuji@16 369 sql="select coalesce((select gname from grp where gname=$(sqlquote $1)),
yuuji@16 370 (select gname from grp where rowid=$(sqlquote $1)));"
yuuji@71 371 # err ggbyid: `echo $sql`
yuuji@16 372 query $sql
yuuji@56 373 }
yuuji@0 374 isfilereadable() { # $1=user $2=tbl $3=rowid
yuuji@0 375 # Return true if user($1) can read attachment files in tbl($2):rowid($3)
yuuji@0 376 [ -z "$1" -o -z "$2" -o -z "$3" ] && return 1 # invalid argument
yuuji@78 377
yuuji@78 378 # Return true when anonymous mode
yuuji@78 379 [ "$anonymousmode" ] && return 0
yuuji@0 380 # case `getvalbyid blog mode $2` in
yuuji@0 381 # normal|*open*|"") return 0 ;;
yuuji@0 382 # *closed*)
yuuji@0 383 # owner=`getvalbyid blog owner $2`
yuuji@0 384 # if isgrp $owner; then
yuuji@0 385 # isgrpowner $1 $owner && return 0 || return 1
yuuji@0 386 # elif isuser $owner; then
yuuji@0 387 # [ x"$1" = x"$owner" ] && return 0 || return 1
yuuji@0 388 # fi
yuuji@0 389 # esac
yuuji@0 390 # ↑ 要はこういう処理を↓で一気にやっている
yuuji@0 391 sql="with getblog as (\
yuuji@0 392 select key,val from blog_s where id=(\
yuuji@0 393 select blogid from article where id in\
yuuji@0 394 (select id from $2 where rowid=$3))),\
yuuji@0 395 getowner as (select val from getblog where key='owner'),\
yuuji@0 396 getmode as (select val from getblog where key='mode')\
yuuji@0 397 select case\
yuuji@0 398 when (select author from article where\
yuuji@0 399 id=(select id from $2 where rowid=$3))='$1' \
yuuji@0 400 then 'author'\
yuuji@0 401 when (select val from getmode) in ('report-open', 'normal')\
yuuji@0 402 then 'open'\
yuuji@0 403 when (select val from getmode) is null \
yuuji@0 404 then 'open'
yuuji@0 405 when (select val from getowner) in (select gname from grp)\
yuuji@0 406 then (select user from grp_adm where \
yuuji@0 407 gname=(select val from getowner) and \
yuuji@0 408 user='$1')\
yuuji@39 409 when (select author from article where\
yuuji@39 410 id=(select id from $2 where rowid=$3))='$1'
yuuji@39 411 then 'user+author'
yuuji@39 412 else '' end;"
yuuji@39 413 err isfilereadable: sql="`echo $sql`"
yuuji@0 414 # caseのネストで内側のcaseがスカラーtrueを返しても外側はtrue扱いにならない
yuuji@0 415 result=`query "$sql"`
yuuji@0 416 [ -n "$result" ] && return 0
yuuji@0 417 return 2
yuuji@0 418 }
yuuji@0 419 linkhome() {
yuuji@0 420 # $1=UserOrGroup
yuuji@0 421 echo -n '<a href="?'
yuuji@0 422 if isuser $1; then
yuuji@0 423 err "select 'home+'||rowid from user where name='$1';"
yuuji@0 424 query "select 'home+'||rowid from user where name='$1';"
yuuji@0 425 else
yuuji@0 426 echo -n "grp+$1"
yuuji@0 427 fi
yuuji@0 428 echo "\">`gecos $1`</a>"
yuuji@0 429 }
yuuji@179 430 acclog() (
yuuji@0 431 # $1=table, $2=rowid
yuuji@179 432 n=${2%%[!0-9]*} # Remove non-digit chars from $2(should be rowid)
yuuji@179 433 if [ -n "$n" ]; then
yuuji@0 434 now=`date +"%F %T"`
yuuji@179 435 #query "replace into acclog values('$user', '$1', '$n', '$now');"
yuuji@179 436 query "replace into acclog values('$user', '$1', $n, '$now');"
yuuji@0 437 fi
yuuji@179 438 )
yuuji@0 439 gecos() (
yuuji@16 440 u=`sqlquote ${1:-$user}`
yuuji@2 441 #gecos=`query "select val from user_s where name='$u' and key='gecos';"`
yuuji@173 442 # sql="select case when (select name from user where name=$u) is not null
yuuji@173 443 # then coalesce(
yuuji@173 444 # (select val from user_s where name=$u and key='gecos'),
yuuji@173 445 # $u)
yuuji@173 446 # when (select gname from grp where gname=$u) is not null
yuuji@173 447 # then coalesce(
yuuji@173 448 # (select val from grp_s where gname=$u and key='gecos'),
yuuji@173 449 # $u)
yuuji@173 450 # else $u
yuuji@173 451 # end;"
yuuji@173 452 #query "$sql"
yuuji@173 453 query "select gecos from gecoses where name=$u;"
yuuji@0 454 )
yuuji@16 455 setpar() {
yuuji@16 456 query "replace into par values('$session', '$1', '$2', \"$3\");"
yuuji@16 457 }
yuuji@16 458 replpar() {
yuuji@16 459 query "update par set val=\"$3\" where sessid='$session' and var='$1' and type='$2';"
yuuji@16 460 }
yuuji@0 461 getpar() {
yuuji@0 462 err getpar: "select val from par where var='$1' and sessid='$session' $2;"
yuuji@0 463 val=`query "select val from par where var='$1' and sessid='$session' $2;"`
yuuji@16 464 err getpar/val1: "val=[$val]"
yuuji@0 465 if [ -z "$val" ]; then
yuuji@0 466 val=`query "select val from cookie where var='$1' and sessid='$session' $2;"`
yuuji@0 467 fi
yuuji@16 468 err getpar/val2: "val=[$val]"
yuuji@0 469 case "$var" in
yuuji@0 470 owner)
yuuji@0 471 if [ x"$user" = x"$val" ]; then
yuuji@0 472 echo $user; return
yuuji@0 473 elif ismember $user $val; then
yuuji@0 474 echo $val; return
yuuji@0 475 fi ;;
yuuji@0 476 esac
yuuji@16 477 err getpar/ret: "val=[$val]"
yuuji@0 478 echo "$val"
yuuji@0 479 }
yuuji@0 480
yuuji@0 481 getpartype() {
yuuji@0 482 query "select type from par where var='$1' and sessid='$session' $2;"
yuuji@0 483 }
yuuji@0 484 getparcount() {
yuuji@0 485 query "select count(*) from par where var='$1' and sessid='$session' $2;"
yuuji@0 486 }
yuuji@0 487 getparfilename() {
yuuji@0 488 # null if type of $1 is not file
yuuji@0 489 (f=`query "select val from par where var='$1' and sessid='$session' and type='file' $2;"`
yuuji@13 490 [ -n "$f" ] && echo $f)
yuuji@0 491 }
yuuji@0 492 sqlquote() {
yuuji@0 493 (v="$1"
yuuji@0 494 case "$v" in
yuuji@0 495 "") return ;; # null
yuuji@0 496 "X'"*) # quoted hex string
yuuji@0 497 echo $1 ;;
yuuji@0 498 *\"*) # string including dbl-quote"
yuuji@0 499 v=`echo "$v"|sed -e 's/\"/\"\"/g'`
yuuji@0 500 echo "\"$v\""
yuuji@0 501 return ;;
yuuji@0 502 *.*.*|*-*-*|*[Ee]*[Ee]*|[Ee]*|*[\ -,:-df-~]*) # string
yuuji@0 503 echo "\"$v\""
yuuji@0 504 return ;;
yuuji@0 505 *)
yuuji@0 506 if expr "$v" : '[-0-9.Ee][-0-9.Ee]*$' >/dev/null 2>&1; then
yuuji@0 507 echo $v # MAYBE numeric, maybe...
yuuji@0 508 else
yuuji@0 509 echo "\"$v\""
yuuji@0 510 fi ;;
yuuji@0 511 esac)
yuuji@0 512 }
yuuji@0 513 mktempd() {
yuuji@11 514 TMPDIR=$tmpd mktemp -d -t $session
yuuji@0 515 }
yuuji@69 516 getcachedir() { # $1=maintable
yuuji@69 517 if [ -n "$imgcached" ]; then
yuuji@69 518 echo $tmpdir/$imgcached/$(echo ${1:-hoge}|md5)/$thumbxy
yuuji@69 519 else
yuuji@69 520 echo $tmpd/$thumbxy
yuuji@69 521 fi
yuuji@69 522 }
yuuji@0 523 getval() {
yuuji@0 524 # $1=table $2=col $3(optional)=condition
yuuji@0 525 case `gettbl_coltype "/$1/$2"` in
yuuji@0 526 user|author) # author added 2015-06-18 for article(author)
yuuji@0 527 echo "$user" ;;
yuuji@0 528 stamp|datetime)
yuuji@0 529 date "+%F %T" ;;
yuuji@0 530 serial)
yuuji@67 531 (s=`getpar $2`
yuuji@0 532 if [ -n "$s" ]; then echo $s; else echo "`date +%s`x$$"; fi) ;;
yuuji@0 533 *)
yuuji@0 534 getpar "$2" "$3";;
yuuji@0 535 esac
yuuji@0 536 }
yuuji@0 537
yuuji@0 538 getvalquote() {
yuuji@0 539 # $1=table $2=col $3(optional)=condition
yuuji@0 540 (v=`getval "$@"`
yuuji@0 541 case "$v" in
yuuji@0 542 "") echo NULL ;;
yuuji@0 543 *) sqlquote "$v" ;;
yuuji@0 544 esac)
yuuji@0 545 }
yuuji@0 546 getparquote() {
yuuji@0 547 sqlquote `getpar $1`
yuuji@0 548 }
yuuji@78 549 getbinbyid() {
yuuji@78 550 # $1=tbl $2=col $3=rowid $4=tmpdirForBinary
yuuji@78 551
yuuji@78 552 }
yuuji@0 553 getvalbyid() {
yuuji@0 554 # $1=tbl $2=col $3=rowid $4=tmpdirForBinary
yuuji@0 555 # If two or more values found, save them to $tmpd/${column}.$N and
yuuji@0 556 # store the number of files into $tmpd/${column}.count and
yuuji@0 557 # their each rowid stored into $tmpd/${column}.$N.rowid.
yuuji@81 558 ## err gtb-$1=`gettblcols $1`, tbl=$1, col=$2, '$3'=$3
yuuji@81 559
yuuji@0 560 (for c in `gettblcols $1`; do
yuuji@0 561 if [ x"$2" = x"$c" ]; then
yuuji@0 562 err "select $2 from $1 where rowid=$3"
yuuji@0 563 ###sq $db "select $2 from $1 where rowid=$3"
yuuji@0 564 query "select $2 from $1 where rowid=$3;"
yuuji@0 565 return
yuuji@0 566 fi
yuuji@0 567 done
yuuji@0 568 pk=`gettblpkey $1`
yuuji@0 569 key=`query "select $pk from $1 where rowid=$3;"`
yuuji@33 570 getkey="(select $pk from $1 where rowid=$3)"
yuuji@0 571 ### err "select $pk from $1 where rowid=$3" - key=$key '$4(tmp)'=$4
yuuji@0 572 for kt in s m; do
yuuji@13 573 td=${4:-$tmpd}
yuuji@0 574 [ -d $td ] || mkdir -p $td
yuuji@0 575 t=${1}_$kt
yuuji@0 576 for c in `gettbl_${kt}_cols $1`; do
yuuji@0 577 vcount=1 # count(val)
yuuji@0 578 if [ x"$2" = x"$c" ]; then
yuuji@33 579 #### cond="$t where $pk=\"$key\" and key=\"$c\"" #2015-07-22
yuuji@33 580 cond="$t where $pk=$getkey and key=\"$c\""
yuuji@3 581 val=`query "select val from $cond limit 1;"`
yuuji@3 582 type=`query "select type from $cond limit 1;"`
yuuji@0 583 if [ $kt = m ]; then
yuuji@0 584 ###vcount=`sq $db "select count(val) from $cond"`
yuuji@0 585 # Reset val to store filenames if type is string
yuuji@0 586 val=`query "select val from $cond and type like 'file:%' order by rowid;"`
yuuji@59 587 err gvb1-sql: "select count(val) from $cond;"
yuuji@0 588 vcount=`query "select count(val) from $cond;"`
yuuji@0 589 echo $vcount > $td/$c.count
yuuji@0 590 i=0
yuuji@59 591 err gvbid: i=$i vcount=$vcount
yuuji@0 592 while [ $i -lt $vcount ]; do
yuuji@0 593 slice="order by rowid limit 1 offset $i"
yuuji@0 594 i=$((i+1))
yuuji@0 595 fn=$c.$i
yuuji@113 596 err td=$td, fn=$fn, type=$type, val="[$val]"
yuuji@0 597 case $type in
yuuji@0 598 file:*)
yuuji@0 599 #file=$td/$val
yuuji@0 600 file=$td/`query "select val from $cond $slice;"`
yuuji@47 601 # FOR SPEED: Skip file generation if imgcache exists
yuuji@131 602 [ -s $file -a -s $td/$fn.rowid -a -s $file.rowid ] && continue
yuuji@78 603 # err gvbid-get="select quote(bin) from $cond $slice;"
yuuji@8 604 sq $db<<EOF | unhexize > $file
yuuji@0 605 .output $td/$fn.rowid
yuuji@0 606 select rowid from $cond $slice;
yuuji@0 607 .output $td/$fn
yuuji@0 608 select val from $cond $slice;
yuuji@0 609 .output $file.content-type
yuuji@0 610 select substr(type, 6) from $cond $slice;
yuuji@0 611 .output stdout
yuuji@0 612 select quote(bin) from $cond $slice;
yuuji@0 613 EOF
yuuji@131 614 ## err gvbid-get2: "`ls -lF $file`"
yuuji@3 615 ## err i=$i - file=$file rowid=`cat $td/$fn.rowid`
yuuji@81 616 cp $td/$fn.rowid $file.rowid 2>&3 # for convenience
yuuji@78 617 cp $file $file.orig 2>&3
yuuji@136 618 ls -lh $file | awk '{print $5"B"}'|sed 's/BB/B/' > $file.size
yuuji@0 619 case $type in
yuuji@0 620 *:[Ii]mage*) mogrify -geometry $thumbxy $file ;;
yuuji@0 621 ### ここのアイコンを増やしたい
yuuji@0 622 *|*:[Aa]pplication*)
yuuji@0 623 convert -geometry $thumbxy $imgdir/file-icon.png \
yuuji@0 624 png:- > $file
yuuji@0 625 ;;
yuuji@0 626 esac
yuuji@0 627 ;;
yuuji@0 628 *)
yuuji@0 629 sq $db<<EOF
yuuji@0 630 .output $td/$fn.rowid
yuuji@0 631 select rowid from $cond $slice;
yuuji@0 632 .output $td/$fn
yuuji@0 633 select val from $cond $slice;
yuuji@0 634 EOF
yuuji@113 635 val=$val${val:+$nl}"`echo $fn`" # should be delimited by newline
yuuji@0 636 ;;
yuuji@0 637 esac
yuuji@0 638 done
yuuji@0 639 else
yuuji@0 640 rm -f $td/$c.count
yuuji@0 641 case $type in
yuuji@0 642 file:*)
yuuji@0 643 echo "$val" \
yuuji@0 644 | while read fn; do
yuuji@0 645 file=$td/$fn
yuuji@0 646 if [ ! -s $file ]; then
yuuji@0 647 ## sq $db "select quote(bin) from $cond and val=\"$fn\"" \
yuuji@0 648 query "select quote(bin) from $cond and val=\"$fn\";" \
yuuji@8 649 | unhexize > $file
yuuji@0 650 echo ${type#file:} > $file.content-type
yuuji@2 651 # err TTTTTTTTTTTTTTTT: $type
yuuji@0 652 case $type in
yuuji@0 653 *:[Ii]mage*) mogrify -geometry $thumbxy $file ;;
yuuji@0 654 *:[Aa]pplication*)
yuuji@0 655 convert -geometry $thumbxy $imgdir/file-icon.png \
yuuji@0 656 png:- > $file ;;
yuuji@0 657 esac
yuuji@0 658 fi
yuuji@0 659 done
yuuji@0 660 ;;
yuuji@0 661 esac
yuuji@0 662 fi
yuuji@0 663 echo "$val" # Keep newlines by ""
yuuji@0 664 return
yuuji@0 665 fi
yuuji@0 666 done
yuuji@0 667 done)
yuuji@0 668 }
yuuji@0 669 getvalbypkey() (
yuuji@0 670 # $1=tbl $2=col $3=pkey $4=tmpdirForBinary
yuuji@0 671 pk=`gettblpkey $1`
yuuji@0 672 rowid=`query "select rowid from $1 where $pk='$3';"`
yuuji@0 673 getvalbyid "$1" "$2" $rowid $4
yuuji@0 674 )
yuuji@0 675 getvalbycond() {
yuuji@0 676 # $1=tbl $2=col $3=SQL-Condition
yuuji@0 677 ###rowid=`sq $db "select rowid from $1 where $3"`
yuuji@0 678 rowid=`query "select rowid from $1 where $3;"`
yuuji@0 679 if [ -n "$rowid" ]; then
yuuji@0 680 getvalbyid "$1" "$2" $rowid "$4"
yuuji@0 681 fi
yuuji@0 682 }
yuuji@0 683 getpwfield() {
yuuji@0 684 # getpwfield user column
yuuji@0 685 # val=`sqlite3 $db "select $2 from passwd where name='$1' $3"`
yuuji@0 686 val=`getvalbycond user $2 "name='$1'"`
yuuji@0 687 if [ -n "$val" ]; then
yuuji@0 688 echo "$val"
yuuji@0 689 return 0
yuuji@0 690 else
yuuji@0 691 return 1
yuuji@0 692 fi
yuuji@0 693 }
yuuji@0 694 encode() {
yuuji@0 695 if [ -z "$sha1" ]; then
yuuji@0 696 if type sha1 >/dev/null 2>&1; then
yuuji@0 697 sha1=sha1
yuuji@0 698 elif type sha1sum >/dev/null 2>&1; then
yuuji@0 699 sha1=sha1sum
yuuji@0 700 elif type gsha1sum >/dev/null 2>&1; then
yuuji@0 701 sha1=gsha1sum
yuuji@0 702 fi
yuuji@0 703 fi
yuuji@0 704 $sha1 "$@" | cut -d' ' -f1
yuuji@0 705 }
yuuji@0 706 mycrypt() (
yuuji@0 707 key=$1 salt=$2
yuuji@0 708 err \$2=$2
yuuji@0 709 case $2 in
yuuji@0 710 '$'*'$'*) salt=${salt#\$4\$}
yuuji@0 711 salt=${salt%\$*} ;;
yuuji@0 712 esac
yuuji@0 713 echo -n '$4$'"$salt"'$'
yuuji@144 714 echo "$salt$key" | encode || exit 1 # Abort if fail to call encode
yuuji@0 715 )
yuuji@0 716 hexize() {
yuuji@0 717 if [ -z "$hexize" ]; then
yuuji@0 718 if type xxd >/dev/null 2>&1; then
yuuji@0 719 hexize="xxd -p"
yuuji@0 720 else
yuuji@8 721 hexize_hd() {
yuuji@8 722 hexdump -ve '1/1 "%.2x"'
yuuji@8 723 }
yuuji@8 724 hexize="hexize_hd"
yuuji@0 725 fi
yuuji@0 726 fi
yuuji@0 727 cat $1 | $hexize | tr -d '\n'
yuuji@0 728 }
yuuji@8 729 unhexize() {
yuuji@8 730 if [ -z "$unhex" ]; then
yuuji@8 731 if type xxd >/dev/null 2>&1; then
yuuji@8 732 unhex="xxd -p -r"
yuuji@8 733 elif type perl >/dev/null 2>&1; then
yuuji@8 734 cat >$tmpd/unhex.pl<<EOF
yuuji@8 735 s/([0-9a-f]{2})/print chr hex \$1/gie
yuuji@8 736 EOF
yuuji@8 737 # Perl refuses -e in setuid circumstances, which can be absurdly
yuuji@8 738 # avoided by creating scripts in a file where its parent directory is
yuuji@8 739 # world writable...:)
yuuji@8 740 unhex="perl -n $tmpd/unhex.pl"
yuuji@8 741 fi
yuuji@8 742 fi
yuuji@8 743 cat $1 | $unhex
yuuji@8 744 # cat $1 | tee /tmp/uh.in| $unhex | tee /tmp/uh.out
yuuji@8 745 }
yuuji@0 746 percenthex() {
yuuji@0 747 hexize $1 | sed 's/\(..\)/%\1/g'
yuuji@0 748 }
yuuji@155 749 htmlescape() {
yuuji@155 750 sed -e 's/\&/\&amp;/g' -e 's/"/\&quot;/g' -e "s/'/\&apos;/g" \
yuuji@155 751 -e "s/</\&lt;/g; s/>/\&gt;/g"
yuuji@155 752 }
yuuji@0 753 enascii() {
yuuji@0 754 if [ -z "$enascii" ]; then
yuuji@0 755 if type kakasi >/dev/null 2>&1; then
yuuji@0 756 enascii="kakasi -Ha -Ka -Ja -Ea -ka"
yuuji@0 757 else
yuuji@0 758 enascii_now=`date +%FT%T`
yuuji@0 759 enascii_sed() {
yuuji@0 760 nkf -Z0Z1Z2 \
yuuji@0 761 | sed -e "s/^/$enascii_now/" -e "s|[^-0-9.A-z/,()_=]|x|g"
yuuji@0 762 }
yuuji@0 763 enascii="enascii_sed"
yuuji@0 764 fi
yuuji@0 765 fi
yuuji@0 766 cat "$@" | $enascii
yuuji@0 767 }
yuuji@154 768 size_h() {
yuuji@164 769 i="$1" oi=$1
yuuji@164 770 set -- B B KB MB GB TB
yuuji@164 771 while [ $((i)) -gt 9 -a -n "$1" ]; do # -gt 9 means $oi > 1024
yuuji@154 772 oi=$i
yuuji@154 773 i=$((i/1024))
yuuji@164 774 shift
yuuji@154 775 done
yuuji@154 776 echo ${oi}$1
yuuji@154 777 }
yuuji@0 778 gettblconf() {
yuuji@0 779 if [ -z "$tconfs" ]; then
yuuji@0 780 ## tconfs=`sq $db \
yuuji@0 781 tconfs=`query \
yuuji@0 782 "select tbl||'/'||col||'='||keytype||'/'||objtype from $conftbl;"`
yuuji@0 783 fi
yuuji@0 784 # /tb1/col1=p/text /tb1/col2=s/text /tb1/col3=m/image /tb2/col1=p/text ...
yuuji@0 785 }
yuuji@0 786 gettblkeys() {
yuuji@0 787 # $1=tbl
yuuji@0 788 gettblconf
yuuji@0 789 echo "$tconfs" | fgrep "/$1/" | \
yuuji@0 790 (type="" keys="" fks="" cols="" scols="" mcols="" hcols=""
yuuji@0 791 while IFS='=' read tc conf; do # tc=/tb1/col1 conf=s/text
yuuji@0 792 col=${tc##*/} type=${conf%%/*}
yuuji@0 793 case $type in
yuuji@0 794 *p*)
yuuji@0 795 cols=$cols"${cols:+:}$col"
yuuji@0 796 keys=$keys"${keys:+:}$col" ;;
yuuji@0 797 *f*) cols=$cols"${cols:+:}$col"
yuuji@0 798 fks=$fks"${fks:+:}$col" ;;
yuuji@0 799 *m*) mcols=$mcols"${mcols:+:}$col" ;;
yuuji@0 800 *s*) scols=$scols"${scols:+:}$col" ;;
yuuji@0 801 esac
yuuji@0 802 case $type in
yuuji@0 803 *h*) hcols=$hcols"${hcols:+:}$col" ;;
yuuji@0 804 esac
yuuji@0 805 done
yuuji@0 806 echo "_keys=$keys _fks=$fks _cols=$cols _scols=$scols _mcols=$mcols _hcols=$hcols")
yuuji@0 807 }
yuuji@0 808 gettblpkey() {
yuuji@0 809 # $1=tbl
yuuji@0 810 gettblkeys $1 | cut -d ' ' -f 1 | sed -e 's/.*=//' -e 's/:/ /g'
yuuji@0 811 }
yuuji@0 812 gettblfkey() {
yuuji@0 813 (x=`gettblkeys $1`
yuuji@0 814 x=${x#*_fks=} # cut before "_fks=" including
yuuji@0 815 echo ${x%% *} | tr ':' ' ')
yuuji@0 816 }
yuuji@0 817 gettblcols() {
yuuji@0 818 (x=`gettblkeys $1`
yuuji@0 819 x=${x#*_cols=} # cut before "_cols=" including
yuuji@0 820 echo ${x%% *} | tr ':' ' ')
yuuji@0 821 }
yuuji@0 822 gettbl_s_cols() {
yuuji@0 823 (x=`gettblkeys $1`
yuuji@0 824 x=${x#*_scols=} # cut before "_scols=" including
yuuji@0 825 echo ${x%% *} | tr ':' ' ')
yuuji@0 826 }
yuuji@0 827 gettbl_m_cols() {
yuuji@0 828 (x=`gettblkeys $1`
yuuji@0 829 x=${x#*_mcols=} # cut before "_mcols=" including
yuuji@0 830 echo ${x%% *} | tr ':' ' ')
yuuji@0 831 }
yuuji@0 832 gettbl_h_cols() {
yuuji@0 833 (x=`gettblkeys $1`
yuuji@0 834 x=${x#*_hcols=} # cut before "_hcols=" including
yuuji@0 835 echo ${x%% *} | tr ':' ' ')
yuuji@0 836 }
yuuji@0 837 gettbl_coltype() (
yuuji@0 838 gettblconf
yuuji@0 839 x=`echo "$tconfs"|fgrep $1=`
yuuji@0 840 x=${x#*=} # cut before =
yuuji@0 841 echo ${x#*/} # cut before p/ including
yuuji@0 842 )
yuuji@0 843 is_hidden() {
yuuji@0 844 # $1=Tbl $2=col
yuuji@0 845 gettblconf
yuuji@0 846 x=`echo "$tconfs"|fgrep /$1/$2=`
yuuji@0 847 x=${x#*=} # cut before =
yuuji@0 848 x=${x%%/*} # cut after /
yuuji@0 849 case $x in
yuuji@0 850 *h*) return 0 ;;
yuuji@0 851 *) return 1 ;;
yuuji@0 852 esac
yuuji@0 853 }
yuuji@0 854
yuuji@0 855 dbsetbyid() {
yuuji@0 856 # $1=tbl $2=id $3=col $4=val/filename - &optional - $5=content-type
yuuji@0 857 (t0=$1 t=$1 p=$2 c=$3
yuuji@0 858 tsc=$t/$c val=$4
yuuji@0 859 unset primary update
yuuji@0 860 gettblconf
yuuji@0 861 #err tsc=$tsc, tconfs="$tconfs"
yuuji@0 862 conf=`echo "$tconfs"|fgrep "$tsc"=`
yuuji@0 863 #err conf=$conf
yuuji@0 864 case ${conf#*=} in
yuuji@0 865 p*) primary=1 ;;
yuuji@0 866 f*) update=1 ;;
yuuji@0 867 u*) ;;
yuuji@0 868 m*) t=${t}_m;;
yuuji@0 869 s*) t=${t}_s;;
yuuji@0 870 esac
yuuji@0 871 #err t=$t
yuuji@0 872 type=text fn=""
yuuji@0 873 case $conf in
yuuji@0 874 */password)
yuuji@0 875 type=encoded ### val=`echo $val|encode`
yuuji@0 876 ;;
yuuji@0 877 */image*|*/document*)
yuuji@0 878 type=`file --mime-type $val`
yuuji@0 879 bin="X'`hexize $val`'"
yuuji@0 880 ;;
yuuji@0 881 esac
yuuji@0 882 pkey=`echo "$tconfs"|grep "${t0}/.*=p"|sed 1q`
yuuji@0 883 pkey=${pkey#/*/} # cut $tbl/
yuuji@0 884 pkey=${pkey%=p/*} # cut =p/... -> primary key
yuuji@0 885 if [ "$primary" ]; then
yuuji@0 886 nulls=`echo "$tconfs"|grep "$t/.*=[fu]/"|sed 's/^.*/, NULL/'|tr -d '\n'`
yuuji@0 887 ###sq $db "replace into $t values(\"$val\"$nulls)"
yuuji@0 888 query "replace into $t values(\"$val\"$nulls);"
yuuji@0 889 elif [ "$update" ]; then
yuuji@0 890 ###sq $db "update $1 set $c=\"$val\" where $pkey=\"$p\""
yuuji@0 891 query "update $1 set $c=\"$val\" where $pkey=\"$p\";"
yuuji@0 892 else
yuuji@0 893 #err "replace into $t values(\"$p\", \"$c\", \"$type\", \"$val\", \"$bin\")"
yuuji@0 894 ###sq $db "replace into $t values(\"$p\", \"$c\", \"$type\", \"$val\", \"$bin\")"
yuuji@0 895 query "replace into $t values(\"$p\", \"$c\", \"$type\", \"$val\", \"$bin\");"
yuuji@0 896 fi
yuuji@0 897 )
yuuji@0 898 }
yuuji@3 899 expire() (
yuuji@3 900 at="${1:-$timeout}"
yuuji@3 901 FMT="${2:-%F %T}"
yuuji@6 902 TZ=GMT gdate -d "$at" +"$FMT"
yuuji@3 903 )
yuuji@0 904 addsession() {
yuuji@0 905 # expireをセット
yuuji@0 906 # loginの先にどの画面に行くかの状態遷移表書式を決める
yuuji@0 907 expire=`expire ${2:-"+1min"}`
yuuji@0 908 err addsession "$1" exp=$expire
yuuji@0 909 sq $db "replace into session values('$1', '$expire')"
yuuji@0 910 # Remove old session parameters
yuuji@0 911 now=`expire now`
yuuji@0 912 sq $db "delete from session where expire < '$now'"
yuuji@0 913 }
yuuji@3 914 gencookie() (
yuuji@3 915 for kv; do
yuuji@3 916 expire="`expire '' '%a, %d-%b-%Y %H:%M:%S GMT'`"
yuuji@3 917 echo "Set-Cookie: $kv; expires=$expire"
yuuji@3 918 done
yuuji@3 919 )
yuuji@0 920 contenttype() {
yuuji@0 921 echo "Content-type: ${1:-text/html; charset=utf-8}"
yuuji@0 922 contenttype() {} # Only need to work once
yuuji@0 923 }
yuuji@0 924 putheader() {
yuuji@0 925
yuuji@0 926 }
yuuji@0 927 putfooter() {
yuuji@187 928 _m4 -D_TITLE_="${TITLE:-$myname}" $layout/footer.m4.html
yuuji@0 929 }
yuuji@3 930 getcookie() (
yuuji@0 931 for kv in `echo $HTTP_COOKIE|sed 's/[;, ]/ /g'`; do
yuuji@0 932 k="${kv%%=*}"
yuuji@0 933 v="`echo ${kv#*=}|nkf -Ww -mQ|sed -e 's/\"/\"\"/g'`"
yuuji@3 934 query "replace into cookie values('$session', '$k', 'string', \"$v\");"
yuuji@0 935 done
yuuji@3 936 )
yuuji@0 937 genrandom() {
yuuji@0 938 # $1=columns (default: 10)
yuuji@3 939 dd if=/dev/urandom count=1 2>/dev/null|nkf -MB|fold -w${1:-10}|sed -n 10p
yuuji@0 940 }
yuuji@0 941 smail() {
yuuji@166 942 # smail rcpts subj (file)
yuuji@166 943 # $SMAIL_TO <- Recipient value of To: header
yuuji@0 944 rcpt=`echo $1` # strip newlines
yuuji@117 945 subj=`echo $2|nkf -jM|tr -d '\n'`
yuuji@187 946 (_m4 -D_RCPT_="${SMAIL_TO:-$rcpt}" -D_SUBJ_="\`$subj'" -D_FROM_=$admin $msgdir/mail-header.m4
yuuji@0 947 cat $3 | nkf -jd ) | sendmail -f $admin $rcpt
yuuji@0 948 }
yuuji@0 949 setviastring() {
yuuji@0 950 table=$1
yuuji@0 951 oifs="$IFS"
yuuji@0 952 IFS="&"
yuuji@0 953 for us in $2; do
yuuji@0 954 k=${us%%=*}
yuuji@0 955 v="`echo ${us#*=}|tr '%+' '= '|nkf -Ww -mQ|sed -e 's/\"/\"\"/g'`"
yuuji@0 956 sq $db "replace into $table values('$session', '$k', 'string', \"$v\")";
yuuji@0 957 #echo $k=$v
yuuji@0 958 done
yuuji@0 959 IFS="$oifs"
yuuji@0 960 }
yuuji@3 961 checkdomain() (
yuuji@3 962 # Check the validity of domain by referring DNS
yuuji@3 963 item=$1
yuuji@83 964 err checkdomain $1
yuuji@83 965 host ${item#*@} 1>&3 2>&3
yuuji@83 966 host ${item#*@} >/dev/null 2>&1
yuuji@3 967 )
yuuji@0 968 pwcheck() {
yuuji@0 969 # $1=passwd
yuuji@0 970 dbpswd=`getpwfield $user pswd`
yuuji@0 971 encpswd=`mycrypt "$1" "$dbpswd"`
yuuji@0 972 err user=$user, pswd=$1, db=$dbpswd, enc=$encpswd
yuuji@0 973 [ x"$dbpswd" = x"$encpswd" ]
yuuji@0 974 }
yuuji@0 975 mypwhash() {
yuuji@0 976 mycrypt `cat` `genrandom 5`
yuuji@0 977 }
yuuji@0 978 wasureta() {
yuuji@0 979 user=$1
yuuji@83 980 if ! checkdomain $user; then
yuuji@83 981 contenttype; echo
yuuji@187 982 _m4 -D_TITLE_='Invalid email' $layout/title-only.html
yuuji@83 983 echo "ユーザ名($user)には正しいメイルアドレスが必要です。" | html p
yuuji@83 984 putfooter
yuuji@0 985 exit 0
yuuji@0 986 fi
yuuji@0 987 newpswd=`genrandom` # newsalt=`genrandom 5`
yuuji@0 988 #encpswd=`mycrypt "$newpswd" "$newsalt"`
yuuji@0 989 encpswd=`echo $newpswd|mypwhash`
yuuji@0 990 dbsetbyid user $user pswd "$encpswd"
yuuji@100 991 # Avoid $user substitution with m4, because $url comes from user input.
yuuji@187 992 _m4 -D_PSWD_="$newpswd" -D_URL_="$url" -D_ADMIN_="$admin" \
yuuji@117 993 $msgdir/mail-newaccount.m4 \
yuuji@100 994 | sed "s/_USER_/$user/g" \
yuuji@0 995 | smail $user "New Account"
yuuji@0 996 }
yuuji@0 997 checkauth() {
yuuji@0 998 user=`getpar user`
yuuji@0 999 skc=`getpar skey` # from cookie
yuuji@0 1000 [ -z "$user" ] && return 3
yuuji@0 1001 skey="`getpwfield $user skey`"
yuuji@0 1002 err user=$user skey=$skey
yuuji@0 1003 if [ -n "$skey" ]; then
yuuji@0 1004 if [ x"$skey" = x"$skc" ]; then
yuuji@0 1005 return 0
yuuji@0 1006 fi
yuuji@0 1007 fi
yuuji@0 1008 pswd=`getpar pswd`
yuuji@0 1009 if [ x"$pswd" = x"wasureta" ]; then
yuuji@0 1010 wasureta $user
yuuji@0 1011 return 1 # wasureta error
yuuji@0 1012 fi
yuuji@0 1013 # dbpswd="`sq $db \"select pswd from passwd where name='$user'\"`"
yuuji@0 1014 # putheader; echo; echo user=$user, db=$dbpswd, enc=$encpswd
yuuji@0 1015 if pwcheck "$pswd"; then
yuuji@0 1016 newsession=`genrandom 50`
yuuji@0 1017 dbsetbyid user $user skey "$newsession"
yuuji@0 1018 gencookie "user=$user" "skey=$newsession"
yuuji@0 1019 return 0
yuuji@0 1020 fi
yuuji@0 1021 return 2 # Password mismatch
yuuji@0 1022 }
yuuji@0 1023 showlogin() {
yuuji@0 1024 args=`echo $myargs|tr ' ' '+'`
yuuji@187 1025 _m4 -D_SYSNAME_="Welcome" -D_MYNAME_="$myname${args+?}$args" \
yuuji@0 1026 $layout/login.m4.html
yuuji@0 1027 exit 0
yuuji@0 1028 }
yuuji@0 1029 dologin() {
yuuji@0 1030 checkauth
yuuji@0 1031 st=$?
yuuji@0 1032 if [ $st != 0 ]; then
yuuji@0 1033 contenttype; echo
yuuji@187 1034 _m4 -D_USER_="$user" -D_URL_="$url" -D_ADMIN_="$admin" \
yuuji@117 1035 $msgdir/login-fail-$st.m4.html
yuuji@0 1036 showlogin # and EXIT
yuuji@0 1037 fi
yuuji@0 1038 }
yuuji@67 1039
yuuji@67 1040 # Do instant jobs here
yuuji@163 1041 dbsetup
yuuji@187 1042 trap cleanup INT HUP EXIT TERM PIPE
yuuji@163 1043 # trap cleanup INT HUP
yuuji@67 1044
yuuji@67 1045 err() {
yuuji@67 1046 echo "$@" 1>&3
yuuji@67 1047 }
yuuji@67 1048
yuuji@0 1049 cgiinit() {
yuuji@0 1050 session=`date +%F-$$`
yuuji@0 1051 tmpf=tmp/stream
yuuji@11 1052 tmpd=`tmpd=$tmpdir mktempd`
yuuji@0 1053 tmpfiles=$tmpfiles" $tmpd"
yuuji@0 1054 addsession $session
yuuji@0 1055 getcookie
yuuji@0 1056 case "$REQUEST_METHOD" in
yuuji@0 1057 get|GET) s="$QUERY_STRING" ;;
yuuji@13 1058 post|POST) ## dd count=$CONTENT_LENGTH bs=1 of=$tmpf 2>/dev/null #slow
yuuji@137 1059 ## dd bs=$CONTENT_LENGTH count=1 of=$tmpf # NOT working
yuuji@13 1060 # cat > $tmpf # too much?
yuuji@13 1061 head -c $CONTENT_LENGTH > $tmpf # safe?
yuuji@13 1062 (echo CL=$CONTENT_LENGTH; ls -lF $tmpf) 1>&3
yuuji@0 1063 s="`cat tmp/stream`"
yuuji@0 1064 tmpfiles=$tmpfiles"${tmpfiles+ }$tmpf"
yuuji@0 1065 ;;
yuuji@0 1066 esac
yuuji@0 1067 case "$CONTENT_TYPE" in
yuuji@0 1068 *boundary*)
yuuji@0 1069 bndry=${CONTENT_TYPE#*boundary=}
yuuji@13 1070 #for us in `LC_CTYPE=C ./mpsplit.rb "$bndry" $tmpd < $tmpf`
yuuji@13 1071 for us in `LC_CTYPE=C ./mpsplit.pl "$bndry" $tmpd < $tmpf`
yuuji@0 1072 do
yuuji@0 1073 k=${us%%\=*}
yuuji@0 1074 #echo u=$us
yuuji@11 1075 #v="`echo ${us#*=}|nkf -Ww -mQ|sed -e 's/\"/\"\"/g'`"
yuuji@16 1076 v="`echo ${us#*=}|unhexize|sed -e 's/\"/\"\"/g'`"
yuuji@0 1077 # err k=$k v=$v
yuuji@0 1078 case "$k" in
yuuji@0 1079 *:filename)
yuuji@0 1080 type='file'; k=${k%:filename}
yuuji@13 1081 (echo k=$k; ls -lF $tmpd/$v; file --mime-type $tmpd/$v) 1>&3
yuuji@13 1082 case `file --mime-type $tmpd/$v|cut -d' ' -f2` in
yuuji@132 1083 [Ii]mage/x-xcf)
yuuji@132 1084 bzip2 $tmpd/$v
yuuji@132 1085 v=${v}.bz2
yuuji@132 1086 ;;
yuuji@132 1087 [Ii]mage/x-*|*/vnd.*) ;;
yuuji@0 1088 [Ii]mage/*)
yuuji@13 1089 mogrify -resize $maximagexy'>' $tmpd/$v
yuuji@0 1090 ;;
yuuji@0 1091 esac
yuuji@0 1092 ;;
yuuji@0 1093 *)
yuuji@0 1094 type='string'
yuuji@0 1095 ;;
yuuji@0 1096 esac
yuuji@16 1097 #sq $db "replace into par values('$session', '$k', '$type', \"$v\")"
yuuji@16 1098 setpar "$k" "$type" "$v"
yuuji@0 1099 done
yuuji@0 1100 ;;
yuuji@0 1101 *)
yuuji@0 1102 setviastring par "$s"
yuuji@0 1103 ;;
yuuji@0 1104 esac
yuuji@0 1105 }
yuuji@58 1106 email4group() {
yuuji@59 1107 # Get for-$1=group email address(es) for $2...=users
yuuji@58 1108 qgrp=`sqlquote "$1"`; shift
yuuji@58 1109 users=`for i; do sqlquote "$i"; done`
yuuji@58 1110 users=`echo $users|tr ' ' ','`
yuuji@56 1111 sql="select coalesce(s.val, g.user) from grp_mem g
yuuji@58 1112 left join grp_mem_s s on g.gname=s.gname and g.user=s.user
yuuji@58 1113 and s.key='email'
yuuji@58 1114 where g.gname=$qgrp and g.user in ($users);"
yuuji@56 1115 err `echo $sql`
yuuji@56 1116 query "$sql"
yuuji@58 1117 }
yuuji@59 1118 email4groupbyuid() {
yuuji@59 1119 # Get for-$1=group email address(es) for $2...=user-ids
yuuji@59 1120 qgrp=`sqlquote "$1"`; shift
yuuji@59 1121 err em4gbid-IN: "\$1=$1 qgrp=$qgrp"
yuuji@59 1122 uids=`echo "$@"`
yuuji@59 1123 uids=`echo $uids|tr ' ' ','`
yuuji@59 1124 sql="select coalesce(s.val, g.user) from grp_mem g
yuuji@59 1125 left join grp_mem_s s on g.gname=s.gname and g.user=s.user
yuuji@59 1126 and s.key='email'
yuuji@59 1127 where g.gname=$qgrp and g.user in
yuuji@59 1128 (select name from user where rowid in ($uids));"
yuuji@59 1129 err email4gByid `echo $sql`
yuuji@59 1130 query "$sql"
yuuji@59 1131 }
yuuji@47 1132 collectemail() (
yuuji@0 1133 # Collect email addresses for group $1
yuuji@47 1134 for e; do
yuuji@47 1135 if isuser "$e"; then
yuuji@47 1136 em=`query "select val from user_m where name='$e' and key='email';"`
yuuji@47 1137 [ -n "$em" ] && echo "$em" || echo "$e"
yuuji@47 1138 else
yuuji@26 1139 # sql="with recursive allmem as
yuuji@26 1140 # (select gname,val from grp_m where gname='$1'
yuuji@26 1141 # union all select grp_m.gname,grp_m.val from grp_m,allmem
yuuji@26 1142 # where allmem.val=grp_m.gname)
yuuji@26 1143 # select coalesce(b.val,a.val)
yuuji@26 1144 # from allmem a left join grp_mem_s b
yuuji@26 1145 # on a.gname=b.gname and a.val=b.user and b.key='email'
yuuji@26 1146 # where a.val in (select name from user) limit 10000;"
yuuji@47 1147 # tmp tmp tmp tmp tmp tmp tmp
yuuji@56 1148 qgrp=`sqlquote "$e"`
yuuji@62 1149 sql="select coalesce(s.val,um.val,g.user) from
yuuji@62 1150 grp_mem g left join grp_mem_s s
yuuji@26 1151 on g.gname=s.gname and g.user=s.user and s.key='email'
yuuji@62 1152 left join user_m um on g.user=um.name and um.key='email'
yuuji@26 1153 where g.gname=$qgrp;"
yuuji@47 1154 err CollectEmail: `echo "$sql"`
yuuji@47 1155 query "$sql"
yuuji@47 1156 fi
yuuji@47 1157 done
yuuji@47 1158 )
yuuji@0 1159 sendinvitation() (
yuuji@0 1160 # $1=email
yuuji@26 1161 iss="invite-`date +%s`-$user"
yuuji@117 1162 addsession $iss +${memoplimitdays}days # 1 week due date
yuuji@0 1163 query "replace into par values('$iss', 'invite', 'string', \"$1\");"
yuuji@0 1164 gecos=`gecos`
yuuji@0 1165 name=$user"${gecos:+($gecos)}"
yuuji@0 1166 regist="$urlbase?reg+$iss"
yuuji@187 1167 _m4 -D_URL_="$urlbase" \
yuuji@187 1168 -D_USER_="$name" \
yuuji@187 1169 -D_EMAIL_="$1" \
yuuji@187 1170 -D_REGIST_="$regist" \
yuuji@187 1171 -D_ADMIN_="$admin" \
yuuji@187 1172 $msgdir/mail-invite.m4 \
yuuji@0 1173 | smail $1 "BBSへの御招待"
yuuji@0 1174 return 0
yuuji@0 1175 )
yuuji@0 1176 emaildomaincheck() {
yuuji@0 1177 case "$1" in
yuuji@0 1178 *@*@*) echo "無効なアドレスです"; return 1 ;;
yuuji@0 1179 *@*)
yuuji@0 1180 local=${1%@*} domain=${1#*@}
yuuji@0 1181 if ! host $domain >/dev/null 2>&1; then
yuuji@0 1182 echo "ドメイン($domain)が見付かりません。"
yuuji@0 1183 return 2
yuuji@0 1184 fi
yuuji@0 1185 return 0
yuuji@0 1186 ;;
yuuji@0 1187 *) echo "正しいメイルアドレスをいれてください"; return 3 ;;
yuuji@0 1188 esac
yuuji@0 1189 }
yuuji@0 1190 invite() {
yuuji@0 1191 email=`getpar email`
yuuji@0 1192 case $email in
yuuji@0 1193 *@*@*) repo="無効なアドレスです" ;;
yuuji@0 1194 *@*)
yuuji@0 1195 local=${email%@*} domain=${email#*@}
yuuji@0 1196 if ! repo=`emaildomaincheck $email`; then
yuuji@0 1197 repo="招待アドレスのエラー: $repo"
yuuji@0 1198 elif [ -n "`query \"select * from user where name='$email';\"`" ]; then
yuuji@0 1199 repo="$email さんは既に加入しています。"
yuuji@0 1200 elif sendinvitation $email; then
yuuji@0 1201 repo="アドレス($email)宛に案内を送信しました。"
yuuji@0 1202 fi ;;
yuuji@0 1203 "") repo="招待したい人のメイルアドレスを入力してください。" ;;
yuuji@0 1204 *) repo="無効なアドレスです" ;;
yuuji@0 1205 esac
yuuji@26 1206 addr=`query "select val from par where sessid like 'invite-%-$user';"`
yuuji@26 1207 err addr=$addr
yuuji@26 1208 if [ -n "$addr" ]; then
yuuji@26 1209 susp="<h2>招待済みで加入待ちのアドレス</h2><pre>$addr</pre>"
yuuji@26 1210 fi
yuuji@187 1211 _m4 -D_TITLE_="招待" -D_REPORT_="\`$repo'" -D_ACTION_="?invite" \
yuuji@187 1212 -D_BODYCLASS_="default" -D_SUSPENDED_="$susp" \
yuuji@187 1213 $layout/html.m4.html $layout/invite.m4.html
yuuji@0 1214 }
yuuji@0 1215 regist() {
yuuji@0 1216 # $1=session-id-for-invitation
yuuji@187 1217 _m4 -D_TITLE_="Invitation" $layout/html.m4.html
yuuji@0 1218 if [ -z "$1" ]; then
yuuji@61 1219 echo "bye bye" | html p
yuuji@0 1220 reutrn
yuuji@0 1221 fi
yuuji@0 1222 email=`session=$1 getpar invite`
yuuji@0 1223 if [ -z "$email" ];then
yuuji@0 1224 cat<<EOF
yuuji@0 1225 <p>無効な招待状チケットです。</p>
yuuji@0 1226 <p>招待状の有効期限(1週間)が切れているか、チケット番号が異なっています。
yuuji@0 1227 加入している人に、再度招待してもらいましょう。</p>
yuuji@0 1228 EOF
yuuji@65 1229 return
yuuji@0 1230 fi
yuuji@61 1231 echo "$email さんようこそ" | html h2
yuuji@0 1232 query "replace into user values('$email');"
yuuji@0 1233 # Fake login password to wasureta
yuuji@0 1234 query "replace into par values('$session', 'pswd', 'string', 'wasureta'),
yuuji@0 1235 ('$session', 'user', 'string', '$email');"
yuuji@0 1236 wasureta $email
yuuji@61 1237 echo "このアドレスに初期パスワードを送信しました。" |html p
yuuji@61 1238 echo "新着メイルを確認してログインしてください。" |html p
yuuji@26 1239 addsession $1 # for removal after 1 minute
yuuji@187 1240 _m4 -D_SYSNAME_="Initial Login" -D_MYNAME_="$myname?userconf" \
yuuji@187 1241 $layout/login.m4.html
yuuji@0 1242 return
yuuji@0 1243 }
yuuji@113 1244 newgrpchk() {
yuuji@113 1245 # Check if $1 is existing and
yuuji@113 1246 }
yuuji@113 1247 groupupdate() {
yuuji@78 1248 gname=`getpar gname`
yuuji@113 1249 qgname=`sqlquote $gname`
yuuji@113 1250 err Enter:groupupdate
yuuji@78 1251 if [ -n "$gname" ]; then
yuuji@81 1252 # See ALSO same job in showgroup()
yuuji@81 1253 newgname=`echo "$gname"|tr -d '\"'"'"`
yuuji@113 1254 err newgname=$newgname
yuuji@78 1255 if [ x"$newgname" != x"$gname" ]; then
yuuji@78 1256 err NewGNAME: gname=$newgname
yuuji@81 1257 gname=$newgname
yuuji@78 1258 echo "使用禁止文字を除去し $gname としました。" | html p
yuuji@78 1259 replpar gname string "$gname"
yuuji@78 1260 fi
yuuji@113 1261 # Name confliction check
yuuji@113 1262 parow=`getpar rowid`
yuuji@113 1263 err parow=$parow
yuuji@113 1264 qgname=`sqlquote $gname` # Set again in case gname modified
yuuji@113 1265 query "BEGIN EXCLUSIVE;"
yuuji@113 1266 err "select count(gname) from grp where rowid != ${parow:-0} and gname = $qgname;"
yuuji@113 1267 count=$(query "select count(gname) from grp where rowid != ${parow:-0} and gname = $qgname;")
yuuji@113 1268 if [ $count -gt 0 ]; then
yuuji@113 1269 echo "そのグループ名は既にあります。" | html p
yuuji@113 1270 query "END;"
yuuji@113 1271 return
yuuji@113 1272 fi
yuuji@123 1273 par2table $formdir/grp.def
yuuji@122 1274 query "END TRANSACTION;"
yuuji@163 1275 # Remove orphan
yuuji@122 1276 : <<EOF
yuuji@122 1277 select a.id,b.val from (select * from blog where id in
yuuji@122 1278 (select id from blog_s where key='owner'
yuuji@122 1279 and val not in (select name from user union select gname from grp)))
yuuji@122 1280 a left join blog_s b on a.id=b.id and b.key='owner';
yuuji@122 1281 EOF
yuuji@122 1282 rm=`getpar rm` cfm=`getpar confirm`
yuuji@122 1283 err groupupdate:::: after par2tbl rmcfm=$rm$cfm
yuuji@122 1284 if [ x"$rm$cfm" = x"yesyes" ]; then
yuuji@122 1285 if [ -z "`query \"select gname from grp where gname=$qgname;\"`" ]; then
yuuji@122 1286 sql="delete from blog where id in
yuuji@122 1287 (select id from blog_s where key='owner' and val=$qgname);"
yuuji@122 1288 err rm-grp cleaning sql=`echo $sql`
yuuji@122 1289 query "$sql";
yuuji@122 1290 fi
yuuji@122 1291 fi
yuuji@113 1292 [ -z "$parow" ] && joingrp "$gname" "$user" yes "$user" as-admin
yuuji@78 1293 fi
yuuji@113 1294 sql="select rowid from grp where gname=$qgname;"
yuuji@113 1295 grid=$(query $sql)
yuuji@113 1296 err grpupdate:new-grid=$grid, sql=$sql
yuuji@113 1297 grp $grid
yuuji@113 1298 }
yuuji@113 1299 groupman() {
yuuji@78 1300 note="<p>グループ名に使用できない文字は自動的に削除されます。</p>"
yuuji@81 1301
yuuji@113 1302 GF_STAGE="grpconf"
yuuji@113 1303 GF_STAGE=groupupdate
yuuji@81 1304 DT_VIEW=grp dumptable html grp 'gname gecos:DESC mtime:TIME' 'order by b.TIME desc' \
yuuji@187 1305 |_m4 -D_TITLE_="グループ作成" \
yuuji@187 1306 -D_FORM_="$note`genform $formdir/grp.def`" \
yuuji@187 1307 -D_DUMPTABLE_="syscmd(cat)" \
yuuji@187 1308 $layout/html.m4.html $layout/form+dump.m4.html
yuuji@78 1309 }
yuuji@0 1310 userconf() {
yuuji@79 1311 [ -n "`getpar rowid`" ] && par2table $formdir/user.def
yuuji@187 1312 _m4 -D_BODYCLASS_=userconf -D_TITLE_="ユーザ情報編集" $layout/html.m4.html
yuuji@0 1313 GF_ACTION="?home" edittable "$formdir/user.def" "user" "$user"
yuuji@0 1314 }
yuuji@0 1315 groupconf() {
yuuji@16 1316 # $1=rowid in grp (2015-07-21 changed from gname)
yuuji@79 1317 [ -n "`getpar rowid`" ] && par2table $formdir/grp.def
yuuji@187 1318 _m4 -D_BODYCLASS_=groupconf -D_TITLE_="グループ情報編集" $layout/html.m4.html
yuuji@16 1319 #rowid=`query "select rowid from grp where gname='$1';"`
yuuji@16 1320 rowid=${1%%[!A-Z0-9a-z_]*}
yuuji@0 1321 err gcon \$1=$1 rowid=$rowid
yuuji@113 1322 # GF_ACTION="?grp+$1" edittable "$formdir/grp.def" "grp" "$rowid" #2015-0804
yuuji@113 1323 GF_STAGE="groupupdate" edittable "$formdir/grp.def" "grp" "$rowid"
yuuji@0 1324 }
yuuji@79 1325 mems() {
yuuji@187 1326 _m4 -D_TITLE_="参加者一覧" -D_BODYCLASS_=listmember $layout/html.m4.html
yuuji@79 1327 kwd=`getpar kwd`
yuuji@79 1328 listmember $kwd
yuuji@79 1329 }
yuuji@79 1330 grps() {
yuuji@187 1331 _m4 -D_TITLE_="グループ一覧" -D_BODYCLASS_=listgroup $layout/html.m4.html
yuuji@79 1332 kwd=`getpar kwd`
yuuji@79 1333 listgroup $kwd \
yuuji@187 1334 | _m4 -D_DUMPTABLE_="syscmd(cat)" \
yuuji@187 1335 -D_TITLE_="グループ関連操作" \
yuuji@187 1336 -D_FORM_="<a href=\"?groupman\">新規グループ作成</a>" \
yuuji@187 1337 $layout/form+dump.m4.html
yuuji@79 1338 }
yuuji@79 1339 grp() { # $1=group-rowid
yuuji@79 1340 gpg=`getpar grp`
yuuji@79 1341 grid=${1:-$gpg}
yuuji@79 1342 grp=`getgroupbyid "$grid"`
yuuji@79 1343 err grp: getpar-grp"(gpg)=[$grp]"
yuuji@79 1344 ## . ./s4-blog.sh
yuuji@79 1345 jg=`getpar joingrp`
yuuji@79 1346 if [ -n "$jg" ]; then
yuuji@79 1347 err jg=$jg, grp=$grp
yuuji@79 1348 [ -n "$jg" -a -n "$grp" ] &&
yuuji@79 1349 joingrp "$grp" "$user" "$jg" "`getpar email`"
yuuji@79 1350 fi
yuuji@187 1351 echo "グループ $grp"|_m4 -D_TITLE_="syscmd(\`cat')" $layout/html.m4.html
yuuji@79 1352 showgroup "$grid"
yuuji@79 1353 }
yuuji@175 1354 listnewblogsql() { # $1=user
yuuji@177 1355 cat<<EOF
yuuji@175 1356 with article_ctime as (
yuuji@175 1357 select id,blogid,author,val ctime
yuuji@175 1358 from article join article_s s using(id)
yuuji@175 1359 where s.key='ctime'
yuuji@175 1360 ), blog_title_owner as (
yuuji@175 1361 select blog.rowid, id,
yuuji@175 1362 max(case key when 'title' then val end) title,
yuuji@175 1363 max(case key when 'owner' then val end) owner
yuuji@175 1364 from blog, blog_s using(id) group by id
yuuji@175 1365 ), acclog_user as (
yuuji@176 1366 select * from acclog where user='$user' and tbl='blog'
yuuji@175 1367 ), blogall as (
yuuji@175 1368 select b.id, b.rowid, b.owner, b.title, ctime, ac.author
yuuji@175 1369 from blog_title_owner b, article_ctime ac
yuuji@175 1370 on b.id=ac.blogid
yuuji@175 1371 )
yuuji@203 1372 select rowid LINK,
yuuji@175 1373 sum(case when l.time is null then 1
yuuji@175 1374 when l.time < ctime then 1
yuuji@175 1375 else 0
yuuji@175 1376 end) "新着",
yuuji@175 1377 count(id) "総数", ctime, title,
yuuji@181 1378 /* owner gecos */
yuuji@181 1379 (select gecos from gecoses where name=bl.owner) gecos
yuuji@175 1380 from blogall bl left join acclog_user l
yuuji@176 1381 on bl.rowid=round(l.tblrowid)
yuuji@175 1382 where case when (select name from user where owner=name) is not null
yuuji@175 1383 then 1 /* user's diary is always readable */
yuuji@175 1384 when (select val from grp_s
yuuji@175 1385 where gname=owner and key='regmode') = 'moderated'
yuuji@175 1386 and -- moderated group and nonmember can't read, not counting
yuuji@175 1387 (select user from grp_mem
yuuji@175 1388 where gname=owner and user='$user') is null
yuuji@175 1389 then 0
yuuji@175 1390 else 1
yuuji@175 1391 end
yuuji@175 1392 group by bl.id
yuuji@175 1393 having "新着" > 0 order by "新着" desc, bl.id
yuuji@175 1394 limit 10;
yuuji@175 1395 EOF
yuuji@175 1396 }
yuuji@175 1397
yuuji@0 1398 showhome() {
yuuji@0 1399 # $1=userRowIdToShow
yuuji@81 1400 err showhome \$1=$1
yuuji@0 1401 case "$1" in
yuuji@0 1402 *@*) uname=`getvalbypkey user name "$1"` ;;
yuuji@0 1403 *) uname=`getvalbyid user name $1` ;;
yuuji@0 1404 esac
yuuji@81 1405 err ShowHome: uname=$uname
yuuji@0 1406 gecos=`gecos "$uname"`
yuuji@81 1407 err SH:gecos=$gecos
yuuji@0 1408 GF_VIEWONLY=1
yuuji@0 1409 cond="gname in (select gname from grp_mem where user='$uname')"
yuuji@0 1410 if [ x"$user" = x"$uname" ]; then
yuuji@0 1411 conflink="<a href=\"?userconf\">プロフィールの編集</a> /
yuuji@0 1412 <a href=\"?blog\">新規話題の作成</a>"
yuuji@80 1413 # Display folders
yuuji@80 1414 sql="select count(id) from article_m where id
yuuji@80 1415 in (select id from article where author='$user')
yuuji@80 1416 and type like 'file:%';"
yuuji@80 1417 err nfile-sql=`echo "$sql"`
yuuji@80 1418 nfile=`query "$sql"`
yuuji@80 1419 err nfile=$nfile
yuuji@80 1420 if [ $nfile -gt 0 ]; then
yuuji@80 1421 conflink="$conflink /
yuuji@80 1422 <a href=\"?lsmyfile\">過去の提出ファイル</a>"
yuuji@80 1423 fi
yuuji@0 1424 fi
yuuji@17 1425 . ./s4-blog.sh
yuuji@3 1426
yuuji@81 1427 tf=$tmpd/title.$$ pf=$tmpd/profile.$$ bf=$tmpd/blogs.$$
yuuji@81 1428 echo "$gecos さん" > $tf
yuuji@81 1429 viewtable $formdir/user.def user $1 > $pf
yuuji@146 1430
yuuji@147 1431 sqcond="WHERE name='$uname' AND key='profimg' AND type LIKE 'file:image%'"
yuuji@146 1432 img=`query "SELECT type FROM user_m $sqcond LIMIT 1;"`
yuuji@148 1433 imf=$tmpd/profimg.$$; touch $imf
yuuji@146 1434 if [ -n "$img" ]; then
yuuji@149 1435 { printf '%s' "<img src=\"data:${img#file:},"
yuuji@146 1436 query "SELECT hex(bin) FROM user_m $sqcond LIMIT 1;" \
yuuji@146 1437 | sed 's/\(..\)/%\1/g'
yuuji@151 1438 echo '">'
yuuji@146 1439 } > $imf
yuuji@146 1440 fi
yuuji@150 1441 nblog=`query "SELECT count(id) FROM blog_s WHERE key='owner' AND \
yuuji@150 1442 val='$uname';"`
yuuji@81 1443 listblog $uname > $bf
yuuji@81 1444 listgroupbytable $formdir/grp.def $cond \
yuuji@187 1445 | _m4 -D_BODYCLASS_=home -D_TITLE_="spaste(\`$tf')" \
yuuji@187 1446 -D_PROFILE_="spaste(\`$pf')$conflink" \
yuuji@187 1447 -D_PROFIMG_="spaste(\`$imf')" \
yuuji@187 1448 -D_BLOGS_="spaste(\`$bf')" \
yuuji@187 1449 -D_NBLOG_="$nblog" \
yuuji@187 1450 -D_GROUPS_="syscmd(\`cat')" \
yuuji@187 1451 $layout/html.m4.html $layout/home.m4.html
yuuji@81 1452
yuuji@81 1453 if [ x"$user" = x"$uname" ]; then
yuuji@194 1454 # Display Most Recent Entry
yuuji@196 1455 shortval=${dumpcollen:+"substr(val, 0, $dumpcollen)"}
yuuji@196 1456 shortval=${shortval:-val}
yuuji@203 1457 DT_SQL="SELECT b.rowid LINK,
yuuji@203 1458 ctime,
yuuji@196 1459 (SELECT $shortval FROM blog_s WHERE key='title' AND id=b.id) title,
yuuji@195 1460 (SELECT gecos FROM gecoses
yuuji@195 1461 WHERE name=(SELECT val FROM blog_s
yuuji@195 1462 WHERE key='owner' AND id=b.id)) owner
yuuji@194 1463 FROM blog b
yuuji@194 1464 JOIN
yuuji@194 1465 (SELECT distinct blogid, max(val) ctime
yuuji@194 1466 FROM article a, article_s s
yuuji@194 1467 ON a.id=s.id AND a.author='$user' AND s.key='ctime'
yuuji@195 1468 GROUP BY blogid ORDER BY val DESC LIMIT 50
yuuji@194 1469 ) m
yuuji@194 1470 ON b.id=m.blogid;"
yuuji@194 1471 cat<<-EOF
yuuji@200 1472 <div class="fold">
yuuji@194 1473 `cgi_checkbox mrd yes id="mre"`<label for="mre">
yuuji@194 1474 最近書き込んだ場所一覧</label>
yuuji@194 1475 `DT_VIEW=replyblog dumptable html blog`
yuuji@194 1476 </div>
yuuji@194 1477 EOF
yuuji@194 1478 unset DT_SQL
yuuji@81 1479 # Display NEWS
yuuji@175 1480 if false; then
yuuji@175 1481 cond="where 新着 > 0 order by 新着 desc,ctime desc limit 10"
yuuji@175 1482 new10=`DT_CHLD=article:blogid \
yuuji@60 1483 DT_VIEW=replyblog dumptable html blog "ctime title gecos" "$cond"`
yuuji@175 1484 else
yuuji@175 1485 # 2016-02-19 Counting NEWS without using dumptable.
yuuji@175 1486 sql=`listnewblogsql "$user"`
yuuji@175 1487 new10=`DT_SQL="$sql" DT_VIEW=replyblog dumptable html blog`
yuuji@175 1488 fi
yuuji@81 1489 cont=`echo "$new10"|grep "^<TR>"|wc -l`
yuuji@81 1490 cont=$((cont-1))
yuuji@81 1491 err newcount=$cont
yuuji@81 1492 if [ $cont -gt 0 ]; then
yuuji@81 1493 echo "全体の新着記事${cont}傑" | html h2
yuuji@81 1494 echo "$new10"
yuuji@81 1495 fi
yuuji@128 1496 cat<<EOF
yuuji@128 1497 <div class="fold">
yuuji@128 1498 `cgi_checkbox srchall yes id="sa"`<label
yuuji@128 1499 for="sa">SNS全体から検索</label>
yuuji@128 1500 <div>
yuuji@128 1501 EOF
yuuji@128 1502 cgi_form searchart<<EOF
yuuji@128 1503 <label>`cgi_text kwd`という語を含む記事を全部から検索</label>
yuuji@128 1504 EOF
yuuji@128 1505 cat<<EOF
yuuji@128 1506 </div></div>
yuuji@128 1507 EOF
yuuji@81 1508 fi
yuuji@128 1509 #
yuuji@0 1510 # Record access log
yuuji@0 1511 [ -n "$1" ] && [ x"$1" != x"$user" ] && acclog user $1
yuuji@0 1512 }
yuuji@79 1513 commission() { # $1=grp-rowid $2=user-rowid
yuuji@79 1514 contenttype; echo
yuuji@79 1515 err commission: "$@"
yuuji@79 1516 gname=`getgroupbyid $1`
yuuji@81 1517 echo "グループ $gname 管理者委任" \
yuuji@187 1518 | _m4 -D_TITLE_="syscmd(\`cat')" $layout/html.m4.html
yuuji@79 1519 if [ -n "$2" ]; then
yuuji@79 1520 grp_reg_adm "$@"
yuuji@79 1521 else
yuuji@79 1522 echo "無効な指定です。普通のアクセスならここに来ないはず。"|html p
yuuji@79 1523 fi
yuuji@79 1524 }
yuuji@0 1525 listgroupbytable() {
yuuji@52 1526 # $1=deffile $2...=condition
yuuji@0 1527 tagline=`grep :tag: $1`; shift
yuuji@52 1528 and="${1:+and }" where=${1:+where }
yuuji@0 1529 href="<a href=\"$myname?grp+"
yuuji@0 1530 echo '<div class="listgroup">'
yuuji@26 1531 NGsql="select distinct tag from\
yuuji@26 1532 (select gname, max(case key when 'tag' then val end) as tag, \
yuuji@26 1533 max(case key when 'ctime' then val end) as ctime\
yuuji@26 1534 from grp_s group by gname order by ctime);"
yuuji@26 1535 sql="select val from grp_s where key='tag' $and$* group by val;"
yuuji@26 1536 err ListGRP: query sql="$sql"
yuuji@13 1537 for tag in `query "$sql"`
yuuji@0 1538 do
yuuji@0 1539 err ListGrp: tag=$tag
yuuji@0 1540 tn=${tagline%%=${tag}*}
yuuji@0 1541 tn=${tn##*[ :]}
yuuji@113 1542 sql="select rowid||':'||gname as 'グループ名',説明 from
yuuji@113 1543 (select (select rowid from grp g where g.gname=grp_s.gname)
yuuji@113 1544 as rowid,
yuuji@113 1545 gname,
yuuji@113 1546 max(case key when 'gecos' then val end) as '説明',
yuuji@113 1547 max(case key when 'tag' then val end) as 'tag',
yuuji@113 1548 max(case key when 'mtime' then val end) as mtime from grp_s
yuuji@113 1549 $where$* group by gname having tag='$tag' order by mtime desc);"
yuuji@0 1550 err PersonalGroupList= `echo $sql`
yuuji@0 1551 echo "<h2>$tn</h2>"
yuuji@0 1552 echo '<table class="b listgroup">'
yuuji@0 1553 sq -header -html $db "$sql" \
yuuji@31 1554 | sed "s,\(<TR><TD>\)\([0-9]*\):\([^ ]*\)</TD>,\1$href\2\">\3</a>,"
yuuji@0 1555 echo '</table>'
yuuji@0 1556 done
yuuji@0 1557 echo '</div>'
yuuji@0 1558 }
yuuji@0 1559 iconhref() (
yuuji@0 1560 # $1=icon-file, $2=Href $3=title $4...=anchor
yuuji@0 1561 data=`percenthex $1`
yuuji@3 1562 ct=`file --mime-type $1|cut -d' ' -f2`
yuuji@3 1563 err iconhref: \$1=$1 \$2=$2 \$3="$@"
yuuji@0 1564 href=$2; title=$3; shift 3
yuuji@0 1565 echo "<a href=\"$href\"><img title=\"$title\" src=\"data:$ct,$data\">$@</a>"
yuuji@0 1566 )
yuuji@0 1567 iconhref2() (
yuuji@0 1568 # $1=icon-file, $2=Href $3=title $4...=anchor
yuuji@0 1569 src=$1
yuuji@0 1570 href=$2; title=$3; shift 3
yuuji@0 1571 echo "<a href=\"$href\"><img title=\"$title\" src=\"$src\">$@</a>"
yuuji@0 1572 )
yuuji@0 1573 listentry() (
yuuji@0 1574 # $1=user/group $2=SearchKeyword $3=condition(if any)
yuuji@0 1575 # Referring variable $iamowner=$grp to attach owner-request links
yuuji@0 1576 err listentry: \$1=$1 \$2=$2 \$3=$3
yuuji@33 1577 cond=''
yuuji@0 1578 offset=`getpar offset`
yuuji@0 1579 offset=${offset%%[!0-9]*}
yuuji@0 1580 offset=$((offset + 0)) # change to numeric forcibly
yuuji@0 1581 [ $offset -lt 0 ] && offset=0
yuuji@0 1582 limit=30
yuuji@78 1583 dir=`getcachedir "$1"`
yuuji@0 1584 if [ x"$1" = x"user" ]; then
yuuji@0 1585 hrb="$myname?home"
yuuji@0 1586 deficon=person-default.png
yuuji@0 1587 entity="ユーザ" tbl=user link=rowid nm=name stage=mems
yuuji@33 1588 gcs=gecos
yuuji@0 1589 else # if group
yuuji@0 1590 hrb="$myname?grp"
yuuji@22 1591 deficon=group-default.png
yuuji@16 1592 entity="グループ" tbl=grp link=rowid nm=gname stage=grps
yuuji@33 1593 gcs=name
yuuji@0 1594 tagline=`grep :tag: $formdir/grp.def|cut -d: -f5-`
yuuji@0 1595 if [ -n "$tagline" ]; then
yuuji@0 1596 tagconv=`echo $tagline|sed 's/\([^= :]*\)=\([^= :]*\)/-D\2=\1/g'`
yuuji@0 1597 err tagconv=$tagconv
yuuji@0 1598 fi
yuuji@0 1599 fi
yuuji@0 1600 if [ ! -d $dir ]; then
yuuji@0 1601 mkdir -p $dir
yuuji@131 1602 fi
yuuji@131 1603 if [ ! -s $dir/$deficon ]; then
yuuji@0 1604 convert -geometry $thumbxy $imgdir/$deficon $dir/$deficon
yuuji@0 1605 fi
yuuji@0 1606 if [ -n "$2" ]; then
yuuji@0 1607 cond="where nick like '%$2%' or b.name like '%$2%'"
yuuji@0 1608 fi
yuuji@0 1609
yuuji@0 1610 # XX: これ複雑すぎるかな。もっとシンプルにしたい。$3条件も。2015-07-08
yuuji@33 1611 # grpは呼出し元の動的スコープ変数でよくないな...
yuuji@33 1612 ##qgrp=`sqlquote $grp`
yuuji@33 1613 getgrp="(select gname from grp where rowid=${rowid:--1})"
yuuji@33 1614 sql="select a.rowid, a.$link, coalesce(b.$gcs, a.$nm) as nick,
yuuji@33 1615 coalesce(b.gecos, a.$nm) as name,
yuuji@33 1616 b.tag,
yuuji@13 1617 case when a.$nm in (select user from grp_adm
yuuji@69 1618 where gname=$getgrp) then '(管理者)'
yuuji@13 1619 when '$user' in (select user from grp_adm where gname=a.$nm)
yuuji@13 1620 then '(ADMIN)'
yuuji@171 1621 when '$user' in (select user from grp_mem where gname=a.$nm)
yuuji@171 1622 then '(Member)'
yuuji@13 1623 when '$iamowner' = '' then ''
yuuji@0 1624 else ',not='||a.rowid end as ownerlink
yuuji@0 1625 from $tbl a left join
yuuji@0 1626 (select $nm as name,
yuuji@0 1627 max(case key when 'gecos' then val end) as gecos,
yuuji@0 1628 max(case key when 'tag' then val end) as tag
yuuji@0 1629 from ${tbl}_s group by $nm)
yuuji@0 1630 b on a.$nm=b.name $cond $3
yuuji@0 1631 order by b.tag desc, a.rowid asc"
yuuji@16 1632 err LE:sql.1="$sql"
yuuji@0 1633 total=`query "with x as ($sql) select count(*) from x;"`
yuuji@61 1634 echo "${entity} 一覧" | html h2
yuuji@0 1635 if [ $total -gt $limit ]; then
yuuji@0 1636 echo '<div class="right">'
yuuji@0 1637 cgi_form $stage <<EOF
yuuji@0 1638 <label>次の語を含む${entity}で検索:
yuuji@0 1639 `cgi_text kwd $kwd`</label>
yuuji@0 1640 EOF
yuuji@0 1641 echo '</div>'
yuuji@0 1642 fi
yuuji@0 1643 cat<<EOF
yuuji@33 1644 <p>${total}件中の$((offset+1))件めから${kwd:+" - 検索語: $kwd"}</p>
yuuji@0 1645 EOF
yuuji@0 1646 if [ $((offset+limit)) -lt $total ]; then
yuuji@0 1647 cat<<EOF
yuuji@0 1648 <div class="right"><form action="$myname" method="POST">
yuuji@0 1649 `cgi_submit 次の${limit}件`
yuuji@0 1650 `cgi_hidden kwd "$kwd"`
yuuji@0 1651 `cgi_hidden stage "$stage"`
yuuji@0 1652 `cgi_hidden offset $((offset + limit))`</form></div>
yuuji@0 1653 EOF
yuuji@0 1654 fi
yuuji@0 1655 if [ $offset -gt 0 ]; then
yuuji@0 1656 cat<<EOF
yuuji@0 1657 <form action="$myname" method="POST">
yuuji@0 1658 `cgi_submit 前の${limit}件`
yuuji@0 1659 `cgi_hidden stage "$stage"`
yuuji@0 1660 `cgi_hidden kwd "$kwd"`
yuuji@0 1661 `cgi_hidden offset $((offset - limit))`</form>
yuuji@0 1662 EOF
yuuji@0 1663 fi
yuuji@0 1664
yuuji@69 1665 err ListEntry: `echo "$sql"\;`
yuuji@0 1666
yuuji@0 1667 query "$sql limit $limit ${offset:+offset $offset};" \
yuuji@33 1668 | while IFS='|' read id lnk name gecos tag ownerp; do
yuuji@16 1669 err name=$name owner=$ownerp lnk=$lnk
yuuji@16 1670 err newlnk=$lnk
yuuji@0 1671 files=`getvalbyid $tbl profimg $id $dir`
yuuji@0 1672 # Pick up only first icon
yuuji@0 1673 echo "<div class=\"iconlist xy$thumbxy\"><p class=\"tag _$tag\">$tag</p>" \
yuuji@187 1674 | _m4 $tagconv
yuuji@0 1675 if [ -n "$files" ]; then
yuuji@0 1676 icon=`echo "$files"|head -1`
yuuji@33 1677 iconhref $dir/$icon "$hrb+$lnk" "$gecos"
yuuji@0 1678 else
yuuji@33 1679 iconhref $dir/$deficon "$hrb+$lnk" "$gecos"
yuuji@0 1680 fi
yuuji@0 1681 echo "<br>$name${ownerp:+<br>$ownerp}"
yuuji@0 1682 echo "</div>"
yuuji@0 1683 done
yuuji@0 1684 )
yuuji@0 1685 listmember() {
yuuji@0 1686 listentry user "$@"
yuuji@0 1687 }
yuuji@0 1688 listgroup() {
yuuji@0 1689 listentry group "$@"
yuuji@0 1690 }
yuuji@33 1691 showgroup() { # $1=group-rowid
yuuji@113 1692 # gname=`getpar gname`
yuuji@113 1693 # if [ -n "$gname" ]; then
yuuji@113 1694 # err UPdating/Removing of group:::::::
yuuji@113 1695 # # See ALSO same job in groupman()
yuuji@113 1696 # newgname=`echo "$gname"|tr -d '\"'"'"`
yuuji@113 1697 # ###newgname=$gname
yuuji@113 1698 # err gname=$gname newgname=$newgname
yuuji@113 1699 # if [ x"$newgname" != x"$gname" ]; then
yuuji@113 1700 # err NewGNAME: gname=$newgname
yuuji@113 1701 # gname=$newgname
yuuji@113 1702 # echo "使用禁止文字を除去し $gname としました。" | html p
yuuji@113 1703 # replpar gname string "$gname"
yuuji@113 1704 # fi
yuuji@113 1705 # par2table $formdir/grp.def
yuuji@113 1706 # fi
yuuji@33 1707 grp=`getgroupbyid $1`
yuuji@16 1708 err showgroup2: grp=$grp qgrp="[$(sqlquote $grp)]"
yuuji@13 1709 if isgroup "$grp"; then
yuuji@81 1710 tf=$tmpd/title.$$
yuuji@81 1711 echo "グループ $grp" > $tf
yuuji@81 1712 showgroupsub $formdir/grp.def "$1" | \
yuuji@187 1713 _m4 -D_TITLE_="spaste(\`$tf')" \
yuuji@187 1714 -D_FORM_="syscmd(\`cat')" \
yuuji@187 1715 -D_DUMPTABLE_="" \
yuuji@187 1716 $layout/form+dump.m4.html
yuuji@13 1717 else # if $grp is removed at par2table
yuuji@13 1718 listgroup
yuuji@13 1719 fi
yuuji@0 1720 }
yuuji@0 1721 showgroupsub() {
yuuji@33 1722 # $1=def-file $2=group-rowid
yuuji@33 1723 rowid=$2
yuuji@33 1724 grp=`getgroupbyid $2`
yuuji@16 1725 qgrp=`sqlquote $grp`
yuuji@33 1726 #rowid=`sq $db "select rowid from grp where gname=$qgrp"`
yuuji@0 1727 if [ -z "$rowid" ]; then
yuuji@33 1728 #rowid=`sq $db "select rowid from grp where rowid=$grp"`
yuuji@33 1729 #grp=`sq $db "select gname from grp where rowid=$grp"`
yuuji@61 1730 echo "showgroupsub: invalid argument($1 $2)" | html p
yuuji@61 1731 return
yuuji@0 1732 fi
yuuji@0 1733 val=`getvalbyid grp profimg $rowid $tmpd`
yuuji@0 1734 # 6/14の次グループのHOMEで出す情報を作る Done
yuuji@0 1735 viewtable $1 grp $rowid
yuuji@13 1736 if isgrpowner "$user" "$grp"; then
yuuji@16 1737 echo "<p><a href=\"?groupconf+$rowid\">グループ情報の編集</a>"
yuuji@33 1738 iamowner=$rowid
yuuji@0 1739 fi
yuuji@13 1740 if ismember "$user" "$grp"; then
yuuji@59 1741 echo "${iamowner:+ / }<a href=\"?blog+$rowid\">グループの新規話題作成</a>"
yuuji@59 1742 echo "/ <a href=\"?grpaction+$rowid\">メンバーを個別選択しての操作</a></p>"
yuuji@26 1743 # div.fold input[type="checkbox"]:checked ~ div {display: block;}
yuuji@26 1744 cat<<EOF
yuuji@26 1745 <form action="?send2mem" method="POST" enctype="multipart/form-data">
yuuji@26 1746 <div class="fold">
yuuji@26 1747 `cgi_checkbox send yes id="send"`<label
yuuji@26 1748 for="send">グループ全員にメッセージ送信</label>
yuuji@26 1749 <div>
yuuji@26 1750 `cgi_textarea message "" "cols=60"`
yuuji@26 1751 `cgi_submit 送信`
yuuji@26 1752 `cgi_reset リセット`
yuuji@26 1753 </div>
yuuji@26 1754 `cgi_hidden grp $rowid`
yuuji@26 1755 </div></form>
yuuji@26 1756 EOF
yuuji@0 1757 fi
yuuji@0 1758 # 加入ボタン + 加入者リスト
yuuji@0 1759 err ismember $user $grp
yuuji@13 1760 ismember "$user" "$grp" && ismem='checked' || nomem='checked'
yuuji@0 1761 # このグループでの加入アドレス
yuuji@0 1762 eml=`query "select val from grp_mem_s where gname='$2' and user='$user' \
yuuji@0 1763 and key='email';"`
yuuji@0 1764 err EML: "select val from grp_mem_s where gname='$2' and user='$user' \
yuuji@0 1765 and key='email';"
yuuji@0 1766 err email=$eml
yuuji@26 1767 cat <<EOF
yuuji@26 1768 <div class="fold">
yuuji@26 1769 `cgi_checkbox reg yes id="reg"`<label
yuuji@26 1770 for="reg">自身の参加状態を操作する</label>
yuuji@26 1771 <div>
yuuji@26 1772 EOF
yuuji@0 1773 cgi_form grp <<EOF
yuuji@26 1774 <p>このグループに</p>
yuuji@0 1775 <table class="b">
yuuji@0 1776 <tr><th>メンバーとして</th><td>
yuuji@0 1777 <label>`cgi_radio joingrp "yes" $ismem`参加</label> /
yuuji@0 1778 <label>`cgi_radio joingrp "no" $nomem`参加しない</label></td></tr>
yuuji@0 1779 <tr><th>参加する場合のメイルアドレス<br>
yuuji@0 1780 <small>(メインのアドレスとは違うものにする場合に記入<br>
yuuji@0 1781 同じでよい場合は空欄に)</small></th>
yuuji@0 1782 <td>`cgi_text email $eml`</td></tr>
yuuji@0 1783 </table>
yuuji@33 1784 `cgi_hidden grp $rowid`
yuuji@0 1785 EOF
yuuji@117 1786 if [ x`getgroupattr $grp regmode` = x'moderated' -a -z "$ismem" ]; then
yuuji@117 1787 echo "moderated (承認加入の)グループなので実際に参加できるのは
yuuji@117 1788 グループ管理者が承認操作をした後になります。" | html p 'class="warn"'
yuuji@117 1789 fi
yuuji@26 1790 echo '</div></div>'
yuuji@0 1791 echo '<h2>話題一覧</h2>'
yuuji@0 1792 cgi_form searchart<<EOF
yuuji@0 1793 <label>`cgi_text kwd`という語を含むコメントを検索</label>
yuuji@0 1794 `cgi_hidden owner $grp`
yuuji@0 1795 EOF
yuuji@60 1796 cond="where a.id in (select id from blog_s where key='owner' and val=$qgrp) order by ctime desc"
yuuji@0 1797 DT_CHLD=article:blogid \
yuuji@0 1798 DT_VIEW=replyblog dumptable html blog 'ctime title heading' "$cond"
yuuji@0 1799
yuuji@33 1800 getgname="(select gname from grp where rowid=$rowid)"
yuuji@33 1801 c="group by b.name having b.name in (select user from grp_mem where gname=$getgname)"
yuuji@33 1802 cm="?commission+$rowid"
yuuji@0 1803 thumbxy=50x50 listmember "" "$c" \
yuuji@153 1804 |sed -e "s|\(<br>\),not=\(.*\)|\1|" # 間違って押しやすい
yuuji@153 1805 ## |sed -e "s|\(<br>\),not=\(.*\)|\1<a href=\"$cm+\2\">管理者委託</a>|"
yuuji@0 1806 }
yuuji@59 1807 grpaction() { # $1=group-rowid
yuuji@79 1808 err GRP_ACTION:IN
yuuji@79 1809 grid=${1:-`getpar grp`}
yuuji@79 1810 grp=`getgroupbyid "$grid"`
yuuji@79 1811 if [ -z "$grp" ]; then
yuuji@118 1812 echo "無効な指定です。" | html p; return
yuuji@118 1813 fi
yuuji@118 1814 if ! ismember $user $grp; then
yuuji@118 1815 echo "加入者のみに許可された操作です。" | html p; return
yuuji@79 1816 fi
yuuji@81 1817 echo "グループ $grp 個別選択操作" \
yuuji@187 1818 | _m4 -D_TITLE_="syscmd(\`cat')" $layout/html.m4.html
yuuji@79 1819
yuuji@117 1820 isowner=""
yuuji@117 1821 isgrpowner "$user" "$grp" && isowner="yes"
yuuji@59 1822 usel=`getpar usel`
yuuji@59 1823 if [ -n "$usel" ]; then
yuuji@59 1824 uids=$(echo `echo $usel`|tr ' ' ',')
yuuji@79 1825 err grpaction-1: grp=$grp, `echo $sql`
yuuji@59 1826 text=`getpar text`
yuuji@59 1827
yuuji@59 1828 rm=`getpar rm` cfm=`getpar confirm`
yuuji@59 1829 err rm=$rm cfm=$cfm
yuuji@59 1830 if [ x"$rm" = x"yes" ]; then
yuuji@117 1831 if [ "$isowner" ]; then
yuuji@59 1832 if [ x"$rm$cfm" = x"yesyes" ]; then
yuuji@59 1833 # Eliminate
yuuji@59 1834 cond="where gname=(select gname from grp where rowid=$grid) and user in (select name from user where rowid in ($uids))"
yuuji@59 1835 for tbl in grp_mem grp_mem_s grp_mem_m; do
yuuji@59 1836 sql="delete from $tbl $cond;"
yuuji@59 1837 # echo "sql=$sql"
yuuji@59 1838 query "$sql"
yuuji@59 1839 err rmGRPuser "$sql"
yuuji@59 1840 done
yuuji@59 1841 num=`query "select count(*) from user where rowid in ($uids);"`
yuuji@59 1842 #err num=$num
yuuji@59 1843 if [ 0$num -gt 0 ]; then
yuuji@59 1844 sql="select coalesce(b.val,a.name) from user a left join \
yuuji@59 1845 user_s b on a.name=b.name and key='gecos' where a.rowid in ($uids);"
yuuji@59 1846 # err `echo "$sql"`
yuuji@59 1847 html pre<<EOF
yuuji@59 1848 以下の${num}名のグループ $grp 登録を解除しました。
yuuji@59 1849 `query "$sql"`
yuuji@59 1850 EOF
yuuji@59 1851 fi
yuuji@59 1852 else
yuuji@61 1853 echo "確認のチェックがないのでやめておきます。" | html p
yuuji@59 1854 return
yuuji@59 1855 fi
yuuji@59 1856 else # not Group Owner
yuuji@61 1857 echo "グループ管理者でないのでメンバー操作はできません。" | html p
yuuji@59 1858 return
yuuji@59 1859 fi
yuuji@59 1860 cat<<EOF
yuuji@59 1861
yuuji@59 1862 EOF
yuuji@153 1863 elif [ x"$rm" = x"send" ]; then # if sendmsg mode
yuuji@153 1864 if [ -z "$text" ]; then # if msg is empty
yuuji@153 1865 echo "なにかメッセージを..." | html p
yuuji@153 1866 return 0
yuuji@153 1867 fi
yuuji@59 1868 smail "`email4groupbyuid "$grp" $usel` $user" \
yuuji@59 1869 "`gecos $user` さんからのメッセージ" <<EOF
yuuji@59 1870 $url
yuuji@59 1871 のグループ「$grp」のメンバーである `gecos $user` さんから、
yuuji@59 1872 あなた宛へのメッセージです。
yuuji@59 1873 ----------------------------------------------------------
yuuji@59 1874 $text
yuuji@59 1875 EOF
yuuji@59 1876 if [ $? = 0 ]; then
yuuji@61 1877 echo "Note: 以下のメンバーにメッセージを送信しました。" | html p
yuuji@59 1878 sql="select coalesce(b.val, a.name) from
yuuji@59 1879 (select name from user where rowid in ($uids)) a
yuuji@59 1880 left join user_s b on a.name=b.name and b.key='gecos';"
yuuji@61 1881 html pre<<EOF
yuuji@61 1882 `query "$sql"`
yuuji@61 1883 (送信者である `gecos $user` さんも含まれます)
yuuji@61 1884 EOF
yuuji@59 1885 err SendDone: `echo $sql`
yuuji@59 1886 fi
yuuji@153 1887 elif [ x"$rm" = x"commission" ]; then
yuuji@153 1888 grp_reg_adm $grid $usel
yuuji@59 1889 fi
yuuji@59 1890 fi
yuuji@59 1891 # New entry
yuuji@59 1892 sql="select u.rowid||','||j.* from user u
yuuji@59 1893 join (select a.user as name,coalesce(b.val,a.user)
yuuji@59 1894 from (select gname,user from grp_mem
yuuji@59 1895 where gname=(select gname from grp where rowid=$1))
yuuji@59 1896 a left join (select gname,user,val from grp_mem_s where key='email')
yuuji@59 1897 b using(gname,user))
yuuji@59 1898 j using(name) order by u.name;"
yuuji@153 1899 sql="select /* Ahh, ugly SQL, I wanna fix... */
yuuji@153 1900 case
yuuji@153 1901 when (select user from grp_adm where
yuuji@153 1902 gname=(select gname from grp where rowid=$grid)
yuuji@153 1903 and user=a.name) is not null
yuuji@153 1904 then 'k'
yuuji@153 1905 else ''
yuuji@153 1906 end || a.rowid||
yuuji@153 1907 ','||coalesce(val,a.name) as name from
yuuji@59 1908 (select rowid,name from user where name in
yuuji@59 1909 (select user from grp_mem where
yuuji@117 1910 gname=(select gname from grp where rowid=$grid)))
yuuji@59 1911 a left join user_s on a.name=user_s.name and key='gecos'
yuuji@153 1912 order by coalesce(val,a.name);"
yuuji@59 1913 err grpaction: `echo $sql`
yuuji@59 1914 b1='<label> <input type="checkbox" name="usel" value="'
yuuji@153 1915 ba='<label class="admin"><input type="checkbox" name="usel" value="'
yuuji@153 1916 b2='"> <span>' b3='</span></label>'
yuuji@81 1917 tf=$tmpd/title.$$
yuuji@81 1918 echo "グループ[$grp]参加メンバーに対する操作" > $tf
yuuji@153 1919 cmmsg="<div class=\"fold\">
yuuji@153 1920 `cgi_radio rm commission id=\"cmadmin\"` <label
yuuji@153 1921 for=\"cmadmin\">下でチェックした人にグループ管理者委任</label>
yuuji@153 1922 <div><p>このグループでの全権を付与します。信頼できる人に託してください。
yuuji@153 1923 </p></div></div>"
yuuji@117 1924 excmsg="<div class=\"fold\">
yuuji@117 1925 `cgi_radio rm yes ` 下でチェックした人のグループ登録解除
yuuji@117 1926 <div>
yuuji@117 1927 本当に消します! `cgi_checkbox confirm yes` 確認
yuuji@117 1928 <p>この操作による通知は本人に行きません。
yuuji@117 1929 あらかじめ通知するか、登録解除してよい状況かしっかり確認してください。</p>
yuuji@117 1930 </div>
yuuji@117 1931 </div>"
yuuji@59 1932 cgi_form grpaction<<EOF \
yuuji@153 1933 | sed -e "s|^\(<TR><TD>\)k\([0-9]*\),\([^<]*\)|\1$ba\2$b2\3$b3|" \
yuuji@153 1934 -e "s|^\(<TR><TD>\)\([0-9]*\),\([^<]*\)|\1$b1\2$b2\3$b3|" \
yuuji@187 1935 | _m4 -D_TITLE_="spaste(\`$tf')" \
yuuji@187 1936 -D_SUBTITLE_="チェック後操作ボタン" \
yuuji@187 1937 -D_FORM_="syscmd(cat)" -D_DUMPTABLE_="" \
yuuji@187 1938 $layout/form+dump.m4.html
yuuji@59 1939 <div class="fold">
yuuji@59 1940 `cgi_radio rm send id="sendmsg"`<label
yuuji@59 1941 for="sendmsg">下でチェックした人にメッセージを送信する</label>
yuuji@59 1942 <div>
yuuji@59 1943 `cgi_textarea text "" cols=40`
yuuji@59 1944 </div>
yuuji@59 1945 </div>
yuuji@153 1946 ${isowner:+$cmmsg$excmsg}
yuuji@59 1947 <h4>$grp 参加者一覧</h4>
yuuji@59 1948 <table>
yuuji@59 1949 `sq $db -html "$sql"`
yuuji@207 1950 </table>
yuuji@59 1951 `cgi_hidden grp $grid`
yuuji@59 1952 EOF
yuuji@59 1953 }
yuuji@79 1954 editheading() { # $1=rowid-of-heading
yuuji@79 1955 rowid=${1%%[!A-Z0-9a-z_]*}
yuuji@79 1956 if [ -z "$rowid" ]; then
yuuji@79 1957 echo "話題番号が未指定です。" | html p
yuuji@79 1958 return
yuuji@79 1959 fi
yuuji@79 1960 owner=`getvalbyid blog owner $rowid`
yuuji@79 1961 title=`getvalbyid blog title $rowid`
yuuji@121 1962 GF_ACTION="?blog" edittable $formdir/blog.def blog $rowid \
yuuji@187 1963 | _m4 -D_TITLE_="修正" \
yuuji@187 1964 -D_SUBTITLE_="[$title]@$owner" -D_DIARY_="" \
yuuji@187 1965 -D_BLOGS_="" -D_DUMPTABLE_="" \
yuuji@187 1966 -D_FORM_="syscmd(\`cat')" \
yuuji@187 1967 $layout/html.m4.html $layout/form+dump.m4.html
yuuji@79 1968 }
yuuji@79 1969 editart() { # $1=article-rowid $2=blogrowid
yuuji@79 1970 rowid=${1%%[!A-Z0-9a-z_]*}
yuuji@79 1971 blogrowid=${2%%[!A-Z0-9a-z_]*}
yuuji@79 1972 if [ -z "$rowid" -o -z "$blogrowid" ]; then
yuuji@79 1973 echo "表示する記事番号が未指定です。" | html p
yuuji@79 1974 return
yuuji@79 1975 fi
yuuji@79 1976 owner=`getvalbyid blog owner $blogrowid`
yuuji@79 1977 title=`getvalbyid blog title $blogrowid`
yuuji@79 1978 author=`getvalbyid article author $rowid`
yuuji@79 1979 err EDITart: owner=$owner, author=$author
yuuji@79 1980 if isgrpowner $user $owner; then
yuuji@79 1981 : EDIT OK
yuuji@79 1982 elif [ x"$owner" != x"$user" -a x"$author" != x"$user" ]; then
yuuji@79 1983 echo "本人か所有者しか編集できません." | html p
yuuji@79 1984 return
yuuji@79 1985 fi
yuuji@79 1986 aid=`query "select id from article where rowid=$rowid;"`
yuuji@81 1987 tmpout=$tmpd/editart.$$.out
yuuji@81 1988 GF_ACTION="?replyblog+$blogrowid#$aid" \
yuuji@81 1989 edittable $formdir/article.def article $rowid \
yuuji@81 1990 > $tmpout
yuuji@81 1991 rm -f /tmp/editart.out
yuuji@81 1992 # Cannot use pipelining to m4 with genform() because of stdin stack
yuuji@187 1993 _m4 -D_TITLE_="コメントの修正" -D_DIARY_="" \
yuuji@187 1994 -D_FORM_="syscmd(cat $tmpout)" \
yuuji@187 1995 -D_SUBTITLE_="`gecos $owner`の「$title」" \
yuuji@187 1996 -D_BLOGS_= -D_DUMPTABLE_= \
yuuji@187 1997 $layout/html.m4.html $layout/form+dump.m4.html
yuuji@79 1998 }
yuuji@79 1999 send2mem() {
yuuji@26 2000 rowid=`getpar grp`
yuuji@26 2001 if [ -z "$rowid" ]; then
yuuji@61 2002 echo "グループが未指定です。" | html p
yuuji@26 2003 return
yuuji@26 2004 fi
yuuji@26 2005 message=`getpar message`
yuuji@117 2006 if [ -z "$message" ]; then
yuuji@61 2007 echo "文章を入れてください。" | html p
yuuji@26 2008 return
yuuji@26 2009 fi
yuuji@26 2010 grp=`getgroupbyid $rowid`
yuuji@26 2011 members=`collectemail $grp`
yuuji@26 2012 # smail rcpt subj (file)
yuuji@26 2013 smail "$members" "グループ $grp 宛メッセージ(from `gecos $user`)" <<EOF
yuuji@26 2014 $urlbase?grp+$rowid
yuuji@26 2015 グループ $grp に所属する
yuuji@26 2016 `gecos $user` さんよりメッセージ:
yuuji@26 2017
yuuji@26 2018 $message
yuuji@26 2019 EOF
yuuji@26 2020 cat<<EOF
yuuji@26 2021 <p>以下の宛先に送信しました。</p>
yuuji@26 2022 <pre>
yuuji@26 2023 $members
yuuji@26 2024 </pre>
yuuji@26 2025 <p><a href="?grp+$rowid">グループ $grp</a>に戻る。</p>
yuuji@26 2026 EOF
yuuji@26 2027 }
yuuji@117 2028 joingrpadmit() {
yuuji@117 2029 # $1=yes/no $2=session-key
yuuji@117 2030 if [ -z "$2" ]; then
yuuji@117 2031 echo "bye bye" | html p; return
yuuji@117 2032 fi
yuuji@117 2033 t_usr=`session=$2 getpar user`
yuuji@117 2034 t_grp=`session=$2 getpar group`
yuuji@117 2035 err joingrpadmit: t_usr=$t_usr, t_grp=$t_grp
yuuji@187 2036 _m4 -D_TITLE_="joingrp" $layout/html.m4.html
yuuji@117 2037 if [ -z "$t_usr" -o -z "$t_grp" ]; then
yuuji@117 2038 echo "無効な加入依頼です。" | html p
yuuji@117 2039 echo "有効期限が切れたか、
yuuji@117 2040 他の管理者がいる場合は処理済みの可能性があります。" | html p
yuuji@117 2041 return
yuuji@117 2042 fi
yuuji@117 2043 if ! isgrpowner "$user" $t_grp; then
yuuji@117 2044 echo "グループ管理者のみの機能です。" | html p; return
yuuji@117 2045 fi
yuuji@117 2046 case $1 in
yuuji@117 2047 yes) joingrp "$t_grp" "$t_usr" yes "$t_usr" ;;
yuuji@117 2048 no) joingrp "$t_grp" "$t_usr" no "$t_usr" ;;
yuuji@117 2049 *)
yuuji@117 2050 echo "無効な指定です($1)。" | html p
yuuji@117 2051 return ;;
yuuji@117 2052 esac
yuuji@117 2053 gid=$(query "select rowid from grp where gname=`sqlquote $t_grp`;")
yuuji@117 2054 rcpts="`getgroupadminmails $t_grp` $user"
yuuji@117 2055 err admit: msgdir=$msgdir, rcpts="["$rcpts"]"
yuuji@117 2056 body="グループ $t_grp
yuuji@117 2057 に
yuuji@117 2058 $t_usr
yuuji@117 2059 `[ x$1 = xyes ] && echo 'を追加' || echo 'の解除操作を'`
yuuji@117 2060 しました。"
yuuji@117 2061 (echo "$body"; echo; echo "$url?grp+$gid") | smail "$rcpts" "joingrp $1"
yuuji@117 2062 query "delete from session where id='$2';"
yuuji@117 2063 echo "$body" | html p
yuuji@117 2064 }
yuuji@117 2065
yuuji@117 2066 joingrprequest() {
yuuji@117 2067 # $1=group $2=user $3=yes/no $4=email(if any $5=AsAdmin)
yuuji@117 2068 jss="joingrp-`date +%s`-`genrandom 12`"
yuuji@117 2069 addsession $jss +${memoplimitdays}days
yuuji@117 2070 query "replace into par values('$jss', 'group', 'string', `sqlquote $1`),
yuuji@117 2071 ('$jss', 'user', 'string', `sqlquote $user`);"
yuuji@117 2072 smail "$(collectemail `getgroupadmins $1`)" "Join request to $1"<<EOF
yuuji@117 2073 $url
yuuji@117 2074 グループ $1
yuuji@117 2075 に加入依頼がありました。
yuuji@117 2076
yuuji@117 2077 承認する:
yuuji@117 2078 $urlbase?joingrpadmit+yes+$jss
yuuji@117 2079
yuuji@117 2080 白紙に戻す:
yuuji@117 2081 $urlbase?joingrpadmit+no+$jss
yuuji@117 2082 EOF
yuuji@117 2083 echo "管理者に加入依頼を出しました。
yuuji@117 2084 ${memoplimitdays}日以内に加入承認操作がされれば加入できますが、
yuuji@117 2085 グループ運用方針に懸かることですので直接の問い合わせが重要です。" | html p
yuuji@117 2086 }
yuuji@0 2087 joingrp() {
yuuji@13 2088 # $1=group $2=user $3=yes/no $4=email(if any $5=AsAdmin)
yuuji@0 2089 err joingrp: \$1=$1 \$2=$2 \$3=$3 \$4=$4
yuuji@13 2090 isgrpowner "$user" "$1" && isowner="yes" || isowner=""
yuuji@117 2091 err jg:isgrpowner: isowner="$isowner"
yuuji@117 2092 if [ -n "$isowner" ]; then
yuuji@120 2093 : # GROUP OWNER CAN DO EVERYTHING ABOUT REGISTRATION/RETIREMENT
yuuji@117 2094 elif [ x"$2" != x"$user" ]; then # if user is not login user
yuuji@117 2095 echo "本人か、グループ管理者しか加入操作はできません。" | html p
yuuji@117 2096 return
yuuji@117 2097 elif [ x"$3" = x"no" ]; then
yuuji@120 2098 : # Do not pursue those who leave
yuuji@117 2099 else # adding user is $user itself
yuuji@117 2100 case `getgroupattr $1 regmode` in
yuuji@117 2101 moderated)
yuuji@117 2102 joingrprequest "$@" # Request only
yuuji@117 2103 return
yuuji@117 2104 ;;
yuuji@117 2105 *)
yuuji@117 2106 ;;
yuuji@117 2107 esac
yuuji@0 2108 fi
yuuji@33 2109 qgname=`sqlquote $1`
yuuji@33 2110 cond="where gname=$qgname and user='$2'"
yuuji@0 2111 if [ x"$3" = x"yes" ]; then
yuuji@33 2112 query "replace into grp_mem values($qgname, '$2');"
yuuji@0 2113 if [ -n "$4" ]; then
yuuji@0 2114 if msg=`emaildomaincheck "$4"`; then
yuuji@33 2115 err "replace into grp_mem_s values($qgname, '$user', 'email', \
yuuji@0 2116 'string', '$4', NULL);"
yuuji@33 2117 query "replace into grp_mem_s values($qgname, '$user', 'email', \
yuuji@0 2118 'string', '$4', NULL);"
yuuji@13 2119 if [ -n "$5" ]; then # as ADMIN
yuuji@13 2120 # Coming here means newly created group
yuuji@13 2121 sql="select case\
yuuji@33 2122 when (select count(*) from grp_mem where gname=$qgname)=1\
yuuji@13 2123 then (select user from grp_mem\
yuuji@33 2124 where gname=$qgname and user='$user')\
yuuji@13 2125 else '' end;"
yuuji@13 2126 err NewGrpChk: $sql
yuuji@13 2127 if [ -n "`query \"$sql\"`" ]; then
yuuji@33 2128 err ADMIN: "replace into grp_adm values($qgname, '$user');"
yuuji@33 2129 query "replace into grp_adm values($qgname, '$user');"
yuuji@13 2130 fi
yuuji@13 2131 fi
yuuji@0 2132 else
yuuji@0 2133 echo $msg
yuuji@0 2134 fi
yuuji@0 2135 else
yuuji@0 2136 query "delete from grp_mem_s $cond and key='email';"
yuuji@0 2137 fi
yuuji@0 2138 else
yuuji@0 2139 query "delete from grp_mem $cond;
yuuji@0 2140 delete from grp_mem_s $cond;
yuuji@0 2141 delete from grp_mem_m $cond;"
yuuji@0 2142 fi
yuuji@0 2143 }
yuuji@0 2144 grp_reg_adm() {
yuuji@153 2145 # $1=grp-rowid $2...=user-rowid
yuuji@153 2146 grid=$1
yuuji@33 2147 grp=`getgroupbyid "$1"`
yuuji@33 2148 if [ -z "$grp" ]; then
yuuji@61 2149 echo "無効なグループIDです" | html p; return
yuuji@33 2150 fi
yuuji@33 2151 if ! isgrpowner $user "$grp"; then
yuuji@61 2152 echo "$grp グループの管理者しかこの操作はできません。" | html p; return
yuuji@0 2153 fi
yuuji@153 2154 shift
yuuji@153 2155 for urid; do
yuuji@153 2156 newadm=`query "select name from user where rowid=$urid;"`
yuuji@153 2157 if [ -z "$newadm" ]; then
yuuji@153 2158 echo "指定ユーザIDがおかしいようです。" | html p; return
yuuji@0 2159 fi
yuuji@153 2160 err GRP_reg_adm: "replace into grp_adm values(`sqlquote $grp`, '$newadm');"
yuuji@153 2161 err ismember $newadm $grp
yuuji@153 2162 if ismember $newadm $grp; then
yuuji@153 2163 # OK, go ahead
yuuji@153 2164 getgname="(select gname from grp where rowid=$grid)"
yuuji@153 2165 query "replace into grp_adm values($getgname, '$newadm');"
yuuji@153 2166 # confirm insertion
yuuji@153 2167 sql="select * from grp_adm where gname=$getgname and user='$newadm'"
yuuji@153 2168 if [ -n "`query \"$sql;\"`" ]; then
yuuji@153 2169 echo "追加完了: $newadm" | html p
yuuji@153 2170 else
yuuji@153 2171 echo "追加失敗($1 $urid)" | html p
yuuji@153 2172 fi
yuuji@153 2173 fi
yuuji@153 2174 showgroup $grid
yuuji@153 2175 done
yuuji@0 2176 }
yuuji@0 2177 dumptable() {
yuuji@13 2178 # $1=mode $2=Table $3=column-list-of-*_s(defaults to *) $4=conditions(if any)
yuuji@0 2179 # textのフィールドだけ全てダンプにしたほうがいいか
yuuji@0 2180 # $DT_VIEW sets link
yuuji@0 2181 # 6/17の次: editリンクじゃなくてスレッドVIEWリンクでいいんちゃう?
yuuji@0 2182 ### elink="<a href=\"$myname?edittable+$2+\\2\">EDIT</a>"
yuuji@0 2183 VIEW=${DT_VIEW-replyblog}
yuuji@0 2184 if [ -n "$VIEW" ]; then
yuuji@122 2185 dvlink=" <a href=\"$myname?$VIEW+\\2\">VIE</a><a href=\"$myname?$VIEW+\\2#bottom\">W</a>"
yuuji@0 2186 fi
yuuji@0 2187 # $DT_CHLD=ChildTable:BindColumn
yuuji@0 2188 if [ -n "$DT_CHLD" ]; then
yuuji@0 2189 _t=${DT_CHLD%:*} _i=${DT_CHLD#*:}
yuuji@0 2190 cntall="(select count($_i) from $_t where $_i=a.id)"
yuuji@0 2191 cntnew="(select count(val) from ${_t}_s where key='ctime' \
yuuji@0 2192 and id in (select id from $_t where $_i=a.id) \
yuuji@0 2193 and val > coalesce((select time from acclog where \
yuuji@174 2194 user='$user' and tbl='$2' and tblrowid=a.rowid),\
yuuji@0 2195 '1970-01-01'))"
yuuji@60 2196 cnt="$cntnew as '新着', $cntall as '総数',"
yuuji@60 2197 dt_class=" td2r td3r"
yuuji@0 2198 fi
yuuji@0 2199 # Construct join expression
yuuji@0 2200 eav="" scols=""
yuuji@0 2201 pk=`gettblpkey $2`
yuuji@0 2202 substr=${dumpcollen:+"substr(val, 0, $dumpcollen)"}
yuuji@0 2203 substr=${substr:-val}
yuuji@0 2204 for col in ${3:-`gettbl_s_cols $2`}; do
yuuji@13 2205 case $col in
yuuji@60 2206 gecos) scols="$scols${scols:+, }${col#}"
yuuji@60 2207 continue ;; # built-in column name
yuuji@13 2208 *:*) col=${col%:*} as=${col#*:} ;;
yuuji@13 2209 *) as=${col} ;;
yuuji@13 2210 esac
yuuji@13 2211 eav=$eav${eav:+,}" max(case key when '$col' then $substr end) as $as"
yuuji@13 2212 scols="$scols${scols:+, }b.$as"
yuuji@0 2213 done
yuuji@0 2214 #case author when '$user' then a.rowid else '---' end as ID,
yuuji@175 2215 sql=${DT_SQL:-"select \
yuuji@203 2216 a.rowid as LINK,\
yuuji@0 2217 $cnt\
yuuji@60 2218 $scols from $2 a left join\
yuuji@60 2219 (select $pk,$eav,
yuuji@60 2220 max(case key when 'owner'
yuuji@207 2221 then (SELECT gecos FROM gecoses WHERE name=val) END) as gecos
yuuji@175 2222 from ${2}_s c group by $pk) b on a.$pk=b.$pk $4;"}
yuuji@175 2223 err SQL=`echo "$sql"`
yuuji@0 2224 cat<<EOF | sed "s,\(<TR><TD>\)\([1-9][0-9]*\)</TD>,\1$elink$dvlink</TD>,"
yuuji@200 2225 <div> <!-- for folding by check button (s4-funcs.sh:dumptable()) -->
yuuji@0 2226 <div class="dumptable">
yuuji@0 2227 <table class="b$dt_class">
yuuji@0 2228 `sq -header -cmd ".mode $1" $db "$sql"`
yuuji@0 2229 </table>
yuuji@0 2230 </div> <!-- dumptable -->
yuuji@200 2231 </div> <!-- for folding by check button (s4-funcs.sh:dumptable()) -->
yuuji@0 2232 EOF
yuuji@0 2233 }
yuuji@0 2234
yuuji@0 2235 par2table() (
yuuji@0 2236 # copy current parameters of par into destination table
yuuji@0 2237 # $1=definition-file
yuuji@0 2238 # Using $user and $session
yuuji@80 2239 # Return value:
yuuji@80 2240 # 0: Stored successfully
yuuji@80 2241 # 1: Insufficient fillings
yuuji@80 2242 # 2: No permission to modify the record
yuuji@80 2243 # 3: Invalid rowid
yuuji@80 2244 # 4: SUCCESS to delete
yuuji@80 2245 # 5: Stop deletion for lack of confirm check
yuuji@80 2246 # 6: Password length too short
yuuji@80 2247 # 7: Password mismatch
yuuji@80 2248 # 8: Old password incorrect
yuuji@0 2249 rowid=`getpar rowid`
yuuji@8 2250 err ...........rowid=$rowid
yuuji@0 2251 if [ ! -e $1 ]; then
yuuji@61 2252 echo "テーブル定義ファイルが見付かりません" | html p
yuuji@0 2253 exit 1
yuuji@0 2254 fi
yuuji@0 2255 tbl=${1%.def}
yuuji@0 2256 tbl=${tbl##*/}
yuuji@2 2257 if [ -n "$rowid" ]; then # Modify existing entry
yuuji@0 2258 if [ x"$tbl" = x"user" ]; then
yuuji@0 2259 rowowner=`query "select name from $tbl where rowid=$rowid;"`
yuuji@0 2260 elif [ x"$tbl" = x"grp" ]; then
yuuji@13 2261 sql="select gname from $tbl where rowid=$rowid;"
yuuji@13 2262 ##err p2t:grp:q $sql
yuuji@13 2263 isgrpowner $user "`query $sql`" && rowowner=$user
yuuji@0 2264 else
yuuji@0 2265 rowowner=`query "select owner from $tbl where rowid=$rowid;"`
yuuji@0 2266 rowowner=${rowowner:-`query "select author from $tbl
yuuji@0 2267 where rowid=$rowid;"`}
yuuji@0 2268 fi
yuuji@13 2269 ### err rowowner=$rowowner
yuuji@0 2270 if [ x"$user" != x"$rowowner" ]; then
yuuji@61 2271 echo "他人のレコードはいじれないの" | html p
yuuji@80 2272 return 2
yuuji@0 2273 elif [ -z "$rowowner" ]; then
yuuji@61 2274 echo "指定したレコードはないみたい" | html p
yuuji@80 2275 return 3
yuuji@0 2276 fi
yuuji@0 2277 rm=`getpar rm` cfm=`getpar confirm`
yuuji@0 2278 # Editing existent entry
yuuji@0 2279 if [ x"$rm" = x"yes" ]; then
yuuji@0 2280 if [ x"$rm$cfm" = x"yesyes" ]; then
yuuji@0 2281 query "delete from $tbl where rowid=$rowid;"
yuuji@80 2282 return 4
yuuji@0 2283 else
yuuji@61 2284 echo "消去確認のチェックがないので消さなかったの..." | html p
yuuji@80 2285 return 5
yuuji@0 2286 fi
yuuji@0 2287 fi
yuuji@0 2288 fi
yuuji@0 2289 # XX: Subshelling here is unnecessary 2015-07-05
yuuji@113 2290 (ts=${tbl}_s tm=${tbl}_m val="" pval="" formaster=""
yuuji@0 2291 if [ -n "$rowid" ]; then
yuuji@0 2292 # Update of existing record
yuuji@0 2293 for col in `gettblcols $tbl`; do
yuuji@0 2294 val=`getparquote $col`
yuuji@0 2295 [ -z "$val" ] && continue
yuuji@113 2296 err query "update $tbl set $col=$val where rowid=$rowid"
yuuji@180 2297 ## XX: THIS IS DIRTY hack to ensure non-foreign key in blog_s
yuuji@180 2298 sql="update $tbl set $col=$val where rowid=$rowid;"
yuuji@180 2299 if [ x"$tbl" = x"grp" -a x"$col" = x"gname" \
yuuji@180 2300 -o x"tbl" = x"user" -a x"$col" = x"name" ]; then
yuuji@180 2301 ## User name cannot be changed with interface provided with this
yuuji@180 2302 ## script. But we offer the trigger to change owner user
yuuji@180 2303 ## of blog_s table.
yuuji@180 2304 err "select quote($col) from $tbl where rowid=$rowid;"
yuuji@180 2305 old=`query "select quote($col) from $tbl where rowid=$rowid;"`
yuuji@180 2306 cat<<-EOF | query
yuuji@180 2307 BEGIN;
yuuji@180 2308 $sql
yuuji@180 2309 update blog_s set val=$val
yuuji@180 2310 where key='owner' and val=$old;
yuuji@180 2311 COMMIT;
yuuji@180 2312 EOF
yuuji@180 2313 ## XX: DIRTY Hack Ends here
yuuji@180 2314 ## We should keep blog's owner as a single column which has
yuuji@180 2315 ## foreign key constraint with primary key of grp/user.
yuuji@180 2316 else
yuuji@180 2317 query "$sql"
yuuji@180 2318 fi
yuuji@0 2319 done
yuuji@0 2320 # Then, set up $pval for further insertion of tbl_s and tbl_m
yuuji@0 2321 for col in `gettblpkey $tbl`; do
yuuji@0 2322 val=`query "select $col from $tbl where rowid=$rowid;"|sed -e 's/\"/\"\"/g'`
yuuji@0 2323 pval="$pval${pval:+, }\"$val\""
yuuji@0 2324 done
yuuji@0 2325 else
yuuji@0 2326 # New entry
yuuji@0 2327 # Generate values() for primary keys
yuuji@0 2328 for col in `gettblpkey $tbl`; do
yuuji@0 2329 # Genuine primary keys for _m and _s
yuuji@0 2330 val=`getvalquote $tbl $col`
yuuji@0 2331 [ -z "$val" ] && continue
yuuji@0 2332 pval="$pval${pval:+, }$val"
yuuji@0 2333 done
yuuji@0 2334 err pval=$pval
yuuji@0 2335 for col in `gettblfkey $tbl`; do
yuuji@0 2336 # args for values() to insertion into master table
yuuji@0 2337 val=`getvalquote $tbl $col`
yuuji@0 2338 [ -z "$val" ] && continue
yuuji@0 2339 formaster=$formaster"${formaster:+, }$val"
yuuji@0 2340 done
yuuji@0 2341 formaster="$pval${formaster:+, }$formaster"
yuuji@0 2342 err formaster=$formaster
yuuji@0 2343 if [ -z "$formaster" ]; then
yuuji@61 2344 echo "項目を全て埋めてください" | html pre
yuuji@0 2345 return 1
yuuji@0 2346 fi
yuuji@0 2347 err "replace into $tbl values($formaster);"
yuuji@113 2348 query "replace into $tbl values($formaster);"
yuuji@0 2349 ## Insertion to master table, done
yuuji@0 2350 fi
yuuji@0 2351
yuuji@0 2352 for kt in s m; do
yuuji@0 2353 tb2=${tbl}_$kt
yuuji@0 2354 for col in `gettbl_${kt}_cols $tbl`; do
yuuji@0 2355 ptype=`getpartype $col "limit 1"`
yuuji@0 2356
yuuji@0 2357 # First, check update of existing entries in _m
yuuji@0 2358 if [ $kt = m ]; then
yuuji@0 2359 # sessID|address.1.22|string|Somewhere-x.y.z
yuuji@0 2360 sql=""
yuuji@0 2361 err dots from query "select var from par where var like '$col.%';"
yuuji@0 2362 for v in `query "select var from par where var like '$col.%';"`; do
yuuji@0 2363 # v=address.1.22
yuuji@75 2364 st_rowid=${v##*.}
yuuji@0 2365 origcol=${v%%.*} # original column derived from
yuuji@75 2366 err Updating for $v st_rowid=$st_rowid, partype=`getpartype $v`
yuuji@0 2367 ##case `getpartype $v` in
yuuji@0 2368 err CASE `gettbl_coltype $tbl/$origcol` in
yuuji@0 2369 err edit flag = `getpar action.$v`
yuuji@0 2370 case `getpar action.$v` in
yuuji@0 2371 rm)
yuuji@0 2372 if [ x`getpar confirm.$v` = x"yes" ]; then
yuuji@0 2373 newsql="delete from $tb2"
yuuji@0 2374 else
yuuji@61 2375 echo "削除確認未チェック" | html p
yuuji@0 2376 fi ;;
yuuji@0 2377 edit)
yuuji@0 2378 case `gettbl_coltype $tbl/$origcol` in
yuuji@0 2379 image|document|binary)
yuuji@13 2380 file=$tmpd/`getparfilename $v`
yuuji@0 2381 err type=file=$file
yuuji@0 2382 [ -z "$file" ] && continue
yuuji@0 2383 bn=${file##*/}
yuuji@0 2384 bin="X'"$(hexize $file)"'"
yuuji@0 2385 ct=`file --mime-type $file|cut -d' ' -f2`
yuuji@0 2386 type=\"file:$ct\"
yuuji@0 2387 newsql="update $tb2 set val='$bn', type=$type, bin=$bin"
yuuji@75 2388 cachedir=`getcachedir "$tbl/$rowid"`
yuuji@75 2389 err getcache tbl/rowid=$tbl/$rowid, rm -r $cachedir
yuuji@73 2390 rm -r $cachedir
yuuji@0 2391 ;;
yuuji@0 2392 *)
yuuji@0 2393 newsql="update $tb2 set val=(select val from par where var \
yuuji@75 2394 like '$col.%.$st_rowid')"
yuuji@0 2395 ;;
yuuji@0 2396 esac
yuuji@0 2397 ;;
yuuji@124 2398 *) # maybe "keep", do not modify value
yuuji@0 2399 continue
yuuji@0 2400 ;;
yuuji@0 2401 esac
yuuji@124 2402 # err newsql=$newsql
yuuji@75 2403 sql=$sql$nl"$newsql where rowid=$st_rowid;"
yuuji@0 2404 done
yuuji@124 2405
yuuji@124 2406 if [ x"$bin" = x"NULL" ]; then
yuuji@124 2407 err repl:normal sql=`echo $sql`
yuuji@124 2408 query "$sql
yuuji@113 2409 delete from $tb2 where type='string' and val='';"
yuuji@124 2410 err repl:normal done
yuuji@124 2411 else
yuuji@124 2412 sqlfile="$tmpd/sqlf.$$"
yuuji@124 2413 echo "$sql" > $sqlfile
yuuji@124 2414 err repl:sqlfile=`ls -lF $sqlfile`
yuuji@124 2415 query ".read $sqlfile"
yuuji@124 2416 err repl:done
yuuji@124 2417 fi
yuuji@0 2418 # Rest of kt==m: set multiple mode
yuuji@0 2419 nr=`getparcount $col`
yuuji@0 2420 else
yuuji@0 2421 nr=1 # for kt==s, number of records is 1
yuuji@0 2422 fi
yuuji@0 2423
yuuji@0 2424 i=0
yuuji@0 2425 while [ $i -lt $nr ]; do
yuuji@0 2426 limit="limit 1 offset $i"
yuuji@0 2427 i=$((i+1)) # increase beforehand against continue
yuuji@0 2428 val=`getvalquote $tbl $col "$limit"`
yuuji@0 2429 [ -z "$val" -o x"$val" = x'""' -o x"$val" = x"NULL" ] && continue
yuuji@0 2430 err $col=$val
yuuji@0 2431 bin=NULL
yuuji@0 2432 err partype$col=`getpartype $col "$limit"`
yuuji@0 2433 case $ptype in
yuuji@13 2434 file) file=$tmpd/`getparfilename $col "$limit"`
yuuji@0 2435 err parfile-$col=$file
yuuji@0 2436 [ -z "$file" ] && continue
yuuji@0 2437 bin="X'"$(hexize $file)"'"
yuuji@0 2438 ct=`file --mime-type $file|cut -d' ' -f2`
yuuji@0 2439 type=\"file:$ct\" ;;
yuuji@0 2440 "*"*) continue ;; # foreign table
yuuji@0 2441 *) type=\"string\" ;;
yuuji@0 2442 esac
yuuji@0 2443 case `gettbl_coltype $tbl/$col` in
yuuji@0 2444 password) # special care for password
yuuji@0 2445 # name={password,pswd1,pswd2}
yuuji@0 2446 p1=`getpar pswd1 "$limit"`
yuuji@0 2447 if [ -z "$p1" ]; then
yuuji@0 2448 continue # SKIP password setting, if p1 is empty
yuuji@0 2449 else
yuuji@0 2450 pswd=`getpar pswd "$limit"` p2=`getpar pswd2 "$limit"`
yuuji@0 2451 ## err pswd=$pswd
yuuji@0 2452 if pwcheck "$pswd"; then
yuuji@0 2453 if [ x"$p1" = x"$p2" ]; then
yuuji@0 2454 case "$p1" in
yuuji@47 2455 ??????????*) ;;
yuuji@143 2456 *) echo "パスワードは10字以上にしてください。" | html p
yuuji@80 2457 return 6;;
yuuji@0 2458 esac
yuuji@0 2459 val="\"`echo $p1|mypwhash`\""
yuuji@0 2460 else
yuuji@61 2461 echo "2つの新パスワード不一致" | html p
yuuji@80 2462 return 7
yuuji@0 2463 fi
yuuji@0 2464 else
yuuji@61 2465 echo "旧パスワード違います" | html p
yuuji@80 2466 return 8
yuuji@0 2467 fi
yuuji@0 2468 fi
yuuji@0 2469 ;;
yuuji@0 2470 esac
yuuji@118 2471 err p2t: "replace into $tb2 values($pval, \"$col\", $type, $val, bin...);"
yuuji@118 2472 #query "replace into $tb2 values($pval, \"$col\", $type, $val, $bin);"
yuuji@123 2473 sql="replace into $tb2 values($pval, \"$col\", $type, $val, $bin);"
yuuji@123 2474 if [ x"$bin" = x"NULL" ]; then
yuuji@123 2475 err Normal-query: `echo $sql`
yuuji@123 2476 query "$sql"
yuuji@123 2477 else
yuuji@123 2478 sqlfile="$tmpd/query.$$"
yuuji@123 2479 echo "$sql" > $sqlfile
yuuji@124 2480 err sqlfile=`ls -lF $sqlfile`
yuuji@123 2481 query ".read $sqlfile"
yuuji@123 2482 fi
yuuji@118 2483 err p2t done
yuuji@0 2484 done
yuuji@0 2485 done
yuuji@0 2486 done
yuuji@0 2487 return 0
yuuji@0 2488 err donee)
yuuji@0 2489 )
yuuji@0 2490 par2table_old() {
yuuji@0 2491 # copy current parameters of par into destination table
yuuji@0 2492 # $1=dst-table $2=definition-file
yuuji@0 2493 # Using $user and $session
yuuji@0 2494 rowid=`getpar rowid`
yuuji@0 2495 if [ -n "$rowid" ]; then
yuuji@0 2496 rm=`getpar rm` cfm=`getpar confirm`
yuuji@0 2497 if [ x"$rm$cfm" = x"yesyes" ]; then
yuuji@0 2498 sq $db "delete from $1 where rowid=$rowid and owner=\"$user\""
yuuji@0 2499 return
yuuji@0 2500 fi
yuuji@0 2501 fi
yuuji@0 2502 cat $2 \
yuuji@0 2503 | (cols=""
yuuji@0 2504 while IFS=: read prompt name type args; do
yuuji@0 2505 [ x"$name" = x"stage" ] && continue
yuuji@0 2506 if [ -n "$rowid" ]; then
yuuji@0 2507 val=`getpar $name|sed -e 's/\"/\"\"/g'`
yuuji@0 2508 sq $db "update $1 set $name=\"$val\" where rowid=$rowid and owner=\"$user\""
yuuji@0 2509 else
yuuji@0 2510 eav=$eav${eav+,}" max(case var when '$name' then val end)"
yuuji@0 2511 fi
yuuji@0 2512 done
yuuji@0 2513 [ -n "$rowid" ] && return
yuuji@0 2514 cond="where sessid='$session' group by sessid"
yuuji@0 2515 sq $db "replace into $1 select $eav,\"$user\" from par $cond"
yuuji@0 2516 # Think over again about putting $user
yuuji@0 2517 )
yuuji@0 2518 }
yuuji@0 2519 genform() {
yuuji@0 2520 # $1 = form definition file
yuuji@0 2521 # $2, $3 (optional)= table name and ROWID
yuuji@0 2522 # If $GF_VIEWONLY set and nonNull, output values without form
yuuji@0 2523 # If $GF_HIDDEN set, use it hidden values
yuuji@0 2524 # If $GF_OWNER set, use it as value of name="owner"
yuuji@0 2525 # If $GF_STAGE set, use it as value of name="stage"
yuuji@0 2526 forms="" hiddens="" rowid=$3
yuuji@0 2527 if [ ! -e "$1" ]; then
yuuji@61 2528 echo "そのようなデータベースはないようです($2)。" | html p
yuuji@0 2529 return
yuuji@0 2530 elif [ -n "$2" ]; then
yuuji@0 2531 err genform1: "select * from $2 where rowid='$rowid'"
yuuji@0 2532 rec=`query "select * from $2 where rowid='$rowid';"`
yuuji@0 2533 if [ -z "$rec" ]; then
yuuji@0 2534 pk=`gettblpkey $2`
yuuji@0 2535 ###rec=`sq $db "select rowid from $2 where $pk='$rowid'"`
yuuji@0 2536 err "select rowid from $2 where $pk='$rowid';"
yuuji@0 2537 rec=`query "select rowid from $2 where $pk='$rowid';"`
yuuji@0 2538 err rec-rowid=$rec
yuuji@0 2539 rowid=$rec
yuuji@0 2540 rec=$3
yuuji@0 2541 fi
yuuji@0 2542 if [ -z "$rec" ]; then
yuuji@61 2543 echo "そんなレコードはないみたいね..." | html p
yuuji@0 2544 return
yuuji@0 2545 fi
yuuji@0 2546 fi
yuuji@0 2547 if [ -z "$GF_VIEWONLY" ]; then
yuuji@0 2548 rm='<input id="rm" name="rm" type="checkbox"
yuuji@0 2549 value="yes"><label for="rm">このエントリの削除</label>
yuuji@0 2550 <span>ほんとうに消しますよ(確認)!
yuuji@0 2551 <input name="confirm" type=checkbox value="yes">はい</span>'
yuuji@0 2552 fi
yuuji@69 2553 # Image Cache dir
yuuji@77 2554 err genform: getcache=$2/$rowid
yuuji@77 2555 td=`getcachedir "$2/$rowid"`
yuuji@0 2556 while IFS=: read prompt name keytype type args; do
yuuji@0 2557 [ -z "${prompt%%\#*}" ] && continue # skip comment line(#)
yuuji@0 2558 sp="${args:+ }"
yuuji@0 2559 form="" val=""
yuuji@0 2560 if [ -n "$rowid" ]; then
yuuji@141 2561 # err genform2a: Seeking for "$2.$name, type=$type"
yuuji@155 2562 val=`getvalbyid $2 $name $rowid $td|htmlescape`
yuuji@69 2563 err genform3a: getvalbyid $2 $name $rowid $td
yuuji@33 2564 err genform3b: val="[$val]"
yuuji@0 2565 fi
yuuji@0 2566 if [ -n "$GF_VIEWONLY" ]; then
yuuji@0 2567 is_hidden "$2" "$name" && continue
yuuji@0 2568 fi
yuuji@0 2569 case "$type" in
yuuji@0 2570 text*)
yuuji@0 2571 cgiform=cgi_multi_$type
yuuji@141 2572 if [ -s $td/$name.count -a -n "$val" ]; then
yuuji@69 2573 form=`$cgiform $name $td`
yuuji@0 2574 val=$(echo "$val"|
yuuji@0 2575 while read fn; do
yuuji@69 2576 echo "<tr><td>`cat $td/$fn`</td></tr>$nl"
yuuji@0 2577 done)
yuuji@0 2578 val="<table>$nl$val$nl</table>"
yuuji@0 2579 else
yuuji@0 2580 #form="<input name=\"$name\" value=\"$val\" type=\"$type\"$sp$args>$nl"
yuuji@0 2581 err genform: cgi_$type $name $val "$args"
yuuji@0 2582 form=`cgi_$type $name "$val" "$args"`
yuuji@0 2583 fi
yuuji@0 2584 ;;
yuuji@0 2585 [Rr][Aa][Dd][Ii][Oo])
yuuji@100 2586 fh="<label><input type=\"radio\" name=\"$name\""
yuuji@0 2587 form="`echo $args|sed -e \
yuuji@100 2588 \"s,\([^ =][^=]*\)=\([^= ][^= ]*\),$fh value=\\"\2\\">\1</label>,g\"`"
yuuji@100 2589 ;;
yuuji@100 2590 [Cc][Hh][Ee][Cc][Kk][Bb][Oo][Xx])
yuuji@101 2591 form="<label><input type=\"checkbox\" name=\"$name\" value=\"${args#*=}\">${args%=*}</label>"
yuuji@0 2592 ;;
yuuji@0 2593 [Ss][Ee][Ll][Ee][Cc][Tt])
yuuji@0 2594 fh="<select name=\"$name\">$nl"
yuuji@112 2595 form=$(for l in $args; do
yuuji@112 2596 echo "<option value=\"${l#*=}\">${l%=*}</option>"
yuuji@112 2597 done)
yuuji@0 2598 if [ -n "$val" ]; then
yuuji@0 2599 form=`echo $form|sed -e "s,\(value=.$val.\),\\1 selected,"`
yuuji@0 2600 fi
yuuji@0 2601 form="$fh$form</select>"
yuuji@0 2602 ;;
yuuji@0 2603 [Ii][Mm][Aa][Gg][Ee]|[Dd][Oo][Cc][Uu][Mm][Ee][Nn][Tt]|[Bb]inary)
yuuji@69 2604 if [ -s $td/$name.count ]; then
yuuji@69 2605 form=`cgi_multi_file $name $td "$args"`
yuuji@0 2606 if [ -n "$val" ]; then
yuuji@0 2607 hrfb="$myname?showattc+$2_m"
yuuji@0 2608 val=$(echo "$val" \
yuuji@0 2609 | while read fn; do
yuuji@69 2610 data=`percenthex $td/$fn`
yuuji@69 2611 #ct=`cat $td/$fn.content-type`
yuuji@69 2612 ct=`file --mime-type $td/$fn|cut -d' ' -f2`
yuuji@69 2613 ri=`cat $td/$fn.rowid`
yuuji@69 2614 ## err fn=$fn, name=$name, ri=$ri; ls -lF $td 1>&3
yuuji@69 2615 #imgsrc="<img src=\"data:$ct,$data\">"
yuuji@69 2616 #echo "<a href=\"$hrfb+$ri\">$imgsrc</a><br>"
yuuji@69 2617 iconhref $td/$fn "$hrfb+$ri" ""
yuuji@0 2618 done)
yuuji@0 2619 fi
yuuji@0 2620 else
yuuji@0 2621 form="<input type=\"file\" name=\"$name\" $args>"
yuuji@0 2622 if [ -n "$val" ]; then
yuuji@0 2623 imgs=$(echo "$val"\
yuuji@0 2624 |while read fn;do
yuuji@69 2625 data=`percenthex $td/$fn`
yuuji@0 2626 echo "<img src=\"data:image/png,$data\">$fn<br>"
yuuji@0 2627 done)
yuuji@0 2628 form=$form"<br>$imgs"
yuuji@0 2629 val=$imgs # 2015-06-15
yuuji@0 2630 else
yuuji@0 2631 form="<input type=\"file\" name=\"$name\" $args>"
yuuji@0 2632 fi
yuuji@0 2633 fi
yuuji@0 2634 ;;
yuuji@0 2635 [Hh][Ii][Dd][Dd][Ee][Nn])
yuuji@0 2636 if [ -n "$GF_STAGE" -a x"$name" = x"stage" ]; then
yuuji@0 2637 args="value=\"$GF_STAGE\""
yuuji@0 2638 fi
yuuji@0 2639 form="<input type=\"hidden\" name=\"$name\" $args>"
yuuji@0 2640 prompt='' # Remove prompt
yuuji@0 2641 ;;
yuuji@0 2642 [Aa][Uu][Tt][Hh][Oo][Rr])
yuuji@0 2643 form="<input type=\"hidden\" name=\"author\" value=\"$user\">"
yuuji@0 2644 prompt="" ;;
yuuji@0 2645 [Oo][Ww][Nn][Ee][Rr])
yuuji@0 2646 val=${GF_OWNER:-$val}
yuuji@0 2647 val=${val:-$user}
yuuji@0 2648 form="<input type=\"hidden\" name=\"owner\" value=\"$val\">"
yuuji@0 2649 prompt="" ;;
yuuji@0 2650 [Uu][Ss][Ee][Rr])
yuuji@0 2651 # XXX: is null $user ok?
yuuji@0 2652 #form="<input type=\"hidden\" name=\"user\" value=\"$user\">"
yuuji@0 2653 [ -n "$GF_VIEWONLY" ] && continue
yuuji@0 2654 form="$user"
yuuji@0 2655 ;;
yuuji@0 2656 [Pp]assword)
yuuji@0 2657 [ -n "$GF_VIEWONLY" ] && continue
yuuji@0 2658 form="`cgi_passwd`"
yuuji@0 2659 val=""
yuuji@0 2660 ;;
yuuji@0 2661 [Ss][Ee][Rr][Ii][Aa][Ll]|[Ss][Tt][Aa][Mm][Pp])
yuuji@127 2662 if [ -z "$rowid" ]; then
yuuji@127 2663 val=$((($(date +%s)-1433084400)/10))c$$
yuuji@127 2664 fi
yuuji@67 2665 ## form="<input type=\"hidden\" name=\"serial\" value=\"$val\">"
yuuji@67 2666 ## 2015-07-31
yuuji@67 2667 form="<input type=\"hidden\" name=\"$name\" value=\"$val\">"
yuuji@0 2668 prompt="" ;;
yuuji@0 2669 [Ss][Ee][Ss][Ss][Ii][Oo][Nn])
yuuji@0 2670 prompt=""
yuuji@0 2671 ;;
yuuji@0 2672 parent|path|blog*)
yuuji@0 2673 prompt=""
yuuji@0 2674 ;;
yuuji@0 2675 "*"*)
yuuji@0 2676 tail=$tail"``"
yuuji@0 2677 continue ;;
yuuji@0 2678 esac
yuuji@0 2679 if [ -n "$prompt" ]; then
yuuji@0 2680 if [ -n "${GF_VIEWONLY}" ]; then
yuuji@0 2681 form=$val
yuuji@0 2682 else
yuuji@0 2683 :
yuuji@0 2684 fi
yuuji@0 2685 forms=$forms" <tr class=\"$name\"><th>$prompt</th><td>$form</td></tr>$nl"
yuuji@0 2686 else
yuuji@0 2687 hiddens=$hiddens$nl"$form"
yuuji@0 2688 fi
yuuji@0 2689 done < $1
yuuji@0 2690 # enctype="multipart/form-data"
yuuji@0 2691 cat<<EOF
yuuji@0 2692 <form action="${GF_ACTION:-$myname}" method="POST" enctype="multipart/form-data">
yuuji@0 2693 ${rowid:+$rm}
yuuji@0 2694 <table class="b $2">
yuuji@0 2695 $forms
yuuji@0 2696 </table>$hiddens
yuuji@13 2697 ${GF_STAGE:+`cgi_hidden stage $GF_STAGE`}
yuuji@8 2698 ${rowid:+<input type="hidden" name="rowid" value="$rowid">}
yuuji@0 2699 EOF
yuuji@0 2700 if [ -z $GF_VIEWONLY ]; then
yuuji@0 2701 cat<<EOF
yuuji@0 2702 <input type="submit" name="sub" value="OK">
yuuji@0 2703 <input type="reset" name="res" value="Reset">
yuuji@0 2704 EOF
yuuji@0 2705 fi
yuuji@0 2706 cat<<EOF
yuuji@0 2707 </form>
yuuji@0 2708 $tail
yuuji@0 2709 EOF
yuuji@0 2710 }
yuuji@0 2711 edittable() {
yuuji@0 2712 # $1=form-def $2=table $3 rowid
yuuji@0 2713 genform "$@"
yuuji@0 2714 }
yuuji@0 2715 viewtable() {
yuuji@0 2716 GF_VIEWONLY=1 genform "$@"
yuuji@0 2717 }
yuuji@68 2718 showattc() {
yuuji@71 2719 # $1=table_m $2=rowid
yuuji@71 2720 err \$1=$1 \$2=$2
yuuji@68 2721 if ! isfilereadable $user $1 $2; then
yuuji@68 2722 contenttype; echo
yuuji@68 2723 echo "このファイルは管理者のみしか見られません" | html p
yuuji@68 2724 putfooter; exit
yuuji@68 2725 fi
yuuji@68 2726 idir=`umask 002; mktempd` || exit 1
yuuji@68 2727 # tmpfiles=$tmpfiles"${tmpfiles+ }$idir"
yuuji@68 2728 bin=$idir/$myname-$$.bin
yuuji@68 2729 sql="select quote(bin) from $1 where rowid='$2';"
yuuji@69 2730 err showattc: sql: $sql
yuuji@68 2731 sq $db "$sql" | unhexize > $bin
yuuji@68 2732 tv=`query "select type,val from $1 where rowid='$2';"`
yuuji@68 2733 type=${tv%\|*} fn=${tv#*\|}
yuuji@68 2734 err tv=$tv type=$type fn=$fn, tp2=${tv%\|*}
yuuji@68 2735 ct=${type#file:}
yuuji@68 2736 case $ct in # all text/* changed to text/plain
yuuji@68 2737 text/*)
yuuji@68 2738 charset=`nkf -g $bin|cut -d' ' -f1`
yuuji@68 2739 case $charset in
yuuji@68 2740 ASCII*) charset="" ;;
yuuji@68 2741 esac
yuuji@68 2742 ct="text/plain${charset:+; charset=$charset}"
yuuji@68 2743 ;;
yuuji@68 2744 esac
yuuji@68 2745 contenttype "$ct"
yuuji@68 2746 echo "Content-Disposition: filename=\"$fn\""
yuuji@68 2747 echo "Content-Length: " `cat $bin | wc -c`; echo
yuuji@68 2748 #echo "Content-Type: " ${type#file:}; echo
yuuji@68 2749 cat $bin
yuuji@68 2750 }
yuuji@78 2751 #
yuuji@78 2752 # Some default stupid handler on CGI values
yuuji@78 2753 #
yuuji@78 2754 default_storedb() {
yuuji@78 2755 # ARG: $1=table-def-file
yuuji@78 2756 # RET: $tbl=table-name, $col=mail-column, $cols=columns
yuuji@78 2757 tbl=`basename $1`
yuuji@78 2758 tbl=${tbl%.def}
yuuji@78 2759 cols="`grep :text $1|cut -d: -f2`"
yuuji@78 2760 col=`echo "$cols"|head -1`
yuuji@78 2761 vcol=`getpar $col`
yuuji@78 2762 err default0: \$1=$1 col=$col cols="[$cols]" vcol=$vcol
yuuji@78 2763 if [ -n "$vcol" ]; then
yuuji@78 2764 par2table $1
yuuji@78 2765 else
yuuji@78 2766 return 2 # No insertion occurred
yuuji@78 2767 fi
yuuji@78 2768 }
yuuji@78 2769
yuuji@78 2770 default_view() { # $1=def-file
yuuji@78 2771 ### DT_VIEW="edittable+$tbl" dumptable html $tbl "$cols" \
yuuji@78 2772 ## DT_VIEW="edittable+$tbl" dumptable html $tbl "name memo file" \
yuuji@78 2773 default_storedb "$@"
yuuji@78 2774 query "select rowid from $tbl order by rowid desc;" \
yuuji@78 2775 | while read rowid; do
yuuji@78 2776 viewtable $1 $tbl $rowid
yuuji@187 2777 done | _m4 -D_TITLE_="$tbl" \
yuuji@187 2778 -D_FORM_="`genform $1`" \
yuuji@187 2779 -D_DUMPTABLE_="syscmd(cat)" \
yuuji@187 2780 $layout/html.m4.html $layout/form+dump.m4.html
yuuji@78 2781 }
yuuji@78 2782 default_viewtext() { # $1=def-file
yuuji@78 2783 ### DT_VIEW="edittable+$tbl" dumptable html $tbl "$cols" \
yuuji@78 2784 default_storedb "$@"
yuuji@78 2785 DT_VIEW="viewtable+$tbl" dumptable html $tbl "name memo file" \
yuuji@187 2786 | _m4 -D_TITLE_="$tbl" \
yuuji@187 2787 -D_FORM_="`genform $1`" \
yuuji@187 2788 -D_DUMPTABLE_="syscmd(cat)" \
yuuji@187 2789 $layout/html.m4.html $layout/form+dump.m4.html
yuuji@78 2790 }
yuuji@78 2791 default_smail() {
yuuji@78 2792 default_storedb "$@"
yuuji@78 2793 if [ $? -eq 2 ]; then
yuuji@187 2794 _m4 -D_TITLE_="入力" \
yuuji@187 2795 -D_FORM_="`genform $1`" \
yuuji@187 2796 -D_DUMPTABLE_="" \
yuuji@187 2797 $layout/html.m4.html $layout/form+dump.m4.html
yuuji@78 2798 return
yuuji@78 2799 fi
yuuji@78 2800 cond=""
yuuji@78 2801 for pk in `gettblpkey $tbl`; do
yuuji@78 2802 pv=$(sqlquote $(getpar $pk))
yuuji@78 2803 cond="$cond${cond:+ and }$pk=$pv"
yuuji@78 2804 done
yuuji@78 2805 sql="select rowid from $tbl where $cond;"
yuuji@78 2806 rowid=`query "$sql"`
yuuji@78 2807 err smail1 - "$sql" "-> rowid=$rowid"
yuuji@78 2808
yuuji@78 2809 while IFS=: read prompt name keytype type args; do # Read from $1
yuuji@78 2810 val=`getpar $name`
yuuji@78 2811 if [ -n "$val" ]; then
yuuji@78 2812 text="$text
yuuji@78 2813 $prompt
yuuji@78 2814 $name=$val
yuuji@78 2815 ---------------------------------------------------------"
yuuji@78 2816 fi
yuuji@78 2817 case "$type" in
yuuji@78 2818 image|document|file)
yuuji@78 2819 fn="`getvalbyid $tbl $name $rowid $tmpd`"
yuuji@78 2820 fns=$(echo "$fn"|while read fn; do
yuuji@78 2821 err mv $tmpd/$fn.orig $tmpd/$fn
yuuji@78 2822 mv $tmpd/$fn.orig $tmpd/$fn
yuuji@78 2823 rm $tmpd/$fn.rowid # Remove cache flag
yuuji@78 2824 err "`ls $tmpd/$fn`"
yuuji@78 2825 echo $fn
yuuji@78 2826 done)
yuuji@78 2827 files="$files $fns"
yuuji@78 2828 ;;
yuuji@78 2829 esac
yuuji@78 2830 done < $1
yuuji@78 2831 err FILES=$files "`ls -lF $tmpd`"
yuuji@78 2832 subj="from ${REMOTE_ADDR}"
yuuji@102 2833 (echo "$url"
yuuji@78 2834 echo "への書き込みがありました。"
yuuji@78 2835 echo "------"
yuuji@78 2836 echo "$text"
yuuji@78 2837 ) | (cd $tmpd &&
yuuji@78 2838 err LS="`ls -lF`" &&
yuuji@78 2839 $mydir/sendmultipart.sh -t "$admin" -s "$subj" $files)
yuuji@187 2840 _m4 -D_TITLE_="入力完了" $layout/html.m4.html
yuuji@78 2841 echo "以下の内容で送信しました。" | html p
yuuji@78 2842 viewtable $1 $tbl \
yuuji@78 2843 `query "select rowid from $tbl order by rowid desc limit 1;"`
yuuji@78 2844 echo "戻る" | html a "href=\"?\""
yuuji@78 2845 }