s4
changeset 118:45d1b0f09e48
grpaction is limited to its member
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Tue, 04 Aug 2015 23:16:23 +0900 |
parents | 82e215e75468 |
children | 0d613e71c32b |
files | s4-funcs.sh |
diffstat | 1 files changed, 13 insertions(+), 4 deletions(-) [+] |
line diff
1.1 --- a/s4-funcs.sh Tue Aug 04 22:54:33 2015 +0900 1.2 +++ b/s4-funcs.sh Tue Aug 04 23:16:23 2015 +0900 1.3 @@ -290,6 +290,10 @@ 1.4 # ./args.rb -cmd ".timeout 3000" "$@" 1.5 sqlite3 -cmd 'PRAGMA foreign_keys=ON' -cmd ".timeout 3000" "$@" 1.6 } 1.7 +querycat() { 1.8 + cat $sqo & 1.9 + (echo .once $sqo; cat) > $sqi 1.10 +} 1.11 query() { 1.12 cat<<EOF > $sqi 1.13 .once $sqo 1.14 @@ -1648,8 +1652,10 @@ 1.15 grid=${1:-`getpar grp`} 1.16 grp=`getgroupbyid "$grid"` 1.17 if [ -z "$grp" ]; then 1.18 - echo "無効な指定です。" | html p 1.19 - return 1.20 + echo "無効な指定です。" | html p; return 1.21 + fi 1.22 + if ! ismember $user $grp; then 1.23 + echo "加入者のみに許可された操作です。" | html p; return 1.24 fi 1.25 echo "グループ $grp 個別選択操作" \ 1.26 | m4 -D_TITLE_="syscmd(\`cat')" $layout/html.m4.html 1.27 @@ -2247,8 +2253,11 @@ 1.28 fi 1.29 ;; 1.30 esac 1.31 -## err p2t: "replace into $tb2 values($pval, \"$col\", $type, $val, $bin);" 1.32 - query "replace into $tb2 values($pval, \"$col\", $type, $val, $bin);" 1.33 + err p2t: "replace into $tb2 values($pval, \"$col\", $type, $val, bin...);" 1.34 + #query "replace into $tb2 values($pval, \"$col\", $type, $val, $bin);" 1.35 + echo "replace into $tb2 values($pval, \"$col\", $type, $val, $bin);" \ 1.36 + | querycat 1.37 + err p2t done 1.38 done 1.39 done 1.40 done