s4

annotate s4-funcs.sh @ 124:9742dbee5cba

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