$tn

$\"$title\"$ $@

`cgi_checkbox reg yes id="reg"`$grp]参加メンバーに対する操作" > $tf cmmsg="`cgi_radio rm commission id=\"cmadmin\"` @@ -2523,7 +2513,7 @@ ########## TRANSACTION BEGIN query "BEGIN;" n=`query "SELECT count(*) FROM writeusers;"` - err Nwriteuser=$n + ## err Nwriteuser=$n if [ $((n)) -gt 0 ]; then query<<-EOF UPDATE blog_s SET val=(SELECT gname FROM grp WHERE rowid=$mv2grp) @@ -2571,7 +2561,7 @@ owner=`getvalbyid blog owner $blogrowid` title=`getvalbyid blog title $blogrowid` author=`getvalbyid article author $rowid` - err EDITart: owner=$owner, author=$author + ## err EDITart: owner=$owner, author=$author if isgrpowner $user $owner; then : EDIT OK elif [ x"$owner" != x"$user" -a x"$author" != x"$user" ]; then @@ -2627,7 +2617,7 @@ fi t_usr=`session=$2 getpar user` t_grp=`session=$2 getpar group` - err joingrpadmit: t_usr=$t_usr, t_grp=$t_grp + ## err joingrpadmit: t_usr=$t_usr, t_grp=$t_grp _m4 -D_TITLE_="joingrp" $layout/html.m4.html if [ -z "$t_usr" -o -z "$t_grp" ]; then echo "無効な加入依頼です。" | html p @@ -2647,7 +2637,7 @@ esac gid=$(query "select rowid from grp where gname=`sqlquote $t_grp`;") rcpts="`getgroupadminmails $t_grp` $user" - err admit: msgdir=$msgdir, rcpts="["$rcpts"]" + ## err admit: msgdir=$msgdir, rcpts="["$rcpts"]" body="グループ $t_grp に $t_usr @@ -2682,7 +2672,7 @@ } joingrp() { # $1=group $2=user $3=yes/no $4=email(if any $5=AsAdmin) - err joingrp: \$1=$1 \$2=$2 \$3=$3 \$4=$4 + ## err joingrp: \$1=$1 \$2=$2 \$3=$3 \$4=$4 if isgrpowner "$user" "$1"; then isowner="yes" elif [ -n "$5" ]; then @@ -2690,7 +2680,7 @@ else isowner="" fi - err jg:isgrpowner: isowner="$isowner" + ## err jg:isgrpowner: isowner="$isowner" if [ -n "$isowner" ]; then : # GROUP OWNER CAN DO EVERYTHING ABOUT REGISTRATION/RETIREMENT elif [ x"$2" != x"$user" ]; then # if user is not login user @@ -2716,8 +2706,6 @@ query "replace into grp_mem values($qgname, '$2');" if [ -n "$4" ]; then if msg=`emaildomaincheck "$4"`; then -err "replace into grp_mem_s values($qgname, '$user', 'email', \ - 'string', '$4', NULL);" query "replace into grp_mem_s values($qgname, '$user', 'email', \ 'string', '$4', NULL);" else @@ -2735,7 +2723,7 @@ else '' end; " err NewGrpChk: $sql if [ -n "`query \"$sql\"`" ]; then - err ADMIN: "replace into grp_adm values($qgname, '$user');" + ## err ADMIN: "replace into grp_adm values($qgname, '$user');" query "replace into grp_adm values($qgname, '$user');" fi fi @@ -2872,7 +2860,7 @@ max(case key when 'owner' then (SELECT gecos FROM gecoses WHERE name=val) END) as gecos from ${2}_s c group by $pk) b on a.$pk=b.$pk $4;"} - err SQL="`echo \"$presql$sql\"|tr -d '\n'`" + err dt:SQL="`echo \"$presql$sql\"|tr -d '\n'`" cat<

@@ -2899,7 +2887,6 @@ # 7: Password mismatch # 8: Old password incorrect rowid=`getpar rowid` -err ...........rowid=$rowid if [ ! -e $1 ]; then echo "テーブル定義ファイルが見付かりません" | html p exit 1 @@ -2945,7 +2932,7 @@ for col in `gettblcols $tbl`; do val=`getparquote $col` [ -z "$val" ] && continue - err query "update $tbl set $col=$val where rowid=$rowid" + ## err query "update $tbl set $col=$val where rowid=$rowid" ## XX: THIS IS DIRTY hack to ensure non-foreign key in blog_s sql="update $tbl set $col=$val where rowid=$rowid;" if [ x"$tbl" = x"grp" -a x"$col" = x"gname" \ @@ -2953,7 +2940,7 @@ ## User name cannot be changed with interface provided with this ## script. But we offer the trigger to change owner user ## of blog_s table. - err "select quote($col) from $tbl where rowid=$rowid;" + #err "select quote($col) from $tbl where rowid=$rowid;" old=`query "select quote($col) from $tbl where rowid=$rowid;"` cat<<-EOF | query BEGIN; @@ -2983,7 +2970,7 @@ [ -z "$val" ] && continue pval="$pval${pval:+, }$val" done -err pval=$pval +##err pval=$pval for col in `gettblfkey $tbl`; do # args for values() to insertion into master table val=`getvalquote $tbl $col` @@ -2991,12 +2978,12 @@ formaster=$formaster"${formaster:+, }$val" done formaster="$pval${formaster:+, }$formaster" -err formaster=$formaster +## err formaster=$formaster if [ -z "$formaster" ]; then echo "項目を全て埋めてください" | html pre return 1 fi - err "replace into $tbl values($formaster);" + ## err "replace into $tbl values($formaster);" query "replace into $tbl values($formaster);" ## Insertion to master table, done fi @@ -3010,15 +2997,15 @@ if [ $kt = m ]; then # sessID|address.1.22|string|Somewhere-x.y.z sql="" -err dots from query "select var from par where var like '$col.%';" +##err dots from query "select var from par where var like '$col.%';" for v in `query "select var from par where var like '$col.%';"`; do # v=address.1.22 st_rowid=${v##*.} origcol=${v%%.*} # original column derived from -err Updating for $v st_rowid=$st_rowid, partype=`getpartype $v` +##err Updating for $v st_rowid=$st_rowid, partype=`getpartype $v` ##case `getpartype $v` in - err CASE `gettbl_coltype $tbl/$origcol` in - err edit flag = `getpar action.$v` + ## err CASE `gettbl_coltype $tbl/$origcol` in + ## err edit flag = `getpar action.$v` case `getpar action.$v` in rm) if [ x`getpar confirm.$v` = x"yes" ]; then @@ -3030,7 +3017,7 @@ case `gettbl_coltype $tbl/$origcol` in image|document|binary) file=$tmpd/`getparfilename $v` - err type=file=$file + ## err type=file=$file [ -z "$file" ] && continue bn=`sqlquotestr "${file##*/}"` bin="X'"$(hexize "$file")"'" @@ -3056,16 +3043,16 @@ done if [ x"$bin" = x"NULL" ]; then - err repl:normal sql=`echo $sql` + ## err repl:normal sql=`echo $sql` query "$sql delete from $tb2 where type='string' and val='';" - err repl:normal done + ## err repl:normal done else sqlfile="$tmpd/sqlf.$$" echo "$sql" > $sqlfile - err repl:sqlfile=`ls -lF $sqlfile` + ## err repl:sqlfile=`ls -lF $sqlfile` query ".read $sqlfile" - err repl:done + ## err repl:done fi # Rest of kt==m: set multiple mode nr=`getparcount $col` @@ -3079,12 +3066,12 @@ i=$((i+1)) # increase beforehand against continue val=`getvalquote $tbl $col "$limit"` [ -z "$val" -o x"$val" = x'""' -o x"$val" = x"NULL" ] && continue -err $col=$val - bin=NULL -err partype$col=`getpartype $col "$limit"` + ## err $col=$val + bin=NULL + ## err partype$col=`getpartype $col "$limit"` case $ptype in file) file=$tmpd/`getparfilename $col "$limit"` -err parfile-$col=$file + ## err parfile-$col=$file [ -z "$file" ] && continue bin="X'"$(hexize "$file")"'" ct=`file --mime-type - < "$file"|cut -d' ' -f2` @@ -3120,19 +3107,19 @@ fi ;; esac - err p2t: "replace into $tb2 values($pval, \"$col\", $type, $val, bin...);" + ## err p2t: "replace into $tb2 values($pval, \"$col\", $type, $val, bin...);" #query "replace into $tb2 values($pval, \"$col\", $type, $val, $bin);" sql="replace into $tb2 values($pval, \"$col\", $type, $val, $bin);" if [ x"$bin" = x"NULL" ]; then - err Normal-query: `echo $sql` + ## err Normal-query: `echo $sql` query "$sql" else sqlfile="$tmpd/query.$$" echo "$sql" > $sqlfile - err sqlfile=`ls -lF $sqlfile` + ## err sqlfile=`ls -lF $sqlfile` query ".read $sqlfile" fi - err p2t done + ## err p2t done done done done @@ -3151,14 +3138,11 @@ echo "そのようなデータベースはないようです($2)。" | html p return elif [ -n "$2" ]; then -err genform1: "select * from $2 where rowid='$rowid'" rec=`query "select * from $2 where rowid='$rowid';"` if [ -z "$rec" ]; then pk=`gettblpkey $2` ###rec=`sq $db "select rowid from $2 where $pk='$rowid'"` -err "select rowid from $2 where $pk='$rowid';" rec=`query "select rowid from $2 where $pk='$rowid';"` -err rec-rowid=$rec rowid=$rec rec=$3 fi @@ -3174,7 +3158,7 @@ はい' fi # Image Cache dir - err genform: getcache=$2/$rowid + ## err genform: getcache=$2/$rowid td=`getcachedir "$2/$rowid"` while IFS=: read prompt name keytype type args; do [ -z "${prompt%%\#*}" ] && continue # skip comment line(#) @@ -3184,8 +3168,8 @@ # err genform2a: Seeking for "$2.$name, type=$type" rawval=`getvalbyid $2 $name $rowid $td` val=`echo "$rawval"|htmlescape` -err genform3a: getvalbyid $2 $name $rowid $td -err genform3b: val="[$val]" type="$type" +## err genform3a: getvalbyid $2 $name $rowid $td +## err genform3b: val="[$val]" type="$type" fi if [ -n "$GF_VIEWONLY" ]; then is_hidden "$2" "$name" && continue @@ -3203,7 +3187,6 @@ val="

\)$[1-9][0-9]*$$#[0-9a-fxs]*$*

$imgsrc

招待済みで加入待ちのアドレス

$tn