Mercurial > hgrepos > hgweb.cgi > s4

annotate s4-funcs.sh @ 897:3d437261edca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove "," from gecos name of email
author HIROSE Yuuji <yuuji@gentei.org>
date Thu, 31 Dec 2020 10:31:13 +0900
parents 920818b41cd2
children 5acef432b1de
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1 #!/bin/sh
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2 # Here's global variable table. Do not use this names.
1
HIROSE Yuuji <yuuji@gentei.org>
parents: 0
diff changeset
3 # $HGid$
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
4
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
5 [ -f s4-config.sh ] && . ./s4-config.sh
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
6
771
b97f1c84bdb1 New script s4-newworld supports NewWorld creation
HIROSE Yuuji <yuuji@gentei.org>
parents: 770
diff changeset
7 test -n "$HTTP_HOST" && isCGI=true || isCGI=false
757
2d45b0478d45 s4-funcs.sh stay callable from command line
HIROSE Yuuji <yuuji@gentei.org>
parents: 756
diff changeset
8 if $isCGI; then
767
2cff065862fd Initialization of DB location fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 765
diff changeset
9 case "$SCRIPT_NAME" in
757
2d45b0478d45 s4-funcs.sh stay callable from command line
HIROSE Yuuji <yuuji@gentei.org>
parents: 756
diff changeset
10 *-world-*)
767
2cff065862fd Initialization of DB location fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 765
diff changeset
11 S4WORLD=${SCRIPT_NAME#*world-}
757
2d45b0478d45 s4-funcs.sh stay callable from command line
HIROSE Yuuji <yuuji@gentei.org>
parents: 756
diff changeset
12 S4WORLD=${S4WORLD%.*}
2d45b0478d45 s4-funcs.sh stay callable from command line
HIROSE Yuuji <yuuji@gentei.org>
parents: 756
diff changeset
13 echo S4WORLD=$S4WORLD >&2
2d45b0478d45 s4-funcs.sh stay callable from command line
HIROSE Yuuji <yuuji@gentei.org>
parents: 756
diff changeset
14 worldconf=s4-config-${S4WORLD}.sh
2d45b0478d45 s4-funcs.sh stay callable from command line
HIROSE Yuuji <yuuji@gentei.org>
parents: 756
diff changeset
15 ;;
786
809caeb20758 Migration caller set arguments beforehand
HIROSE Yuuji <yuuji@gentei.org>
parents: 781
diff changeset
16 *)
809caeb20758 Migration caller set arguments beforehand
HIROSE Yuuji <yuuji@gentei.org>
parents: 781
diff changeset
17 worldconf=s4-config.sh
809caeb20758 Migration caller set arguments beforehand
HIROSE Yuuji <yuuji@gentei.org>
parents: 781
diff changeset
18 ;;
757
2d45b0478d45 s4-funcs.sh stay callable from command line
HIROSE Yuuji <yuuji@gentei.org>
parents: 756
diff changeset
19 esac
2d45b0478d45 s4-funcs.sh stay callable from command line
HIROSE Yuuji <yuuji@gentei.org>
parents: 756
diff changeset
20 echo worldconf=$worldconf >&2
2d45b0478d45 s4-funcs.sh stay callable from command line
HIROSE Yuuji <yuuji@gentei.org>
parents: 756
diff changeset
21 [ -n "$worldconf" -a -e "$worldconf" ] && . ./$worldconf
2d45b0478d45 s4-funcs.sh stay callable from command line
HIROSE Yuuji <yuuji@gentei.org>
parents: 756
diff changeset
22 echo DB=$DB >&2
2d45b0478d45 s4-funcs.sh stay callable from command line
HIROSE Yuuji <yuuji@gentei.org>
parents: 756
diff changeset
23 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
24 myname=`basename ${SCRIPT_NAME:-$0}`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
25 mydir=`dirname ${SCRIPT_FILENAME:-$0}`
771
b97f1c84bdb1 New script s4-newworld supports NewWorld creation
HIROSE Yuuji <yuuji@gentei.org>
parents: 770
diff changeset
26 cgiext=${CGIEXT:-.cgi}
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
27 myargs="$@"
8
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
28 PATH=/usr/local/sqlite3/bin:/usr/local/vim7/bin:/usr/iekei/ImageMagick/bin:/usr/local/ImageMagick/bin:$PATH
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
29 tmpdir=${TMPDIR:-tmp}
2
7aa52f9874ae .hgignore added
HIROSE Yuuji <yuuji@gentei.org>
parents: 1
diff changeset
30 dbdir=${DBDIR:-db}
798
91016ff5edb3 Gather logs of all worlds into master logfile
HIROSE Yuuji <yuuji@gentei.org>
parents: 797
diff changeset
31 logdir=${LOGDIR:-tmp}
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
32 tmpfiles=""
798
91016ff5edb3 Gather logs of all worlds into master logfile
HIROSE Yuuji <yuuji@gentei.org>
parents: 797
diff changeset
33 querylog=${QUERYLOG:-$logdir/query.log}
91016ff5edb3 Gather logs of all worlds into master logfile
HIROSE Yuuji <yuuji@gentei.org>
parents: 797
diff changeset
34 searchlog=${SEARCHLOG:-$logdir/search.log}
825
e9817a71f332 List groups in other worlds
HIROSE Yuuji <yuuji@gentei.org>
parents: 817
diff changeset
35 defaultdb=$dbdir/cgi.sq3
e9817a71f332 List groups in other worlds
HIROSE Yuuji <yuuji@gentei.org>
parents: 817
diff changeset
36 db=${DB:-$defaultdb}
767
2cff065862fd Initialization of DB location fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 765
diff changeset
37 sessdb=${SESSDB:-$dbdir/sess.sq3}
752
c22e71dc8d9b Base of annex feature added
HIROSE Yuuji <yuuji@gentei.org>
parents: 732
diff changeset
38 userupdateflag=$dbdir/userupdate
688
1aa16edc28e5 Partial Committing Starts:
HIROSE Yuuji <yuuji@gentei.org>
parents: 687
diff changeset
39 sesstb=tmp.sess
614
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
40 workdb=$dbdir/tmpdata.sq3
610
dfd83a6d09fb Label fixed and local value loading introduced
HIROSE Yuuji <yuuji@gentei.org>
parents: 609
diff changeset
41 listentlimit=${LISTENTLIMIT:-30}
801
d368b937956e Limit the number of articles to show by default
HIROSE Yuuji <yuuji@gentei.org>
parents: 775
diff changeset
42 listartlimit=${LISTARTLIMIT:-50}
83
815840076efa Directory structure refreshed
HIROSE Yuuji <yuuji@gentei.org>
parents: 81
diff changeset
43 admin=${ADMIN:-hostmaster@example.org}
613
51e0cc07a79a Make NO-REPLY address for direct message to avoid miscommunication
HIROSE Yuuji <yuuji@gentei.org>
parents: 612
diff changeset
44 noreply=${NOREPLY:-noreply@example.org}
622
5f1d4bbf9dea smail_queue frequency control
HIROSE Yuuji <yuuji@gentei.org>
parents: 614
diff changeset
45 noreply_from="${S4NAME:-s4} message notification <$noreply>"
624
64c84bc00700 Invatation policy displayed in invitation page
HIROSE Yuuji <yuuji@gentei.org>
parents: 622
diff changeset
46 invite_policy=${INVITE_POLICY:-"このコミュニティに関りのあるあなたの信頼できる人を招きます。"}
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
47 templ=${TEMPL:-templ}
67
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
48 layout=${LAYOUT:-$templ/default}
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
49 formdir=${FORMDIR:-$templ/form}
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
50 imgdir=${IMGDIR:-img}
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
51 url=${URL:-"${REQUEST_SCHEME:-http${HTTPS:+s}}://$HTTP_HOST$REQUEST_URI"}
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
52 urlbase=${url%%\?*}
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
53 msgdir=$templ/msg
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
54 timeout="+2 days"
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
55 memoplimitdays="7"
252
75dfaceac01f Link to newest article of the blog in the recent writing place
HIROSE Yuuji <yuuji@gentei.org>
parents: 251
diff changeset
56 dumpcollen=22
67
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
57 #thumbxy=120x120
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
58 thumbxy=96x96
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
59 iconxy_S=80x80
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
60 iconxy_M=400x400
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
61 maximagexy=1600x1600
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
62 ### maximagexy=400x400
511
f2dec8025291 Force restrict file type and file size
HIROSE Yuuji <yuuji@gentei.org>
parents: 510
diff changeset
63 filesize_max=$((5*1024*1024))
513
3fcaea2892a8 File accept warnings added
HIROSE Yuuji <yuuji@gentei.org>
parents: 512
diff changeset
64 filesize_max_MB="$((filesize_max/1024/1024))MB"
874
b2b0bb5bb707 Allow csv
HIROSE Yuuji <yuuji@gentei.org>
parents: 873
diff changeset
65 file_accept='accept="image/*,text/*,audio/*,application/vnd.oasis.*,application/pdf,application/x-*,application/csv"'
837
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
66 file_accept='accept=".jpg,.jpeg,.gif,.png,.tiff,.pdf,.odt,.ods,.odp,.odg,.mp3,.mp4,.avi,.ogg,.mov,.webm,.gpx,.json,.geojson,.kml,.html,.css,.rb,.c,.h,.txt,.tex,.sty,.zip,.xcf,.bz2,.gz,.xz,.7z,.csv,.dat"'
874
b2b0bb5bb707 Allow csv
HIROSE Yuuji <yuuji@gentei.org>
parents: 873
diff changeset
67 file_accept_egrep='^(text/|message/|image/|audio/|video/|application/(vnd.oasis|pdf|epub|xml|.*zip|[xz]-|json|csv))'
562
3b5561ea2117 Ooops, file_accept pattern was wrong...
HIROSE Yuuji <yuuji@gentei.org>
parents: 555
diff changeset
68 file_accept_help="
3b5561ea2117 Ooops, file_accept pattern was wrong...
HIROSE Yuuji <yuuji@gentei.org>
parents: 555
diff changeset
69 添付可能ファイル: テキスト、画像、音声、動画、ODF、PDF、
511
f2dec8025291 Force restrict file type and file size
HIROSE Yuuji <yuuji@gentei.org>
parents: 510
diff changeset
70 圧縮ファイル、データベースファイル
513
3fcaea2892a8 File accept warnings added
HIROSE Yuuji <yuuji@gentei.org>
parents: 512
diff changeset
71 (いずれも ${filesize_max_MB} 以内)
3fcaea2892a8 File accept warnings added
HIROSE Yuuji <yuuji@gentei.org>
parents: 512
diff changeset
72 "
3fcaea2892a8 File accept warnings added
HIROSE Yuuji <yuuji@gentei.org>
parents: 512
diff changeset
73 file_warn="$file_accept_help
511
f2dec8025291 Force restrict file type and file size
HIROSE Yuuji <yuuji@gentei.org>
parents: 510
diff changeset
74 [編集]リンクから修正してください。"
236
19b92549b5b7 Add button to clear all unread article list
HIROSE Yuuji <yuuji@gentei.org>
parents: 235
diff changeset
75 blogreadflagrowid=0
471
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
76 blogcutoffflagrowid=-1
816
ed2c8aab742d Archiving world provides no new-group link
HIROSE Yuuji <yuuji@gentei.org>
parents: 812
diff changeset
77 nonewgroupworld=${NONEWGROUPWORLD:-*archive*}
625
74c0c2ed8ff5 New variable WHATSNEWDAYS limits the number of days of new article.
HIROSE Yuuji <yuuji@gentei.org>
parents: 624
diff changeset
78 whatsnewdays=${WHATS_NEW_DAYS:-14}
737
441768a11b84 Joingrp use var-name adduser instead of user
HIROSE Yuuji <yuuji@gentei.org>
parents: 736
diff changeset
79 main_session=`date +%F-$$`
441768a11b84 Joingrp use var-name adduser instead of user
HIROSE Yuuji <yuuji@gentei.org>
parents: 736
diff changeset
80 session=$main_session
207
355fcbdc3b49 Add 'file_accept'
HIROSE Yuuji <yuuji@gentei.org>
parents: 203
diff changeset
81
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
82 tconfs=""
781
4dcfeeb59b8f Cache directories should be separated by WORLD
HIROSE Yuuji <yuuji@gentei.org>
parents: 778
diff changeset
83 imgcached=cache/${S4WORLD:+$S4WORLD/}img.`date +%Y/%m`
4
6822f4362bf9 New system name declared as yas4
HIROSE Yuuji <yuuji@gentei.org>
parents: 3
diff changeset
84 conftbl=_tblconf
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
85 nl="
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
86 "
510
2a70b6c7ffad Add search-log and %-escaping
HIROSE Yuuji <yuuji@gentei.org>
parents: 509
diff changeset
87 likeesc=`printf '\037'` # ESCAPE char of LIKE operator
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
88 iconcachekey="profimgcache_S"
752
c22e71dc8d9b Base of annex feature added
HIROSE Yuuji <yuuji@gentei.org>
parents: 732
diff changeset
89
c22e71dc8d9b Base of annex feature added
HIROSE Yuuji <yuuji@gentei.org>
parents: 732
diff changeset
90 # Start debug logging
886
99187e4ad69b Enclose process id with parens instead of brackets
HIROSE Yuuji <yuuji@gentei.org>
parents: 885
diff changeset
91 logtag="($$)${S4WORLD:+{$S4WORLD\}}"
798
91016ff5edb3 Gather logs of all worlds into master logfile
HIROSE Yuuji <yuuji@gentei.org>
parents: 797
diff changeset
92 exec 3>> $logdir/debug.out
752
c22e71dc8d9b Base of annex feature added
HIROSE Yuuji <yuuji@gentei.org>
parents: 732
diff changeset
93 err() {
798
91016ff5edb3 Gather logs of all worlds into master logfile
HIROSE Yuuji <yuuji@gentei.org>
parents: 797
diff changeset
94 echo "[`date +%F-%T%z`]$logtag $@" 1>&3
752
c22e71dc8d9b Base of annex feature added
HIROSE Yuuji <yuuji@gentei.org>
parents: 732
diff changeset
95 }
352
dd0c70353869 More HELP text for search form. Add search result report.
HIROSE Yuuji <yuuji@gentei.org>
parents: 351
diff changeset
96 case "$HTTP_USER_AGENT" in
dd0c70353869 More HELP text for search form. Add search result report.
HIROSE Yuuji <yuuji@gentei.org>
parents: 351
diff changeset
97 *i[Pp]hone*|*[Aa]ndroid*) touchpanel=1 ;;
dd0c70353869 More HELP text for search form. Add search result report.
HIROSE Yuuji <yuuji@gentei.org>
parents: 351
diff changeset
98 *) touchpanel="" ;;
dd0c70353869 More HELP text for search form. Add search result report.
HIROSE Yuuji <yuuji@gentei.org>
parents: 351
diff changeset
99 esac
754
5bab8644024a Annex-test: sessdb = main-sessdb
HIROSE Yuuji <yuuji@gentei.org>
parents: 753
diff changeset
100
756
a4523e15dfd6 s/annex/world/
HIROSE Yuuji <yuuji@gentei.org>
parents: 755
diff changeset
101 # If S4MASTERDB is set, behave in another world
791
567980314463 World and Migration structures refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 789
diff changeset
102 ### if [ -n "$S4MASTERDB" -a -s "$S4MASTERDB" ]; then
567980314463 World and Migration structures refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 789
diff changeset
103 # If S4WORLDLIST is set, this s4 have world!
567980314463 World and Migration structures refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 789
diff changeset
104 if [ -n "$S4WORLDLIST" ]; then
798
91016ff5edb3 Gather logs of all worlds into master logfile
HIROSE Yuuji <yuuji@gentei.org>
parents: 797
diff changeset
105 . ./s4-world.sh 2>> $logdir/debug.out
791
567980314463 World and Migration structures refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 789
diff changeset
106 # Variables set in s4-world.sh
797
56adb6e5ee68 Add world-links to Grps entry of topmenu
HIROSE Yuuji <yuuji@gentei.org>
parents: 796
diff changeset
107 # $S4WORLDS, $S4WROLDNAME, $S4WORLDGRPS
791
567980314463 World and Migration structures refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 789
diff changeset
108 # Files created in s4-world.sh
797
56adb6e5ee68 Add world-links to Grps entry of topmenu
HIROSE Yuuji <yuuji@gentei.org>
parents: 796
diff changeset
109 # $worldlistfile, $worldoptionfile, $worldnamefile, $worldgrpfile
755
1a8291d7fa3d Annex strategy shifted to World strategy
HIROSE Yuuji <yuuji@gentei.org>
parents: 754
diff changeset
110 fi
754
5bab8644024a Annex-test: sessdb = main-sessdb
HIROSE Yuuji <yuuji@gentei.org>
parents: 753
diff changeset
111
5bab8644024a Annex-test: sessdb = main-sessdb
HIROSE Yuuji <yuuji@gentei.org>
parents: 753
diff changeset
112
515
0b47ddf9c8de Load s4-cgi if necessary
HIROSE Yuuji <yuuji@gentei.org>
parents: 514
diff changeset
113 [ -f ./s4-cgi.sh ] && . ./s4-cgi.sh
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
114
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
115 : <<EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
116
249
6bb5513efb8e Add caution comment to the beginning of description
HIROSE Yuuji <yuuji@gentei.org>
parents: 248
diff changeset
117 !! 検索等でblogテーブル参照時は sql4readableblogs() で定義される
6bb5513efb8e Add caution comment to the beginning of description
HIROSE Yuuji <yuuji@gentei.org>
parents: 248
diff changeset
118 !! readableblogs テーブルを使うこと
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
119 資料配布、グループ管理・ML、ファイル交換、クリッカー、アンケート
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
120 レポート提出管理
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
121 ひとつのarticleをheadingにして新規ツリーを作成、あるといいかも。
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
122
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
123 [2016]
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
124 7/12 根本への反省
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
125 * cgi自身の $1, $2 での切り替えでなく、CGI変数での受け渡しにすべき。
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
126 arg1/arg2/arg3 的に $1 に / 区切りでつけた方がよかったかな。
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
127
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
128 [以下2015]
120
d870eaf0e4dd Revert to "sq $db"
HIROSE Yuuji <yuuji@gentei.org>
parents: 119
diff changeset
129 8/4 ○グループに承認加入モードを追加
d870eaf0e4dd Revert to "sq $db"
HIROSE Yuuji <yuuji@gentei.org>
parents: 119
diff changeset
130 ○グループに参加していない場合は grpaction できない
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
131 Web
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
132 締切設定
120
d870eaf0e4dd Revert to "sq $db"
HIROSE Yuuji <yuuji@gentei.org>
parents: 119
diff changeset
133
d870eaf0e4dd Revert to "sq $db"
HIROSE Yuuji <yuuji@gentei.org>
parents: 119
diff changeset
134 8/2 ○s4.cgi生成系 → index.cgi生成
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
135 ○自分の提出物リスト
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
136
52
46e53418e28f missing selection condition added
HIROSE Yuuji <yuuji@gentei.org>
parents: 47
diff changeset
137 7/19 ○設置
46e53418e28f missing selection condition added
HIROSE Yuuji <yuuji@gentei.org>
parents: 47
diff changeset
138 ○一斉送信
46e53418e28f missing selection condition added
HIROSE Yuuji <yuuji@gentei.org>
parents: 47
diff changeset
139 ○getparfilename の tmpd の扱い
46e53418e28f missing selection condition added
HIROSE Yuuji <yuuji@gentei.org>
parents: 47
diff changeset
140 ○やっぱりs4にしようかな
4
6822f4362bf9 New system name declared as yas4
HIROSE Yuuji <yuuji@gentei.org>
parents: 3
diff changeset
141 7/18 ○書込著者からホームへのリンク
2
7aa52f9874ae .hgignore added
HIROSE Yuuji <yuuji@gentei.org>
parents: 1
diff changeset
142 7/17 ○個人blogに「レポート提出用」がついたときの挙動
7aa52f9874ae .hgignore added
HIROSE Yuuji <yuuji@gentei.org>
parents: 1
diff changeset
143 ○添付ファイル回収
7aa52f9874ae .hgignore added
HIROSE Yuuji <yuuji@gentei.org>
parents: 1
diff changeset
144 ○imgcacheは別ディレクトリにしないと + .htaccess
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
145 7/15 ○レポート提出モードの表示を付ける
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
146 管理者権限での削除? → まだいいか
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
147
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
148 7/13 ○前回アクセス基準の新着数は欲しいなあ
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
149 ○レポート提出はどうしよう
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
150 → ○blogにモードを追加:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
151 ○レポート提出モード
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
152 添付ファイル (誰が見たかログ)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
153 クリッカーは別立てメニューにしないと(管理者がON/OFF)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
154 ○添付ファイルの読み出し権(6/22から) ← モードで対処
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
155
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
156
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
157 7/9 ○管理者の追加
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
158 △グループメンバの操作 → 要不要を吟味
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
159 ○グループ情報編集の行先はそのグループがいい?
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
160 ○新規グループの作成はどこから入るか
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
161 △グループホームとユーザホームを揃える
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
162
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
163 7/8 ○グループ一覧をユーザ一覧と揃える。
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
164
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
165 7/6の次 ○グループのconf編集の入口
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
166 ○グループ検索
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
167
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
168 6/22の次 ○ホーム画面、○招待状、親記事追跡、○編集ボタン、削除ボタン、
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
169
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
170
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
171 6/7の次 ○blogを作ってみる || userconfig || _mのまとめ編集(削除)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
172 6/7の次の次 ○userconfigの画面だけ作ってみる。
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
173
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
174 ○ 5/28の次 edittableに「削除」ボタンを足す
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
175 ○6/1 par2tableを triplex 対応に
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
176 select "yuuji@gentei.org",var,"text",NULL,val from par where var in (select col from _tblconf where tbl="/user" and keytype in ('p', 's'));
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
177 →とすると 一気に
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
178
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
179 ## form.def を考えなおそう:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
180 ## userのように必須カラムを決まった位置に付ける?
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
181 ## 必須カラム、owner(foreign key passwd(name)), update datetime
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
182 ## ユーザ管理とグループ管理はデフォルトで持たせてしまえ
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
183
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
184 ## 縦持ちデータの入力/編集を供給する関数 single + multi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
185 ## 持てるテーブル構造はシステム標準5種 + ユーザ定義2種類
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
186 ## 1. passwd
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
187 ## 2. grp
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
188 ## 3. grp_mem
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
189 ## 4. topic 記事のIDとなる
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
190 ## 5. topic_cont 特定IDの記事の内容物
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
191 ## 6. list 繰り返し登場あり
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
192 ## 7. hash 繰り返し登場なし
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
193
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
194 ## ● listの定義:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
195 ## create table list(id unique, parentID, type, value);
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
196 ## ● hashの定義:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
197 ## create table hash(parentID, type, value, primary key(parentID, type));
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
198
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
199 ## グループ属性: community, friend
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
200 ## ○ blob使えるのかな。streamで行けるのか? xxdで行けた。ありがたい。
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
201 ## form-defとtableは1対1対応でいいか
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
202 ## csv2sq3 で .csv.sq3 の Makefile
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
203
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
204 ## 書き込みオブジェクトとは何か?
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
205 ## topic : id, belongto, title, owner, mode
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
206 ## type := root | comment
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
207 ## topic_cont : id, topicid(F), ppath, contenttype, filename, content,
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
208 ## unique(id, filename)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
209 ## type := body(single) | attachment(multi)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
210
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
211 ## group := name(P), tag, gecos, owner(F), mode
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
212 ## tag := personal | friend | ... any string
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
213 ## group_member := gname(F), type, name(F), UNIQUE(gname, type, name)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
214 ## type := "u" | "g"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
215 ## できたー!
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
216 ## with recursive allmem as (select * from grp_mem where gname='bar' union all select grp_mem.* from grp_mem,allmem where allmem.name=grp_mem.gname) select * from allmem where type='u';
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
217 ↓
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
218 ↓以下に変更
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
219 with recursive allmem as
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
220 (select gname,val from grp_m where gname='foo'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
221 union all select grp_m.gname,grp_m.val from
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
222 grp_m,allmem where allmem.val=grp_m.gname)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
223 select val from allmem where val in (select name from user);
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
224
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
225
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
226 with recursive allmem as
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
227 (select gname,val from grp_m where gname='foo'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
228 union all select grp_m.gname,grp_m.val from grp_m,allmem
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
229 where allmem.val=grp_m.gname)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
230 select a.*, coalesce(b.val,a.val) from allmem a left join grp_mem_s b
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
231 on a.gname=b.gname and a.val=b.user and b.key='email'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
232 where a.val in (select name from user);
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
233
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
234
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
235 ## triggerもできた。
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
236 ## 5/22から:グループ作成画面
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
237 ## 埋め込み画像 data:CONTENT-TYPE;base64,.....
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
238
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
239 ## 考え得るノードタイプ
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
240 ## 日報 - 個人所属かグループ所属か
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
241 ## 課題提出 - 個人所属かグループ所属か
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
242 ## グループ管理
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
243 ## 個人情報管理
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
244 ##
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
245
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
246 ## 例: group:sip - topic:1:sip:Aperture:yuuji:rw
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
247 ## - topic:2:sip:ISO:yuuji:rw
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
248 ## topic_cont 1:1:/:body:text...Aperture
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
249 ## 2:1:/1:body:text..Aperture
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
250 ## 3:1:/1:attachment:binary..Aperture
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
251 ## 4:1:/2:body:text..Aperture
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
252 ## 5:1:/2:attachment:binary..Aperture
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
253 ## 6:2:/:body:text..ISO
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
254 ## 7:2:/6:body:text..ISO
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
255 ## 8:2:/6:attachment:binary..
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
256
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
257 ## ログテーブル
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
258 ## time, who, action, tbl, id idなんか取れるかな
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
259
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
260
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
261
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
262 ■表設計
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
263 * 3つの表に分散管理
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
264 id格納表 + hash表 + list表
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
265 * *_s *_m
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
266
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
267
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
268
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
269 user, user_map, user_col
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
270
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
271 ■抽象エントリタイプ
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
272 * user
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
273 idとして機能 → table中の owner に自動挿入(?)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
274 * group
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
275 権限判定に利用
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
276 * serial
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
277 自動idとして機能
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
278 * password
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
279 入力 type=passwordで入力
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
280 変更 oldpasswd, password×2 で確認後修正
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
281 * session
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
282 password認証後のセッションキーとして機能
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
283 * text
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
284 入力 type=text
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
285 * textarea
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
286 入力 textarea
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
287 * image|document
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
288 入力 type=fileで入力し、mime-typeを確認
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
289 * owner
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
290 入力時の $user で、外部キー制約が付く
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
291 * gowner
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
292 グループとしての所有者で、外部キー制約が付く
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
293 * timestamp
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
294 datetime()
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
295 * parent
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
296 木構造の場合の親の位置
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
297 * path
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
298 木構造の場合の自分の位置
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
299
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
300 格納タイプ
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
301 * list
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
302 表 parentID, key, val でUNIQUE(parentID, key, val)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
303 * hash
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
304 表 parentID, key, val でUNIQUE(parentID, key)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
305
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
306 オブジェクトタイプ
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
307 * entry
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
308 id, title, owner
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
309 * textpart
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
310 id, parentID, text
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
311 * binarypart
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
312 id, parentID, contenttype, filename, content
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
313 * content
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
314 hash(textpart), list(binarypart)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
315 * topic
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
316 id, hash(content), list(reply)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
317 * reply
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
318 id, parentID, content
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
319 * blog
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
320 list(entry)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
321 blog = [topic, list(reply)]
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
322
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
323
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
324 blog = [ {"title" => "hoge", "owner" => "yuuji", "date" => "2015-04-27",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
325 "text" => "hogehoge ..",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
326 "reply" => [ {"serial" => 1,
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
327 "author" => "taro",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
328 "date" => "2015-04-28",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
329 "parent" => "/",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
330 "path" => "/1",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
331 "text" => "blah, blah, ....",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
332 "image" => ["a.jpg", "b.jpg"] },
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
333 {"serial" => 2,
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
334 "author" => "hanako",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
335 "date" => "2015-04-29",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
336 "parent" => "/",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
337 "path" => "/2",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
338 "text" => "blah, blah, ....",
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
339 "image" => [] }]},
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
340 {"title" => "buha", ...} ]
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
341
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
342
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
343 user:=
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
344 ユーザ名(英数字):name:p:text:length="20" maxlength="40"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
345 パスワード:pswd:s:password:length="20" maxlength="40"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
346 説明(日本語OK):gecos:s:text:length="20" maxlength="40"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
347 セッションキー:skey:s:session
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
348 メイルアドレス:email:m:text:length="20" maxlength="40"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
349 住所:address:m:textarea:maxlength="400"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
350 プロフィール画像:profimg:m:image:maxlength="400K"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
351 履歴書:profpdf:m:document:maxlength="4M"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
352
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
353 変換表
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
354 /user/email=m
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
355
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
356 blog:=
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
357 シリアル:id:p:serial
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
358 タイトル:title:s:text:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
359 所有者:owner:s:owner:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
360 時刻:ctime:s:stamp:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
361 リード文:heading:s:textarea:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
362 リプライ:reply:m:*article:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
363
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
364 article:=
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
365 シリアル:id:p:serial
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
366 筆者:author:s:owner
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
367 時刻:ctime:s:stamp:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
368 参照元:parent:s:parent:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
369 パス:path:s:path:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
370 本文:text:s:textarea:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
371 画像:image:m:image:
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
372
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
373 履歴書:profpdf:m:document:maxlength="4M"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
374
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
375
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
376 EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
377
510
2a70b6c7ffad Add search-log and %-escaping
HIROSE Yuuji <yuuji@gentei.org>
parents: 509
diff changeset
378 logstart() {
798
91016ff5edb3 Gather logs of all worlds into master logfile
HIROSE Yuuji <yuuji@gentei.org>
parents: 797
diff changeset
379 echo "`date '+%F %T'`:[${user:-NULL}]$logtag <<<" >> ${1:-$querylog}
510
2a70b6c7ffad Add search-log and %-escaping
HIROSE Yuuji <yuuji@gentei.org>
parents: 509
diff changeset
380 }
2a70b6c7ffad Add search-log and %-escaping
HIROSE Yuuji <yuuji@gentei.org>
parents: 509
diff changeset
381 logend() {
798
91016ff5edb3 Gather logs of all worlds into master logfile
HIROSE Yuuji <yuuji@gentei.org>
parents: 797
diff changeset
382 echo ">>>$logtag" >> ${1:-$querylog}
510
2a70b6c7ffad Add search-log and %-escaping
HIROSE Yuuji <yuuji@gentei.org>
parents: 509
diff changeset
383 }
565
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
384 sqlog() {
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
385 logstart
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
386 if [ -z "$1" ]; then
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
387 cat >> $querylog
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
388 else
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
389 echo "$*" >> $querylog
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
390 fi
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
391 logend
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
392 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
393 sq() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
394 # ./args.rb -cmd ".timeout 3000" "$@"
510
2a70b6c7ffad Add search-log and %-escaping
HIROSE Yuuji <yuuji@gentei.org>
parents: 509
diff changeset
395 logstart
2a70b6c7ffad Add search-log and %-escaping
HIROSE Yuuji <yuuji@gentei.org>
parents: 509
diff changeset
396 if [ -z "$1" ]; then
2a70b6c7ffad Add search-log and %-escaping
HIROSE Yuuji <yuuji@gentei.org>
parents: 509
diff changeset
397 tee -a $querylog|sqlite3 -cmd 'PRAGMA foreign_keys=ON' -cmd ".timeout 3000"
2a70b6c7ffad Add search-log and %-escaping
HIROSE Yuuji <yuuji@gentei.org>
parents: 509
diff changeset
398 else
2a70b6c7ffad Add search-log and %-escaping
HIROSE Yuuji <yuuji@gentei.org>
parents: 509
diff changeset
399 echo "$@" >> $querylog
713
0d13e282441d Not well tested, disable meanwhile
HIROSE Yuuji <yuuji@gentei.org>
parents: 712
diff changeset
400 sqlite3 -cmd 'PRAGMA foreign_keys=ON' -cmd ".timeout 3000" "$@"
0d13e282441d Not well tested, disable meanwhile
HIROSE Yuuji <yuuji@gentei.org>
parents: 712
diff changeset
401 ###sqlite3 -bail -cmd 'PRAGMA foreign_keys=ON' -cmd ".timeout 3000" "$@"
510
2a70b6c7ffad Add search-log and %-escaping
HIROSE Yuuji <yuuji@gentei.org>
parents: 509
diff changeset
402 fi
2a70b6c7ffad Add search-log and %-escaping
HIROSE Yuuji <yuuji@gentei.org>
parents: 509
diff changeset
403 logend
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
404 }
163
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
405 dbsetup() {
711
695ab5c2c1a5 Random generation fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 710
diff changeset
406 pipedir=$tmpdir/pipedir
695ab5c2c1a5 Random generation fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 710
diff changeset
407 [ -d $pipedir ] || mkdir -p -m 1777 $pipedir
163
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
408 [ -d $dbdir ] || mkdir -m 1775 $dbdir
711
695ab5c2c1a5 Random generation fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 710
diff changeset
409 suf=`date +%s`
695ab5c2c1a5 Random generation fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 710
diff changeset
410 sqi=$pipedir/sqi-$suf.$$
695ab5c2c1a5 Random generation fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 710
diff changeset
411 sqo=$pipedir/sqo-$suf.$$
163
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
412 mkfifo $sqi $sqo
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
413 #tail -f $sqi | sq $db & # "tail -f" is too heavy. DO NOT USE!!
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
414 sq $db < $sqi &
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
415 sq3pid="`jobs -p` $!"
771
b97f1c84bdb1 New script s4-newworld supports NewWorld creation
HIROSE Yuuji <yuuji@gentei.org>
parents: 770
diff changeset
416 if $isCGI; then
798
91016ff5edb3 Gather logs of all worlds into master logfile
HIROSE Yuuji <yuuji@gentei.org>
parents: 797
diff changeset
417 exec 2>> $logdir/error.out
531
01b9e2b16d7a Redirect stderr to file only if being called via CGI
HIROSE Yuuji <yuuji@gentei.org>
parents: 517
diff changeset
418 fi
01b9e2b16d7a Redirect stderr to file only if being called via CGI
HIROSE Yuuji <yuuji@gentei.org>
parents: 517
diff changeset
419 exec 5> $sqi # Turning $sqi access through fd5 for continuous open state
798
91016ff5edb3 Gather logs of all worlds into master logfile
HIROSE Yuuji <yuuji@gentei.org>
parents: 797
diff changeset
420 chmod o-r $logdir/error.out $logdir/debug.out
163
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
421 rm $sqi
688
1aa16edc28e5 Partial Committing Starts:
HIROSE Yuuji <yuuji@gentei.org>
parents: 687
diff changeset
422 # Attach supplemental DB
1aa16edc28e5 Partial Committing Starts:
HIROSE Yuuji <yuuji@gentei.org>
parents: 687
diff changeset
423 cat >&5 <<-EOF
1aa16edc28e5 Partial Committing Starts:
HIROSE Yuuji <yuuji@gentei.org>
parents: 687
diff changeset
424 .output /dev/null
1aa16edc28e5 Partial Committing Starts:
HIROSE Yuuji <yuuji@gentei.org>
parents: 687
diff changeset
425 ATTACH DATABASE "$sessdb" AS tmp;
1aa16edc28e5 Partial Committing Starts:
HIROSE Yuuji <yuuji@gentei.org>
parents: 687
diff changeset
426 CREATE TABLE IF NOT EXISTS $sesstb(user, skey, expire, UNIQUE(user, skey));
1aa16edc28e5 Partial Committing Starts:
HIROSE Yuuji <yuuji@gentei.org>
parents: 687
diff changeset
427 DELETE FROM $sesstb WHERE expire < datetime('now', 'localtime');
1aa16edc28e5 Partial Committing Starts:
HIROSE Yuuji <yuuji@gentei.org>
parents: 687
diff changeset
428 DELETE FROM $sesstb WHERE expire is NULL or expire = '';
1aa16edc28e5 Partial Committing Starts:
HIROSE Yuuji <yuuji@gentei.org>
parents: 687
diff changeset
429 .output stdout
1aa16edc28e5 Partial Committing Starts:
HIROSE Yuuji <yuuji@gentei.org>
parents: 687
diff changeset
430 EOF
163
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
431 }
396
cacd961d3405 Dirty workaround for produced zombie processes
HIROSE Yuuji <yuuji@gentei.org>
parents: 395
diff changeset
432 cleanup2() { # Dirty workaround for produced zombie processes
517
6cdd032070e3 $TTY not set on sh-script
HIROSE Yuuji <yuuji@gentei.org>
parents: 516
diff changeset
433 if [ -n "$HTTP_USER_AGENT" ]; then # When called from httpd
516
575e321179c3 Do not call pkill cleanup on terminal
HIROSE Yuuji <yuuji@gentei.org>
parents: 515
diff changeset
434 pkill -9 -u `id -u` -P 1
575e321179c3 Do not call pkill cleanup on terminal
HIROSE Yuuji <yuuji@gentei.org>
parents: 515
diff changeset
435 fi
698
b036a06cad90 Make sure to chmod o-r
HIROSE Yuuji <yuuji@gentei.org>
parents: 697
diff changeset
436 chmod o-r $querylog $db $sessdb # make sure
396
cacd961d3405 Dirty workaround for produced zombie processes
HIROSE Yuuji <yuuji@gentei.org>
parents: 395
diff changeset
437 }
163
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
438 cleanup() {
337
48d0b6c4de65 Revise SQL for article search drastically for speed.
HIROSE Yuuji <yuuji@gentei.org>
parents: 332
diff changeset
439 trap '' INT HUP EXIT TERM PIPE
163
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
440 echo .quit >&5
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
441 kill $sq3pid
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
442 kill $sq3pid
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
443 rm -f $sqo $sqi
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
444 rm -rf $tmpfiles
396
cacd961d3405 Dirty workaround for produced zombie processes
HIROSE Yuuji <yuuji@gentei.org>
parents: 395
diff changeset
445 cleanup2
118
45d1b0f09e48 grpaction is limited to its member
HIROSE Yuuji <yuuji@gentei.org>
parents: 117
diff changeset
446 }
358
8166096f4b36 Record query into log
HIROSE Yuuji <yuuji@gentei.org>
parents: 357
diff changeset
447 # We want to use piped function to put querylog, but we use
8166096f4b36 Record query into log
HIROSE Yuuji <yuuji@gentei.org>
parents: 357
diff changeset
448 # simple redirection for the sake of speed.
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
449 query() {
568
3cb5c360e1bf Try to speed up user-home summary construction.
HIROSE Yuuji <yuuji@gentei.org>
parents: 567
diff changeset
450 # echo ".once $sqo" >&5
3cb5c360e1bf Try to speed up user-home summary construction.
HIROSE Yuuji <yuuji@gentei.org>
parents: 567
diff changeset
451 echo ".output $sqo" >&5
510
2a70b6c7ffad Add search-log and %-escaping
HIROSE Yuuji <yuuji@gentei.org>
parents: 509
diff changeset
452 logstart
180
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
453 if [ -z "$1" ]; then
358
8166096f4b36 Record query into log
HIROSE Yuuji <yuuji@gentei.org>
parents: 357
diff changeset
454 tee -a $querylog
180
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
455 else
358
8166096f4b36 Record query into log
HIROSE Yuuji <yuuji@gentei.org>
parents: 357
diff changeset
456 echo "$@" >> $querylog
180
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
457 echo "$@"
358
8166096f4b36 Record query into log
HIROSE Yuuji <yuuji@gentei.org>
parents: 357
diff changeset
458 fi >&5
568
3cb5c360e1bf Try to speed up user-home summary construction.
HIROSE Yuuji <yuuji@gentei.org>
parents: 567
diff changeset
459 echo ".output stdout" >&5
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
460 cat $sqo
714
d7c5f86d9c75 Auth check more rigidly
HIROSE Yuuji <yuuji@gentei.org>
parents: 713
diff changeset
461 rc=$?
510
2a70b6c7ffad Add search-log and %-escaping
HIROSE Yuuji <yuuji@gentei.org>
parents: 509
diff changeset
462 logend
714
d7c5f86d9c75 Auth check more rigidly
HIROSE Yuuji <yuuji@gentei.org>
parents: 713
diff changeset
463 return $rc
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
464 }
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
465 _m4() {
549
2a48690b8cbc Put $S4NAME in title
HIROSE Yuuji <yuuji@gentei.org>
parents: 543
diff changeset
466 #S4NAME=f,f,f
754
5bab8644024a Annex-test: sessdb = main-sessdb
HIROSE Yuuji <yuuji@gentei.org>
parents: 753
diff changeset
467 m4 ${S4NAME:+"-D_S4NAME_=${S4NAME}"} ${S4CSS:+-D_S4CSS_="$S4CSS"} \
797
56adb6e5ee68 Add world-links to Grps entry of topmenu
HIROSE Yuuji <yuuji@gentei.org>
parents: 796
diff changeset
468 ${S4WORLD:+-D_S4WORLD_="$S4WORLD"} \
791
567980314463 World and Migration structures refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 789
diff changeset
469 ${S4WORLDNAME:+-D_S4WORLDNAME_="$S4WORLDNAME"} \
797
56adb6e5ee68 Add world-links to Grps entry of topmenu
HIROSE Yuuji <yuuji@gentei.org>
parents: 796
diff changeset
470 ${S4WORLDGRPS:+-D_S4WORLDGRPS_="$S4WORLDGRPS"} \
787
c5b61d23052b Display WORLD name in HTML header
HIROSE Yuuji <yuuji@gentei.org>
parents: 786
diff changeset
471 ${S4WORLDS:+-D_S4WORLDS_="$S4WORLDS"} "$@"
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
472 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
473 ismember() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
474 # $1=user, $2=group
853
047e1c3f811e Log output revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 851
diff changeset
475 #err ismem: "select user from grp_mem where gname=$(sqlquote $2) and user='$1';"
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
476 test -n "`query \"select user from grp_mem where gname=$(sqlquote \"$2\") and user='$1';\"`"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
477 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
478 isuser() { # Check if $1 is a valid user
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
479 test -n "`query \"select name from user where name='$1';\"`"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
480 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
481 isgroup() { # Check if $1 is a valid group
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
482 err isgroup: "select gname from grp where gname=$(sqlquote $1);"
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
483 test -n "`query \"select gname from grp where gname=$(sqlquote \"$1\");\"`"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
484 }
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
485 isgrpowner() (
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
486 # $1=user, $2=group
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
487 gn=`sqlquote "$2"`
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
488 sql="select user from grp_adm where gname=$gn and user='$1';"
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
489 err isgrpowner: $sql
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
490 test -n "`query $sql`"
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
491 )
577
67ecd5901590 Inhibit non-group admin from cloning group
HIROSE Yuuji <yuuji@gentei.org>
parents: 576
diff changeset
492 isgrpownerbygid() (
67ecd5901590 Inhibit non-group admin from cloning group
HIROSE Yuuji <yuuji@gentei.org>
parents: 576
diff changeset
493 # $1=user, $2=group-rowid
67ecd5901590 Inhibit non-group admin from cloning group
HIROSE Yuuji <yuuji@gentei.org>
parents: 576
diff changeset
494 sql="select user from grp_adm where gname=(select gname from grp where rowid=$2) and user='$1';"
67ecd5901590 Inhibit non-group admin from cloning group
HIROSE Yuuji <yuuji@gentei.org>
parents: 576
diff changeset
495 err isgrpownerbygid: $sql
67ecd5901590 Inhibit non-group admin from cloning group
HIROSE Yuuji <yuuji@gentei.org>
parents: 576
diff changeset
496 test -n "`query $sql`"
67ecd5901590 Inhibit non-group admin from cloning group
HIROSE Yuuji <yuuji@gentei.org>
parents: 576
diff changeset
497 )
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
498 getgroupadminmails() {
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
499 # $1=group
768
891f1f5a8153 Allow spaces in group name
HIROSE Yuuji <yuuji@gentei.org>
parents: 763
diff changeset
500 for i in $(getgroupadmins "$1"); do
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
501 email4group "$1" "$i" ;
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
502 done
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
503 }
56
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
504 getgroupadmins() { # $1=group
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
505 # This function is called in a backquote, so needn't to be subshellized
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
506 qgrp=`sqlquote "$1"`
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
507 query "select user from grp_adm where gname=$qgrp;"
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
508 }
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
509 getgroupattr() { # $1=group $2=attr
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
510 # This function is called in a backquote, so needn't to be subshellized
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
511 getvalbyid grp $2 \
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
512 $(query "select rowid from grp where gname=`sqlquote \"$1\"`;")
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
513 }
56
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
514 getgroupbyid() {
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
515 # $1=id|gname
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
516 sql="select coalesce((select gname from grp where gname=$(sqlquote \"$1\")),
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
517 (select gname from grp where rowid=$(sqlquote $1)));"
71
3a157da0801d cache name fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 69
diff changeset
518 # err ggbyid: `echo $sql`
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
519 query $sql
56
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
520 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
521 isfilereadable() { # $1=user $2=tbl $3=rowid
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
522 # Return true if user($1) can read attachment files in tbl($2):rowid($3)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
523 [ -z "$1" -o -z "$2" -o -z "$3" ] && return 1 # invalid argument
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
524
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
525 # Return true when anonymous mode
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
526 [ "$anonymousmode" ] && return 0
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
527 # case `getvalbyid blog mode $2` in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
528 # normal|*open*|"") return 0 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
529 # *closed*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
530 # owner=`getvalbyid blog owner $2`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
531 # if isgrp $owner; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
532 # isgrpowner $1 $owner && return 0 || return 1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
533 # elif isuser $owner; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
534 # [ x"$1" = x"$owner" ] && return 0 || return 1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
535 # fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
536 # esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
537 # ↑ 要はこういう処理を↓で一気にやっている
695
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
538 sql="with getblog as (
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
539 select key,val from blog_s where id=(
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
540 select blogid from article where id in
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
541 (select id from $2 where rowid=$3))),
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
542 getowner as (select val from getblog where key='owner'),
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
543 getauthor as (select author from article where id=(select id from $2 where rowid=$3)),
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
544 isgrp as (SELECT val from getowner WHERE val IN (select gname from grp)),
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
545 isgrpadm as (select user from grp_adm where
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
546 gname=(select val from getowner) and
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
547 user='$1'),
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
548 getmode as (select val from getblog where key='mode')
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
549 select case
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
550 when (select author from article where
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
551 id=(select id from $2 where rowid=$3))='$1'
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
552 then 'author'
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
553 when (select val from getmode) in ('report-open', 'normal')
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
554 then 'open'
695
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
555 when (select val from getmode) in ('quiz', 'enquete')
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
556 then CASE
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
557 WHEN (SELECT val FROM isgrp) IS NULL
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
558 THEN
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
559 CASE WHEN (SELECT val from getowner)
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
560 IN ('$user', (SELECT author FROM getauthor))
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
561 THEN 'owner-or-user-article-is-readable'
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
562 ELSE ''
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
563 END
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
564 WHEN (select user from isgrpadm) IS NOT NULL
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
565 THEN 'i-am-admin'
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
566 ELSE (SELECT author from getauthor WHERE author IN (SELECT user FROM grp_adm WHERE gname=(SELECT val FROM getowner)))
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
567 END
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
568 when (select val from getmode) is null
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
569 then 'open'
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
570 when (select val from getowner) in (select gname from grp)
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
571 then (SELECT user FROM isgrpadm)
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
572 when (select author from article where
39
5ed3caba8dd1 report-closed + user mode -> hidden to other user
HIROSE Yuuji <yuuji@gentei.org>
parents: 33
diff changeset
573 id=(select id from $2 where rowid=$3))='$1'
5ed3caba8dd1 report-closed + user mode -> hidden to other user
HIROSE Yuuji <yuuji@gentei.org>
parents: 33
diff changeset
574 then 'user+author'
5ed3caba8dd1 report-closed + user mode -> hidden to other user
HIROSE Yuuji <yuuji@gentei.org>
parents: 33
diff changeset
575 else '' end;"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
576 ## err isfilereadable: sql="`echo $sql`"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
577 # caseのネストで内側のcaseがスカラーtrueを返しても外側はtrue扱いにならない
695
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
578 # result=`query "$sql"`
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
579 # err FileAccessibility=$result
5cf0ba49aeab Attached file of admin in quiz-mode blog can be accessible by normal users
HIROSE Yuuji <yuuji@gentei.org>
parents: 694
diff changeset
580 [ -n "`query $sql`" ] || return 2
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
581 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
582 linkhome() {
747
42cc0aeaa498 Avoid to pass gname to searchart()
HIROSE Yuuji <yuuji@gentei.org>
parents: 740
diff changeset
583 # $1=UserOrGroupRowid
42cc0aeaa498 Avoid to pass gname to searchart()
HIROSE Yuuji <yuuji@gentei.org>
parents: 740
diff changeset
584 echo -n "<a href=\"$myname?"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
585 if isuser $1; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
586 err "select 'home+'||rowid from user where name='$1';"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
587 query "select 'home+'||rowid from user where name='$1';"
747
42cc0aeaa498 Avoid to pass gname to searchart()
HIROSE Yuuji <yuuji@gentei.org>
parents: 740
diff changeset
588 name=`gecos $1|htmlescape`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
589 else
747
42cc0aeaa498 Avoid to pass gname to searchart()
HIROSE Yuuji <yuuji@gentei.org>
parents: 740
diff changeset
590 _grid=`numericalize "$1"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
591 echo -n "grp+$1"
747
42cc0aeaa498 Avoid to pass gname to searchart()
HIROSE Yuuji <yuuji@gentei.org>
parents: 740
diff changeset
592 name=`query "SELECT gname FROM grp WHERE rowid=$_grid;"|htmlescape`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
593 fi
747
42cc0aeaa498 Avoid to pass gname to searchart()
HIROSE Yuuji <yuuji@gentei.org>
parents: 740
diff changeset
594 echo "\">$name</a>"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
595 }
208
36b6354de5cb Profile form should escape entities. Apply ^href conversion to Profile
HIROSE Yuuji <yuuji@gentei.org>
parents: 207
diff changeset
596 hreflink() {
284
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
597 # s4 specific notation:
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
598 # ^href=URL
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
599 # ^iframe=URL
496
18f7f10566bf Add link notation: "video=URL"
HIROSE Yuuji <yuuji@gentei.org>
parents: 495
diff changeset
600 # ^video=URL
478
926f61977175 Add experimental search keyword link like hash-tags
HIROSE Yuuji <yuuji@gentei.org>
parents: 475
diff changeset
601 # [[#NUM]] - Jump to article ID NUM
926f61977175 Add experimental search keyword link like hash-tags
HIROSE Yuuji <yuuji@gentei.org>
parents: 475
diff changeset
602 # [[#Keyword] - Jump to keywrod search for "Keyword"
284
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
603 # OSM umap Wikistyle Notation:
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
604 # [[URL]] - Simle Link
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
605 # [[URL|Word]] - Link with anchor word
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
606 # {{URL}} - <img src="URL">
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
607 # {{URL|width}} - <img src="URL" width="width">
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
608 # {{{URL}} } - <iframe src="URL"></iframe>
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
609 # {{{URL|height}} - <iframe src="URL" height="height"></iframe>
485
021e7943fd99 Emphasis pattern *word*, _word_ and strong pattern **word**, __word__
HIROSE Yuuji <yuuji@gentei.org>
parents: 483
diff changeset
610 # Other Style
021e7943fd99 Emphasis pattern *word*, _word_ and strong pattern **word**, __word__
HIROSE Yuuji <yuuji@gentei.org>
parents: 483
diff changeset
611 # ---- - <hr> (In the beginning of line)
021e7943fd99 Emphasis pattern *word*, _word_ and strong pattern **word**, __word__
HIROSE Yuuji <yuuji@gentei.org>
parents: 483
diff changeset
612 # *Word* - <em>Word</em>
021e7943fd99 Emphasis pattern *word*, _word_ and strong pattern **word**, __word__
HIROSE Yuuji <yuuji@gentei.org>
parents: 483
diff changeset
613 # _Word_ - <em>Word</em>
021e7943fd99 Emphasis pattern *word*, _word_ and strong pattern **word**, __word__
HIROSE Yuuji <yuuji@gentei.org>
parents: 483
diff changeset
614 # **Word** - <strong>Word</strong>
021e7943fd99 Emphasis pattern *word*, _word_ and strong pattern **word**, __word__
HIROSE Yuuji <yuuji@gentei.org>
parents: 483
diff changeset
615 # __Word__ - <strong>Word</strong>
495
59cd8278a5b5 Trailing 2 consecutive SPC will be translated to <br>
HIROSE Yuuji <yuuji@gentei.org>
parents: 494
diff changeset
616 # SPC+SPC+$ - <br>
502
46a8da2740d9 Add CheckBox WikiStyle notation "- [ ]"
HIROSE Yuuji <yuuji@gentei.org>
parents: 496
diff changeset
617 cb='<input type="checkbox" class="s4-checkbox" disabled'
46a8da2740d9 Add CheckBox WikiStyle notation "- [ ]"
HIROSE Yuuji <yuuji@gentei.org>
parents: 496
diff changeset
618 checkboxON="${cb} checked>"
46a8da2740d9 Add CheckBox WikiStyle notation "- [ ]"
HIROSE Yuuji <yuuji@gentei.org>
parents: 496
diff changeset
619 checkboxOFF="${cb}>"
267
9bfa9bda1289 Add `!' to href pattern.
HIROSE Yuuji <yuuji@gentei.org>
parents: 266
diff changeset
620 _hrefptn="[-A-Za-z0-9,.:;/~_%#&+?=@!]*"
482
3dc012eb1ad0 URL pattern fixed to exclude URL example which starts with multibyte
HIROSE Yuuji <yuuji@gentei.org>
parents: 479
diff changeset
621 _hrefptn="[A-Za-z0-9/~%+?=@!.][^][()<> ]*" # URL should start with ASCII
451
8965bdad3172 Add convenient link pattern [[#ArticleId]] for direct link to articles.
HIROSE Yuuji <yuuji@gentei.org>
parents: 448
diff changeset
622 sed -e "s|\[\[\#\([0-9][0-9]*\)\]\]|<a href=\"?aid\1\">#\1</a>|g" \
479
077dc1763239 Inhibit escaping required chars from hash-tag search keyword
HIROSE Yuuji <yuuji@gentei.org>
parents: 478
diff changeset
623 -e "s|\[\[#\([^]&]*\)\]\]|<a href=\"?kwd=\1\&stage=searchart\">\#\1</a>|g" \
451
8965bdad3172 Add convenient link pattern [[#ArticleId]] for direct link to articles.
HIROSE Yuuji <yuuji@gentei.org>
parents: 448
diff changeset
624 -e "s|\[\[\($_hrefptn\)\|\([^]]*\)\]\]|<a href=\"\1\">\2</a>|g" \
284
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
625 -e "s|\[\[\($_hrefptn\)\]\]|<a href=\"\1\">\1</a>|" \
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
626 -e "s|{{{\($_hrefptn\)\|\(.*\)}}}|<iframe src=\"\1\" height=\"\2\"></iframe>|g" \
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
627 -e "s|{{{\($_hrefptn\)}}}|<iframe src=\"\1\"></iframe>|g" \
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
628 -e "s|{{\($_hrefptn\)\|\(.*\)}}|<img src=\"\1\" width=\"\2\">|g" \
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
629 -e "s|{{\($_hrefptn\)}}|<img src=\"\1\">|g"\
28284f903ddc Allow OSM Wikistyle notation in hreflink()
HIROSE Yuuji <yuuji@gentei.org>
parents: 281
diff changeset
630 -e "s|^href=\($_hrefptn\)|<a &>\1</a>|" \
425
961173fdc904 # at the beginning of the line turns to <h2>...</h2>
HIROSE Yuuji <yuuji@gentei.org>
parents: 424
diff changeset
631 -e "s|^iframe=\($_hrefptn\)|<iframe src=\"\1\"></iframe>|" \
496
18f7f10566bf Add link notation: "video=URL"
HIROSE Yuuji <yuuji@gentei.org>
parents: 495
diff changeset
632 -e "s|^video=\($_hrefptn\)|<video controls><source height=\"320\" src=\"\1\"></video>|" \
426
b3b33923638c ## at the beginning of the line turns to <h2>...</h2>
HIROSE Yuuji <yuuji@gentei.org>
parents: 425
diff changeset
633 -e "s,^#### *\(.*\),<h4>\1</h4>," \
b3b33923638c ## at the beginning of the line turns to <h2>...</h2>
HIROSE Yuuji <yuuji@gentei.org>
parents: 425
diff changeset
634 -e "s,^### *\(.*\),<h3>\1</h3>," \
483
be821d63848c Consecutive 3 or more hyphens become <hr>
HIROSE Yuuji <yuuji@gentei.org>
parents: 482
diff changeset
635 -e "s,^## *\(.*\),<h2>\1</h2>," \
485
021e7943fd99 Emphasis pattern *word*, _word_ and strong pattern **word**, __word__
HIROSE Yuuji <yuuji@gentei.org>
parents: 483
diff changeset
636 -e 's,^----*$,<hr>,' \
486
44b4a45e2617 Emphasizing pattherns like *word* should have surrounding spaces.
HIROSE Yuuji <yuuji@gentei.org>
parents: 485
diff changeset
637 -e 's, \*\*\([^* |][^*|]*[^ |]\)\*\* ,<strong>\1</strong>,g' \
44b4a45e2617 Emphasizing pattherns like *word* should have surrounding spaces.
HIROSE Yuuji <yuuji@gentei.org>
parents: 485
diff changeset
638 -e 's, __\([^_ |][^_]*[^ ]\)__ ,<strong>\1</strong>,g' \
44b4a45e2617 Emphasizing pattherns like *word* should have surrounding spaces.
HIROSE Yuuji <yuuji@gentei.org>
parents: 485
diff changeset
639 -e 's, \*\([^* |][^*|]*[^ |]\)\* ,<em>\1</em>,g' \
495
59cd8278a5b5 Trailing 2 consecutive SPC will be translated to <br>
HIROSE Yuuji <yuuji@gentei.org>
parents: 494
diff changeset
640 -e 's, _\([^_ ][^_]*[^ ]\)_ ,<em>\1</em>,g' \
502
46a8da2740d9 Add CheckBox WikiStyle notation "- [ ]"
HIROSE Yuuji <yuuji@gentei.org>
parents: 496
diff changeset
641 -e 's, $,<br>,' \
46a8da2740d9 Add CheckBox WikiStyle notation "- [ ]"
HIROSE Yuuji <yuuji@gentei.org>
parents: 496
diff changeset
642 -e "s,- \[ *\]\([^|-]*\),${checkboxOFF}<label>\\1</label>,g" \
46a8da2740d9 Add CheckBox WikiStyle notation "- [ ]"
HIROSE Yuuji <yuuji@gentei.org>
parents: 496
diff changeset
643 -e "s,- \[[^ ]\]\([^|-]*\),${checkboxON}<label>\\1</label>,g" \
46a8da2740d9 Add CheckBox WikiStyle notation "- [ ]"
HIROSE Yuuji <yuuji@gentei.org>
parents: 496
diff changeset
644
208
36b6354de5cb Profile form should escape entities. Apply ^href conversion to Profile
HIROSE Yuuji <yuuji@gentei.org>
parents: 207
diff changeset
645 }
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
646 minitbl() {
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
647 sed -n '
295
56c2d2df5b7b minitbl() detection rule modified from /^|[^|]/ to /^|.*|/
HIROSE Yuuji <yuuji@gentei.org>
parents: 292
diff changeset
648 /^|.*|/ {; # If the line begin with "|" and has 2 or more "|"
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
649 s,|$,,; # Remove trailing "|" first
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
650 s,|\* *\([^|]*\) *,<th>\1</th>,g; # "|*..." to "<th>...</th>"
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
651 s,| *\([^|]*\) *,<td>\1</td>,g; # "|..." to "<td>...</td>"
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
652 s,^,<tr>,; s,$,</tr>,; # Enclose with "<tr>" and "</tr>"
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
653 H; # Concat this line to HoldSpace
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
654 s/.*//; # Delete PatternSpace for finalization
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
655 $ b cont
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
656 d; # If in final line, output the rest, else jump to next turn
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
657 }
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
658 :cont
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
659 x; # For non-"|" lines, check HoldSpace
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
660 /^./ {; # If HoldSpace has "|" table elements
398
f50d4df067b5 Workaround regexp fix for FreeBSD sed
HIROSE Yuuji <yuuji@gentei.org>
parents: 397
diff changeset
661 s|^.|<table class="mini">|; # Enclose whole elements like this:
f50d4df067b5 Workaround regexp fix for FreeBSD sed
HIROSE Yuuji <yuuji@gentei.org>
parents: 397
diff changeset
662 # . of ^. is workaround for FreeBSD sed
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
663 # s|$|</table>|; # <table class="mini">..\n..</table>
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
664 p; # Print whole "table" element
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
665 s/.*//; # Erase all when done.
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
666 x; s|^|</table>|; x; # Preppend /table to the next line
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
667 }
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
668 x; # Back to the newest line
489
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
669 p; # Print rest' | miniul
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
670 }
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
671 miniul() {
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
672 sed -e '
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
673 /^\* / {; # 行頭 "* "
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
674 x; s,^,<ul>,; x; # 1週目: ホールドスペース先頭に <ul> を
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
675 :top
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
676 s/\n//;
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
677 s/^ *//; # 2周目以降: 行頭空白削除
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
678 s,\* ,,; # まず行頭の "* " を消しておく
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
679 H; # 置き換え結果をホールドスペースに追加
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
680 s/.*//; # パターンスペースは消しておく
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
681 # ↓最終行なら残ったホールドスペース処理のため :cont へ
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
682 $ b cont
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
683 N; # 次の行を読む
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
684 s/\n//; # 空白始まりは継続行
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
685 /^ /b top
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
686 x; s/\n/<li>/; s,$,</li>,; # 継続行でなければ <li></li> で囲む
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
687 p; s/.*//;
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
688 x; # 次も "* " ならループを抜けない
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
689 /^\* /b top
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
690 s,^,</ul>,; # 次が一般行なら箇条書終わり
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
691 }
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
692
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
693 :cont
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
694 x; # 行頭| 以外の行:
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
695 /./ {; # ホールドスペースに文字列があれば
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
696 s/^\n/<li>/; s,$,</li></ul>,; # 箇条書を書き切って終わり
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
697 H; x
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
698 }
843
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
699 x' | miniol
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
700 }
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
701 miniol() {
844
ab4f89043f23 No need to use -E for miniol
HIROSE Yuuji <yuuji@gentei.org>
parents: 843
diff changeset
702 sed -e '
843
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
703 /^[1-9]\. / {; # 行頭 "N. "
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
704 x; s,^,<ol>,; x; # 1週目: ホールドスペース先頭に <ol> を
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
705 :top
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
706 s/\n//;
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
707 s/^ *//; # 2周目以降: 行頭空白削除
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
708 H; # 置き換え結果をホールドスペースに追加
851
7ca68e8c2702 Attribute "start=" passed to OL
HIROSE Yuuji <yuuji@gentei.org>
parents: 848
diff changeset
709 x;
7ca68e8c2702 Attribute "start=" passed to OL
HIROSE Yuuji <yuuji@gentei.org>
parents: 848
diff changeset
710 s,^<ol>\n\([1-9][0-9]*\)\. ,<ol start="\1"><li>,; # 1行目のみ
7ca68e8c2702 Attribute "start=" passed to OL
HIROSE Yuuji <yuuji@gentei.org>
parents: 848
diff changeset
711 s,[1-9][0-9]*\. ,,; # まず行頭の "N. " を消しておく
7ca68e8c2702 Attribute "start=" passed to OL
HIROSE Yuuji <yuuji@gentei.org>
parents: 848
diff changeset
712 x;
843
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
713 s/.*//; # パターンスペースは消しておく
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
714 # ↓最終行なら残ったホールドスペース処理のため :cont へ
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
715 $ b cont
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
716 N; # 次の行を読む
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
717 s/\n//; # 空白始まりは継続行
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
718 /^ /b top
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
719 x; s/\n/<li>/; s,$,</li>,; # 継続行でなければ <li></li> で囲む
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
720 p; s/.*//;
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
721 x; # 次も "* " ならループを抜けない
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
722 /^[1-9][0-9]*\. /b top
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
723 s,^,</ol>,; # 次が一般行なら箇条書終わり
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
724 }
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
725
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
726 :cont
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
727 x; # 行頭| 以外の行:
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
728 /./ {; # ホールドスペースに文字列があれば
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
729 s/^\n/<li>/; s,$,</li></ol>,; # 箇条書を書き切って終わり
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
730 H; x
a0dcf6477310 Add markdown conversion of <ol>
HIROSE Yuuji <yuuji@gentei.org>
parents: 842
diff changeset
731 }
489
075897fee2c0 minitbl() includes mini-ul translation
HIROSE Yuuji <yuuji@gentei.org>
parents: 486
diff changeset
732 x'
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
733 }
179
479b57681014 Subshellize acclog() and sanitize rowid
HIROSE Yuuji <yuuji@gentei.org>
parents: 178
diff changeset
734 acclog() (
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
735 # $1=table, $2=rowid
471
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
736 n=${2%%[!-0-9]*} # Remove non-digit chars from $2(should be rowid)
179
479b57681014 Subshellize acclog() and sanitize rowid
HIROSE Yuuji <yuuji@gentei.org>
parents: 178
diff changeset
737 if [ -n "$n" ]; then
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
738 now=`date +"%F %T"`
179
479b57681014 Subshellize acclog() and sanitize rowid
HIROSE Yuuji <yuuji@gentei.org>
parents: 178
diff changeset
739 #query "replace into acclog values('$user', '$1', '$n', '$now');"
278
2f1607d8b56b New access log schema started
HIROSE Yuuji <yuuji@gentei.org>
parents: 276
diff changeset
740 #query "replace into acclog values('$user', '$1', $n, '$now');"
2f1607d8b56b New access log schema started
HIROSE Yuuji <yuuji@gentei.org>
parents: 276
diff changeset
741 query "replace into tblaccesses values('$user', '$1', $n, '$now');"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
742 fi
179
479b57681014 Subshellize acclog() and sanitize rowid
HIROSE Yuuji <yuuji@gentei.org>
parents: 178
diff changeset
743 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
744 gecos() (
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
745 u=`sqlquote "${1:-$user}"`
173
31e63d173d38 gecos() uses gecoses table
HIROSE Yuuji <yuuji@gentei.org>
parents: 171
diff changeset
746 query "select gecos from gecoses where name=$u;"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
747 )
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
748 setpar() {
697
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
749 # 2020/5/14 Add dirty code to cache essential params
737
441768a11b84 Joingrp use var-name adduser instead of user
HIROSE Yuuji <yuuji@gentei.org>
parents: 736
diff changeset
750 if [ x"$session" = x"$main_session" ]; then
441768a11b84 Joingrp use var-name adduser instead of user
HIROSE Yuuji <yuuji@gentei.org>
parents: 736
diff changeset
751 case "$1" in
441768a11b84 Joingrp use var-name adduser instead of user
HIROSE Yuuji <yuuji@gentei.org>
parents: 736
diff changeset
752 user) _user="$v" ;;
441768a11b84 Joingrp use var-name adduser instead of user
HIROSE Yuuji <yuuji@gentei.org>
parents: 736
diff changeset
753 skey) _skey="$v" ;;
441768a11b84 Joingrp use var-name adduser instead of user
HIROSE Yuuji <yuuji@gentei.org>
parents: 736
diff changeset
754 esac
441768a11b84 Joingrp use var-name adduser instead of user
HIROSE Yuuji <yuuji@gentei.org>
parents: 736
diff changeset
755 fi
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
756 query "replace into par values('$session', '$1', '$2', \"$3\");"
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
757 }
763
41e443a925c8 Introduce unsetpar() for continuous page building
HIROSE Yuuji <yuuji@gentei.org>
parents: 749
diff changeset
758 unsetpar() {
41e443a925c8 Introduce unsetpar() for continuous page building
HIROSE Yuuji <yuuji@gentei.org>
parents: 749
diff changeset
759 for i; do
41e443a925c8 Introduce unsetpar() for continuous page building
HIROSE Yuuji <yuuji@gentei.org>
parents: 749
diff changeset
760 if [ x"$session" = x"$main_session" ]; then
41e443a925c8 Introduce unsetpar() for continuous page building
HIROSE Yuuji <yuuji@gentei.org>
parents: 749
diff changeset
761 case "$i" in
41e443a925c8 Introduce unsetpar() for continuous page building
HIROSE Yuuji <yuuji@gentei.org>
parents: 749
diff changeset
762 user|skey) unset _$i ;;
41e443a925c8 Introduce unsetpar() for continuous page building
HIROSE Yuuji <yuuji@gentei.org>
parents: 749
diff changeset
763 esac
41e443a925c8 Introduce unsetpar() for continuous page building
HIROSE Yuuji <yuuji@gentei.org>
parents: 749
diff changeset
764 fi
836
b3516ee2bb4d Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents: 833
diff changeset
765 query "DELETE FROM par WHERE var='$i' AND sessid='$session';"
763
41e443a925c8 Introduce unsetpar() for continuous page building
HIROSE Yuuji <yuuji@gentei.org>
parents: 749
diff changeset
766 done
41e443a925c8 Introduce unsetpar() for continuous page building
HIROSE Yuuji <yuuji@gentei.org>
parents: 749
diff changeset
767 }
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
768 replpar() {
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
769 query "update par set val=\"$3\" where sessid='$session' and var='$1' and type='$2';"
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
770 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
771 getpar() {
697
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
772 # err GETPAR=$1, _user=$_user
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
773 val=""
737
441768a11b84 Joingrp use var-name adduser instead of user
HIROSE Yuuji <yuuji@gentei.org>
parents: 736
diff changeset
774 if [ x"$session" = x"$main_session" ]; then
736
1ab3cc61a462 Temporary disable variable cache'ing for joingrp()
HIROSE Yuuji <yuuji@gentei.org>
parents: 732
diff changeset
775 case "$1" in # Dirty cache mechanism for high-load average
1ab3cc61a462 Temporary disable variable cache'ing for joingrp()
HIROSE Yuuji <yuuji@gentei.org>
parents: 732
diff changeset
776 user) val=$_user ;;
1ab3cc61a462 Temporary disable variable cache'ing for joingrp()
HIROSE Yuuji <yuuji@gentei.org>
parents: 732
diff changeset
777 skey) val=$_skey ;;
1ab3cc61a462 Temporary disable variable cache'ing for joingrp()
HIROSE Yuuji <yuuji@gentei.org>
parents: 732
diff changeset
778 esac
1ab3cc61a462 Temporary disable variable cache'ing for joingrp()
HIROSE Yuuji <yuuji@gentei.org>
parents: 732
diff changeset
779 fi
697
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
780 val=${val:-`query "select val from par where var='$1' and sessid='$session' $2;"`}
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
781 ## err getpar/val1: "val=[$val]"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
782 if [ -z "$val" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
783 val=`query "select val from cookie where var='$1' and sessid='$session' $2;"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
784 fi
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
785 ## err getpar/val2: "val=[$val]"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
786 case "$var" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
787 owner)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
788 if [ x"$user" = x"$val" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
789 echo $user; return
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
790 elif ismember $user $val; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
791 echo $val; return
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
792 fi ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
793 esac
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
794 ## err getpar/ret: "val=[$val]"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
795 echo "$val"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
796 }
697
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
797 setskey() {
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
798 # For quick response...(?)
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
799 query "REPLACE INTO $sesstb VALUES('$1', '$2', datetime('now', 'localtime', '$timeout'));"
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
800 }
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
801 chkskey() {
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
802 # $1=sesskey, $user=LoginUserName
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
803 test -z "$1" && return 1
714
d7c5f86d9c75 Auth check more rigidly
HIROSE Yuuji <yuuji@gentei.org>
parents: 713
diff changeset
804 repl=`query "SELECT rowid,user FROM $sesstb WHERE user='$user' AND skey = '$1';"` || return 2
d7c5f86d9c75 Auth check more rigidly
HIROSE Yuuji <yuuji@gentei.org>
parents: 713
diff changeset
805 rowid=${repl%%\|*}; repuser=${repl#*\|}
d7c5f86d9c75 Auth check more rigidly
HIROSE Yuuji <yuuji@gentei.org>
parents: 713
diff changeset
806 if [ -n "$rowid" -a x"$user" = x"$repuser" ]; then
697
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
807 query "UPDATE $sesstb SET expire=datetime('now', 'localtime', '$timeout') WHERE rowid=$rowid;" # Errors can be ignored
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
808 return 0
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
809 fi
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
810 return 1
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
811 }
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
812 resetskey() {
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
813 if [ -n "$_user" ]; then
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
814 query "DELETE FROM $sesstb WHERE user='$_user';"
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
815 fi
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
816 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
817 getpartype() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
818 query "select type from par where var='$1' and sessid='$session' $2;"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
819 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
820 getparcount() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
821 query "select count(*) from par where var='$1' and sessid='$session' $2;"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
822 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
823 getparfilename() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
824 # null if type of $1 is not file
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
825 (f=`query "select val from par where var='$1' and sessid='$session' and type='file' $2;"`
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
826 [ -n "$f" ] && echo $f)
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
827 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
828 sqlquote() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
829 (v="$1"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
830 case "$v" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
831 "") return ;; # null
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
832 "X'"*) # quoted hex string
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
833 echo $1 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
834 *\"*) # string including dbl-quote"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
835 v=`echo "$v"|sed -e 's/\"/\"\"/g'`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
836 echo "\"$v\""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
837 return ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
838 *.*.*|*-*-*|*[Ee]*[Ee]*|[Ee]*|*[\ -,:-df-~]*) # string
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
839 echo "\"$v\""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
840 return ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
841 *)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
842 if expr "$v" : '[-0-9.Ee][-0-9.Ee]*$' >/dev/null 2>&1; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
843 echo $v # MAYBE numeric, maybe...
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
844 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
845 echo "\"$v\""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
846 fi ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
847 esac)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
848 }
298
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
849 sqlquotestr() (
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
850 case "$1" in
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
851 *\'*) v=`echo "$1"| sed "s/'/''/g"`
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
852 echo "'$v'" ;;
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
853 *) echo "'$1'" ;;
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
854 esac
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
855 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
856 mktempd() {
11
3565d93c2fb1 add mpsplit.pl
HIROSE Yuuji <yuuji@gentei.org>
parents: 8
diff changeset
857 TMPDIR=$tmpd mktemp -d -t $session
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
858 }
69
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
859 getcachedir() { # $1=maintable
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
860 if [ -n "$imgcached" ]; then
231
332092fa437e Separate cachedir
HIROSE Yuuji <yuuji@gentei.org>
parents: 230
diff changeset
861 echo $imgcached/$(echo ${1:-hoge}|md5)/$thumbxy
69
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
862 else
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
863 echo $tmpd/$thumbxy
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
864 fi
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
865 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
866 getval() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
867 # $1=table $2=col $3(optional)=condition
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
868 case `gettbl_coltype "/$1/$2"` in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
869 user|author) # author added 2015-06-18 for article(author)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
870 echo "$user" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
871 stamp|datetime)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
872 date "+%F %T" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
873 serial)
218
849e6dee3485 Rewind it to use $2 instead of "serial" (getval())
HIROSE Yuuji <yuuji@gentei.org>
parents: 217
diff changeset
874 (s=`getpar $2`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
875 if [ -n "$s" ]; then echo $s; else echo "`date +%s`x$$"; fi) ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
876 *)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
877 getpar "$2" "$3";;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
878 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
879 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
880
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
881 getvalquote() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
882 # $1=table $2=col $3(optional)=condition
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
883 (v=`getval "$@"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
884 case "$v" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
885 "") echo NULL ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
886 *) sqlquote "$v" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
887 esac)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
888 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
889 getparquote() {
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
890 sqlquote "`getpar $1`"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
891 }
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
892 getbinbyid() {
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
893 # $1=tbl $2=col $3=rowid $4=tmpdirForBinary
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
894
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
895 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
896 getvalbyid() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
897 # $1=tbl $2=col $3=rowid $4=tmpdirForBinary
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
898 # If two or more values found, save them to $tmpd/${column}.$N and
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
899 # store the number of files into $tmpd/${column}.count and
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
900 # their each rowid stored into $tmpd/${column}.$N.rowid.
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
901 ## err gtb-$1=`gettblcols $1`, tbl=$1, col=$2, '$3'=$3
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
902
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
903 (for c in `gettblcols $1`; do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
904 if [ x"$2" = x"$c" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
905 ###sq $db "select $2 from $1 where rowid=$3"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
906 query "select $2 from $1 where rowid=$3;"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
907 return
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
908 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
909 done
231
332092fa437e Separate cachedir
HIROSE Yuuji <yuuji@gentei.org>
parents: 230
diff changeset
910 rowid=$3
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
911 pk=`gettblpkey $1`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
912 key=`query "select $pk from $1 where rowid=$3;"`
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
913 getkey="(select $pk from $1 where rowid=$3)"
388
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
914 td=${4:-$tmpd}
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
915 [ -d $td ] || mkdir -p $td
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
916 ### err "select $pk from $1 where rowid=$3" - key=$key '$4(tmp)'=$4
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
917 for kt in s m; do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
918 t=${1}_$kt
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
919 for c in `gettbl_${kt}_cols $1`; do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
920 vcount=1 # count(val)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
921 if [ x"$2" = x"$c" ]; then
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
922 #### cond="$t where $pk=\"$key\" and key=\"$c\"" #2015-07-22
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
923 cond="$t where $pk=$getkey and key=\"$c\""
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
924 val=`query "select val from $cond limit 1;"`
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
925 type=`query "select type from $cond limit 1;"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
926 if [ $kt = m ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
927 ###vcount=`sq $db "select count(val) from $cond"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
928 # Reset val to store filenames if type is string
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
929 val=`query "select val from $cond and type like 'file:%' order by rowid;"`
699
b33d6e7730ac Remove some debug output and include timestamp in err()
HIROSE Yuuji <yuuji@gentei.org>
parents: 698
diff changeset
930 ## err gvb1-sql: "select count(val) from $cond;"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
931 vcount=`query "select count(val) from $cond;"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
932 echo $vcount > $td/$c.count
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
933 i=0
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
934 ## err gvbid: i=$i vcount=$vcount
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
935 while [ $i -lt $vcount ]; do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
936 slice="order by rowid limit 1 offset $i"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
937 i=$((i+1))
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
938 fn=$c.$i
699
b33d6e7730ac Remove some debug output and include timestamp in err()
HIROSE Yuuji <yuuji@gentei.org>
parents: 698
diff changeset
939 ## err td=$td, fn=$fn, type=$type, val="[$val]"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
940 case $type in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
941 file:*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
942 #file=$td/$val
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
943 r_f=`query "select rowid||'//'||val from $cond $slice;"`
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
944 f_rid=${r_f%%//*}
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
945 file=$td/${r_f##*//}
47
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
946 # FOR SPEED: Skip file generation if imgcache exists
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
947 [ -s "$file" -a -s "$td/$fn.rowid" -a -s "$file.rowid" ] \
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
948 && [ x"$f_rid" = x"`cat $td/$fn.rowid`" ] \
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
949 && continue
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
950 # err gvbid-get="select quote(bin) from $cond $slice;"
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
951 ## err output: "fn=[$fn] file=[$file]"
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
952 sq $db<<EOF | unhexize > "$file"
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
953 .output '$td/$fn.rowid'
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
954 select rowid from $cond $slice;
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
955 .output '$td/$fn'
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
956 select val from $cond $slice;
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
957 .output '$td/${fn}.content-type'
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
958 select substr(type, 6) from $cond $slice;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
959 .output stdout
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
960 select quote(bin) from $cond $slice;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
961 EOF
131
9782a978d53c Image cach detection method modified
HIROSE Yuuji <yuuji@gentei.org>
parents: 128
diff changeset
962 ## err gvbid-get2: "`ls -lF $file`"
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
963 ## err i=$i - file=$file rowid=`cat $td/$fn.rowid`
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
964 cp "$td/$fn.rowid" "$file.rowid" 2>&3 # for convenience
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
965 cp "$file" "$file.orig" 2>&3
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
966 ls -lh "$file" |
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
967 awk '{print $5"B"}'|sed 's/BB/B/' > "$file.size"
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
968 case "$type" in
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
969 *:[Ii]mage*) mogrify -geometry $thumbxy "$file" ;;
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
970 ### ここのアイコンを増やしたい
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
971 *|*:[Aa]pplication*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
972 convert -geometry $thumbxy $imgdir/file-icon.png \
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
973 png:- > "$file"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
974 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
975 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
976 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
977 *)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
978 sq $db<<EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
979 .output $td/$fn.rowid
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
980 select rowid from $cond $slice;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
981 .output $td/$fn
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
982 select val from $cond $slice;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
983 EOF
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
984 val=$val${val:+$nl}"`echo $fn`" # should be delimited by newline
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
985 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
986 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
987 done
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
988 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
989 rm -f $td/$c.count
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
990 case $type in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
991 file:*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
992 echo "$val" \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
993 | while read fn; do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
994 file=$td/$fn
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
995 if [ ! -s "$file" ]; then
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
996 ## sq $db "select quote(bin) from $cond and val=\"$fn\"" \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
997 query "select quote(bin) from $cond and val=\"$fn\";" \
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
998 | unhexize > "$file"
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
999 ##@@## -- echo ${type#file:} > "$file.content-type"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1000 case $type in
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1001 *:[Ii]mage*) mogrify -geometry $thumbxy "$file" ;;
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1002 *:[Aa]pplication*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1003 convert -geometry $thumbxy $imgdir/file-icon.png \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1004 png:- > $file ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1005 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1006 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1007 done
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1008 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1009 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1010 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1011 echo "$val" # Keep newlines by ""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1012 return
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1013 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1014 done
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1015 done)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1016 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1017 getvalbypkey() (
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1018 # $1=tbl $2=col $3=pkey $4=tmpdirForBinary
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1019 pk=`gettblpkey $1`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1020 rowid=`query "select rowid from $1 where $pk='$3';"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1021 getvalbyid "$1" "$2" $rowid $4
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1022 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1023 getvalbycond() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1024 # $1=tbl $2=col $3=SQL-Condition
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1025 ###rowid=`sq $db "select rowid from $1 where $3"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1026 rowid=`query "select rowid from $1 where $3;"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1027 if [ -n "$rowid" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1028 getvalbyid "$1" "$2" $rowid "$4"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1029 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1030 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1031 getpwfield() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1032 # getpwfield user column
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1033 # val=`sqlite3 $db "select $2 from passwd where name='$1' $3"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1034 val=`getvalbycond user $2 "name='$1'"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1035 if [ -n "$val" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1036 echo "$val"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1037 return 0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1038 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1039 return 1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1040 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1041 }
578
c064c7d357dc Sanitize argument from cgi with numericalize()
HIROSE Yuuji <yuuji@gentei.org>
parents: 577
diff changeset
1042 numericalize() {
c064c7d357dc Sanitize argument from cgi with numericalize()
HIROSE Yuuji <yuuji@gentei.org>
parents: 577
diff changeset
1043 echo "${1%%[!0-9]*}"
c064c7d357dc Sanitize argument from cgi with numericalize()
HIROSE Yuuji <yuuji@gentei.org>
parents: 577
diff changeset
1044 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1045 encode() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1046 if [ -z "$sha1" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1047 if type sha1 >/dev/null 2>&1; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1048 sha1=sha1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1049 elif type sha1sum >/dev/null 2>&1; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1050 sha1=sha1sum
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1051 elif type gsha1sum >/dev/null 2>&1; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1052 sha1=gsha1sum
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1053 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1054 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1055 $sha1 "$@" | cut -d' ' -f1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1056 }
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1057 enjpeg() {
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1058 if [ -z "$cjpeg" ]; then
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1059 if type cjpeg >/dev/null 2>&1; then
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1060 cjpeg="cjpeg"
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1061 else
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1062 cjpeg="convert - jpeg:-"
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1063 fi
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1064 fi
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1065 $cjpeg "$@"
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
1066 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1067 mycrypt() (
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1068 key=$1 salt=$2
596
7ece8cc62a7a Deactivate debug output in a loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 592
diff changeset
1069 # err \$2=$2
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1070 case $2 in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1071 '$'*'$'*) salt=${salt#\$4\$}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1072 salt=${salt%\$*} ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1073 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1074 echo -n '$4$'"$salt"'$'
144
f9e8504bb8f2 Abort if encode fails
HIROSE Yuuji <yuuji@gentei.org>
parents: 143
diff changeset
1075 echo "$salt$key" | encode || exit 1 # Abort if fail to call encode
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1076 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1077 hexize() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1078 if [ -z "$hexize" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1079 if type xxd >/dev/null 2>&1; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1080 hexize="xxd -p"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1081 else
8
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1082 hexize_hd() {
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1083 hexdump -ve '1/1 "%.2x"'
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1084 }
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1085 hexize="hexize_hd"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1086 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1087 fi
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1088 cat "$@" | $hexize | tr -d '\n'
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1089 }
8
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1090 unhexize() {
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1091 if [ -z "$unhex" ]; then
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1092 if type xxd >/dev/null 2>&1; then
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1093 unhex="xxd -p -r"
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1094 elif type perl >/dev/null 2>&1; then
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1095 cat >$tmpd/unhex.pl<<EOF
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1096 s/([0-9a-f]{2})/print chr hex \$1/gie
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1097 EOF
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1098 # Perl refuses -e in setuid circumstances, which can be absurdly
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1099 # avoided by creating scripts in a file where its parent directory is
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1100 # world writable...:)
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1101 unhex="perl -n $tmpd/unhex.pl"
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1102 fi
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1103 fi
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1104 cat "$@" | $unhex
8
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1105 # cat $1 | tee /tmp/uh.in| $unhex | tee /tmp/uh.out
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
1106 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1107 percenthex() {
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1108 hexize "$@" | sed 's/\(..\)/%\1/g'
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1109 }
155
511406c0cbbe Do HTML escape at value editing
HIROSE Yuuji <yuuji@gentei.org>
parents: 154
diff changeset
1110 htmlescape() {
511406c0cbbe Do HTML escape at value editing
HIROSE Yuuji <yuuji@gentei.org>
parents: 154
diff changeset
1111 sed -e 's/\&/\&amp;/g' -e 's/"/\&quot;/g' -e "s/'/\&apos;/g" \
749
f9f88278f6a0 Use htmlescape more places
HIROSE Yuuji <yuuji@gentei.org>
parents: 747
diff changeset
1112 -e "s/</\&lt;/g; s/>/\&gt;/g" -e 's/`/\&#096;/g' -e 's/(/\&#040;/g' \
f9f88278f6a0 Use htmlescape more places
HIROSE Yuuji <yuuji@gentei.org>
parents: 747
diff changeset
1113 -e 's/`/\&#96/'
155
511406c0cbbe Do HTML escape at value editing
HIROSE Yuuji <yuuji@gentei.org>
parents: 154
diff changeset
1114 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1115 enascii() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1116 if [ -z "$enascii" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1117 if type kakasi >/dev/null 2>&1; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1118 enascii="kakasi -Ha -Ka -Ja -Ea -ka"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1119 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1120 enascii_now=`date +%FT%T`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1121 enascii_sed() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1122 nkf -Z0Z1Z2 \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1123 | sed -e "s/^/$enascii_now/" -e "s|[^-0-9.A-z/,()_=]|x|g"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1124 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1125 enascii="enascii_sed"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1126 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1127 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1128 cat "$@" | $enascii
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1129 }
154
75598f2d3118 TEST: blog_showentry2 - constructing loop by output from single SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 153
diff changeset
1130 size_h() {
164
0cc22764899e size_h returns more recognizable unit
HIROSE Yuuji <yuuji@gentei.org>
parents: 163
diff changeset
1131 i="$1" oi=$1
0cc22764899e size_h returns more recognizable unit
HIROSE Yuuji <yuuji@gentei.org>
parents: 163
diff changeset
1132 set -- B B KB MB GB TB
0cc22764899e size_h returns more recognizable unit
HIROSE Yuuji <yuuji@gentei.org>
parents: 163
diff changeset
1133 while [ $((i)) -gt 9 -a -n "$1" ]; do # -gt 9 means $oi > 1024
154
75598f2d3118 TEST: blog_showentry2 - constructing loop by output from single SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 153
diff changeset
1134 oi=$i
75598f2d3118 TEST: blog_showentry2 - constructing loop by output from single SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 153
diff changeset
1135 i=$((i/1024))
164
0cc22764899e size_h returns more recognizable unit
HIROSE Yuuji <yuuji@gentei.org>
parents: 163
diff changeset
1136 shift
154
75598f2d3118 TEST: blog_showentry2 - constructing loop by output from single SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 153
diff changeset
1137 done
75598f2d3118 TEST: blog_showentry2 - constructing loop by output from single SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 153
diff changeset
1138 echo ${oi}$1
75598f2d3118 TEST: blog_showentry2 - constructing loop by output from single SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 153
diff changeset
1139 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1140 gettblconf() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1141 if [ -z "$tconfs" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1142 ## tconfs=`sq $db \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1143 tconfs=`query \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1144 "select tbl||'/'||col||'='||keytype||'/'||objtype from $conftbl;"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1145 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1146 # /tb1/col1=p/text /tb1/col2=s/text /tb1/col3=m/image /tb2/col1=p/text ...
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1147 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1148 gettblkeys() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1149 # $1=tbl
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1150 gettblconf
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1151 echo "$tconfs" | fgrep "/$1/" | \
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1152 (type="" keys="" fks="" cols="" scols="" mcols="" hcols=""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1153 while IFS='=' read tc conf; do # tc=/tb1/col1 conf=s/text
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1154 col=${tc##*/} type=${conf%%/*}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1155 case $type in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1156 *p*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1157 cols=$cols"${cols:+:}$col"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1158 keys=$keys"${keys:+:}$col" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1159 *f*) cols=$cols"${cols:+:}$col"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1160 fks=$fks"${fks:+:}$col" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1161 *m*) mcols=$mcols"${mcols:+:}$col" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1162 *s*) scols=$scols"${scols:+:}$col" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1163 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1164 case $type in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1165 *h*) hcols=$hcols"${hcols:+:}$col" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1166 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1167 done
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1168 echo "_keys=$keys _fks=$fks _cols=$cols _scols=$scols _mcols=$mcols _hcols=$hcols")
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1169 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1170 gettblpkey() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1171 # $1=tbl
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1172 gettblkeys $1 | cut -d ' ' -f 1 | sed -e 's/.*=//' -e 's/:/ /g'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1173 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1174 gettblfkey() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1175 (x=`gettblkeys $1`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1176 x=${x#*_fks=} # cut before "_fks=" including
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1177 echo ${x%% *} | tr ':' ' ')
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1178 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1179 gettblcols() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1180 (x=`gettblkeys $1`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1181 x=${x#*_cols=} # cut before "_cols=" including
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1182 echo ${x%% *} | tr ':' ' ')
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1183 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1184 gettbl_s_cols() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1185 (x=`gettblkeys $1`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1186 x=${x#*_scols=} # cut before "_scols=" including
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1187 echo ${x%% *} | tr ':' ' ')
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1188 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1189 gettbl_m_cols() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1190 (x=`gettblkeys $1`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1191 x=${x#*_mcols=} # cut before "_mcols=" including
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1192 echo ${x%% *} | tr ':' ' ')
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1193 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1194 gettbl_h_cols() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1195 (x=`gettblkeys $1`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1196 x=${x#*_hcols=} # cut before "_hcols=" including
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1197 echo ${x%% *} | tr ':' ' ')
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1198 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1199 gettbl_coltype() (
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1200 gettblconf
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1201 x=`echo "$tconfs"|fgrep $1=`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1202 x=${x#*=} # cut before =
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1203 echo ${x#*/} # cut before p/ including
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1204 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1205 is_hidden() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1206 # $1=Tbl $2=col
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1207 gettblconf
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1208 x=`echo "$tconfs"|fgrep /$1/$2=`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1209 x=${x#*=} # cut before =
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1210 x=${x%%/*} # cut after /
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1211 case $x in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1212 *h*) return 0 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1213 *) return 1 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1214 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1215 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1216
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1217 dbsetbyid() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1218 # $1=tbl $2=id $3=col $4=val/filename - &optional - $5=content-type
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1219 (t0=$1 t=$1 p=$2 c=$3
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1220 tsc=$t/$c val=$4
386
606404fbb3d3 Sort group list by posting time(wtime)
HIROSE Yuuji <yuuji@gentei.org>
parents: 384
diff changeset
1221 quotedp=$(sqlquotestr "$p")
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1222 unset primary update
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1223 gettblconf
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1224 #err tsc=$tsc, tconfs="$tconfs"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1225 conf=`echo "$tconfs"|fgrep "$tsc"=`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1226 #err conf=$conf
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1227 case ${conf#*=} in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1228 p*) primary=1 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1229 f*) update=1 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1230 u*) ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1231 m*) t=${t}_m;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1232 s*) t=${t}_s;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1233 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1234 #err t=$t
386
606404fbb3d3 Sort group list by posting time(wtime)
HIROSE Yuuji <yuuji@gentei.org>
parents: 384
diff changeset
1235 type=string fn=""
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1236 case $conf in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1237 */password)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1238 type=encoded ### val=`echo $val|encode`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1239 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1240 */image*|*/document*)
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1241 type=`file --mime-type - < "$val" | cut -d' ' -f2`
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1242 bin="X'`hexize "$val"`'"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1243 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1244 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1245 pkey=`echo "$tconfs"|grep "${t0}/.*=p"|sed 1q`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1246 pkey=${pkey#/*/} # cut $tbl/
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1247 pkey=${pkey%=p/*} # cut =p/... -> primary key
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1248 if [ "$primary" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1249 nulls=`echo "$tconfs"|grep "$t/.*=[fu]/"|sed 's/^.*/, NULL/'|tr -d '\n'`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1250 ###sq $db "replace into $t values(\"$val\"$nulls)"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1251 query "replace into $t values(\"$val\"$nulls);"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1252 elif [ "$update" ]; then
386
606404fbb3d3 Sort group list by posting time(wtime)
HIROSE Yuuji <yuuji@gentei.org>
parents: 384
diff changeset
1253 query "update $1 set $c=\"$val\" where $pkey=$quotedp;"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1254 else
386
606404fbb3d3 Sort group list by posting time(wtime)
HIROSE Yuuji <yuuji@gentei.org>
parents: 384
diff changeset
1255 query "replace into $t values($quotedp, \"$c\", \"$type\", \"$val\", \"$bin\");"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1256 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1257 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1258 }
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1259 expire() (
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1260 at="${1:-$timeout}"
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1261 FMT="${2:-%F %T}"
6
7ccd9c2eb97e Add templates
HIROSE Yuuji <yuuji@gentei.org>
parents: 4
diff changeset
1262 TZ=GMT gdate -d "$at" +"$FMT"
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1263 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1264 addsession() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1265 # expireをセット
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1266 # loginの先にどの画面に行くかの状態遷移表書式を決める
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1267 expire=`expire ${2:-"+1min"}`
309
4188f5b3fd67 Use "quier()" instead of "sq $db" at parameter setup
HIROSE Yuuji <yuuji@gentei.org>
parents: 308
diff changeset
1268 query "replace into session values('$1', '$expire');"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1269 # Remove old session parameters
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1270 now=`expire now`
309
4188f5b3fd67 Use "quier()" instead of "sq $db" at parameter setup
HIROSE Yuuji <yuuji@gentei.org>
parents: 308
diff changeset
1271 query "delete from session where expire < '$now';"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1272 }
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1273 gencookie() (
722
78cc4ba7bf42 Debug code and preparation of Path parameter added
HIROSE Yuuji <yuuji@gentei.org>
parents: 721
diff changeset
1274 path=${URL#*:/}
78cc4ba7bf42 Debug code and preparation of Path parameter added
HIROSE Yuuji <yuuji@gentei.org>
parents: 721
diff changeset
1275 path=${URL%/*}
78cc4ba7bf42 Debug code and preparation of Path parameter added
HIROSE Yuuji <yuuji@gentei.org>
parents: 721
diff changeset
1276 expire="`expire '' '%a, %d-%b-%Y %H:%M:%S GMT'`"
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1277 for kv; do
722
78cc4ba7bf42 Debug code and preparation of Path parameter added
HIROSE Yuuji <yuuji@gentei.org>
parents: 721
diff changeset
1278 # echo "Set-Cookie: $kv; expires=$expire; Path=$path"
78cc4ba7bf42 Debug code and preparation of Path parameter added
HIROSE Yuuji <yuuji@gentei.org>
parents: 721
diff changeset
1279 echo "Set-Cookie: $kv; expires=$expire;"
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1280 done
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1281 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1282 contenttype() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1283 echo "Content-type: ${1:-text/html; charset=utf-8}"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1284 contenttype() {} # Only need to work once
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1285 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1286 putheader() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1287
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1288 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1289 putfooter() {
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1290 _m4 -D_TITLE_="${TITLE:-$myname}" $layout/footer.m4.html
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1291 }
692
9ff4603fc920 Run getcookie() in the same process
HIROSE Yuuji <yuuji@gentei.org>
parents: 691
diff changeset
1292 getcookie() {
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1293 for kv in `echo $HTTP_COOKIE|sed 's/[;, ]/ /g'`; do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1294 k="${kv%%=*}"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1295 v="`echo ${kv#*=}|nkf -Ww -mQ|sed -e 's/\"/\"\"/g'`"
756
a4523e15dfd6 s/annex/world/
HIROSE Yuuji <yuuji@gentei.org>
parents: 755
diff changeset
1296 ## err "GetCookie: $k=[$v]"
697
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
1297 case "$k" in
703
6f07cfc1ba86 Remove debug code
HIROSE Yuuji <yuuji@gentei.org>
parents: 702
diff changeset
1298 user) _user="$v" ;;
6f07cfc1ba86 Remove debug code
HIROSE Yuuji <yuuji@gentei.org>
parents: 702
diff changeset
1299 skey) _skey="$v" ;;
697
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
1300 esac
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1301 query "replace into cookie values('$session', '$k', 'string', \"$v\");"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1302 done
692
9ff4603fc920 Run getcookie() in the same process
HIROSE Yuuji <yuuji@gentei.org>
parents: 691
diff changeset
1303 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1304 genrandom() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1305 # $1=columns (default: 10)
468
c00857f0e9d2 Avoid `+' and `=' in random string in case of being used as CGI args
HIROSE Yuuji <yuuji@gentei.org>
parents: 451
diff changeset
1306 dd if=/dev/urandom count=1 2>/dev/null|nkf -MB \
711
695ab5c2c1a5 Random generation fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 710
diff changeset
1307 | tr -d '+=\n'|fold -w${1:-10}|sed -n 10p
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1308 }
268
138da0f3a2e5 Duplicate post by reloading or back+submit, dissolved
HIROSE Yuuji <yuuji@gentei.org>
parents: 267
diff changeset
1309 genserial() {
138da0f3a2e5 Duplicate post by reloading or back+submit, dissolved
HIROSE Yuuji <yuuji@gentei.org>
parents: 267
diff changeset
1310 echo $((($(date +%s)-1433084400)/10))c$$
138da0f3a2e5 Duplicate post by reloading or back+submit, dissolved
HIROSE Yuuji <yuuji@gentei.org>
parents: 267
diff changeset
1311 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1312 smail() {
166
32557aa9af94 $SMAIL_TO controls To: header value.
HIROSE Yuuji <yuuji@gentei.org>
parents: 164
diff changeset
1313 # smail rcpts subj (file)
300
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
1314 # $SMAIL_TO <- Recipient value of To: header
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
1315 # $MAIL_FROM <- From: header value
752
c22e71dc8d9b Base of annex feature added
HIROSE Yuuji <yuuji@gentei.org>
parents: 732
diff changeset
1316 from=`echo "${MAIL_FROM:-$admin}"|nkf -jM|tr : /|tr -d '\n'`
411
e30fe590a53e Allow replymark in other than the first line.
HIROSE Yuuji <yuuji@gentei.org>
parents: 400
diff changeset
1317 rcpt=`echo $1|tr ' ' '\n'|sort -u|tr '\n' ' '` # uniq and strip newlines
659
a36a2c3b3056 GrpAction: Reverse selection and supplemental rcpt address
HIROSE Yuuji <yuuji@gentei.org>
parents: 657
diff changeset
1318 rcptheader=`echo $1|tr ' ' '\n'|sort -u|sed '2,$s/^/To: /g'`
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
1319 subj=`echo $2|nkf -jM|tr -d '\n'`
630
8874225971ff Test of setting Reply-to header
HIROSE Yuuji <yuuji@gentei.org>
parents: 628
diff changeset
1320 sender=${SENDER:-$admin}
749
f9f88278f6a0 Use htmlescape more places
HIROSE Yuuji <yuuji@gentei.org>
parents: 747
diff changeset
1321 # Do not call m4 with directly passing text
f9f88278f6a0 Use htmlescape more places
HIROSE Yuuji <yuuji@gentei.org>
parents: 747
diff changeset
1322 _r=$tmpd/rcpt
f9f88278f6a0 Use htmlescape more places
HIROSE Yuuji <yuuji@gentei.org>
parents: 747
diff changeset
1323 echo -n "${SMAIL_TO:-$rcptheader}" > $_r
630
8874225971ff Test of setting Reply-to header
HIROSE Yuuji <yuuji@gentei.org>
parents: 628
diff changeset
1324 replyto=${REPLYTO:+"Reply-to: $REPLYTO$LF"}
749
f9f88278f6a0 Use htmlescape more places
HIROSE Yuuji <yuuji@gentei.org>
parents: 747
diff changeset
1325 (_m4 -D_RCPT_="spaste(\`$_r')" -D_REPLYTO_="$replyto" -D_SUBJ_="\`$subj'" -D_FROM_="$from" $msgdir/mail-header.m4
630
8874225971ff Test of setting Reply-to header
HIROSE Yuuji <yuuji@gentei.org>
parents: 628
diff changeset
1326 cat $3 | nkf -jd ) | sendmail -f $sender $rcpt
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1327 }
614
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1328 smail_queue_flush() {
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1329 # $1=timelimit
622
5f1d4bbf9dea smail_queue frequency control
HIROSE Yuuji <yuuji@gentei.org>
parents: 614
diff changeset
1330 timelimit=`query "SELECT datetime('now', 'localtime', '-6 hours');"`
614
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1331 rowids=$(sq $workdb <<-EOF
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1332 SELECT rowid FROM smailq
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1333 GROUP BY rcpts, subj
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1334 HAVING min(time) < '$timelimit';
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1335 EOF
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1336 )
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1337 for rid in $rowids; do
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1338 sq $workdb \
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1339 "SELECT hex(rcpts),hex(subj) FROM smailq WHERE rowid in ($rid)" \
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1340 | if IFS='|' read hexr hexs; then
622
5f1d4bbf9dea smail_queue frequency control
HIROSE Yuuji <yuuji@gentei.org>
parents: 614
diff changeset
1341 # err "hexrcpt=[$hexr] hexsubj=[$hexs]"
614
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1342 rcpt=`echo "$hexr"|unhexize`
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1343 subj=`echo "$hexs"|unhexize`
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1344
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1345 # err ROWID==$rowid "sql=<<SELECT hex(rcpts),hex(subj) FROM smailq WHERE rowid=$rowid;>>"
622
5f1d4bbf9dea smail_queue frequency control
HIROSE Yuuji <yuuji@gentei.org>
parents: 614
diff changeset
1346 # err "rcpt=[$rcpt] subj=[$subj]"
614
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1347 if sq $workdb <<-EOF | smail "$rcpt" "$subj"
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1348 .separator "\n" "------------------\n\n"
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1349 SELECT time, text FROM smailq
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1350 WHERE rcpts=(SELECT rcpts FROM smailq WHERE rowid=$rid)
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1351 AND subj=(SELECT subj FROM smailq WHERE rowid=$rid)
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1352 ORDER by time;
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1353 EOF
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1354 then
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1355 cat <<-EOF | sq $workdb
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1356 DELETE FROM smailq
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1357 WHERE rcpts=(SELECT rcpts FROM smailq WHERE rowid=$rid)
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1358 AND subj=(SELECT subj FROM smailq WHERE rowid=$rid);
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1359 EOF
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1360 fi
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1361 fi
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1362 done
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1363 }
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1364 smail_queue() {
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1365 # $1=Rcpts, $@=subj
622
5f1d4bbf9dea smail_queue frequency control
HIROSE Yuuji <yuuji@gentei.org>
parents: 614
diff changeset
1366 now=`query "SELECT datetime('now', 'localtime');"`
614
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1367 if [ $? -eq 0 ]; then
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1368 rcpts="X'"`echo "$1"|hexize`"'"
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1369 subj="X'"`echo "$2"|hexize`"'"
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1370 text="X'"`cat | hexize`"'"
721
fce9d5977822 Put strings before hexizing to smail_queue log
HIROSE Yuuji <yuuji@gentei.org>
parents: 719
diff changeset
1371 err "smail_queue: rcpts=[$1] s=[$2] t:hex=[$text]"
622
5f1d4bbf9dea smail_queue frequency control
HIROSE Yuuji <yuuji@gentei.org>
parents: 614
diff changeset
1372 mintime=$(cat <<-EOF | sq $workdb
614
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1373 CREATE TABLE IF NOT EXISTS smailq(rcpts, subj, text, time);
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1374 INSERT INTO smailq VALUES($rcpts, $subj, $text, '$now');
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1375 SELECT min(time) FROM smailq WHERE rcpts=$rcpts AND subj=$subj;
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1376 EOF
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1377 )
622
5f1d4bbf9dea smail_queue frequency control
HIROSE Yuuji <yuuji@gentei.org>
parents: 614
diff changeset
1378 ## XXX: Adhoc load mitigation
5f1d4bbf9dea smail_queue frequency control
HIROSE Yuuji <yuuji@gentei.org>
parents: 614
diff changeset
1379 case "$now" in
5f1d4bbf9dea smail_queue frequency control
HIROSE Yuuji <yuuji@gentei.org>
parents: 614
diff changeset
1380 *[01])
5f1d4bbf9dea smail_queue frequency control
HIROSE Yuuji <yuuji@gentei.org>
parents: 614
diff changeset
1381 err flush_queue=$mintime
5f1d4bbf9dea smail_queue frequency control
HIROSE Yuuji <yuuji@gentei.org>
parents: 614
diff changeset
1382 smail_queue_flush ;;
5f1d4bbf9dea smail_queue frequency control
HIROSE Yuuji <yuuji@gentei.org>
parents: 614
diff changeset
1383 esac
614
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1384 fi
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
1385 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1386 setviastring() {
689
13fb1392d2f2 Function setviastring() only concerned with table 'par'.
HIROSE Yuuji <yuuji@gentei.org>
parents: 688
diff changeset
1387 table=par
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1388 oifs="$IFS"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1389 IFS="&"
689
13fb1392d2f2 Function setviastring() only concerned with table 'par'.
HIROSE Yuuji <yuuji@gentei.org>
parents: 688
diff changeset
1390 for us in $1; do
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1391 k=${us%%=*}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1392 v="`echo ${us#*=}|tr '%+' '= '|nkf -Ww -mQ|sed -e 's/\"/\"\"/g'`"
689
13fb1392d2f2 Function setviastring() only concerned with table 'par'.
HIROSE Yuuji <yuuji@gentei.org>
parents: 688
diff changeset
1393 setpar "$k" "string" "$v"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1394 done
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1395 IFS="$oifs"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1396 }
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1397 checkdomain() (
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1398 # Check the validity of domain by referring DNS
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1399 item=$1
83
815840076efa Directory structure refreshed
HIROSE Yuuji <yuuji@gentei.org>
parents: 81
diff changeset
1400 err checkdomain $1
815840076efa Directory structure refreshed
HIROSE Yuuji <yuuji@gentei.org>
parents: 81
diff changeset
1401 host ${item#*@} 1>&3 2>&3
815840076efa Directory structure refreshed
HIROSE Yuuji <yuuji@gentei.org>
parents: 81
diff changeset
1402 host ${item#*@} >/dev/null 2>&1
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
1403 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1404 pwcheck() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1405 # $1=passwd
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1406 dbpswd=`getpwfield $user pswd`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1407 encpswd=`mycrypt "$1" "$dbpswd"`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1408 ## err user=$user, pswd=$1, db=$dbpswd, enc=$encpswd
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1409 [ x"$dbpswd" = x"$encpswd" ]
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1410 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1411 mypwhash() {
540
b61881cfe57f Password string can contain blanks
HIROSE Yuuji <yuuji@gentei.org>
parents: 533
diff changeset
1412 mycrypt "`cat`" `genrandom 5`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1413 }
887
8229c75e9f94 Ensure user_s update
HIROSE Yuuji <yuuji@gentei.org>
parents: 886
diff changeset
1414 flag_profupdate() {
8229c75e9f94 Ensure user_s update
HIROSE Yuuji <yuuji@gentei.org>
parents: 886
diff changeset
1415 # XXX: Sorry to use undeclared column in user.def
8229c75e9f94 Ensure user_s update
HIROSE Yuuji <yuuji@gentei.org>
parents: 886
diff changeset
1416 # This is useful to mitigate account sync load
8229c75e9f94 Ensure user_s update
HIROSE Yuuji <yuuji@gentei.org>
parents: 886
diff changeset
1417 query <<-EOF
8229c75e9f94 Ensure user_s update
HIROSE Yuuji <yuuji@gentei.org>
parents: 886
diff changeset
1418 REPLACE INTO user_s(name, key, type, val)
8229c75e9f94 Ensure user_s update
HIROSE Yuuji <yuuji@gentei.org>
parents: 886
diff changeset
1419 VALUES('$user', 'profupdate', 'string', datetime('now', 'localtime'));
8229c75e9f94 Ensure user_s update
HIROSE Yuuji <yuuji@gentei.org>
parents: 886
diff changeset
1420 EOF
8229c75e9f94 Ensure user_s update
HIROSE Yuuji <yuuji@gentei.org>
parents: 886
diff changeset
1421 touch $userupdateflag
8229c75e9f94 Ensure user_s update
HIROSE Yuuji <yuuji@gentei.org>
parents: 886
diff changeset
1422 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1423 wasureta() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1424 user=$1
83
815840076efa Directory structure refreshed
HIROSE Yuuji <yuuji@gentei.org>
parents: 81
diff changeset
1425 if ! checkdomain $user; then
815840076efa Directory structure refreshed
HIROSE Yuuji <yuuji@gentei.org>
parents: 81
diff changeset
1426 contenttype; echo
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1427 _m4 -D_TITLE_='Invalid email' $layout/title-only.html
83
815840076efa Directory structure refreshed
HIROSE Yuuji <yuuji@gentei.org>
parents: 81
diff changeset
1428 echo "ユーザ名($user)には正しいメイルアドレスが必要です。" | html p
815840076efa Directory structure refreshed
HIROSE Yuuji <yuuji@gentei.org>
parents: 81
diff changeset
1429 putfooter
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1430 exit 0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1431 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1432 newpswd=`genrandom` # newsalt=`genrandom 5`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1433 #encpswd=`mycrypt "$newpswd" "$newsalt"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1434 encpswd=`echo $newpswd|mypwhash`
754
5bab8644024a Annex-test: sessdb = main-sessdb
HIROSE Yuuji <yuuji@gentei.org>
parents: 753
diff changeset
1435 dbsetbyid user $user pswd "$encpswd" && touch $userupdateflag
100
8dc950197939 "radio" and "checkbox"
HIROSE Yuuji <yuuji@gentei.org>
parents: 83
diff changeset
1436 # Avoid $user substitution with m4, because $url comes from user input.
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1437 _m4 -D_PSWD_="$newpswd" -D_URL_="$url" -D_ADMIN_="$admin" \
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
1438 $msgdir/mail-newaccount.m4 \
100
8dc950197939 "radio" and "checkbox"
HIROSE Yuuji <yuuji@gentei.org>
parents: 83
diff changeset
1439 | sed "s/_USER_/$user/g" \
603
6d89f4a15778 Send reset password to all notification addresses
HIROSE Yuuji <yuuji@gentei.org>
parents: 596
diff changeset
1440 | smail "`collectemail $user`" "New Account"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1441 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1442 checkauth() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1443 user=`getpar user`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1444 skc=`getpar skey` # from cookie
697
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
1445 [ -z "$user" ] && return 2
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
1446 ##skey="`getpwfield $user skey`"
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
1447 if [ -n "$skc" ]; then
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
1448 if chkskey "$skc"; then
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1449 return 0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1450 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1451 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1452 pswd=`getpar pswd`
298
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
1453 quser=`sqlquotestr "$user"`
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
1454 dbuser=`query "SELECT name FROM user WHERE name=$quser;"`
691
39879f81afc8 Login failure message changed
HIROSE Yuuji <yuuji@gentei.org>
parents: 690
diff changeset
1455 if [ $? != 0 ]; then # Maybe DB locked
39879f81afc8 Login failure message changed
HIROSE Yuuji <yuuji@gentei.org>
parents: 690
diff changeset
1456 return 4 # 4=server too heavy
39879f81afc8 Login failure message changed
HIROSE Yuuji <yuuji@gentei.org>
parents: 690
diff changeset
1457 elif [ -z "$dbuser" ]; then
728
398df4c7cd27 [TEST]Log user-name failure
HIROSE Yuuji <yuuji@gentei.org>
parents: 727
diff changeset
1458 err "Login USER failed: [$user]"
691
39879f81afc8 Login failure message changed
HIROSE Yuuji <yuuji@gentei.org>
parents: 690
diff changeset
1459 return 2 # 2=login fail
298
ec267a1d27ee Do not "wasureta" for nonexistent user
HIROSE Yuuji <yuuji@gentei.org>
parents: 297
diff changeset
1460 elif [ x"$pswd" = x"wasureta" ]; then
870
a7ae0d67edff XXX: Lead password resetting to base world
HIROSE Yuuji <yuuji@gentei.org>
parents: 868
diff changeset
1461 if [ -n "$S4MASTERDB" ]; then
a7ae0d67edff XXX: Lead password resetting to base world
HIROSE Yuuji <yuuji@gentei.org>
parents: 868
diff changeset
1462 contenttype; echo
a7ae0d67edff XXX: Lead password resetting to base world
HIROSE Yuuji <yuuji@gentei.org>
parents: 868
diff changeset
1463 echo "Reset password is valid in BASE world." | html p
a7ae0d67edff XXX: Lead password resetting to base world
HIROSE Yuuji <yuuji@gentei.org>
parents: 868
diff changeset
1464 echo "パスワードリセットはベースワールドでおこなってください。" | html p
a7ae0d67edff XXX: Lead password resetting to base world
HIROSE Yuuji <yuuji@gentei.org>
parents: 868
diff changeset
1465 cat <<-EOF | html p
a7ae0d67edff XXX: Lead password resetting to base world
HIROSE Yuuji <yuuji@gentei.org>
parents: 868
diff changeset
1466 <a href="$S4MASTERURL">BASE World</a>
a7ae0d67edff XXX: Lead password resetting to base world
HIROSE Yuuji <yuuji@gentei.org>
parents: 868
diff changeset
1467 EOF
a7ae0d67edff XXX: Lead password resetting to base world
HIROSE Yuuji <yuuji@gentei.org>
parents: 868
diff changeset
1468 exit 0 # XXXXX more smart...
a7ae0d67edff XXX: Lead password resetting to base world
HIROSE Yuuji <yuuji@gentei.org>
parents: 868
diff changeset
1469 fi
502
46a8da2740d9 Add CheckBox WikiStyle notation "- [ ]"
HIROSE Yuuji <yuuji@gentei.org>
parents: 496
diff changeset
1470 wasureta "$user"
848
770f2eed24a1 Log wasureta
HIROSE Yuuji <yuuji@gentei.org>
parents: 845
diff changeset
1471 err wasureta issued for "$user"
691
39879f81afc8 Login failure message changed
HIROSE Yuuji <yuuji@gentei.org>
parents: 690
diff changeset
1472 return 1 # wasureta error
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1473 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1474 # dbpswd="`sq $db \"select pswd from passwd where name='$user'\"`"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1475 # putheader; echo; echo user=$user, db=$dbpswd, enc=$encpswd
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1476 if pwcheck "$pswd"; then
712
4752122ea473 Adjust sesskey length(test)
HIROSE Yuuji <yuuji@gentei.org>
parents: 711
diff changeset
1477 newsession=`genrandom 34`
697
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
1478 if setskey "$user" "$newsession" &&
626
99863f97dee6 Add "heavy load" error message(for test)
HIROSE Yuuji <yuuji@gentei.org>
parents: 625
diff changeset
1479 dbsetbyid user "$user" login "`date '+%F %T'`"; then
99863f97dee6 Add "heavy load" error message(for test)
HIROSE Yuuji <yuuji@gentei.org>
parents: 625
diff changeset
1480 gencookie "user=$user" "skey=$newsession"
99863f97dee6 Add "heavy load" error message(for test)
HIROSE Yuuji <yuuji@gentei.org>
parents: 625
diff changeset
1481 return 0
99863f97dee6 Add "heavy load" error message(for test)
HIROSE Yuuji <yuuji@gentei.org>
parents: 625
diff changeset
1482 else
627
86058f1bf9fa Add comment
HIROSE Yuuji <yuuji@gentei.org>
parents: 626
diff changeset
1483 return 4 # Heavy load??
626
99863f97dee6 Add "heavy load" error message(for test)
HIROSE Yuuji <yuuji@gentei.org>
parents: 625
diff changeset
1484 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1485 fi
727
1b294b80544e [TEST]Debug code added for login failure
HIROSE Yuuji <yuuji@gentei.org>
parents: 722
diff changeset
1486 err "Login failed: [$user]"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1487 return 2 # Password mismatch
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1488 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1489 showlogin() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1490 args=`echo $myargs|tr ' ' '+'`
697
4461d596150d HEADS UP: session storing schema changed, which allows multi sessions
HIROSE Yuuji <yuuji@gentei.org>
parents: 695
diff changeset
1491 test -z "$args" && resetskey
514
fa3f78ce3e26 Extra CSS file is taken from $S4CSS.
HIROSE Yuuji <yuuji@gentei.org>
parents: 513
diff changeset
1492 s4name=${S4NAME:-s4}
fa3f78ce3e26 Extra CSS file is taken from $S4CSS.
HIROSE Yuuji <yuuji@gentei.org>
parents: 513
diff changeset
1493 ( sed '/^<body/q' $layout/html.m4.html
fa3f78ce3e26 Extra CSS file is taken from $S4CSS.
HIROSE Yuuji <yuuji@gentei.org>
parents: 513
diff changeset
1494 cat $layout/login.m4.html
fa3f78ce3e26 Extra CSS file is taken from $S4CSS.
HIROSE Yuuji <yuuji@gentei.org>
parents: 513
diff changeset
1495 echo '</body></html>'
fa3f78ce3e26 Extra CSS file is taken from $S4CSS.
HIROSE Yuuji <yuuji@gentei.org>
parents: 513
diff changeset
1496 ) | _m4 \
fa3f78ce3e26 Extra CSS file is taken from $S4CSS.
HIROSE Yuuji <yuuji@gentei.org>
parents: 513
diff changeset
1497 -D_BODYCLASS_="login" \
fa3f78ce3e26 Extra CSS file is taken from $S4CSS.
HIROSE Yuuji <yuuji@gentei.org>
parents: 513
diff changeset
1498 -D_TITLE_="$s4name" \
fa3f78ce3e26 Extra CSS file is taken from $S4CSS.
HIROSE Yuuji <yuuji@gentei.org>
parents: 513
diff changeset
1499 -D_SYSNAME_="Welcome to $s4name" \
fa3f78ce3e26 Extra CSS file is taken from $S4CSS.
HIROSE Yuuji <yuuji@gentei.org>
parents: 513
diff changeset
1500 -D_MYNAME_="$myname${args+?}$args" ${S4CSS:+-D_S4CSS_="$S4CSS"}
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1501 exit 0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1502 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1503 dologin() {
817
d2c4c473e08e Account synchronization more prudent
HIROSE Yuuji <yuuji@gentei.org>
parents: 816
diff changeset
1504 test -n "$S4WORLD" && syncaccount
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1505 checkauth
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1506 st=$?
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1507 if [ $st != 0 ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1508 contenttype; echo
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1509 _m4 -D_USER_="$user" -D_URL_="$url" -D_ADMIN_="$admin" \
693
5f3e94a9b7b3 Show load average at login failure on DB lock
HIROSE Yuuji <yuuji@gentei.org>
parents: 692
diff changeset
1510 -D _LOADAVG_="`uptime|awk '{print $(NF-2)}'|tr -d ,`" \
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
1511 $msgdir/login-fail-$st.m4.html
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1512 showlogin # and EXIT
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1513 fi
858
b8b939399251 Trivial fix
HIROSE Yuuji <yuuji@gentei.org>
parents: 857
diff changeset
1514 err "Auth OK: [$user]"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1515 }
67
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
1516
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
1517 # Do instant jobs here
163
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
1518 dbsetup
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1519 trap cleanup INT HUP EXIT TERM PIPE
163
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
1520 # trap cleanup INT HUP
67
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
1521
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
1522
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1523 cgiinit() {
11
3565d93c2fb1 add mpsplit.pl
HIROSE Yuuji <yuuji@gentei.org>
parents: 8
diff changeset
1524 tmpd=`tmpd=$tmpdir mktempd`
723
b8f5bfb91ea2 Save streaming file in $tmpd
HIROSE Yuuji <yuuji@gentei.org>
parents: 722
diff changeset
1525 tmpf=$tmpd/stream.$$
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1526 tmpfiles=$tmpfiles" $tmpd"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1527 addsession $session
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1528 getcookie
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1529 case "$REQUEST_METHOD" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1530 get|GET) s="$QUERY_STRING" ;;
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
1531 post|POST) ## dd count=$CONTENT_LENGTH bs=1 of=$tmpf 2>/dev/null #slow
137
1731efcb74c7 Add comment on dd bs=LARGE
HIROSE Yuuji <yuuji@gentei.org>
parents: 136
diff changeset
1532 ## dd bs=$CONTENT_LENGTH count=1 of=$tmpf # NOT working
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
1533 # cat > $tmpf # too much?
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
1534 head -c $CONTENT_LENGTH > $tmpf # safe?
853
047e1c3f811e Log output revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 851
diff changeset
1535 err "CONTENT_LENGTH=$CONTENT_LENGTH$nl`ls -lF $tmpf`"
724
489efda25567 tmpf should be passed by variable...
HIROSE Yuuji <yuuji@gentei.org>
parents: 723
diff changeset
1536 s="`cat $tmpf`"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1537 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1538 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1539 case "$CONTENT_TYPE" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1540 *boundary*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1541 bndry=${CONTENT_TYPE#*boundary=}
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
1542 #for us in `LC_CTYPE=C ./mpsplit.rb "$bndry" $tmpd < $tmpf`
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
1543 for us in `LC_CTYPE=C ./mpsplit.pl "$bndry" $tmpd < $tmpf`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1544 do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1545 k=${us%%\=*}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1546 #echo u=$us
11
3565d93c2fb1 add mpsplit.pl
HIROSE Yuuji <yuuji@gentei.org>
parents: 8
diff changeset
1547 #v="`echo ${us#*=}|nkf -Ww -mQ|sed -e 's/\"/\"\"/g'`"
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
1548 v="`echo ${us#*=}|unhexize|sed -e 's/\"/\"\"/g'`"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1549 # err k=$k v=$v
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1550 case "$k" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1551 *:filename)
511
f2dec8025291 Force restrict file type and file size
HIROSE Yuuji <yuuji@gentei.org>
parents: 510
diff changeset
1552 mimetype=`file --mime-type - < "$tmpd/$v"|cut -d' ' -f2`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1553 type='file'; k=${k%:filename}
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1554 # DO NOT ALLOW Space and '|' in file names
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1555 newv=`echo "$v"|sed 's/[ \|]/X/g'`
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1556 if [ x"$v" != x"$newv" ]; then
329
e4fedb216119 Making sure whether it runs on ksh
HIROSE Yuuji <yuuji@gentei.org>
parents: 328
diff changeset
1557 :
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1558 fi
719
093be7d30a6e More debug code to cgiinit()
HIROSE Yuuji <yuuji@gentei.org>
parents: 718
diff changeset
1559 err "k=[$k] v=[$v]" # debug@2020-05-31
718
c56f8e76dff2 $user has not yet been set in cgiinit
HIROSE Yuuji <yuuji@gentei.org>
parents: 717
diff changeset
1560 err "`ls -lF $tmpd/$v` MimeType=$mimetype"
511
f2dec8025291 Force restrict file type and file size
HIROSE Yuuji <yuuji@gentei.org>
parents: 510
diff changeset
1561 case "$mimetype" in
132
7a9cd078bf6a bzip2 *.xcf files
HIROSE Yuuji <yuuji@gentei.org>
parents: 131
diff changeset
1562 [Ii]mage/x-xcf)
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
1563 bzip2 "$tmpd/$v"
132
7a9cd078bf6a bzip2 *.xcf files
HIROSE Yuuji <yuuji@gentei.org>
parents: 131
diff changeset
1564 v=${v}.bz2
7a9cd078bf6a bzip2 *.xcf files
HIROSE Yuuji <yuuji@gentei.org>
parents: 131
diff changeset
1565 ;;
7a9cd078bf6a bzip2 *.xcf files
HIROSE Yuuji <yuuji@gentei.org>
parents: 131
diff changeset
1566 [Ii]mage/x-*|*/vnd.*) ;;
715
d890694ff8ab Trial conversion of HEIC
HIROSE Yuuji <yuuji@gentei.org>
parents: 714
diff changeset
1567 [Ii]mage/[Hh][Ee][Ii][Ff])
d890694ff8ab Trial conversion of HEIC
HIROSE Yuuji <yuuji@gentei.org>
parents: 714
diff changeset
1568 if type heif-convert >/dev/null 2>&1; then
d890694ff8ab Trial conversion of HEIC
HIROSE Yuuji <yuuji@gentei.org>
parents: 714
diff changeset
1569 vjpg="${v%.heic}.jpg"
d890694ff8ab Trial conversion of HEIC
HIROSE Yuuji <yuuji@gentei.org>
parents: 714
diff changeset
1570 err "Conv $v to $vjpg in $tmpd"
d890694ff8ab Trial conversion of HEIC
HIROSE Yuuji <yuuji@gentei.org>
parents: 714
diff changeset
1571 convert -quality 75 -resize $maximagexy'>' \
d890694ff8ab Trial conversion of HEIC
HIROSE Yuuji <yuuji@gentei.org>
parents: 714
diff changeset
1572 "$tmpd/$v" "$tmpd/$vjpg" >/dev/null 2>&1
d890694ff8ab Trial conversion of HEIC
HIROSE Yuuji <yuuji@gentei.org>
parents: 714
diff changeset
1573 v=$vjpg
d890694ff8ab Trial conversion of HEIC
HIROSE Yuuji <yuuji@gentei.org>
parents: 714
diff changeset
1574 else
d890694ff8ab Trial conversion of HEIC
HIROSE Yuuji <yuuji@gentei.org>
parents: 714
diff changeset
1575 mimetype="Not supported"
d890694ff8ab Trial conversion of HEIC
HIROSE Yuuji <yuuji@gentei.org>
parents: 714
diff changeset
1576 fi
d890694ff8ab Trial conversion of HEIC
HIROSE Yuuji <yuuji@gentei.org>
parents: 714
diff changeset
1577 ;;
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1578 [Ii]mage/*)
715
d890694ff8ab Trial conversion of HEIC
HIROSE Yuuji <yuuji@gentei.org>
parents: 714
diff changeset
1579 mogrify -quality 75 -resize $maximagexy'>' "$tmpd/$v"
719
093be7d30a6e More debug code to cgiinit()
HIROSE Yuuji <yuuji@gentei.org>
parents: 718
diff changeset
1580 err "Mogrified: `ls -lF $tmpd/$v`" # 2020-05-31
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1581 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1582 esac
511
f2dec8025291 Force restrict file type and file size
HIROSE Yuuji <yuuji@gentei.org>
parents: 510
diff changeset
1583 if ! echo "$mimetype" | egrep "$file_accept_egrep" >/dev/null 2>&1
f2dec8025291 Force restrict file type and file size
HIROSE Yuuji <yuuji@gentei.org>
parents: 510
diff changeset
1584 then
f2dec8025291 Force restrict file type and file size
HIROSE Yuuji <yuuji@gentei.org>
parents: 510
diff changeset
1585 replpar text string " *添付できない形式です($v)* $file_warn"
f2dec8025291 Force restrict file type and file size
HIROSE Yuuji <yuuji@gentei.org>
parents: 510
diff changeset
1586 continue
f2dec8025291 Force restrict file type and file size
HIROSE Yuuji <yuuji@gentei.org>
parents: 510
diff changeset
1587 elif [ `wc -c < "$tmpd/$v"` -gt "$filesize_max" ]; then
f2dec8025291 Force restrict file type and file size
HIROSE Yuuji <yuuji@gentei.org>
parents: 510
diff changeset
1588 replpar text string \
f2dec8025291 Force restrict file type and file size
HIROSE Yuuji <yuuji@gentei.org>
parents: 510
diff changeset
1589 " *添付ファイル($v)は${filesize_max}バイト以下にしてください* $file_warn"
f2dec8025291 Force restrict file type and file size
HIROSE Yuuji <yuuji@gentei.org>
parents: 510
diff changeset
1590 continue
f2dec8025291 Force restrict file type and file size
HIROSE Yuuji <yuuji@gentei.org>
parents: 510
diff changeset
1591 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1592 ;;
883
8593ff2579f4 Ignore empty file-input form
HIROSE Yuuji <yuuji@gentei.org>
parents: 882
diff changeset
1593 image|document|binary)
8593ff2579f4 Ignore empty file-input form
HIROSE Yuuji <yuuji@gentei.org>
parents: 882
diff changeset
1594 # When no file name supplied to input[type="file"]
8593ff2579f4 Ignore empty file-input form
HIROSE Yuuji <yuuji@gentei.org>
parents: 882
diff changeset
1595 continue ;;
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1596 *)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1597 type='string'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1598 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1599 esac
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
1600 #sq $db "replace into par values('$session', '$k', '$type', \"$v\")"
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
1601 setpar "$k" "$type" "$v"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1602 done
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1603 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1604 *)
689
13fb1392d2f2 Function setviastring() only concerned with table 'par'.
HIROSE Yuuji <yuuji@gentei.org>
parents: 688
diff changeset
1605 setviastring "$s"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1606 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1607 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1608 }
58
ccd0c6736215 Argument order reversed on email4group
HIROSE Yuuji <yuuji@gentei.org>
parents: 56
diff changeset
1609 email4group() {
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
1610 # Get for-$1=group email address(es) for $2...=users
58
ccd0c6736215 Argument order reversed on email4group
HIROSE Yuuji <yuuji@gentei.org>
parents: 56
diff changeset
1611 qgrp=`sqlquote "$1"`; shift
ccd0c6736215 Argument order reversed on email4group
HIROSE Yuuji <yuuji@gentei.org>
parents: 56
diff changeset
1612 users=`for i; do sqlquote "$i"; done`
ccd0c6736215 Argument order reversed on email4group
HIROSE Yuuji <yuuji@gentei.org>
parents: 56
diff changeset
1613 users=`echo $users|tr ' ' ','`
240
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1614 sql="WITH
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1615 grpemails AS (
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1616 SELECT gname, user, val email
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1617 FROM grp_mem NATURAL JOIN grp_mem_s
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1618 WHERE key='email' AND gname=$qgrp),
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1619 useremails AS (
646
d9bce34a863b Email4group should use same algorithm as email4groupbyuid
HIROSE Yuuji <yuuji@gentei.org>
parents: 645
diff changeset
1620 SELECT user.name, val email
240
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1621 FROM user
507
145fb3cca3fb User email values are in user_m, not user_s.
HIROSE Yuuji <yuuji@gentei.org>
parents: 502
diff changeset
1622 LEFT JOIN user_m
145fb3cca3fb User email values are in user_m, not user_s.
HIROSE Yuuji <yuuji@gentei.org>
parents: 502
diff changeset
1623 ON user.name=user_m.name AND user_m.key='email')
145fb3cca3fb User email values are in user_m, not user_s.
HIROSE Yuuji <yuuji@gentei.org>
parents: 502
diff changeset
1624 SELECT DISTINCT coalesce(g.email, u.email, u.name)
240
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1625 FROM useremails u LEFT JOIN grpemails g
3ba9493977e1 email4groupbyuid now accepts uname(email) as well as gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 236
diff changeset
1626 ON u.name=g.user
646
d9bce34a863b Email4group should use same algorithm as email4groupbyuid
HIROSE Yuuji <yuuji@gentei.org>
parents: 645
diff changeset
1627 WHERE u.name in ($users);"
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
1628 query "$sql"
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
1629 }
646
d9bce34a863b Email4group should use same algorithm as email4groupbyuid
HIROSE Yuuji <yuuji@gentei.org>
parents: 645
diff changeset
1630 email4groupbyuid() {
d9bce34a863b Email4group should use same algorithm as email4groupbyuid
HIROSE Yuuji <yuuji@gentei.org>
parents: 645
diff changeset
1631 # Get for-$1=group email address(es) for $2...=user-ids
d9bce34a863b Email4group should use same algorithm as email4groupbyuid
HIROSE Yuuji <yuuji@gentei.org>
parents: 645
diff changeset
1632 g=$1; shift
d9bce34a863b Email4group should use same algorithm as email4groupbyuid
HIROSE Yuuji <yuuji@gentei.org>
parents: 645
diff changeset
1633 uids=`echo "$@"`
d9bce34a863b Email4group should use same algorithm as email4groupbyuid
HIROSE Yuuji <yuuji@gentei.org>
parents: 645
diff changeset
1634 uids=`echo $uids|tr ' ' ','`
d9bce34a863b Email4group should use same algorithm as email4groupbyuid
HIROSE Yuuji <yuuji@gentei.org>
parents: 645
diff changeset
1635 sql="SELECT DISTINCT name FROM user WHERE rowid IN ($uids);"
653
22f4f91656a8 Preserved argument should be passed.
HIROSE Yuuji <yuuji@gentei.org>
parents: 650
diff changeset
1636 email4group "$g" `query "$sql"`
646
d9bce34a863b Email4group should use same algorithm as email4groupbyuid
HIROSE Yuuji <yuuji@gentei.org>
parents: 645
diff changeset
1637 }
667
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
1638 myemail4group() {
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
1639 # Get my email address for $1-specified group
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
1640 email4group "$1" "$user" | sed -e 1q -e 's/[ ,].*//'
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
1641 }
443
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1642 collectmembersbyid() {
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1643 # Collect user names of group specified by grid
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1644 rid=${1%%[!0-9]*} # Cleaning
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1645 query "SELECT user FROM grp_mem \
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1646 WHERE gname=(SELECT gname FROM grp WHERE rowid=$rid);"
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1647 }
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1648 collectmembersbyid() {
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1649 # Collect user names of group name
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1650 qgrp=`sqlquote "$1"`
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1651 query "SELECT user FROM grp_mem WHERE gname=$qgrp;"
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1652 }
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1653 collectgecosesbyid() {
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1654 # Collect user gecoses of group
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1655 rid=${1%%[!0-9]*} # Cleaning
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1656 query<<-EOF
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1657 SELECT gecos
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1658 FROM gecoses
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1659 WHERE name IN (SELECT user FROM grp_mem
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1660 WHERE gname=(SELECT gname FROM grp WHERE rowid=$rid));
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1661 EOF
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
1662 }
47
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
1663 collectemail() (
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1664 # Collect email addresses for group $1
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1665 # If $TEAM is set, filter by team name
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1666 # If $EXCEPT is set as username(s) delimited by comma,
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1667 # remove $EXCEPT from list: ....NOT IN ($EXCEPT)
47
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
1668 for e; do
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
1669 if isuser "$e"; then
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1670 em=`query "select val from user_m where name='$e' and key='email';"`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1671 [ -n "$em" ] && echo "$em" || echo "$e"
47
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
1672 else
56
7fa1ac62dfaf getgroupadmins()
HIROSE Yuuji <yuuji@gentei.org>
parents: 52
diff changeset
1673 qgrp=`sqlquote "$e"`
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1674 if [ -z "$TEAM" ]; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1675 gmem="grp_mem"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1676 else
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1677 tm=`sqlquote "$TEAM"`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1678 gmem="(SELECT gname, user FROM grp_mem_m WHERE gname='$e' AND key='team' AND val=$tm)"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1679 fi
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1680 ex=${EXCEPT:+"AND g.user NOT IN ($EXCEPT)"}
62
5ca8f194faf2 Collect emails for group give a preference to email values in user_m.
HIROSE Yuuji <yuuji@gentei.org>
parents: 61
diff changeset
1681 sql="select coalesce(s.val,um.val,g.user) from
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1682 $gmem g left join grp_mem_s s
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1683 on g.gname=s.gname and g.user=s.user and s.key='email'
62
5ca8f194faf2 Collect emails for group give a preference to email values in user_m.
HIROSE Yuuji <yuuji@gentei.org>
parents: 61
diff changeset
1684 left join user_m um on g.user=um.name and um.key='email'
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1685 where g.gname=$qgrp $ex;"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1686 ## err CollectEmail: `echo "$sql"`
47
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
1687 query "$sql"
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
1688 fi
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
1689 done
c37cbb154e01 collectemail can take multiple arguments
HIROSE Yuuji <yuuji@gentei.org>
parents: 43
diff changeset
1690 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1691 sendinvitation() (
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1692 # $1=email
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1693 iss="invite-`date +%s`-$user"
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
1694 addsession $iss +${memoplimitdays}days # 1 week due date
581
8a206c6342a8 Translate email address to all lower cases. Fix parameter expansion.
HIROSE Yuuji <yuuji@gentei.org>
parents: 578
diff changeset
1695 query "DELETE FROM par WHERE var='invite' AND val='$1';"
8a206c6342a8 Translate email address to all lower cases. Fix parameter expansion.
HIROSE Yuuji <yuuji@gentei.org>
parents: 578
diff changeset
1696 query "REPLACE INTO par VALUES('$iss', 'invite', 'string', '$1');"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1697 gecos=`gecos`
581
8a206c6342a8 Translate email address to all lower cases. Fix parameter expansion.
HIROSE Yuuji <yuuji@gentei.org>
parents: 578
diff changeset
1698 name=$user${gecos:+"($gecos)"}
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1699 regist="$urlbase?reg+$iss"
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1700 _m4 -D_URL_="$urlbase" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1701 -D_USER_="$name" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1702 -D_EMAIL_="$1" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1703 -D_REGIST_="$regist" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1704 -D_ADMIN_="$admin" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1705 $msgdir/mail-invite.m4 \
554
0c6e28f7a7a8 s/BBS/SNS/
HIROSE Yuuji <yuuji@gentei.org>
parents: 550
diff changeset
1706 | smail $1 "SNSへの御招待"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1707 return 0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1708 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1709 emaildomaincheck() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1710 case "$1" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1711 *@*@*) echo "無効なアドレスです"; return 1 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1712 *@*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1713 local=${1%@*} domain=${1#*@}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1714 if ! host $domain >/dev/null 2>&1; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1715 echo "ドメイン($domain)が見付かりません。"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1716 return 2
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1717 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1718 return 0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1719 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1720 *) echo "正しいメイルアドレスをいれてください"; return 3 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1721 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1722 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1723 invite() {
581
8a206c6342a8 Translate email address to all lower cases. Fix parameter expansion.
HIROSE Yuuji <yuuji@gentei.org>
parents: 578
diff changeset
1724 email=`getpar email | tr '[A-Z]' '[a-z]'`
502
46a8da2740d9 Add CheckBox WikiStyle notation "- [ ]"
HIROSE Yuuji <yuuji@gentei.org>
parents: 496
diff changeset
1725 case "$email" in
46a8da2740d9 Add CheckBox WikiStyle notation "- [ ]"
HIROSE Yuuji <yuuji@gentei.org>
parents: 496
diff changeset
1726 *@*@*|*\ *) repo="無効なアドレスです" ;;
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1727 *@*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1728 local=${email%@*} domain=${email#*@}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1729 if ! repo=`emaildomaincheck $email`; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1730 repo="招待アドレスのエラー: $repo"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1731 elif [ -n "`query \"select * from user where name='$email';\"`" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1732 repo="$email さんは既に加入しています。"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1733 elif sendinvitation $email; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1734 repo="アドレス($email)宛に案内を送信しました。"
581
8a206c6342a8 Translate email address to all lower cases. Fix parameter expansion.
HIROSE Yuuji <yuuji@gentei.org>
parents: 578
diff changeset
1735 else # Cannot be reached here
8a206c6342a8 Translate email address to all lower cases. Fix parameter expansion.
HIROSE Yuuji <yuuji@gentei.org>
parents: 578
diff changeset
1736 repo="自動登録できない状況です。管理者に依頼してください。"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1737 fi ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1738 "") repo="招待したい人のメイルアドレスを入力してください。" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1739 *) repo="無効なアドレスです" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1740 esac
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1741 addr=`query "select val from par where sessid like 'invite-%-$user';"`
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1742 if [ -n "$addr" ]; then
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1743 susp="<h2>招待済みで加入待ちのアドレス</h2><pre>$addr</pre>"
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1744 fi
624
64c84bc00700 Invatation policy displayed in invitation page
HIROSE Yuuji <yuuji@gentei.org>
parents: 622
diff changeset
1745 if [ -f $invite_policy ]; then
64c84bc00700 Invatation policy displayed in invitation page
HIROSE Yuuji <yuuji@gentei.org>
parents: 622
diff changeset
1746 pol="spaste(\`$invite_policy')"
64c84bc00700 Invatation policy displayed in invitation page
HIROSE Yuuji <yuuji@gentei.org>
parents: 622
diff changeset
1747 else
64c84bc00700 Invatation policy displayed in invitation page
HIROSE Yuuji <yuuji@gentei.org>
parents: 622
diff changeset
1748 pol="$invite_policy"
64c84bc00700 Invatation policy displayed in invitation page
HIROSE Yuuji <yuuji@gentei.org>
parents: 622
diff changeset
1749 fi
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1750 _m4 -D_TITLE_="招待" -D_REPORT_="\`$repo'" -D_ACTION_="?invite" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1751 -D_BODYCLASS_="default" -D_SUSPENDED_="$susp" \
624
64c84bc00700 Invatation policy displayed in invitation page
HIROSE Yuuji <yuuji@gentei.org>
parents: 622
diff changeset
1752 -D_INVITE_POLICY_="$pol" \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1753 $layout/html.m4.html $layout/invite.m4.html
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1754 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1755 regist() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1756 # $1=session-id-for-invitation
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1757 _m4 -D_TITLE_="Invitation" $layout/html.m4.html
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1758 if [ -z "$1" ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
1759 echo "bye bye" | html p
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1760 reutrn
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1761 fi
581
8a206c6342a8 Translate email address to all lower cases. Fix parameter expansion.
HIROSE Yuuji <yuuji@gentei.org>
parents: 578
diff changeset
1762 email=`session=$1 getpar invite | tr '[A-Z]' '[a-z]'` # Ensure lower case
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1763 if [ -z "$email" ];then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1764 cat<<EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1765 <p>無効な招待状チケットです。</p>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1766 <p>招待状の有効期限(1週間)が切れているか、チケット番号が異なっています。
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1767 加入している人に、再度招待してもらいましょう。</p>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1768 EOF
65
HIROSE Yuuji <yuuji@gentei.org>
parents: 62
diff changeset
1769 return
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1770 fi
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
1771 echo "$email さんようこそ" | html h2
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1772 query "replace into user values('$email');"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1773 # Fake login password to wasureta
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1774 query "replace into par values('$session', 'pswd', 'string', 'wasureta'),
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1775 ('$session', 'user', 'string', '$email');"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1776 wasureta $email
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
1777 echo "このアドレスに初期パスワードを送信しました。" |html p
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
1778 echo "新着メイルを確認してログインしてください。" |html p
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
1779 addsession $1 # for removal after 1 minute
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1780 _m4 -D_SYSNAME_="Initial Login" -D_MYNAME_="$myname?userconf" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1781 $layout/login.m4.html
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1782 return
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1783 }
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1784 group_safename() {
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1785 # Convert $1 to safe group name
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1786 echo "$1" | tr -d '"'"'",
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1787 }
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1788 groupupdate() {
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1789 gname=`getpar gname`
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
1790 qgname=`sqlquote "$gname"`
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1791 if [ -n "$gname" ]; then
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1792 # See ALSO same job in showgroup()
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
1793 newgname=`group_safename "$gname"`
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1794 err newgname=$newgname
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1795 if [ x"$newgname" != x"$gname" ]; then
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1796 err NewGNAME: gname=$newgname
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1797 gname=$newgname
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1798 echo "使用禁止文字を除去し $gname としました。" | html p
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1799 replpar gname string "$gname"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1800 fi
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1801 # Name confliction check
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1802 parow=`getpar rowid`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1803 ## err parow=$parow
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
1804 qgname=`sqlquote "$gname"` # Set again in case gname modified
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1805 query "BEGIN EXCLUSIVE;"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1806 ## err "select count(gname) from grp where rowid != ${parow:-0} and gname = $qgname;"
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1807 count=$(query "select count(gname) from grp where rowid != ${parow:-0} and gname = $qgname;")
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1808 if [ $count -gt 0 ]; then
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1809 echo "そのグループ名は既にあります。" | html p
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1810 query "END;"
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1811 return
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1812 fi
123
718abe22a5d1 Call large query with SQL script in par2table()
HIROSE Yuuji <yuuji@gentei.org>
parents: 122
diff changeset
1813 par2table $formdir/grp.def
122
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1814 query "END TRANSACTION;"
163
87e679d3c993 Avoid using "tail -f"
HIROSE Yuuji <yuuji@gentei.org>
parents: 155
diff changeset
1815 # Remove orphan
122
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1816 : <<EOF
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1817 select a.id,b.val from (select * from blog where id in
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1818 (select id from blog_s where key='owner'
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1819 and val not in (select name from user union select gname from grp)))
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1820 a left join blog_s b on a.id=b.id and b.key='owner';
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1821 EOF
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1822 rm=`getpar rm` cfm=`getpar confirm`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1823 ## err groupupdate:::: after par2tbl rmcfm=$rm$cfm
122
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1824 if [ x"$rm$cfm" = x"yesyes" ]; then
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1825 if [ -z "`query \"select gname from grp where gname=$qgname;\"`" ]; then
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1826 sql="delete from blog where id in
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1827 (select id from blog_s where key='owner' and val=$qgname);"
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1828 err rm-grp cleaning sql=`echo $sql`
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1829 query "$sql";
763
41e443a925c8 Introduce unsetpar() for continuous page building
HIROSE Yuuji <yuuji@gentei.org>
parents: 749
diff changeset
1830 unsetpar tag kwd
307
e7a7f6cb9627 When removing a group, switch to grp-list and return
HIROSE Yuuji <yuuji@gentei.org>
parents: 306
diff changeset
1831 grps # When removing a group, switch to grp-list
e7a7f6cb9627 When removing a group, switch to grp-list and return
HIROSE Yuuji <yuuji@gentei.org>
parents: 306
diff changeset
1832 return # and return
122
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1833 fi
0681534f9451 When deleting group, remove all blos that belong it.
HIROSE Yuuji <yuuji@gentei.org>
parents: 121
diff changeset
1834 fi
305
e751156de740 Do not add email address to grp_mem_s at new group creation
HIROSE Yuuji <yuuji@gentei.org>
parents: 302
diff changeset
1835 [ -z "$parow" ] && joingrp "$gname" "$user" yes "" as-admin
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1836 fi
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1837 sql="select rowid from grp where gname=$qgname;"
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1838 grid=$(query $sql)
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
1839 ## err grpupdate:new-grid=$grid, sql=$sql
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1840 grp $grid
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1841 }
382
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1842 groupclone() {
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1843 # $1=grp-rowid of clone-base group
576
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1844 rid=${1%%[!0-9]*} # Cleaning
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1845 case "$1" in
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1846 */noteam)
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1847 noteam="AND key != 'team'" ;;
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1848 esac
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1849 qgrp=`query "SELECT quote(gname) FROM grp WHERE rowid=$rid;"`
382
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1850 if [ -z "$qgrp" ]; then
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1851 echo "無効なグループIDです($1)" | html p
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1852 return
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1853 fi
577
67ecd5901590 Inhibit non-group admin from cloning group
HIROSE Yuuji <yuuji@gentei.org>
parents: 576
diff changeset
1854 if ! isgrpownerbygid "$user" "$rid"; then
67ecd5901590 Inhibit non-group admin from cloning group
HIROSE Yuuji <yuuji@gentei.org>
parents: 576
diff changeset
1855 echo "グループ管理者のみがクローン可能です" | html p
67ecd5901590 Inhibit non-group admin from cloning group
HIROSE Yuuji <yuuji@gentei.org>
parents: 576
diff changeset
1856 return
67ecd5901590 Inhibit non-group admin from cloning group
HIROSE Yuuji <yuuji@gentei.org>
parents: 576
diff changeset
1857 fi
382
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1858 i=0
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1859 while true; do
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1860 copy="-copy$i"
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1861 newqname=`query "SELECT quote($qgrp || '$copy');"`
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1862 # err Trying new grp=$newqname with copy=$copy
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1863 test=`query "SELECT gname FROM grp WHERE gname=$newqname;"`
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1864 if [ -n "$test" ]; then
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1865 i=$((i++))
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1866 continue
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1867 fi
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1868 break
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1869 done
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1870 # Creating New group "$newqname" with members of old group
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1871 # err Creating new grp=$newqname with copy=$copy
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1872 query<<-EOF
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1873 BEGIN;
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1874 INSERT INTO grp VALUES($newqname); -- Create NEW one
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1875 REPLACE INTO grp_s(gname, key, val) -- Copy tag
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1876 SELECT $newqname, key, val
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1877 FROM grp_s WHERE gname=$qgrp AND key IN ('tag', 'mode');
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1878 REPLACE INTO grp_s(gname, key, type, val) -- Copy gecos with "copy$n"
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1879 SELECT $newqname, key, type, val || '$copy'
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1880 FROM grp_s WHERE gname=$qgrp AND key='gecos';
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1881 -- Copy members and their configuration --
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1882 REPLACE INTO grp_mem SELECT $newqname, user
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1883 FROM grp_mem WHERE gname=$qgrp;
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1884 REPLACE INTO grp_mem_s SELECT $newqname, user, key, type, val, bin
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1885 FROM grp_mem_s WHERE gname=$qgrp;
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1886 REPLACE INTO grp_mem_m SELECT $newqname, user, key, type, val, bin
576
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1887 FROM grp_mem_m WHERE gname=$qgrp $noteam;
382
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1888 -- Copy administrators --
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1889 REPLACE INTO grp_adm SELECT $newqname, user
383
93ba4a8f3398 Oops, grp_adm should not be copied from grp_mem
HIROSE Yuuji <yuuji@gentei.org>
parents: 382
diff changeset
1890 FROM grp_adm WHERE gname=$qgrp;
382
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1891 COMMIT;
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1892 EOF
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1893 newrowid=`query "SELECT rowid FROM grp WHERE gname=$newqname;"`
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1894 STOPCLONEMSG=1 groupconf "$newrowid"
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
1895 }
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1896 groupman() {
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1897 note="<p>グループ名に使用できない文字は自動的に削除されます。</p>"
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1898
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1899 GF_STAGE="grpconf"
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1900 GF_STAGE=groupupdate
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
1901 DT_VIEW=grp dumptable html grp 'gname gecos:DESC mtime:TIME' 'order by b.TIME desc' \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1902 |_m4 -D_TITLE_="グループ作成" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1903 -D_FORM_="$note`genform $formdir/grp.def`" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1904 -D_DUMPTABLE_="syscmd(cat)" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1905 $layout/html.m4.html $layout/form+dump.m4.html
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
1906 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1907 userconf() {
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1908 [ -n "`getpar rowid`" ] && par2table $formdir/user.def
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1909 _m4 -D_BODYCLASS_=userconf -D_TITLE_="ユーザ情報編集" $layout/html.m4.html
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1910 GF_ACTION="?home" edittable "$formdir/user.def" "user" "$user"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1911 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1912 groupconf() {
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
1913 # $1=rowid in grp (2015-07-21 changed from gname)
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
1914 [ -n "`getpar rowid`" ] && par2table $formdir/grp.def
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
1915 _m4 -D_BODYCLASS_=groupconf -D_TITLE_="グループ情報編集" $layout/html.m4.html
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
1916 #rowid=`query "select rowid from grp where gname='$1';"`
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
1917 rowid=${1%%[!A-Z0-9a-z_]*}
607
d0068e9e6bd7 If user is not admin, lead to group home in groupconf()
HIROSE Yuuji <yuuji@gentei.org>
parents: 606
diff changeset
1918
d0068e9e6bd7 If user is not admin, lead to group home in groupconf()
HIROSE Yuuji <yuuji@gentei.org>
parents: 606
diff changeset
1919 ### If user is not admin, lead to group home
d0068e9e6bd7 If user is not admin, lead to group home in groupconf()
HIROSE Yuuji <yuuji@gentei.org>
parents: 606
diff changeset
1920 grp=`getgroupbyid $rowid`
d0068e9e6bd7 If user is not admin, lead to group home in groupconf()
HIROSE Yuuji <yuuji@gentei.org>
parents: 606
diff changeset
1921 if ! isgrpowner "$user" "$grp"; then
d0068e9e6bd7 If user is not admin, lead to group home in groupconf()
HIROSE Yuuji <yuuji@gentei.org>
parents: 606
diff changeset
1922 echo "<p><a href=\"?grp+$rowid\">`echo "$grp"|htmlescape`</a></p>"
d0068e9e6bd7 If user is not admin, lead to group home in groupconf()
HIROSE Yuuji <yuuji@gentei.org>
parents: 606
diff changeset
1923 return
d0068e9e6bd7 If user is not admin, lead to group home in groupconf()
HIROSE Yuuji <yuuji@gentei.org>
parents: 606
diff changeset
1924 fi
d0068e9e6bd7 If user is not admin, lead to group home in groupconf()
HIROSE Yuuji <yuuji@gentei.org>
parents: 606
diff changeset
1925
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1926 # GF_ACTION="?grp+$1" edittable "$formdir/grp.def" "grp" "$rowid" #2015-0804
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
1927 GF_STAGE="groupupdate" edittable "$formdir/grp.def" "grp" "$rowid"
384
305381d205bb Shring anchored portion of link to groupclone()
HIROSE Yuuji <yuuji@gentei.org>
parents: 383
diff changeset
1928 if [ -z "$STOPCLONEMSG" ]; then
764
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1929 ## Setup migration menu
778
3e6d36fa579d Display information improved
HIROSE Yuuji <yuuji@gentei.org>
parents: 777
diff changeset
1930 height="10em" ## Ugly!!
796
8646ec4bd6fc Load s4-config.sh earlier
HIROSE Yuuji <yuuji@gentei.org>
parents: 791
diff changeset
1931 if [ -n "$S4WORLDLIST" ]; then
8646ec4bd6fc Load s4-config.sh earlier
HIROSE Yuuji <yuuji@gentei.org>
parents: 791
diff changeset
1932 v=`fgrep -v "value=\"$worldconf\"" $worldoptionfile`
8646ec4bd6fc Load s4-config.sh earlier
HIROSE Yuuji <yuuji@gentei.org>
parents: 791
diff changeset
1933 err v=$v
8646ec4bd6fc Load s4-config.sh earlier
HIROSE Yuuji <yuuji@gentei.org>
parents: 791
diff changeset
1934 if [ -n "$v" ]; then
8646ec4bd6fc Load s4-config.sh earlier
HIROSE Yuuji <yuuji@gentei.org>
parents: 791
diff changeset
1935 migrate=$(cat<<-EOF
764
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1936 `cgi_radio grpaction migrate id="migrate"`<label
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1937 for="migrate">別Worldへ移住</label>
778
3e6d36fa579d Display information improved
HIROSE Yuuji <yuuji@gentei.org>
parents: 777
diff changeset
1938 <div style="height: $height;">
764
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1939 <form action="?migrategrp">
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1940 <p>移住先:<select name="migrateto">$nl$v$nl</select></p>
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1941 <p>グループや掲示板のURLが変わります。
778
3e6d36fa579d Display information improved
HIROSE Yuuji <yuuji@gentei.org>
parents: 777
diff changeset
1942 外部からリンクしている場合は飛べなくなります。
789
ce8942919edf Update migration notice
HIROSE Yuuji <yuuji@gentei.org>
parents: 787
diff changeset
1943 すでにリンクされた掲示板を多数含む場合は既存グループを温存し、
ce8942919edf Update migration notice
HIROSE Yuuji <yuuji@gentei.org>
parents: 787
diff changeset
1944 「グループのクローン」で
778
3e6d36fa579d Display information improved
HIROSE Yuuji <yuuji@gentei.org>
parents: 777
diff changeset
1945 メンバーを引き継いだ上でそのクローンを移住するのがお勧めです。</p>
764
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1946 <p><label>`cgi_checkbox emichk yes`確認</label></p>
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1947 `cgi_hidden stage migrategrp`
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1948 `cgi_hidden rowid $rowid`
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1949 `cgi_submit OK`
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1950 `cgi_reset Reset`
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1951 </form>
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1952 </div>
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1953 EOF
796
8646ec4bd6fc Load s4-config.sh earlier
HIROSE Yuuji <yuuji@gentei.org>
parents: 791
diff changeset
1954 )
8646ec4bd6fc Load s4-config.sh earlier
HIROSE Yuuji <yuuji@gentei.org>
parents: 791
diff changeset
1955 fi
764
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1956 fi
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1957 html div 'class="foldtabs"' <<-EOF
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1958 `cgi_radio grpaction clone id="clone"`<label
778
3e6d36fa579d Display information improved
HIROSE Yuuji <yuuji@gentei.org>
parents: 777
diff changeset
1959 for="clone">グループのクローン作成</label>
3e6d36fa579d Display information improved
HIROSE Yuuji <yuuji@gentei.org>
parents: 777
diff changeset
1960 <div style="height: $height;">
576
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1961 <p>構成メンバーが同じ新規グループを作成します。</p>
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1962 <table>
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1963 <tr><td><a href="?groupclone+$rowid">
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1964 <button>クローン作成(チームも複製)</button></a></td>
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1965 <td><p>(チームなどもそのままで掲示板なしの状態から)</p></td></tr>
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1966 <tr><td><a href="?groupclone+$rowid/noteam">
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1967 <button>作成(チームなし)</button></a></td>
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1968 <td>(チームは引き継がずメンバーのみ同じグループを作成)</td></tr>
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1969 </table>
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1970 <p>ボタンを押すと即作成します。不要な場合はグループ編集で
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1971 削除してください。</p>
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1972 </div>
764
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1973 $migrate
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1974 `cgi_radio grpaction close id="x"`<label for="x" accesskey="x">×</label>
778
3e6d36fa579d Display information improved
HIROSE Yuuji <yuuji@gentei.org>
parents: 777
diff changeset
1975 <div style="height: $height; background: transparent;"></div>
576
c81511a6b7e0 Add feature of "clone without team"
HIROSE Yuuji <yuuji@gentei.org>
parents: 575
diff changeset
1976 EOF
384
305381d205bb Shring anchored portion of link to groupclone()
HIROSE Yuuji <yuuji@gentei.org>
parents: 383
diff changeset
1977 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
1978 }
764
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1979 migrategrp() {
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1980 rowid=`getpar rowid`
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1981 rowid=${rowid%%[!0-9]*}
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1982 grp=`getgroupbyid $rowid`
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1983 if ! isgrpowner "$user" "$grp"; then
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1984 echo "<p><a href=\"?grp+$rowid\">`echo "$grp"|htmlescape`</a></p>"
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1985 return
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1986 fi
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1987 if [ x`getpar emichk` != x"yes" ]; then
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1988 echo "移住確認未チェックなので中止します。" | html p
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1989 grp "$rowid"
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1990 return
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1991 fi
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1992 destconf=`getpar migrateto`
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1993 err destconf=$destconf
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1994 if [ ! -e $destconf ]; then
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1995 echo "移住先Worldが認識できないので中止します($destconf)。" | html p
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1996 grp "$rowid"
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1997 return
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1998 fi
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
1999 if [ -n "$worldconf" ]; then
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2000 srcconf=$worldconf
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2001 else
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2002 srcconf=s4-config.sh
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2003 fi
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2004 _m4 -D_TITLE_="移住操作" -D_BODYCLASS_="" $layout/html.m4.html
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2005 echo "移住操作" | html h1
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2006 echo '<pre>'
786
809caeb20758 Migration caller set arguments beforehand
HIROSE Yuuji <yuuji@gentei.org>
parents: 781
diff changeset
2007 set -- "$srcconf" "$destconf" "$rowid"
809caeb20758 Migration caller set arguments beforehand
HIROSE Yuuji <yuuji@gentei.org>
parents: 781
diff changeset
2008 err ./s4-migrate.sh "$srcconf" "$destconf" "$rowid"
809caeb20758 Migration caller set arguments beforehand
HIROSE Yuuji <yuuji@gentei.org>
parents: 781
diff changeset
2009 . ./s4-migrate.sh # Dot(.) sourcing might not pass arguments
764
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2010 rc=$?
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2011 echo "</pre>"
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2012 if [ $rc -eq 0 ]; then
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2013 echo "World [$world] への移住完了。" | html p
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2014 echo "<p><a href=\"$dsturl?grp+$destrowid\">移住先</a></p>"
868
2eaa037f35d0 Error handling of migration fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 864
diff changeset
2015 elif [ -n "$faillist" ]; then
2eaa037f35d0 Error handling of migration fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 864
diff changeset
2016 echo "移住後削除失敗" | html p
2eaa037f35d0 Error handling of migration fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 864
diff changeset
2017 echo "空いている時間帯に再度試して下さい。" | html p
764
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2018 else
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2019 echo "移住失敗" | html p
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2020 echo "移動先に重複がないか確認して下さい。" | html p
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2021 fi
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2022 return
d1f60cdc3e1a Migration support added
HIROSE Yuuji <yuuji@gentei.org>
parents: 759
diff changeset
2023 }
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2024 mems() {
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2025 _m4 -D_TITLE_="参加者一覧" -D_BODYCLASS_=listmember $layout/html.m4.html
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2026 kwd=`getpar kwd`
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2027 listmember $kwd
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2028 }
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2029 grps() {
816
ed2c8aab742d Archiving world provides no new-group link
HIROSE Yuuji <yuuji@gentei.org>
parents: 812
diff changeset
2030 case "$S4WORLD" in
ed2c8aab742d Archiving world provides no new-group link
HIROSE Yuuji <yuuji@gentei.org>
parents: 812
diff changeset
2031 $nonewgroupworld) ;;
ed2c8aab742d Archiving world provides no new-group link
HIROSE Yuuji <yuuji@gentei.org>
parents: 812
diff changeset
2032 *) LINK_NEWGRP="<a href=\"?groupman\">新規グループ作成</a>" ;;
ed2c8aab742d Archiving world provides no new-group link
HIROSE Yuuji <yuuji@gentei.org>
parents: 812
diff changeset
2033 esac
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2034 _m4 -D_TITLE_="グループ一覧" -D_BODYCLASS_=listgroup $layout/html.m4.html
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2035 kwd=`getpar kwd`
831
0ec2df3e879a Hidden variable of kwd should not appear in type="text" form
HIROSE Yuuji <yuuji@gentei.org>
parents: 830
diff changeset
2036 listgroup "$kwd" \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2037 | _m4 -D_DUMPTABLE_="syscmd(cat)" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2038 -D_TITLE_="グループ関連操作" \
816
ed2c8aab742d Archiving world provides no new-group link
HIROSE Yuuji <yuuji@gentei.org>
parents: 812
diff changeset
2039 -D_FORM_="${LINK_NEWGRP}${NEWGRP_GUIDE}" \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2040 $layout/form+dump.m4.html
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2041 }
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2042 grp() { # $1=group-rowid
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2043 gpg=`getpar grp`
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2044 grid=${1:-$gpg}
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2045 grp=`getgroupbyid "$grid"`
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2046 ## . ./s4-blog.sh
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2047 jg=`getpar joingrp`
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2048 if [ -n "$jg" ]; then
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2049 [ -n "$jg" -a -n "$grp" ] &&
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2050 joingrp "$grp" "$user" "$jg" "`getpar email`"
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2051 fi
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2052 htmlheader=$layout/html.m4.html
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2053 showgroup "$grid"
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2054 }
343
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2055 sql4interestblogs() {
177
1adafaf079a0 remove debug code
HIROSE Yuuji <yuuji@gentei.org>
parents: 176
diff changeset
2056 cat<<EOF
343
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2057 CREATE TEMPORARY VIEW interestblogs AS
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2058 SELECT blog.rowid rid, id, author
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2059 FROM blog
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2060 NATURAL JOIN
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2061 (SELECT id, val owner FROM blog_s WHERE key='owner') bs
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2062 WHERE CASE WHEN (SELECT name FROM user where name=bs.owner) IS NOT NULL
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2063 THEN 1 -- blog owner is an user, READABLE
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2064 WHEN (SELECT user FROM grp_mem
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2065 WHERE gname=bs.owner AND user='$user') IS NULL
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2066 THEN 0
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2067 ELSE 1
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2068 END;
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2069 EOF
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2070 }
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2071 listnewblogsql() { # $1=user
625
74c0c2ed8ff5 New variable WHATSNEWDAYS limits the number of days of new article.
HIROSE Yuuji <yuuji@gentei.org>
parents: 624
diff changeset
2072 newdays=${WHATS_NEW_DAYS##*[!0-9]} # Shave non-digits
74c0c2ed8ff5 New variable WHATSNEWDAYS limits the number of days of new article.
HIROSE Yuuji <yuuji@gentei.org>
parents: 624
diff changeset
2073 newdays=${newdays%%[!0-9]*}
74c0c2ed8ff5 New variable WHATSNEWDAYS limits the number of days of new article.
HIROSE Yuuji <yuuji@gentei.org>
parents: 624
diff changeset
2074 newdays=${newdays:-14}
74c0c2ed8ff5 New variable WHATSNEWDAYS limits the number of days of new article.
HIROSE Yuuji <yuuji@gentei.org>
parents: 624
diff changeset
2075 basetime="datetime('now', 'localtime', '-${newdays} days')"
471
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2076 deftime=`query "SELECT coalesce((SELECT max(time) FROM acclog
345
8134b548b385 Taking default access time broken, fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 343
diff changeset
2077 WHERE user='$user'
471
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2078 AND tblrowid IN
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2079 ($blogreadflagrowid,
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2080 $blogcutoffflagrowid)),
625
74c0c2ed8ff5 New variable WHATSNEWDAYS limits the number of days of new article.
HIROSE Yuuji <yuuji@gentei.org>
parents: 624
diff changeset
2081 $basetime -- "0"
74c0c2ed8ff5 New variable WHATSNEWDAYS limits the number of days of new article.
HIROSE Yuuji <yuuji@gentei.org>
parents: 624
diff changeset
2082 );"`
392
be955399aec9 Owner should be taken via getvalbyid
HIROSE Yuuji <yuuji@gentei.org>
parents: 391
diff changeset
2083 cat<<EOF
343
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2084 `sql4interestblogs`
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2085 WITH article_ctime as (
471
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2086 SELECT id,blogid,author,max(val) ctime
343
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2087 FROM article join article_s s using(id)
471
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2088 WHERE s.key='ctime' AND s.val > '$deftime'
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2089 GROUP BY id
175
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
2090 ), blog_title_owner as (
343
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2091 SELECT blg.rid brid, id,
175
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
2092 max(case key when 'title' then val end) title,
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
2093 max(case key when 'owner' then val end) owner
343
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2094 FROM interestblogs blg, blog_s using(id) group by id
175
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
2095 ), blogall as (
471
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2096 SELECT * FROM blog_title_owner b JOIN article_ctime ac ON b.id=ac.blogid
343
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2097 ), news as (
471
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2098 SELECT brid, bl.id blid, bl.title, ctime,
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2099 coalesce(al.time, '$deftime') atime,
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2100 count(bl.id) "新着", bl.author
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2101 FROM blogall bl
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2102 LEFT JOIN
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2103 (SELECT * FROM acclog WHERE user='$user' AND tbl='blog') al
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2104 ON bl.brid=al.tblrowid
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2105 WHERE atime < bl.ctime
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2106 GROUP by bl.id ORDER BY ctime desc,"新着" desc, bl.id
343
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2107 LIMIT 10
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2108 ) SELECT brid LINK, "新着",
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2109 (SELECT count(*) FROM article WHERE blogid=blid) "総数",
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2110 ctime, title,
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2111 (SELECT gecos FROM gecoses WHERE name=author) gecos
c3311da3f059 Do not include article of the groups the user does'not belong in NEW list
HIROSE Yuuji <yuuji@gentei.org>
parents: 342
diff changeset
2112 FROM news;
175
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
2113 EOF
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
2114 }
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
2115
243
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
2116 search_form() {
747
42cc0aeaa498 Avoid to pass gname to searchart()
HIROSE Yuuji <yuuji@gentei.org>
parents: 740
diff changeset
2117 # $1 = { author=<AUTHOR> | grid=<GroupRowid> }
508
944739c3ac5c Continuous search available
HIROSE Yuuji <yuuji@gentei.org>
parents: 507
diff changeset
2118 # $2(optional) = pre-input keywords
301
ba0730073d6f Add (1)article-ID search, (2)DATE search
HIROSE Yuuji <yuuji@gentei.org>
parents: 300
diff changeset
2119 help="(1)空白区切りの単語で本文検索
302
9edf8e87e198 Search form help more explanatory
HIROSE Yuuji <yuuji@gentei.org>
parents: 301
diff changeset
2120 (2)@YYYY-MM-DD 日付け(シェルパターン可)で日付け検索
352
dd0c70353869 More HELP text for search form. Add search result report.
HIROSE Yuuji <yuuji@gentei.org>
parents: 351
diff changeset
2121 @2016-0[1-6] → 2016年1月から6月
dd0c70353869 More HELP text for search form. Add search result report.
HIROSE Yuuji <yuuji@gentei.org>
parents: 351
diff changeset
2122 @>2016-01 @<2016-02-15 → 2016年1月から2月14日までの期間
dd0c70353869 More HELP text for search form. Add search result report.
HIROSE Yuuji <yuuji@gentei.org>
parents: 351
diff changeset
2123 @week → 最近一週間
302
9edf8e87e198 Search form help more explanatory
HIROSE Yuuji <yuuji@gentei.org>
parents: 301
diff changeset
2124 (3)#番号 で記事ID検索
9edf8e87e198 Search form help more explanatory
HIROSE Yuuji <yuuji@gentei.org>
parents: 301
diff changeset
2125 (1)と(2)は組み合わせOK
9edf8e87e198 Search form help more explanatory
HIROSE Yuuji <yuuji@gentei.org>
parents: 301
diff changeset
2126 例: @2016-10-0[1-9] 芋煮
445
12548e1a4ff8 Add comment about quiz board exclusion from search
HIROSE Yuuji <yuuji@gentei.org>
parents: 443
diff changeset
2127 → 2016年10月上旬でキーワード「芋煮」を含む記事検索
12548e1a4ff8 Add comment about quiz board exclusion from search
HIROSE Yuuji <yuuji@gentei.org>
parents: 443
diff changeset
2128 ※クイズ板は検索対象から外されます。"
331
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
2129 auth=""
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
2130 placeholder="全記事からの検索"
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
2131 case "$1" in
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
2132 author=*)
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
2133 a=`echo "${1#author=}"|htmlescape`
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
2134 g=`gecos ${1#author=}`
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
2135 auth="<input type=\"hidden\" name=\"author\" value=\"$a\">"
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
2136 placeholder="このユーザの書込検索"
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
2137 help="★★ $g さんの書き込みから検索します$nl$help"
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
2138 ;;
747
42cc0aeaa498 Avoid to pass gname to searchart()
HIROSE Yuuji <yuuji@gentei.org>
parents: 740
diff changeset
2139 grid=*)
42cc0aeaa498 Avoid to pass gname to searchart()
HIROSE Yuuji <yuuji@gentei.org>
parents: 740
diff changeset
2140 a=`echo "${1#grid=}"`; a=$((0 + $a))
42cc0aeaa498 Avoid to pass gname to searchart()
HIROSE Yuuji <yuuji@gentei.org>
parents: 740
diff changeset
2141 auth="<input type=\"hidden\" name=\"grid\" value=\"$a\">"
418
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2142 placeholder="このグループからの検索"
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2143 ;;
331
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
2144 esac
508
944739c3ac5c Continuous search available
HIROSE Yuuji <yuuji@gentei.org>
parents: 507
diff changeset
2145 inikwd="$2" # no need to htmlescape
243
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
2146 cat<<-EOF
418
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2147 <div class="right">
331
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
2148 <form action="$myname">$auth
508
944739c3ac5c Continuous search available
HIROSE Yuuji <yuuji@gentei.org>
parents: 507
diff changeset
2149 <input type="text" name="kwd" value="$inikwd" title="$help"
340
a06cd57df83a Add accesskey-attribute to frequently used tabls and form.
HIROSE Yuuji <yuuji@gentei.org>
parents: 339
diff changeset
2150 placeholder=" $placeholder " width="10" accesskey="k">
509
d34b8f36501c Progressive search does not restrict author
HIROSE Yuuji <yuuji@gentei.org>
parents: 508
diff changeset
2151 <!-- POST SENTENCE -->
352
dd0c70353869 More HELP text for search form. Add search result report.
HIROSE Yuuji <yuuji@gentei.org>
parents: 351
diff changeset
2152 ${touchpanel:+<p class="help">$help</p>}
243
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
2153 <input type="hidden" name="stage" value="searchart">
509
d34b8f36501c Progressive search does not restrict author
HIROSE Yuuji <yuuji@gentei.org>
parents: 508
diff changeset
2154 <!-- EOF -->
243
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
2155 </form>
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
2156 </div>
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
2157 EOF
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
2158 }
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
2159
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2160 imgsrc_cache() (
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2161 # $1 = directory for cache'ing
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2162 # $2 = table (user_m or grp_m)
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2163 # $3 = keycond (was: condition for choosingowner)
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2164 # $4 = size : S = Small, M = Medium, O = Original
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2165 dir="$1" tbl="$2"
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2166 keycond="$3"
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2167 whos="$keycond AND key='profimg' AND type LIKE 'file:image%'
327
5e56160ad1f5 Use the last profimg as profile image instead of first one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 326
diff changeset
2168 ORDER BY rowid DESC LIMIT 1"
332
9dc6f9e60f6a Quote file names. Select last profimg in listentry.
HIROSE Yuuji <yuuji@gentei.org>
parents: 331
diff changeset
2169 [ -d "$dir" ] || mkdir -p "$dir"
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
2170 tmpf=$tmpd/imgsrc_cache.$$
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2171 case "$4" in
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2172 [Ss]) size=S ;;
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2173 [Oo]) size=O ;;
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2174 *) size=M ;;
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2175 esac
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2176 # ImageCache filename storing schema:
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2177 # <table_s>.{key, val}={"profimgcache_S", "$cacheimg_S"}
312
b8a8e627b376 Remove debugging code. Stay revealed profile image rows.
HIROSE Yuuji <yuuji@gentei.org>
parents: 311
diff changeset
2178 sql0="SELECT val || '//' || type FROM $tbl WHERE $whos;"
b8a8e627b376 Remove debugging code. Stay revealed profile image rows.
HIROSE Yuuji <yuuji@gentei.org>
parents: 311
diff changeset
2179 sql1="SELECT hex(bin) FROM $tbl WHERE $whos;"
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2180 valtype=`query "$sql0"`
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2181 filename=${valtype%%//*}
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2182 filetype=${valtype##*//file:}
339
47d83939666b Add extension to icon cache file if it has no one
HIROSE Yuuji <yuuji@gentei.org>
parents: 337
diff changeset
2183 if [ x"$filename" = x"${filename%.*}" ]; then
47d83939666b Add extension to icon cache file if it has no one
HIROSE Yuuji <yuuji@gentei.org>
parents: 337
diff changeset
2184 # If nor filename extension found, set it to image type
47d83939666b Add extension to icon cache file if it has no one
HIROSE Yuuji <yuuji@gentei.org>
parents: 337
diff changeset
2185 case "$filetype" in
47d83939666b Add extension to icon cache file if it has no one
HIROSE Yuuji <yuuji@gentei.org>
parents: 337
diff changeset
2186 image/*) filename=$filename.${filetype#image/} ;;
47d83939666b Add extension to icon cache file if it has no one
HIROSE Yuuji <yuuji@gentei.org>
parents: 337
diff changeset
2187 esac
47d83939666b Add extension to icon cache file if it has no one
HIROSE Yuuji <yuuji@gentei.org>
parents: 337
diff changeset
2188 fi
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2189 cacheimg_S=$dir/S_$filename
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2190 cacheimg_M=$dir/M_$filename
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2191 cacheimg_O=$dir/$filename
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2192 cacheimg=$dir/${size}_$filename
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2193 sumfile="$dir/$filename.sum"
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2194 sum=`query "$sql1" | tee $tmpf | encode` # encode() is maybe sha1
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
2195 if test -s "$sumfile" && [ x"`cat \"$sumfile\"`" = x"$sum" ] \
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
2196 && test -s "$cacheimg_S" && test -s "$cacheimg_M" ; then
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
2197 # if cache is fresh and has the same checksum,
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2198 echo "<img src=\"$cacheimg\">"
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2199 else
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
2200 fifo=`mktemp "$tmpf.fifo.XXXXXXX"`
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
2201 rm -f $fifo # Safe, because $tmpf is in mktemp dir.
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
2202 fifo2=$fifo.2
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
2203 mkfifo $fifo $fifo2
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2204 fmt=${filename##*.}
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2205 ## [[ NOTE ]]
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2206 ## a. convert oldimage newimage
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2207 ## b. convert oldimage fmt:- | convert - newimage
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2208 ## b is much smaller than a
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2209 cat $tmpf | unhexize \
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2210 | tee $fifo \
392
be955399aec9 Owner should be taken via getvalbyid
HIROSE Yuuji <yuuji@gentei.org>
parents: 391
diff changeset
2211 | convert -define ${fmt}:size=${iconxy_M} \
be955399aec9 Owner should be taken via getvalbyid
HIROSE Yuuji <yuuji@gentei.org>
parents: 391
diff changeset
2212 -resize ${iconxy_M}'>' - ${fmt}:- \
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
2213 | tee $fifo2 \
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
2214 | convert - "$cacheimg_M" &
392
be955399aec9 Owner should be taken via getvalbyid
HIROSE Yuuji <yuuji@gentei.org>
parents: 391
diff changeset
2215 cat $fifo | convert -define ${fmt}:size=${iconxy_S} \
be955399aec9 Owner should be taken via getvalbyid
HIROSE Yuuji <yuuji@gentei.org>
parents: 391
diff changeset
2216 -resize ${iconxy_S}'>' - ${fmt}:- \
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
2217 | convert - "$cacheimg_S" &
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2218 printf '%s' "<img src=\"data:${filetype},"
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
2219 hexize "$fifo2" |sed 's/\(..\)/%\1/g' # Use medium as pre-cached image
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2220 echo '">'
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2221 echo "$sum" > $sumfile
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2222 fi
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2223 ## Now preparing cache image, done.
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2224 ## Store this information to DB
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2225 stbl=${tbl%_m}_s # user_s or grp_s
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2226 pkey=${keycond%%=*} # Primary Key name
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2227 pval=${keycond#*=} # Primary Key value
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2228 query <<-EOF
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2229 REPLACE INTO $stbl($pkey, key, type, val)
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2230 VALUES($pval, '$iconcachekey', 'string', `sqlquote "$cacheimg_S"`);
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2231 EOF
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2232 )
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2233
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2234 showhome() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2235 # $1=userRowIdToShow
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2236 err showhome \$1=$1
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2237 case "$1" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2238 *@*) uname=`getvalbypkey user name "$1"` ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2239 *) uname=`getvalbyid user name $1` ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2240 esac
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2241 ## err ShowHome: uname=$uname
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2242 td=`getcachedir home/"$1"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2243 gecos=`gecos "$uname"`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2244 ## err SH:gecos=$gecos
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2245 GF_VIEWONLY=1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2246 cond="gname in (select gname from grp_mem where user='$uname')"
331
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
2247 search_form_args=""
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2248 if [ x"$user" = x"$uname" ]; then
755
1a8291d7fa3d Annex strategy shifted to World strategy
HIROSE Yuuji <yuuji@gentei.org>
parents: 754
diff changeset
2249 if [ -z "$S4MASTERDB" ]; then
754
5bab8644024a Annex-test: sessdb = main-sessdb
HIROSE Yuuji <yuuji@gentei.org>
parents: 753
diff changeset
2250 usermenu="<a href=\"?userconf\" accesskey=\"e\"
5bab8644024a Annex-test: sessdb = main-sessdb
HIROSE Yuuji <yuuji@gentei.org>
parents: 753
diff changeset
2251 title=\"Shortcut: E${nl}Edit Profile\">プロフィールの編集</a> / "
5bab8644024a Annex-test: sessdb = main-sessdb
HIROSE Yuuji <yuuji@gentei.org>
parents: 753
diff changeset
2252 elif [ -n "$S4MASTERURL" ]; then
5bab8644024a Annex-test: sessdb = main-sessdb
HIROSE Yuuji <yuuji@gentei.org>
parents: 753
diff changeset
2253 usermenu="<a href=\"$S4MASTERURL\" accesskey=\"e\"
755
1a8291d7fa3d Annex strategy shifted to World strategy
HIROSE Yuuji <yuuji@gentei.org>
parents: 754
diff changeset
2254 title=\"Shortcut: E${nl}Main Site\">Base World</a> / "
754
5bab8644024a Annex-test: sessdb = main-sessdb
HIROSE Yuuji <yuuji@gentei.org>
parents: 753
diff changeset
2255 fi
5bab8644024a Annex-test: sessdb = main-sessdb
HIROSE Yuuji <yuuji@gentei.org>
parents: 753
diff changeset
2256 usermenu="$usermenu
702
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2257 <a href=\"?blog\" accesskey=\"n\" title=\"Shortcut: N${nl}New blog\">新規話題の作成</a>"
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
2258 # Display folders
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
2259 sql="select count(id) from article_m where id
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
2260 in (select id from article where author='$user')
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
2261 and type like 'file:%';"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2262 ## err nfile-sql=`echo "$sql"`
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
2263 nfile=`query "$sql"`
312
b8a8e627b376 Remove debugging code. Stay revealed profile image rows.
HIROSE Yuuji <yuuji@gentei.org>
parents: 311
diff changeset
2264 # err nfile=$nfile
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
2265 if [ $nfile -gt 0 ]; then
469
f095f639e5bf Show lastlog in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 468
diff changeset
2266 usermenu="$usermenu / <a href=\"?lsmyfile\" accesskey=\"l\"
702
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2267 title=\"Shortcut: L${nl}List All Attachment files\">過去の提出ファイル</a>"
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
2268 fi
331
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
2269 else
469
f095f639e5bf Show lastlog in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 468
diff changeset
2270 latestlog=`query "SELECT max(time) FROM acclog WHERE user='$uname' \
f095f639e5bf Show lastlog in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 468
diff changeset
2271 GROUP BY user;"`
f095f639e5bf Show lastlog in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 468
diff changeset
2272 usermenu="<p>Last seen on $latestlog</p>"
331
1a60dfc56bb0 Search form in other user's home restrict author to that one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 329
diff changeset
2273 search_form_args="author=$uname"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2274 fi
17
01f579d2c889 Rename to s4
HIROSE Yuuji <yuuji@gentei.org>
parents: 16
diff changeset
2275 . ./s4-blog.sh
3
95cebd686c97 add templ/*
HIROSE Yuuji <yuuji@gentei.org>
parents: 2
diff changeset
2276
243
466ea3e4b039 Search box localted to the top of home page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 242
diff changeset
2277 tf=$tmpd/title.$$ pf=$tmpd/profile.$$ bf=$tmpd/blogs.$$ sf=$tmpd/search.$$
508
944739c3ac5c Continuous search available
HIROSE Yuuji <yuuji@gentei.org>
parents: 507
diff changeset
2278 search_form "$search_form_args" > $sf
791
567980314463 World and Migration structures refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 789
diff changeset
2279 printf "%s さん%s" "$gecos" "${S4WORLDNAME:+@$S4WORLDNAME}" \
567980314463 World and Migration structures refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 789
diff changeset
2280 | htmlescape > $tf
319
a868f03970b5 Profimg hiding rule revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 312
diff changeset
2281 { echo "<div class=\"noprofimg\">"
a868f03970b5 Profimg hiding rule revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 312
diff changeset
2282 viewtable $formdir/user.def user $1
a868f03970b5 Profimg hiding rule revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 312
diff changeset
2283 echo "</div>"
a868f03970b5 Profimg hiding rule revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 312
diff changeset
2284 } > $pf
146
3d0de7bdbf40 Profile image
HIROSE Yuuji <yuuji@gentei.org>
parents: 144
diff changeset
2285
147
HIROSE Yuuji <yuuji@gentei.org>
parents: 146
diff changeset
2286 sqcond="WHERE name='$uname' AND key='profimg' AND type LIKE 'file:image%'"
146
3d0de7bdbf40 Profile image
HIROSE Yuuji <yuuji@gentei.org>
parents: 144
diff changeset
2287 img=`query "SELECT type FROM user_m $sqcond LIMIT 1;"`
148
afc3bf5c9dbb profimg should be saved in $tmpd
HIROSE Yuuji <yuuji@gentei.org>
parents: 147
diff changeset
2288 imf=$tmpd/profimg.$$; touch $imf
146
3d0de7bdbf40 Profile image
HIROSE Yuuji <yuuji@gentei.org>
parents: 144
diff changeset
2289 if [ -n "$img" ]; then
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2290 if true; then
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2291 tbl=user_m
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2292 enticond="name='$uname'"
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2293 imgsrc_cache "$td/main" user_m "$enticond" M
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2294 else
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2295 { printf '%s' "<IMG src=\"data:${img#file:},"
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2296 query "SELECT hex(bin) FROM user_m $sqcond ORDER BY rowid LIMIT 1;" \
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2297 | sed 's/\(..\)/%\1/g'
151
7bb7086ea0d0 Unclosed tag, fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 150
diff changeset
2298 echo '">'
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2299 }
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2300 fi > $imf
146
3d0de7bdbf40 Profile image
HIROSE Yuuji <yuuji@gentei.org>
parents: 144
diff changeset
2301 fi
150
6ee08d8b0f5f Display the number of blogs of the user.
HIROSE Yuuji <yuuji@gentei.org>
parents: 149
diff changeset
2302 nblog=`query "SELECT count(id) FROM blog_s WHERE key='owner' AND \
6ee08d8b0f5f Display the number of blogs of the user.
HIROSE Yuuji <yuuji@gentei.org>
parents: 149
diff changeset
2303 val='$uname';"`
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2304 listblog $uname > $bf
260
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2305
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2306 hometail=$tmpd/tail.$$
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2307 mkfifo $hometail
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2308
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2309 #Calling listgroupbytable, originally here
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2310
260
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2311 (
328
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
2312 # Display Most Recent Entry
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
2313 shortval=${dumpcollen:+"substr(val, 0, $dumpcollen)"}
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
2314 shortval=${shortval:-val}
252
75dfaceac01f Link to newest article of the blog in the recent writing place
HIROSE Yuuji <yuuji@gentei.org>
parents: 251
diff changeset
2315
340
a06cd57df83a Add accesskey-attribute to frequently used tabls and form.
HIROSE Yuuji <yuuji@gentei.org>
parents: 339
diff changeset
2316 # The m.aid in the next line is suspicious. But works fine in SQLite3...
328
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
2317 DT_SQL="SELECT b.rowid || '#' || m.aid LINK,
253
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
2318 ctime,
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
2319 (SELECT $shortval FROM blog_s WHERE key='title' AND id=b.id) title,
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
2320 (SELECT gecos FROM gecoses
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
2321 WHERE name=(SELECT val FROM blog_s
257
5d0dbbf9310c Show text in the table of recent writing articles
HIROSE Yuuji <yuuji@gentei.org>
parents: 255
diff changeset
2322 WHERE key='owner' AND id=b.id)) owner,
5d0dbbf9310c Show text in the table of recent writing articles
HIROSE Yuuji <yuuji@gentei.org>
parents: 255
diff changeset
2323 (SELECT $shortval val FROM article_s WHERE id=m.aid AND key='text') text
253
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
2324 FROM blog b
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
2325 JOIN
254
8a0cf46afb0a Revise SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 253
diff changeset
2326 (SELECT distinct blogid, a.id aid, max(val) ctime
253
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
2327 FROM article a, article_s s
328
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
2328 ON a.id=s.id AND a.author='$uname' AND s.key='ctime'
253
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
2329 GROUP BY blogid ORDER BY val DESC LIMIT 50
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
2330 ) m
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
2331 ON b.id=m.blogid;"
328
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
2332 # This should be as follows
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
2333 : <<EOF
255
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
2334 WITH arts AS(
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
2335 SELECT (SELECT rowid FROM blog WHERE id=a.blogid) brid,
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
2336 a.blogid, a.id id, s.val ctime
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
2337 FROM article a NATURAL JOIN article_s s
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
2338 WHERE s.key = 'ctime' AND a.author='$user'
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
2339 GROUP by s.id
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
2340 )
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
2341 SELECT a0.brid,a0.blogid,a0.id,a0.ctime
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
2342 FROM arts a0
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
2343 JOIN
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
2344 (SELECT blogid,max(ctime) mct FROM arts a1 GROUP BY blogid) a1
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
2345 ON a0.blogid=a1.blogid AND a0.ctime=a1.mct
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
2346 ORDER BY ctime DESC LIMIT 50;
3ae8b70b8395 Add commentary about SQL
HIROSE Yuuji <yuuji@gentei.org>
parents: 254
diff changeset
2347 EOF
253
a40d258cc5aa SQL last modifed is TOO slow. Revert once to previous one.
HIROSE Yuuji <yuuji@gentei.org>
parents: 252
diff changeset
2348
328
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
2349 cat<<-EOF
340
a06cd57df83a Add accesskey-attribute to frequently used tabls and form.
HIROSE Yuuji <yuuji@gentei.org>
parents: 339
diff changeset
2350 `cgi_radio foldtabs yes 'id="mre" accesskey="d"'`<label
702
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2351 for="mre" title="Shortcut: D${nl}Recent Post">最近の書き込み先</label>
260
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2352 <div class="lcto">
194
b1847cc3912a Display Most Recent Entry of user's
HIROSE Yuuji <yuuji@gentei.org>
parents: 187
diff changeset
2353 `DT_VIEW=replyblog dumptable html blog`
b1847cc3912a Display Most Recent Entry of user's
HIROSE Yuuji <yuuji@gentei.org>
parents: 187
diff changeset
2354 </div>
b1847cc3912a Display Most Recent Entry of user's
HIROSE Yuuji <yuuji@gentei.org>
parents: 187
diff changeset
2355 EOF
328
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
2356 unset DT_SQL
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
2357 if [ x"$user" = x"$uname" ]; then
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2358 # Display NEWS
351
deb4cc74a415 Remove old code and add title of accesskey
HIROSE Yuuji <yuuji@gentei.org>
parents: 350
diff changeset
2359 # 2016-06-26
deb4cc74a415 Remove old code and add title of accesskey
HIROSE Yuuji <yuuji@gentei.org>
parents: 350
diff changeset
2360 if [ x"`getpar readchk``getpar read`" = x"yesyes" ]; then
deb4cc74a415 Remove old code and add title of accesskey
HIROSE Yuuji <yuuji@gentei.org>
parents: 350
diff changeset
2361 acclog blog $blogreadflagrowid
deb4cc74a415 Remove old code and add title of accesskey
HIROSE Yuuji <yuuji@gentei.org>
parents: 350
diff changeset
2362 # echo "全部既読にしました" | html p
175
3d12521876f2 NEW counter SQL revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 174
diff changeset
2363 fi
351
deb4cc74a415 Remove old code and add title of accesskey
HIROSE Yuuji <yuuji@gentei.org>
parents: 350
diff changeset
2364 # 2016-02-19 Counting NEWS without using dumptable.
deb4cc74a415 Remove old code and add title of accesskey
HIROSE Yuuji <yuuji@gentei.org>
parents: 350
diff changeset
2365 sql=`listnewblogsql "$user"`
471
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2366 # echo "$sql" > tmp/listnew
351
deb4cc74a415 Remove old code and add title of accesskey
HIROSE Yuuji <yuuji@gentei.org>
parents: 350
diff changeset
2367 new10=`DT_SQL="$sql" DT_VIEW=replyblog dumptable html blog`
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2368 cont=`echo "$new10"|grep "^<TR>"|wc -l`
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2369 cont=$((cont-1))
853
047e1c3f811e Log output revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 851
diff changeset
2370 ##err newcount=$cont
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2371 if [ $cont -gt 0 ]; then
260
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2372 #echo "全体の新着記事${cont}傑" | html h2
340
a06cd57df83a Add accesskey-attribute to frequently used tabls and form.
HIROSE Yuuji <yuuji@gentei.org>
parents: 339
diff changeset
2373 cgi_radio foldtabs yes 'id="new10" accesskey="f"'
702
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2374 echo "<label for=\"new10\" title=\"Shortcut: F${nl}NEWS\">新着${cont}傑</label><div>"
236
19b92549b5b7 Add button to clear all unread article list
HIROSE Yuuji <yuuji@gentei.org>
parents: 235
diff changeset
2375 cat<<-EOF | html form 'action="?home"'
262
f7939f4297d4 Rewrote a cgi variable by mistake, fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 260
diff changeset
2376 `cgi_checkbox readchk yes 'id="read"'`<label
236
19b92549b5b7 Add button to clear all unread article list
HIROSE Yuuji <yuuji@gentei.org>
parents: 235
diff changeset
2377 for="read">新着ふくめて全部読んだことにする</label>
260
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2378 `cgi_submit '確定'`
236
19b92549b5b7 Add button to clear all unread article list
HIROSE Yuuji <yuuji@gentei.org>
parents: 235
diff changeset
2379 `cgi_hidden read yes`
19b92549b5b7 Add button to clear all unread article list
HIROSE Yuuji <yuuji@gentei.org>
parents: 235
diff changeset
2380 EOF
260
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2381 echo "$new10 <!-- new10 -->"
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2382 echo "</div>"
471
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2383 else # If news is 0, set log cut off flag
1dacdf998892 Speed up new article listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 469
diff changeset
2384 acclog blog $blogcutoffflagrowid # for speed
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2385 fi
328
d89412dc78a1 List recent subscriptions in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 327
diff changeset
2386 else # Not My Home ($user != $uname)
329
e4fedb216119 Making sure whether it runs on ksh
HIROSE Yuuji <yuuji@gentei.org>
parents: 328
diff changeset
2387 : # DT_SQL=
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2388 fi
260
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2389 ) > $hometail & # Is background call safe to m4??
128
42234d2d6e9c Add Full-Range search
HIROSE Yuuji <yuuji@gentei.org>
parents: 127
diff changeset
2390 #
825
e9817a71f332 List groups in other worlds
HIROSE Yuuji <yuuji@gentei.org>
parents: 817
diff changeset
2391 listgroupbytable $formdir/grp.def "$cond" $uname |
260
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2392 _m4 -D_BODYCLASS_=home -D_TITLE_="spaste(\`$tf')" \
469
f095f639e5bf Show lastlog in other user's home
HIROSE Yuuji <yuuji@gentei.org>
parents: 468
diff changeset
2393 -D_PROFILE_="spaste(\`$pf')$usermenu" \
260
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2394 -D_PROFIMG_="spaste(\`$imf')" \
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2395 -D_BLOGS_="spaste(\`$bf')" \
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2396 -D_SEARCH_="spaste(\`$sf')" \
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2397 -D_NBLOG_="$nblog" \
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2398 -D_GROUPS_="syscmd(\`cat')" \
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2399 -D_HOMETAIL_="syscmd(\`cat $hometail')" \
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2400 $layout/html.m4.html $layout/home.m4.html
1b9d45b823b8 UI changed to tab selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 259
diff changeset
2401
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2402 # Record access log
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2403 [ -n "$1" ] && [ x"$1" != x"$user" ] && acclog user $1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2404 }
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2405 commission() { # $1=grp-rowid $2=user-rowid
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2406 contenttype; echo
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2407 ## err commission: "$@"
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2408 gname=`getgroupbyid $1`
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2409 echo "グループ $gname 管理者委任" \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2410 | _m4 -D_TITLE_="syscmd(\`cat')" $layout/html.m4.html
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2411 if [ -n "$2" ]; then
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2412 grp_reg_adm "$@"
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2413 else
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2414 echo "無効な指定です。普通のアクセスならここに来ないはず。"|html p
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2415 fi
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2416 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2417 listgroupbytable() {
825
e9817a71f332 List groups in other worlds
HIROSE Yuuji <yuuji@gentei.org>
parents: 817
diff changeset
2418 # $1=deffile $2...=condition $3(optional)=uname
e9817a71f332 List groups in other worlds
HIROSE Yuuji <yuuji@gentei.org>
parents: 817
diff changeset
2419 tagline=`grep :tag: $1`;
e9817a71f332 List groups in other worlds
HIROSE Yuuji <yuuji@gentei.org>
parents: 817
diff changeset
2420 and="${2:+and }" where=${2:+where }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2421 href="<a href=\"$myname?grp+"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2422 echo '<div class="listgroup">'
825
e9817a71f332 List groups in other worlds
HIROSE Yuuji <yuuji@gentei.org>
parents: 817
diff changeset
2423 sql="select val from grp_s where key='tag' $and$2 group by val;"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2424 ## err ListGRP: query sql="$sql"
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
2425 for tag in `query "$sql"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2426 do
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2427 ## err ListGrp: tag=$tag
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2428 tn=${tagline%%=${tag}*}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2429 tn=${tn##*[ :]}
113
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
2430 sql="select rowid||':'||gname as 'グループ名',説明 from
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
2431 (select (select rowid from grp g where g.gname=grp_s.gname)
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
2432 as rowid,
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
2433 gname,
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
2434 max(case key when 'gecos' then val end) as '説明',
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
2435 max(case key when 'tag' then val end) as 'tag',
3bad3f525dfc Multiple text fields handled correctly
HIROSE Yuuji <yuuji@gentei.org>
parents: 112
diff changeset
2436 max(case key when 'mtime' then val end) as mtime from grp_s
825
e9817a71f332 List groups in other worlds
HIROSE Yuuji <yuuji@gentei.org>
parents: 817
diff changeset
2437 $where$2 group by gname having tag='$tag' order by mtime desc);"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2438 ## err PersonalGroupList= `echo $sql`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2439 echo "<h2>$tn</h2>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2440 echo '<table class="b listgroup">'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2441 sq -header -html $db "$sql" \
494
6906c140431a Fix pattern: Allow spaces for group name in group listing
HIROSE Yuuji <yuuji@gentei.org>
parents: 492
diff changeset
2442 | sed "s,\(<TR><TD>\)\([0-9]*\):\([^<]*\)</TD>,\1$href\2\">\3</a>,"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2443 echo '</table>'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2444 done
825
e9817a71f332 List groups in other worlds
HIROSE Yuuji <yuuji@gentei.org>
parents: 817
diff changeset
2445 if [ -n "$S4WORLDLIST" -a -n "$3" ]; then
833
f3d422665ea8 Modify debug output
HIROSE Yuuji <yuuji@gentei.org>
parents: 832
diff changeset
2446 err "peekgrpworlds($user) BEGIN: `gdate +%S.%03N`"
827
97be0474f268 List belonging groups
HIROSE Yuuji <yuuji@gentei.org>
parents: 825
diff changeset
2447 peekgrpworlds mem:"$3"
833
f3d422665ea8 Modify debug output
HIROSE Yuuji <yuuji@gentei.org>
parents: 832
diff changeset
2448 err "peekgrpworlds($user) END: `gdate +%S.%03N`"
825
e9817a71f332 List groups in other worlds
HIROSE Yuuji <yuuji@gentei.org>
parents: 817
diff changeset
2449 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2450 echo '</div>'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2451 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2452 iconhref() (
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2453 # $1=icon-file, $2=Href $3=title $4...=anchor
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
2454 data=`percenthex "$1"`
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
2455 ct=`file --mime-type - < "$1"|cut -d' ' -f2`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2456 ## err iconhref: \$1=$1 \$2=$2 \$3="$@"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2457 href=$2; title=$3; shift 3
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2458 echo "<a href=\"$href\"><img title=\"$title\" src=\"data:$ct,$data\">$@</a>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2459 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2460 iconhref2() (
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2461 # $1=icon-file, $2=Href $3=title $4...=anchor
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2462 src=$1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2463 href=$2; title=$3; shift 3
749
f9f88278f6a0 Use htmlescape more places
HIROSE Yuuji <yuuji@gentei.org>
parents: 747
diff changeset
2464 anchor=`echo $@|htmlescape`
f9f88278f6a0 Use htmlescape more places
HIROSE Yuuji <yuuji@gentei.org>
parents: 747
diff changeset
2465 echo "<a href=\"$href\"><img title=\"$title\" src=\"$src\">$anchor</a>"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2466 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2467 listentry() (
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2468 # $1=user/group $2=SearchKeyword $3=condition(if any) $4=grprowid(if in grp)
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2469 # Referring variable $iamowner=$grp to attach owner-request links
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2470 ## err listentry: \$1=$1 \$2=$2 \$3=$3
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2471 cond='' hiddens=''
447
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
2472 offset=`getpar offset`; offset=${offset%%[!0-9]*}
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
2473 if [ -z "$offset" ]; then
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
2474 offset=`getpar start`; offset=${offset%%[!0-9]*}
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
2475 offset=$((offset-1))
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
2476 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2477 offset=$((offset + 0)) # change to numeric forcibly
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2478 [ $offset -lt 0 ] && offset=0
610
dfd83a6d09fb Label fixed and local value loading introduced
HIROSE Yuuji <yuuji@gentei.org>
parents: 609
diff changeset
2479 limit=$listentlimit
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
2480 dir=`getcachedir "$1"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2481 if [ x"$1" = x"user" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2482 hrb="$myname?home"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2483 deficon=person-default.png
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2484 entity="ユーザ" tbl=user link=rowid nm=name # stage=mems
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2485 [ -n "$4" ] && hiddens=`cgi_hidden grid $4`
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2486 gcs=gecos
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2487 else # if group
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2488 hrb="$myname?grp"
22
9951e231df30 Add default group icon
HIROSE Yuuji <yuuji@gentei.org>
parents: 17
diff changeset
2489 deficon=group-default.png
16
636df1c1bdf2 Track group by rowid in URLs
HIROSE Yuuji <yuuji@gentei.org>
parents: 14
diff changeset
2490 entity="グループ" tbl=grp link=rowid nm=gname stage=grps
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2491 gcs=name
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2492 tagline=`grep :tag: $formdir/grp.def|cut -d: -f5-`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2493 if [ -n "$tagline" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2494 tagconv=`echo $tagline|sed 's/\([^= :]*\)=\([^= :]*\)/-D\2=\1/g'`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2495 ## err tagconv=$tagconv
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2496 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2497 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2498 if [ ! -d $dir ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2499 mkdir -p $dir
131
9782a978d53c Image cach detection method modified
HIROSE Yuuji <yuuji@gentei.org>
parents: 128
diff changeset
2500 fi
9782a978d53c Image cach detection method modified
HIROSE Yuuji <yuuji@gentei.org>
parents: 128
diff changeset
2501 if [ ! -s $dir/$deficon ]; then
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2502 convert -geometry $thumbxy $imgdir/$deficon $dir/$deficon
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2503 fi
831
0ec2df3e879a Hidden variable of kwd should not appear in type="text" form
HIROSE Yuuji <yuuji@gentei.org>
parents: 830
diff changeset
2504 kwd=${2:-`getpar kwd`}
0ec2df3e879a Hidden variable of kwd should not appear in type="text" form
HIROSE Yuuji <yuuji@gentei.org>
parents: 830
diff changeset
2505 if [ -n "$kwd" ]; then
0ec2df3e879a Hidden variable of kwd should not appear in type="text" form
HIROSE Yuuji <yuuji@gentei.org>
parents: 830
diff changeset
2506 kwd=`echo $kwd | tr -d '";\n' | tr -d "'"`
827
97be0474f268 List belonging groups
HIROSE Yuuji <yuuji@gentei.org>
parents: 825
diff changeset
2507 case "$kwd" in
829
87f72984f3aa Make it double sure to quote user string
HIROSE Yuuji <yuuji@gentei.org>
parents: 827
diff changeset
2508 mem:*@*)
827
97be0474f268 List belonging groups
HIROSE Yuuji <yuuji@gentei.org>
parents: 825
diff changeset
2509 byuser=${kwd#*mem:}
830
HIROSE Yuuji <yuuji@gentei.org>
parents: 829
diff changeset
2510 qusr=`sqlquote "$byuser"`
829
87f72984f3aa Make it double sure to quote user string
HIROSE Yuuji <yuuji@gentei.org>
parents: 827
diff changeset
2511 cond1="(a.gname IN (SELECT gname FROM grp_mem WHERE user=$qusr))"
827
97be0474f268 List belonging groups
HIROSE Yuuji <yuuji@gentei.org>
parents: 825
diff changeset
2512 ;;
97be0474f268 List belonging groups
HIROSE Yuuji <yuuji@gentei.org>
parents: 825
diff changeset
2513 esac
97be0474f268 List belonging groups
HIROSE Yuuji <yuuji@gentei.org>
parents: 825
diff changeset
2514 if [ x"$1" = x"group" ]; then
97be0474f268 List belonging groups
HIROSE Yuuji <yuuji@gentei.org>
parents: 825
diff changeset
2515 if [ -n "$cond1" ]; then
97be0474f268 List belonging groups
HIROSE Yuuji <yuuji@gentei.org>
parents: 825
diff changeset
2516 enthead="`gecos "$byuser"|htmlescape` さんの所属"
97be0474f268 List belonging groups
HIROSE Yuuji <yuuji@gentei.org>
parents: 825
diff changeset
2517 else
97be0474f268 List belonging groups
HIROSE Yuuji <yuuji@gentei.org>
parents: 825
diff changeset
2518 cond1="(b.name like '%${kwd}%')"
97be0474f268 List belonging groups
HIROSE Yuuji <yuuji@gentei.org>
parents: 825
diff changeset
2519 fi
97be0474f268 List belonging groups
HIROSE Yuuji <yuuji@gentei.org>
parents: 825
diff changeset
2520 else
97be0474f268 List belonging groups
HIROSE Yuuji <yuuji@gentei.org>
parents: 825
diff changeset
2521 cond1="(nick like '%${kwd}%' or b.name like '%${kwd}%')"
97be0474f268 List belonging groups
HIROSE Yuuji <yuuji@gentei.org>
parents: 825
diff changeset
2522 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2523 fi
645
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2524 tag=`getpar tag` tag2=`getpar tag2`
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2525 if [ x"$tag" = x"NULL" ]; then
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2526 tag="" tag2=""
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2527 fi
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2528 if [ -n "$tag$tag2" ]; then
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2529 tag=${tag:-$tag2}
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2530 qtag=`sqlquote "$tag"`
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2531 cond2="tag=$qtag"
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2532 fi
647
a8a5e6437f1a Fix for member listing in group home
HIROSE Yuuji <yuuji@gentei.org>
parents: 646
diff changeset
2533 if [ -n "$cond1$cond2" ]; then
a8a5e6437f1a Fix for member listing in group home
HIROSE Yuuji <yuuji@gentei.org>
parents: 646
diff changeset
2534 cond="$cond1${cond2:+ AND $cond2}"
a8a5e6437f1a Fix for member listing in group home
HIROSE Yuuji <yuuji@gentei.org>
parents: 646
diff changeset
2535 cond="WHERE ${cond# AND }"
645
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2536 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2537
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2538 # XX: これ複雑すぎるかな。もっとシンプルにしたい。$3条件も。2015-07-08
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2539 # grpは呼出し元の動的スコープ変数でよくないな...
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2540 ##qgrp=`sqlquote $grp`
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2541 getgrp="(select gname from grp where rowid=${rowid:--1})"
220
7d05425e4057 Put information how many members in that group.
HIROSE Yuuji <yuuji@gentei.org>
parents: 219
diff changeset
2542 sql="select a.rowid, a.$link,
7d05425e4057 Put information how many members in that group.
HIROSE Yuuji <yuuji@gentei.org>
parents: 219
diff changeset
2543 coalesce(b.$gcs, a.$nm) as nick,
388
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2544 quote(a.$nm) as qname,
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2545 (SELECT val FROM ${tbl}_s
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2546 WHERE $nm=a.$nm AND key='$iconcachekey') icon,
220
7d05425e4057 Put information how many members in that group.
HIROSE Yuuji <yuuji@gentei.org>
parents: 219
diff changeset
2547 coalesce(b.gecos, a.$nm) /* If group, concat (Nusers) */
7d05425e4057 Put information how many members in that group.
HIROSE Yuuji <yuuji@gentei.org>
parents: 219
diff changeset
2548 || case when a.$nm in (select gname from grp)
7d05425e4057 Put information how many members in that group.
HIROSE Yuuji <yuuji@gentei.org>
parents: 219
diff changeset
2549 then printf('(%d名)',
7d05425e4057 Put information how many members in that group.
HIROSE Yuuji <yuuji@gentei.org>
parents: 219
diff changeset
2550 (select count(user) from grp_mem where gname=a.$nm))
233
1ad7ef38c0a0 Display gecos correctly in listentry(user)
HIROSE Yuuji <yuuji@gentei.org>
parents: 232
diff changeset
2551 else ' <'||a.$nm||'>'
220
7d05425e4057 Put information how many members in that group.
HIROSE Yuuji <yuuji@gentei.org>
parents: 219
diff changeset
2552 end
7d05425e4057 Put information how many members in that group.
HIROSE Yuuji <yuuji@gentei.org>
parents: 219
diff changeset
2553 as name,
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2554 b.tag,
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
2555 case when a.$nm in (select user from grp_adm
609
7eb71958a09e Add display limitation buttons in listentry()
HIROSE Yuuji <yuuji@gentei.org>
parents: 608
diff changeset
2556 where gname=$getgrp) then '管理者'
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
2557 when '$user' in (select user from grp_adm where gname=a.$nm)
609
7eb71958a09e Add display limitation buttons in listentry()
HIROSE Yuuji <yuuji@gentei.org>
parents: 608
diff changeset
2558 then 'ADMIN'
171
cdade692e17d Add "is-member" flag to group list
HIROSE Yuuji <yuuji@gentei.org>
parents: 166
diff changeset
2559 when '$user' in (select user from grp_mem where gname=a.$nm)
609
7eb71958a09e Add display limitation buttons in listentry()
HIROSE Yuuji <yuuji@gentei.org>
parents: 608
diff changeset
2560 then 'Member'
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
2561 when '$iamowner' = '' then ''
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2562 else ',not='||a.rowid end as ownerlink,
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2563 CASE '$entity'
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2564 WHEN 'グループ'
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2565 THEN coalesce(
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2566 (SELECT val FROM grp_s WHERE gname=a.$nm AND key='regmode'),
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2567 'open')
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2568 ||
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2569 CASE WHEN '$user'
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2570 IN (SELECT user FROM grp_mem WHERE gname=a.$nm)
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2571 THEN ' ismember'
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2572 ELSE ''
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2573 END
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2574 ELSE 'user'
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2575 END regmode
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2576 from $tbl a left join
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2577 (select $nm as name,
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2578 max(case key when 'gecos' then val end) as gecos,
297
8933d3701c00 Newer edited group has more precedence of sorting in group list.
HIROSE Yuuji <yuuji@gentei.org>
parents: 295
diff changeset
2579 max(case key when 'tag' then val end) as tag,
387
2c928bb47c90 Sort condition missing
HIROSE Yuuji <yuuji@gentei.org>
parents: 386
diff changeset
2580 max(case key when 'mtime' then val end) as mtime,
475
c01081811298 typo of SQL statement
HIROSE Yuuji <yuuji@gentei.org>
parents: 474
diff changeset
2581 max(case key when 'wtime' then val end) as wtime,
474
4f9036d35b57 Sort user by last login. Sort group by the latest article time.
HIROSE Yuuji <yuuji@gentei.org>
parents: 472
diff changeset
2582 max(case key when 'login' then val end) as login
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2583 from ${tbl}_s group by $nm)
647
a8a5e6437f1a Fix for member listing in group home
HIROSE Yuuji <yuuji@gentei.org>
parents: 646
diff changeset
2584 b on a.$nm=b.name $cond $3
474
4f9036d35b57 Sort user by last login. Sort group by the latest article time.
HIROSE Yuuji <yuuji@gentei.org>
parents: 472
diff changeset
2585 order by b.wtime desc, b.login desc,
4f9036d35b57 Sort user by last login. Sort group by the latest article time.
HIROSE Yuuji <yuuji@gentei.org>
parents: 472
diff changeset
2586 b.mtime desc, b.tag desc, a.rowid asc"
297
8933d3701c00 Newer edited group has more precedence of sorting in group list.
HIROSE Yuuji <yuuji@gentei.org>
parents: 295
diff changeset
2587 # Give precedence to newer maintained groups (2016-09-24)
8933d3701c00 Newer edited group has more precedence of sorting in group list.
HIROSE Yuuji <yuuji@gentei.org>
parents: 295
diff changeset
2588 # Note that mtime is stored only in grp_s.
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2589 ## err LE:sql.1="$sql"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2590 total=`query "with x as ($sql) select count(*) from x;"`
827
97be0474f268 List belonging groups
HIROSE Yuuji <yuuji@gentei.org>
parents: 825
diff changeset
2591 echo "$enthead${entity} 一覧" "${S4WORLDNAME:+@$S4WORLDNAME}" | html h2
609
7eb71958a09e Add display limitation buttons in listentry()
HIROSE Yuuji <yuuji@gentei.org>
parents: 608
diff changeset
2592 echo '<div class="listentry">' # List-entry div
7eb71958a09e Add display limitation buttons in listentry()
HIROSE Yuuji <yuuji@gentei.org>
parents: 608
diff changeset
2593 # Show owner/member filter button
645
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2594 METHOD=GET
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2595 hiddens="$hiddens
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2596 `cgi_hidden stage \"$stage\"`"
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2597 if [ x"$tbl" = x"grp" ]; then
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2598 args=`grep "^種別:" $formdir/grp.def | cut -d: -f5`
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2599 fh="<select name=\"tag\">$nl"
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2600 fh="$fh<option value=\"NULL\"${tag:+ selected}>グループ種別...</option>"
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2601 for l in $args; do
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2602 val=${l#*=} tname=${l%=*}
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2603 if [ x"$val" = x"$tag" ]; then
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2604 s=" selected"
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2605 selectedtags="(種別[${tname}]のみ)"
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2606 else
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2607 s=""
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2608 fi
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2609 form=$nl$form"<option value=\"$val\"$s>$tname</option>"
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2610 done
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2611 form="$fh$form</select><input type=\"submit\" value=\"で絞る\">"
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2612 cat<<-EOF
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2613 <form action="$myname" method="$METHOD">
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2614 </form>
650
0cc58da8f7af Add supplemental message
HIROSE Yuuji <yuuji@gentei.org>
parents: 647
diff changeset
2615 以下一覧のうち: `cgi_checkbox onlymem no 'id="ismembtn"'`<label
610
dfd83a6d09fb Label fixed and local value loading introduced
HIROSE Yuuji <yuuji@gentei.org>
parents: 609
diff changeset
2616 for="ismembtn">参加中以外隠す</label>
609
7eb71958a09e Add display limitation buttons in listentry()
HIROSE Yuuji <yuuji@gentei.org>
parents: 608
diff changeset
2617 `cgi_checkbox onlyadm no 'id="isadmbtn"'`<label
610
dfd83a6d09fb Label fixed and local value loading introduced
HIROSE Yuuji <yuuji@gentei.org>
parents: 609
diff changeset
2618 for="isadmbtn">管理者参加以外隠す</label>
609
7eb71958a09e Add display limitation buttons in listentry()
HIROSE Yuuji <yuuji@gentei.org>
parents: 608
diff changeset
2619 EOF
645
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2620 # limit=3
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2621 hiddens=$hiddens" "`cgi_hidden tag2 "$tag"`
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2622 fi
825
e9817a71f332 List groups in other worlds
HIROSE Yuuji <yuuji@gentei.org>
parents: 817
diff changeset
2623 if [ $total -gt $limit -o \( -n "$S4WORLDLIST" -a x"$tbl" = x"grp" \) ]; then
645
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2624 echo '<div>'
628
5c9b7add02e9 Username search in group-home should carry grid parameter
HIROSE Yuuji <yuuji@gentei.org>
parents: 627
diff changeset
2625 METHOD=GET cgi_form $stage <<EOF
645
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2626 $form
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2627 <label>次の語を含む${entity}で検索:
628
5c9b7add02e9 Username search in group-home should carry grid parameter
HIROSE Yuuji <yuuji@gentei.org>
parents: 627
diff changeset
2628 `cgi_text kwd "$kwd"`</label>
5c9b7add02e9 Username search in group-home should carry grid parameter
HIROSE Yuuji <yuuji@gentei.org>
parents: 627
diff changeset
2629 $hiddens
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2630 EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2631 echo '</div>'
645
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2632 else
21522dcada92 Experimental implement of group tag selection
HIROSE Yuuji <yuuji@gentei.org>
parents: 637
diff changeset
2633 echo $selectedtags | html p
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2634 fi
831
0ec2df3e879a Hidden variable of kwd should not appear in type="text" form
HIROSE Yuuji <yuuji@gentei.org>
parents: 830
diff changeset
2635 test -n "$kwd" && hiddens="$hiddens$nl`cgi_hidden kwd \"$kwd\"`"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2636 cat<<EOF
606
00837fdf1120 Search form method changed to GET from POST
HIROSE Yuuji <yuuji@gentei.org>
parents: 605
diff changeset
2637 <form action="$myname" method="$METHOD">
447
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
2638 <p>${total}件中の<input class="hidesub" type="text" name="start"
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
2639 value="$((offset+1))" size="3">件めから${kwd:+" - 検索語: $kwd"}$hiddens
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
2640 <input type="submit" value="確定"></p>
4769510d6169 Multiple Page Listing allows user specification of starting number
HIROSE Yuuji <yuuji@gentei.org>
parents: 445
diff changeset
2641 </form>
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2642 EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2643 if [ $((offset+limit)) -lt $total ]; then
235
014f459543d5 Put Prev/Next button at the bottom of list in addition to above
HIROSE Yuuji <yuuji@gentei.org>
parents: 233
diff changeset
2644 nextbtn=$(
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2645 cat<<EOF
606
00837fdf1120 Search form method changed to GET from POST
HIROSE Yuuji <yuuji@gentei.org>
parents: 605
diff changeset
2646 <div class="right clear"><form action="$myname" method="$METHOD">
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2647 `cgi_submit 次の${limit}件`
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2648 $hiddens
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2649 `cgi_hidden offset $((offset + limit))`</form></div>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2650 EOF
235
014f459543d5 Put Prev/Next button at the bottom of list in addition to above
HIROSE Yuuji <yuuji@gentei.org>
parents: 233
diff changeset
2651 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2652 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2653 if [ $offset -gt 0 ]; then
235
014f459543d5 Put Prev/Next button at the bottom of list in addition to above
HIROSE Yuuji <yuuji@gentei.org>
parents: 233
diff changeset
2654 prevbtn=$(
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2655 cat<<EOF
606
00837fdf1120 Search form method changed to GET from POST
HIROSE Yuuji <yuuji@gentei.org>
parents: 605
diff changeset
2656 <form action="$myname" method="$METHOD">
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2657 `cgi_submit 前の${limit}件`
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2658 $hiddens
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2659 `cgi_hidden offset $((offset - limit))`</form>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2660 EOF
235
014f459543d5 Put Prev/Next button at the bottom of list in addition to above
HIROSE Yuuji <yuuji@gentei.org>
parents: 233
diff changeset
2661 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2662 fi
235
014f459543d5 Put Prev/Next button at the bottom of list in addition to above
HIROSE Yuuji <yuuji@gentei.org>
parents: 233
diff changeset
2663 pnbtn="$nextbtn$prevbtn"
014f459543d5 Put Prev/Next button at the bottom of list in addition to above
HIROSE Yuuji <yuuji@gentei.org>
parents: 233
diff changeset
2664 echo $pnbtn
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2665
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2666 ## err ListEntry: `echo "$sql"\;`
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
2667 # sq $db here??? 2016-11-28
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2668 query "$sql limit $limit ${offset:+offset $offset};" \
388
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2669 | while IFS='|' read id lnk name qname icon gecos tag ownerp type; do
596
7ece8cc62a7a Deactivate debug output in a loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 592
diff changeset
2670 # err name=$name owner=$ownerp lnk=$lnk
7ece8cc62a7a Deactivate debug output in a loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 592
diff changeset
2671 # err newlnk=$lnk regmode=$regmode
230
67c8b9558572 Allow duplicated file names in icon.
HIROSE Yuuji <yuuji@gentei.org>
parents: 229
diff changeset
2672 icondir=$dir/$id
332
9dc6f9e60f6a Quote file names. Select last profimg in listentry.
HIROSE Yuuji <yuuji@gentei.org>
parents: 331
diff changeset
2673 # Pick up only last icon
749
f9f88278f6a0 Use htmlescape more places
HIROSE Yuuji <yuuji@gentei.org>
parents: 747
diff changeset
2674 htmlname=`echo $name|htmlescape`
609
7eb71958a09e Add display limitation buttons in listentry()
HIROSE Yuuji <yuuji@gentei.org>
parents: 608
diff changeset
2675 echo "<div class=\"iconlist xy$thumbxy $type $ownerp\">
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2676 <p class=\"tag _$tag\">$tag</p>" \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2677 | _m4 $tagconv
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
2678 if [ -n "$NOSPEEDUP" ]; then
388
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2679 files=`getvalbyid $tbl profimg $id $icondir`
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2680 if [ -n "$files" ]; then
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2681 icon=`echo "$files"|tail -1`
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2682 iconhref2 "$icondir/$icon" "$hrb+$lnk" "$gecos"
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2683 else
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2684 iconhref "$dir/$deficon" "$hrb+$lnk" "$gecos"
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2685 fi
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2686 elif [ -n "$icon" -a -s "$icon" ]; then
567
5b911fee7e1b Remove superfluous '<br>' from TITLE attribute.
HIROSE Yuuji <yuuji@gentei.org>
parents: 566
diff changeset
2687 iconhref2 "$icon" "$hrb+$lnk" "$gecos"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2688 else
388
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2689 cond="$nm=$qname"
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2690 # err imgsrc_cache "$dir/list" ${tbl}_m "$cond" S
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2691 # err query "SELECT type FROM ${tbl}_m $cond LIMIT 1;"
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2692 img=`query "SELECT type FROM ${tbl}_m WHERE $cond AND key='profimg' LIMIT 1;"`
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2693 # err "img=[$img]"
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2694 if [ -n "$img" ]; then
390
5a40f38d7daf Do not forget link to home
HIROSE Yuuji <yuuji@gentei.org>
parents: 388
diff changeset
2695 echo "<a href=\"$hrb+$lnk\">"
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
2696 imgsrc_cache "$icondir" ${tbl}_m "$nm=$qname" S
390
5a40f38d7daf Do not forget link to home
HIROSE Yuuji <yuuji@gentei.org>
parents: 388
diff changeset
2697 echo "</a>"
388
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2698 else
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2699 iconhref2 "$dir/$deficon" "$hrb+$lnk" "$gecos"
4f6b63c25ab8 User/Group listing made fast by using imgsrc_cache()
HIROSE Yuuji <yuuji@gentei.org>
parents: 387
diff changeset
2700 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2701 fi
749
f9f88278f6a0 Use htmlescape more places
HIROSE Yuuji <yuuji@gentei.org>
parents: 747
diff changeset
2702 echo "<br>$htmlname${ownerp:+<br>($ownerp)}"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2703 echo "</div>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2704 done
609
7eb71958a09e Add display limitation buttons in listentry()
HIROSE Yuuji <yuuji@gentei.org>
parents: 608
diff changeset
2705 echo "</div>" # End of List-entry div
235
014f459543d5 Put Prev/Next button at the bottom of list in addition to above
HIROSE Yuuji <yuuji@gentei.org>
parents: 233
diff changeset
2706 echo ${pnbtn:+"<hr>$nextbtn$prevbtn"}
825
e9817a71f332 List groups in other worlds
HIROSE Yuuji <yuuji@gentei.org>
parents: 817
diff changeset
2707 if [ -n "$kwd" -a x"$tbl" = x"grp" -a -n "$S4WORLDS" ]; then
827
97be0474f268 List belonging groups
HIROSE Yuuji <yuuji@gentei.org>
parents: 825
diff changeset
2708 peekgrpworlds "$kwd"
825
e9817a71f332 List groups in other worlds
HIROSE Yuuji <yuuji@gentei.org>
parents: 817
diff changeset
2709 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2710 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2711 listmember() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2712 listentry user "$@"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2713 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2714 listgroup() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2715 listentry group "$@"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2716 }
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2717 hexteams() { # $1=gname, $2(optional)=user
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2718 cond=${2:+" AND user='$2'"}
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2719 query "SELECT DISTINCT hex(val) FROM grp_mem_m
677
bdf33fbd977b Sort team names
HIROSE Yuuji <yuuji@gentei.org>
parents: 675
diff changeset
2720 WHERE gname='$1' AND key='team'$cond ORDER by val;"
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2721 }
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2722 showgroup() { # $1=group-rowid
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2723 if [ -z "$1" ]; then
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2724 grid=`getpar grid`
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2725 grid=${grid%%[!0-9]*}
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2726 [ -n "$grid" ] && grp=`getgroupbyid $grid`
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2727 else
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2728 grid=$1
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2729 fi
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2730 grp=`getgroupbyid $grid`
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
2731 qgrp=`sqlquote "$grp"`
654
d6f464f0a212 Include more chars into htmlescape for m4 processing
HIROSE Yuuji <yuuji@gentei.org>
parents: 653
diff changeset
2732 htmlgrp=`echo "$grp"|htmlescape`
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
2733 ## err showgroup2: grid=$grid grp=$grp qgrp="[$qgrp]"
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
2734 if isgroup "$grp"; then
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
2735 tf=$tmpd/title.$$
418
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2736 sf=$tmpd/search.$$
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2737 bodyclass=`query "SELECT val FROM grp_s
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2738 WHERE gname=$qgrp AND key='regmode';"`
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2739 if ismember "$user" "$grp"; then
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2740 ismember="ismember"
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2741 bodyclass="$bodyclass${bodyclass:+ }ismember"
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2742 else
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2743 ismember="" # bodyclass="group"
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2744 fi
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2745 bodyclass="$bodyclass grouphome"
747
42cc0aeaa498 Avoid to pass gname to searchart()
HIROSE Yuuji <yuuji@gentei.org>
parents: 740
diff changeset
2746 echo "<div class=\"search\">`search_form grid=\"$grid\"`</div>"> $sf
654
d6f464f0a212 Include more chars into htmlescape for m4 processing
HIROSE Yuuji <yuuji@gentei.org>
parents: 653
diff changeset
2747 echo "グループ $htmlgrp" > $tf
418
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2748
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2749 showgroupsub $formdir/grp.def "$grid" | \
418
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2750 _m4 -D_TITLE_="syscmd(\`cat $tf')" \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2751 -D_FORM_="syscmd(\`cat')" \
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2752 -D_BODYCLASS_="$bodyclass" \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
2753 -D_DUMPTABLE_="" \
418
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2754 $htmlheader $sf $layout/form+dump.m4.html
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2755 # $htmlheader $layout/form+dump.m4.html
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2756 # $htmlheader is defined in grp()
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
2757 else # if $grp is removed at par2table
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
2758 listgroup
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
2759 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2760 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2761 showgroupsub() {
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2762 # $1=def-file $2=group-rowid
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2763 # Using $ismember
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2764 rowid=$2
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2765 grp=`getgroupbyid $2`
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
2766 qgrp=`sqlquote "$grp"`
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2767 td=`getcachedir grp/"$2"`
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2768 #rowid=`sq $db "select rowid from grp where gname=$qgrp"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2769 if [ -z "$rowid" ]; then
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2770 #rowid=`sq $db "select rowid from grp where rowid=$grp"`
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2771 #grp=`sq $db "select gname from grp where rowid=$grp"`
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
2772 echo "showgroupsub: invalid argument($1 $2)" | html p
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
2773 return
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2774 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2775 val=`getvalbyid grp profimg $rowid $tmpd`
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2776 enticond="gname=$qgrp"
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2777 img=`query "SELECT type FROM grp_m WHERE $enticond LIMIT 1;"`
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2778 if [ -n "$img" ]; then
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2779 cat<<-EOF
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2780 <p class="groupimg">
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
2781 `imgsrc_cache $td/main grp_m "$enticond" M`</p>
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2782 EOF
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2783 fi
319
a868f03970b5 Profimg hiding rule revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 312
diff changeset
2784 echo "<div class=\"noprofimg\">"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2785 viewtable $1 grp $rowid
319
a868f03970b5 Profimg hiding rule revised
HIROSE Yuuji <yuuji@gentei.org>
parents: 312
diff changeset
2786 echo "</div>"
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
2787 if isgrpowner "$user" "$grp"; then
702
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2788 echo "<p><a href=\"?groupconf+$rowid\" accesskey=\"e\"
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2789 title=\"Shortcut: e${nl}Edit Group\">グループ情報の編集</a>"
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2790 iamowner=$rowid
371
302eae8f723b Display blog-mode only when user is group owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 370
diff changeset
2791 colmd=" mode"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2792 fi
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2793 if [ -n "$ismember" ]; then
702
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2794 #echo "${iamowner:+ / }<a href=\"?blog+$rowid\">グループの新規話題作成</a>"
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2795 #echo "/ <a href=\"?grpaction+$rowid\">メンバーを個別選択しての操作</a></p>"
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2796 # div.fold input[type="checkbox"]:checked ~ div {display: block;}
702
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2797 cat<<-EOF
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2798 ${iamowner:+ / }<a accesskey="n" title="Shortcut: n${nl}New blog"
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2799 href="?blog+$rowid">グループの新規話題作成</a>
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2800 / <a accesskey="m" title="Shortcut: m${nl}Operations on Members"
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2801 href="?grpaction+$rowid">メンバーを個別選択しての操作</a></p>
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2802 <form action="?send2mem" method="POST" enctype="multipart/form-data">
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2803 <div class="fold clear">
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2804 `cgi_checkbox send yes id="send"`<label
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2805 for="send">グループ全員にメッセージ送信</label>
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2806 <div>
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2807 `cgi_textarea message "" "cols=60"`
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2808 `cgi_submit 送信`
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2809 `cgi_reset リセット`
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2810 </div>
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2811 `cgi_hidden grp $rowid`
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2812 </div></form>
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
2813 EOF
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2814 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2815 # 加入ボタン + 加入者リスト
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2816 if [ -n "$ismember" ]; then
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2817 ismem='checked' state="(参加中)"
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2818 else
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2819 nomem='checked' state="(現在非加入)"
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2820 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2821 # このグループでの加入アドレス
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2822 eml=`query "select val from grp_mem_s where gname=$qgrp and user='$user' \
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2823 and key='email';"`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2824 ##err EML: "select val from grp_mem_s where gname='$2' and user='$user' \
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2825 ## and key='email';"
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2826 ##err email=$eml
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2827 cat <<EOF
311
121b91ee87c1 User/Group home icon cache'ing and group icon displaying added
HIROSE Yuuji <yuuji@gentei.org>
parents: 310
diff changeset
2828 <div class="fold clear">
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2829 `cgi_checkbox reg yes id="reg"`<label
259
85a001a9c7c5 Make it visible: the group is moderated; the user is a member of the group
HIROSE Yuuji <yuuji@gentei.org>
parents: 258
diff changeset
2830 for="reg">自身の加入状態を操作する</label>$state
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2831 <div>
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2832 EOF
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2833 cgi_form grp <<EOF
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2834 <p>このグループに</p>
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2835 <table class="b">
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2836 <tr><th>メンバーとして</th><td>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2837 <label>`cgi_radio joingrp "yes" $ismem`参加</label> /
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2838 <label>`cgi_radio joingrp "no" $nomem`参加しない</label></td></tr>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2839 <tr><th>参加する場合のメイルアドレス<br>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2840 <small>(メインのアドレスとは違うものにする場合に記入<br>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2841 同じでよい場合は空欄に)</small></th>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2842 <td>`cgi_text email $eml`</td></tr>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2843 </table>
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2844 `cgi_hidden grp $rowid`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2845 EOF
768
891f1f5a8153 Allow spaces in group name
HIROSE Yuuji <yuuji@gentei.org>
parents: 763
diff changeset
2846 if [ x`getgroupattr "$grp" regmode` = x'moderated' -a -z "$ismem" ]; then
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2847 echo "moderated (承認加入の)グループなので実際に参加できるのは
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2848 グループ管理者が承認操作をした後になります。" | html p 'class="warn"'
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2849 fi
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
2850 echo '</div></div>'
418
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2851 thelp="1ヶ月分のまとめには上部検索窓に @month と入れてください。"
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2852 cat<<-EOF
842
de2ef47143a0 Blog list in group home can be folded by a checkbox
HIROSE Yuuji <yuuji@gentei.org>
parents: 837
diff changeset
2853 <div class="fold"> <!-- in showgroupsub -->
de2ef47143a0 Blog list in group home can be folded by a checkbox
HIROSE Yuuji <yuuji@gentei.org>
parents: 837
diff changeset
2854 <h2>話題一覧</h2>
de2ef47143a0 Blog list in group home can be folded by a checkbox
HIROSE Yuuji <yuuji@gentei.org>
parents: 837
diff changeset
2855 <form class="summary inline" action="$myname" title="$thelp">
de2ef47143a0 Blog list in group home can be folded by a checkbox
HIROSE Yuuji <yuuji@gentei.org>
parents: 837
diff changeset
2856 `cgi_hidden owner "$grp"`
de2ef47143a0 Blog list in group home can be folded by a checkbox
HIROSE Yuuji <yuuji@gentei.org>
parents: 837
diff changeset
2857 `cgi_hidden kwd "@week"`
de2ef47143a0 Blog list in group home can be folded by a checkbox
HIROSE Yuuji <yuuji@gentei.org>
parents: 837
diff changeset
2858 `cgi_hidden stage searchart`
de2ef47143a0 Blog list in group home can be folded by a checkbox
HIROSE Yuuji <yuuji@gentei.org>
parents: 837
diff changeset
2859 `cgi_submit "一週間のまとめ"`
de2ef47143a0 Blog list in group home can be folded by a checkbox
HIROSE Yuuji <yuuji@gentei.org>
parents: 837
diff changeset
2860 </form>
de2ef47143a0 Blog list in group home can be folded by a checkbox
HIROSE Yuuji <yuuji@gentei.org>
parents: 837
diff changeset
2861 <input type="checkbox" id="dtcheck" checked><label
de2ef47143a0 Blog list in group home can be folded by a checkbox
HIROSE Yuuji <yuuji@gentei.org>
parents: 837
diff changeset
2862 for="dtcheck">話題一覧表示</label>
418
a183d6e0ed5e Search board in group home revised to similar position in user home
HIROSE Yuuji <yuuji@gentei.org>
parents: 411
diff changeset
2863 EOF
882
a46e85d50954 Burry frozen state blog with ORDER BY clause
HIROSE Yuuji <yuuji@gentei.org>
parents: 881
diff changeset
2864 cond="where a.id in (select id from blog_s where key='owner' and val=$qgrp) order by 稼動状態, ctime desc"
397
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
2865 colstate="state:稼動状態:frozen=rowclass=凍結"
889
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
2866 frzbtn='<button class="toggle-frozen"></button>'
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2867 DT_CHLD=article:blogid \
565
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
2868 DT_QOWNER="$qgrp" \
371
302eae8f723b Display blog-mode only when user is group owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 370
diff changeset
2869 DT_VIEW=replyblog dumptable html blog \
889
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
2870 "ctime title heading team notify:通知$colmd $colstate" "$cond" \
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
2871 | if [ -n "$iamowner" ]
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
2872 then
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
2873 sed -Ee "s,(<TD class=\"稼動状態\">).*(</TD>),\1$frzbtn\2,"
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
2874 else
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
2875 cat
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
2876 fi
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
2877 ## DO not convert to frzbtn when not admin
842
de2ef47143a0 Blog list in group home can be folded by a checkbox
HIROSE Yuuji <yuuji@gentei.org>
parents: 837
diff changeset
2878 echo "</div> <!-- in showgroupsub -->"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2879
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2880 getgname="(select gname from grp where rowid=$rowid)"
246
de0a9f5cc1cf Listing users in a group couldn't show "next-30", fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 245
diff changeset
2881 c="group by a.name having a.name in (select user from grp_mem where gname=$getgname)"
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
2882 cm="?commission+$rowid"
628
5c9b7add02e9 Username search in group-home should carry grid parameter
HIROSE Yuuji <yuuji@gentei.org>
parents: 627
diff changeset
2883 thumbxy=50x50 listmember "`getpar kwd`" "$c" "$rowid" \
611
1546f1f82dcf Remove user-rowid flag from member list.
HIROSE Yuuji <yuuji@gentei.org>
parents: 610
diff changeset
2884 |sed -e "s|\(<br>\)(,not=\(.*\))|\1|" # 間違って押しやすい
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2885 # team list
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2886 hexteams=`hexteams "$grp"`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2887 if [ -n "$hexteams" ]; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2888 echo "チーム一覧" | html h2
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2889 echo '<div class="dumptable"><table class="b">'
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2890 sq $db -html -header<<-EOF
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2891 SELECT val TEAM,
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2892 group_concat((SELECT gecos FROM gecoses WHERE name=user), ',')
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2893 MEMBERS
224
5ac0684fc3ac correction from debug code
HIROSE Yuuji <yuuji@gentei.org>
parents: 223
diff changeset
2894 FROM grp_mem_m WHERE gname=$qgrp AND key='team' GROUP BY val;
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2895 EOF
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2896 echo '</table></div>'
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
2897 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
2898 }
288
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2899 grp_getbodyclass() {
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2900 # Get css class name for document.
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2901 # `moderated' for moderated groups
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2902 # `ismember' for groups where user belongs
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2903 # $1=GroupName (w/o quote)
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2904 # $user=userNameCurrentlyLogin
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2905 ## err grp_getbodyclass: 1="$1"
288
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2906 qgrp=`sqlquote "$1"`
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2907 query<<-EOF
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2908 SELECT coalesce(
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2909 (SELECT val FROM grp_s WHERE gname=$qgrp AND key='regmode'),
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2910 'open')
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2911 ||
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2912 CASE WHEN '$user'
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2913 IN (SELECT user FROM grp_mem WHERE gname=$qgrp)
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2914 THEN ' ismember'
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2915 ELSE ''
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2916 END;
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2917 EOF
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2918 }
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2919 grpaction() { # $1=group-rowid
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2920 err GRP_ACTION:IN
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2921 grid=${1:-`getpar grp`}
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2922 grp=`getgroupbyid "$grid"`
749
f9f88278f6a0 Use htmlescape more places
HIROSE Yuuji <yuuji@gentei.org>
parents: 747
diff changeset
2923 htmlgrp=`echo "$grp" | htmlescape`
667
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
2924 myuid=`query "SELECT rowid FROM user WHERE name='$user';"`
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2925 if [ -z "$grp" ]; then
118
45d1b0f09e48 grpaction is limited to its member
HIROSE Yuuji <yuuji@gentei.org>
parents: 117
diff changeset
2926 echo "無効な指定です。" | html p; return
45d1b0f09e48 grpaction is limited to its member
HIROSE Yuuji <yuuji@gentei.org>
parents: 117
diff changeset
2927 fi
433
03ced2f9f271 Quote group name
HIROSE Yuuji <yuuji@gentei.org>
parents: 431
diff changeset
2928 if ! ismember $user "$grp"; then
118
45d1b0f09e48 grpaction is limited to its member
HIROSE Yuuji <yuuji@gentei.org>
parents: 117
diff changeset
2929 echo "加入者のみに許可された操作です。" | html p; return
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2930 fi
875
380167e9cfcf Add link to generate csv file for Zoom(TM) pre-assigned rooms
HIROSE Yuuji <yuuji@gentei.org>
parents: 874
diff changeset
2931 isowner=""
380167e9cfcf Add link to generate csv file for Zoom(TM) pre-assigned rooms
HIROSE Yuuji <yuuji@gentei.org>
parents: 874
diff changeset
2932 isgrpowner "$user" "$grp" && isowner="yes"
380167e9cfcf Add link to generate csv file for Zoom(TM) pre-assigned rooms
HIROSE Yuuji <yuuji@gentei.org>
parents: 874
diff changeset
2933 err 2=$2 3=$3
380167e9cfcf Add link to generate csv file for Zoom(TM) pre-assigned rooms
HIROSE Yuuji <yuuji@gentei.org>
parents: 874
diff changeset
2934 case "$2" in
380167e9cfcf Add link to generate csv file for Zoom(TM) pre-assigned rooms
HIROSE Yuuji <yuuji@gentei.org>
parents: 874
diff changeset
2935 get:teamcsv)
380167e9cfcf Add link to generate csv file for Zoom(TM) pre-assigned rooms
HIROSE Yuuji <yuuji@gentei.org>
parents: 874
diff changeset
2936 teamcsv "$grid"
380167e9cfcf Add link to generate csv file for Zoom(TM) pre-assigned rooms
HIROSE Yuuji <yuuji@gentei.org>
parents: 874
diff changeset
2937 return
380167e9cfcf Add link to generate csv file for Zoom(TM) pre-assigned rooms
HIROSE Yuuji <yuuji@gentei.org>
parents: 874
diff changeset
2938 ;;
380167e9cfcf Add link to generate csv file for Zoom(TM) pre-assigned rooms
HIROSE Yuuji <yuuji@gentei.org>
parents: 874
diff changeset
2939 esac
749
f9f88278f6a0 Use htmlescape more places
HIROSE Yuuji <yuuji@gentei.org>
parents: 747
diff changeset
2940 echo "グループ $grp 個別選択操作" \
288
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2941 | _m4 -D_TITLE_="syscmd(\`cat')" \
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2942 -D_BODYCLASS_="`grp_getbodyclass \"$grp\"`" \
d50996dc2664 Function `grpaction' should be provided with moderated/ismember class
HIROSE Yuuji <yuuji@gentei.org>
parents: 285
diff changeset
2943 $layout/html.m4.html
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
2944
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2945 usel=`getpar usel`
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2946 if [ -n "$usel" ]; then
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2947 uids=$(echo `echo $usel`|tr ' ' ',')
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2948 ## err grpaction-1: grp=$grp, `echo $sql`
669
17ca38bf0a4b Remove carriage-returns in message text forcibly
HIROSE Yuuji <yuuji@gentei.org>
parents: 668
diff changeset
2949 text=`getpar text|tr -d '\r'`
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2950
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2951 rm=`getpar rm` cfm=`getpar confirm`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
2952 ## err rm=$rm cfm=$cfm
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2953 if [ x"$rm" = x"yes" ]; then
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
2954 if [ "$isowner" ]; then
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2955 if [ x"$rm$cfm" = x"yesyes" ]; then
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2956 # Eliminate
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2957 cond="where gname=(select gname from grp where rowid=$grid) and user in (select name from user where rowid in ($uids))"
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2958 for tbl in grp_mem grp_mem_s grp_mem_m; do
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2959 sql="delete from $tbl $cond;"
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2960 # echo "sql=$sql"
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2961 query "$sql"
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2962 err rmGRPuser "$sql"
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2963 done
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2964 num=`query "select count(*) from user where rowid in ($uids);"`
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2965 #err num=$num
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2966 if [ 0$num -gt 0 ]; then
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2967 sql="select coalesce(b.val,a.name) from user a left join \
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2968 user_s b on a.name=b.name and key='gecos' where a.rowid in ($uids);"
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2969 # err `echo "$sql"`
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2970 html pre<<EOF
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2971 以下の${num}名のグループ $grp 登録を解除しました。
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2972 `query "$sql"`
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2973 EOF
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2974 fi
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2975 else
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
2976 echo "確認のチェックがないのでやめておきます。" | html p
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2977 return
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2978 fi
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2979 else # not Group Owner
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
2980 echo "グループ管理者でないのでメンバー操作はできません。" | html p
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2981 return
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2982 fi
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2983 cat<<EOF
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2984
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
2985 EOF
153
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2986 elif [ x"$rm" = x"send" ]; then # if sendmsg mode
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2987 if [ -z "$text" ]; then # if msg is empty
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2988 echo "なにかメッセージを..." | html p
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2989 return 0
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
2990 fi
300
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
2991 gecos=`gecos $user`
897
3d437261edca Remove "," from gecos name of email
HIROSE Yuuji <yuuji@gentei.org>
parents: 896
diff changeset
2992 safegc=`echo "$gecos" | tr -d '<>@,'`
667
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
2993 #fromad=`email4groupbyuid "$grp" "$myuid" | sed -e 1q -e 's/[ ,].*//'`
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
2994 fromad=`myemail4group "$grp"`
678
db77378201ab Test to let From: main username
HIROSE Yuuji <yuuji@gentei.org>
parents: 677
diff changeset
2995 ###mail_from="$safegc <$fromad>"
db77378201ab Test to let From: main username
HIROSE Yuuji <yuuji@gentei.org>
parents: 677
diff changeset
2996 mail_from="$safegc <$user>" # TEST: 2020/5/13
684
8091eb177596 Sender address set to $user in email-mode
HIROSE Yuuji <yuuji@gentei.org>
parents: 682
diff changeset
2997 test -n `getpar sender` &&
8091eb177596 Sender address set to $user in email-mode
HIROSE Yuuji <yuuji@gentei.org>
parents: 682
diff changeset
2998 export SENDER=$user # TEST: 2020/5/15
667
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
2999 replyto=$fromad
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3000
661
14a7c23f3f06 Allow supplemental rcpt address and file attachment in DM in grpAction
HIROSE Yuuji <yuuji@gentei.org>
parents: 659
diff changeset
3001 ## Start parse of attachment files
667
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3002 if [ -n "`getpar email`" ]; then
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3003 ar=`getpar supprcpt`
668
84b26e6e4d79 Supprcpt condition fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 667
diff changeset
3004 if [ -n "$ar" ]; then
667
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3005 for a in $ar; do
710
8a31b90f7815 Output to error-log when supprcpt is specified in DM rcpt field.
HIROSE Yuuji <yuuji@gentei.org>
parents: 709
diff changeset
3006 if checkdomain "$a"; then
8a31b90f7815 Output to error-log when supprcpt is specified in DM rcpt field.
HIROSE Yuuji <yuuji@gentei.org>
parents: 709
diff changeset
3007 supprcpt="$supprcpt $a"
8a31b90f7815 Output to error-log when supprcpt is specified in DM rcpt field.
HIROSE Yuuji <yuuji@gentei.org>
parents: 709
diff changeset
3008 else
8a31b90f7815 Output to error-log when supprcpt is specified in DM rcpt field.
HIROSE Yuuji <yuuji@gentei.org>
parents: 709
diff changeset
3009 err "SupprcptErr=[$a] by $user"
8a31b90f7815 Output to error-log when supprcpt is specified in DM rcpt field.
HIROSE Yuuji <yuuji@gentei.org>
parents: 709
diff changeset
3010 removercpt="$removercpt $a"
8a31b90f7815 Output to error-log when supprcpt is specified in DM rcpt field.
HIROSE Yuuji <yuuji@gentei.org>
parents: 709
diff changeset
3011 fi
667
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3012 done
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3013 fi
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3014 subj=`getpar subject`
661
14a7c23f3f06 Allow supplemental rcpt address and file attachment in DM in grpAction
HIROSE Yuuji <yuuji@gentei.org>
parents: 659
diff changeset
3015 afiles=""
837
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
3016 for fn in `query "SELECT DISTINCT val FROM par WHERE var='image' AND sessid='$session';"`
661
14a7c23f3f06 Allow supplemental rcpt address and file attachment in DM in grpAction
HIROSE Yuuji <yuuji@gentei.org>
parents: 659
diff changeset
3017 do
14a7c23f3f06 Allow supplemental rcpt address and file attachment in DM in grpAction
HIROSE Yuuji <yuuji@gentei.org>
parents: 659
diff changeset
3018 f=$tmpd/$fn
14a7c23f3f06 Allow supplemental rcpt address and file attachment in DM in grpAction
HIROSE Yuuji <yuuji@gentei.org>
parents: 659
diff changeset
3019 if [ -s $f ]; then
14a7c23f3f06 Allow supplemental rcpt address and file attachment in DM in grpAction
HIROSE Yuuji <yuuji@gentei.org>
parents: 659
diff changeset
3020 afiles=$afiles"${afiles:+ }$f"
14a7c23f3f06 Allow supplemental rcpt address and file attachment in DM in grpAction
HIROSE Yuuji <yuuji@gentei.org>
parents: 659
diff changeset
3021 fi
14a7c23f3f06 Allow supplemental rcpt address and file attachment in DM in grpAction
HIROSE Yuuji <yuuji@gentei.org>
parents: 659
diff changeset
3022 done
667
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3023 else
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3024 preface=$(cat <<-EOF
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3025 $url
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3026 のグループ「$grp」のメンバーである $gecos さんから、
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3027 あなた宛のメッセージです。
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3028 ----------------------------------------------------------
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3029 EOF
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3030 )
661
14a7c23f3f06 Allow supplemental rcpt address and file attachment in DM in grpAction
HIROSE Yuuji <yuuji@gentei.org>
parents: 659
diff changeset
3031 fi
686
0a6ab304f1c6 (TEST)GrpAction smail should send to oneself
HIROSE Yuuji <yuuji@gentei.org>
parents: 685
diff changeset
3032 rcpts="`email4groupbyuid "$grp" $usel` $fromad$supprcpt"
694
c45ab714d68e To: header for email-sender contains all recipients
HIROSE Yuuji <yuuji@gentei.org>
parents: 693
diff changeset
3033 rcpts=`echo $rcpts|tr ' ' '\n'|sort|uniq|tr '\n' ' '`
667
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3034 subj="${subj:-$gecos さんからのメッセージ}"
661
14a7c23f3f06 Allow supplemental rcpt address and file attachment in DM in grpAction
HIROSE Yuuji <yuuji@gentei.org>
parents: 659
diff changeset
3035 REPLYTO=$replyto
14a7c23f3f06 Allow supplemental rcpt address and file attachment in DM in grpAction
HIROSE Yuuji <yuuji@gentei.org>
parents: 659
diff changeset
3036 MAIL_FROM=$mail_from
679
f0396eb2dfc9 Suppress listing selected rcpt addresses in To: header(GrpAction)
HIROSE Yuuji <yuuji@gentei.org>
parents: 678
diff changeset
3037 export REPLYTO SMAIL_TO MAIL_FROM
685
a13f49da8788 Log more information on GrpAction smail
HIROSE Yuuji <yuuji@gentei.org>
parents: 684
diff changeset
3038 err "GrpActionSend: user=[$user], MAIL_FROM=[$mail_from], rcpts=[$rcpts], REPLYTO=[$replyto}"
690
87ce0eef5872 GrpAction mail sent one by one
HIROSE Yuuji <yuuji@gentei.org>
parents: 689
diff changeset
3039 for r in $rcpts; do
694
c45ab714d68e To: header for email-sender contains all recipients
HIROSE Yuuji <yuuji@gentei.org>
parents: 693
diff changeset
3040 if [ x"$user" = x"$r" -o x"$fromad" = x"$r" ]; then
c45ab714d68e To: header for email-sender contains all recipients
HIROSE Yuuji <yuuji@gentei.org>
parents: 693
diff changeset
3041 SMAIL_TO=$rcpts # Show all rcpts to sender oneself
c45ab714d68e To: header for email-sender contains all recipients
HIROSE Yuuji <yuuji@gentei.org>
parents: 693
diff changeset
3042 else
c45ab714d68e To: header for email-sender contains all recipients
HIROSE Yuuji <yuuji@gentei.org>
parents: 693
diff changeset
3043 # Show sender and rcpts address for guest
c45ab714d68e To: header for email-sender contains all recipients
HIROSE Yuuji <yuuji@gentei.org>
parents: 693
diff changeset
3044 SMAIL_TO=`echo $r $user $fromad|tr ' ' '\n'|sort -u|tr '\n' ' '`
c45ab714d68e To: header for email-sender contains all recipients
HIROSE Yuuji <yuuji@gentei.org>
parents: 693
diff changeset
3045 fi
690
87ce0eef5872 GrpAction mail sent one by one
HIROSE Yuuji <yuuji@gentei.org>
parents: 689
diff changeset
3046 if [ -n "$afiles" ];then
87ce0eef5872 GrpAction mail sent one by one
HIROSE Yuuji <yuuji@gentei.org>
parents: 689
diff changeset
3047 ./sendmultipart.sh -t "$r" -s "$subj" -f "$mail_from" $afiles
87ce0eef5872 GrpAction mail sent one by one
HIROSE Yuuji <yuuji@gentei.org>
parents: 689
diff changeset
3048 else
87ce0eef5872 GrpAction mail sent one by one
HIROSE Yuuji <yuuji@gentei.org>
parents: 689
diff changeset
3049 smail "$r" "$subj"
87ce0eef5872 GrpAction mail sent one by one
HIROSE Yuuji <yuuji@gentei.org>
parents: 689
diff changeset
3050 fi <<EOF
667
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3051 ${preface:+$preface$nl}$text
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
3052 EOF
690
87ce0eef5872 GrpAction mail sent one by one
HIROSE Yuuji <yuuji@gentei.org>
parents: 689
diff changeset
3053 done
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
3054 if [ $? = 0 ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3055 echo "Note: 以下のメンバーにメッセージを送信しました。" | html p
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
3056 sql="select coalesce(b.val, a.name) from
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
3057 (select name from user where rowid in ($uids)) a
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
3058 left join user_s b on a.name=b.name and b.key='gecos';"
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3059 html pre<<EOF
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3060 `query "$sql"`
659
a36a2c3b3056 GrpAction: Reverse selection and supplemental rcpt address
HIROSE Yuuji <yuuji@gentei.org>
parents: 657
diff changeset
3061 ${supprcpt:+追加宛先 $supprcpt$nl}(送信者である $gecos さんも含まれます)
709
025ef5578ae0 Warn undeliverable recipient(s) that was removed from rcptlist.
HIROSE Yuuji <yuuji@gentei.org>
parents: 708
diff changeset
3062 ${removercpt:+アドレスエラーによる削除(送られません): <em class="warn">$removercpt</em>}
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3063 EOF
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
3064 err SendDone: `echo $sql`
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
3065 fi
153
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3066 elif [ x"$rm" = x"commission" ]; then
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3067 grp_reg_adm $grid $usel
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3068 elif [ x"$rm" = x"addteam" ]; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3069 team=`getpar team|sed "s/'/''/g"` # for single quotation
440
dc7acfdb6bfc Add comment
HIROSE Yuuji <yuuji@gentei.org>
parents: 439
diff changeset
3070 newteam=`echo $team|tr -d ,` # ..and strip spaces of both ends
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3071 if [ x"$team" != x"$newteam" ]; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3072 echo "チーム名に使えない文字を除去しました" | html p
700
f2971e549199 New team name regularization fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 699
diff changeset
3073 team=$newteam
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3074 fi
675
9c54908814be Team selection in GrpAction anabled with js
HIROSE Yuuji <yuuji@gentei.org>
parents: 669
diff changeset
3075 if [ -z "$team" -o x"$team" = x"なし" -o x"$team" = x"TEAM" ]; then
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3076 cat<<-EOF | html p
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3077 有効なチーム名を入力してください。
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3078 カンマだけ、「なし」という名前は使えません。
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3079 EOF
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3080 echo "有効なチーム名を入力してください。" | html p
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3081 else
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3082 grp_add_team $grid "$team" $usel
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3083 fi
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3084 elif [ x"$rm" = x"rmteam" ]; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3085 if [ x"yes" = x"`getpar teamconfirm`" ]; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3086 rmteam=`getpar rmteam|sed "s/'/''/g"`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3087 if [ -n "`query \"SELECT val FROM grp_mem_m WHERE\
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3088 gname='$grp' AND user='$user' AND key='team'\
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3089 AND val='$rmteam';\"`" ]; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3090 grp_rm_team $grid "$rmteam" $usel
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3091 else
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3092 echo "所属していないチームの除去操作はできません。"|html p
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3093 fi
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3094 else
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3095 echo "確認チェックなしなのでチーム除去しませんでした。"|html p
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3096 fi
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
3097 fi
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
3098 fi
490
e4b929e40fa8 Add feature of limiting date range of POST count
HIROSE Yuuji <yuuji@gentei.org>
parents: 489
diff changeset
3099 # POST count summary
e4b929e40fa8 Add feature of limiting date range of POST count
HIROSE Yuuji <yuuji@gentei.org>
parents: 489
diff changeset
3100 from=`getpar from`; to=`getpar to`
e4b929e40fa8 Add feature of limiting date range of POST count
HIROSE Yuuji <yuuji@gentei.org>
parents: 489
diff changeset
3101 from_input="<input type=\"date\" name=\"from\" placeholder=\"YYYY-MM-DD\" value=\"${from}\">"
e4b929e40fa8 Add feature of limiting date range of POST count
HIROSE Yuuji <yuuji@gentei.org>
parents: 489
diff changeset
3102 to_input="<input type=\"date\" name=\"to\" value=\"${to:-9999}\">"
702
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
3103 fromtonote="<p title=\"Count the Number of Posts from-to\">POST集計: $from_input - $to_input</p><!-- $from - $to -->"
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
3104 # New entry
435
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3105 sql="WITH mems AS (
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3106 SELECT g.rowid, name, gecos FROM grp_mem gm LEFT JOIN gecoses g
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3107 ON gm.user=g.name
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3108 WHERE gname=(SELECT gname FROM grp WHERE rowid=$grid)
490
e4b929e40fa8 Add feature of limiting date range of POST count
HIROSE Yuuji <yuuji@gentei.org>
parents: 489
diff changeset
3109 ), target_article AS (
e4b929e40fa8 Add feature of limiting date range of POST count
HIROSE Yuuji <yuuji@gentei.org>
parents: 489
diff changeset
3110 SELECT id FROM article_s
e4b929e40fa8 Add feature of limiting date range of POST count
HIROSE Yuuji <yuuji@gentei.org>
parents: 489
diff changeset
3111 WHERE key='ctime' AND val BETWEEN '${from:-0000}' AND '${to:-9999}'
435
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3112 ), posts AS (
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3113 SELECT author, count(author) post
490
e4b929e40fa8 Add feature of limiting date range of POST count
HIROSE Yuuji <yuuji@gentei.org>
parents: 489
diff changeset
3114 FROM article NATURAL JOIN article_s NATURAL JOIN target_article
435
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3115 WHERE blogid IN (SELECT id FROM blog_s
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3116 WHERE key='owner'
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3117 AND val=(SELECT gname FROM grp WHERE rowid=$grid))
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3118 AND key='text'
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3119 GROUP BY author
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3120 ), teams AS (
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3121 SELECT user, group_concat(val, ', ') team
876
610c3fb6d52a Sort by uname at grpaction
HIROSE Yuuji <yuuji@gentei.org>
parents: 875
diff changeset
3122 FROM mems m LEFT JOIN grp_mem_m gm ON m.name=gm.user
435
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3123 WHERE gname=(SELECT gname FROM grp WHERE rowid=$grid)
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3124 AND key='team'
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3125 GROUP BY user
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3126 ), user_post AS (
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3127 SELECT m.rowid, name, m.gecos, coalesce(post, 0) as POST
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3128 FROM mems m LEFT JOIN posts
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3129 ON m.name=posts.author
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3130 GROUP by m.rowid
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3131 )
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3132 SELECT
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3133 CASE
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3134 WHEN (SELECT user FROM grp_adm
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3135 WHERE gname=(SELECT gname FROM grp WHERE rowid=$grid)
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3136 AND user=up.name) IS NOT NULL
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3137 then 'k'
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3138 ELSE ''
876
610c3fb6d52a Sort by uname at grpaction
HIROSE Yuuji <yuuji@gentei.org>
parents: 875
diff changeset
3139 END || rowid || ','
610c3fb6d52a Sort by uname at grpaction
HIROSE Yuuji <yuuji@gentei.org>
parents: 875
diff changeset
3140 || rtrim(substr(name, 1, instr(name, '@')), '@') || ','
610c3fb6d52a Sort by uname at grpaction
HIROSE Yuuji <yuuji@gentei.org>
parents: 875
diff changeset
3141 || gecos NAME,
675
9c54908814be Team selection in GrpAction anabled with js
HIROSE Yuuji <yuuji@gentei.org>
parents: 669
diff changeset
3142 post POST, team _TEAM_
435
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3143 FROM user_post up LEFT JOIN teams t
9f7b97c8b694 Group member listing with the number of POST fasten much
HIROSE Yuuji <yuuji@gentei.org>
parents: 434
diff changeset
3144 ON up.name=t.user
888
7ca1f11ab5e8 Ensure sort by login name in grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 887
diff changeset
3145 ORDER BY up.name;"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3146 ## err grpaction: "`echo \"$sql\"`"
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
3147 tf=$tmpd/title.$$
749
f9f88278f6a0 Use htmlescape more places
HIROSE Yuuji <yuuji@gentei.org>
parents: 747
diff changeset
3148 echo "グループ[<a href=\"?grp+$grid\">$htmlgrp</a>]参加メンバーに対する操作" > $tf
702
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
3149 cmmsg="`cgi_radio rm commission id=\"cmadmin\"`<label accesskey=\"f\"
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
3150 title=\"Shortcut: f${nl}Add to Administrator of the Group\"
665
92a2f58b723b Simplify
HIROSE Yuuji <yuuji@gentei.org>
parents: 663
diff changeset
3151 for=\"cmadmin\">管理者委任</label>
153
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3152 <div><p>このグループでの全権を付与します。信頼できる人に託してください。
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
3153 </p></div>"
702
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
3154 excmsg="`cgi_radio rm yes id=\"conf\"`<label accesskey=\"g\"
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
3155 title=\"Shortcut: g${nl}Remove from the Group\"
665
92a2f58b723b Simplify
HIROSE Yuuji <yuuji@gentei.org>
parents: 663
diff changeset
3156 for=\"conf\">GRP登録解除</label>
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
3157 <div>本当に消します! `cgi_checkbox confirm yes` 確認
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3158 <p>この操作による通知は本人に行きません。
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3159 あらかじめ通知するか、登録解除してよい状況かしっかり確認してください。</p>
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3160 </div>"
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3161 # Get team list to which current user belongs into $hexteams
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3162 allhexteams=$(hexteams "$grp")
608
07ec77f4e224 Admin can remove all teams' attr
HIROSE Yuuji <yuuji@gentei.org>
parents: 607
diff changeset
3163 if [ -n "$isowner" ]; then
07ec77f4e224 Admin can remove all teams' attr
HIROSE Yuuji <yuuji@gentei.org>
parents: 607
diff changeset
3164 myhexteams="$allhexteams" # admin can remove all teams' attr
07ec77f4e224 Admin can remove all teams' attr
HIROSE Yuuji <yuuji@gentei.org>
parents: 607
diff changeset
3165 else
07ec77f4e224 Admin can remove all teams' attr
HIROSE Yuuji <yuuji@gentei.org>
parents: 607
diff changeset
3166 myhexteams=$(hexteams "$grp" "$user")
07ec77f4e224 Admin can remove all teams' attr
HIROSE Yuuji <yuuji@gentei.org>
parents: 607
diff changeset
3167 fi
875
380167e9cfcf Add link to generate csv file for Zoom(TM) pre-assigned rooms
HIROSE Yuuji <yuuji@gentei.org>
parents: 874
diff changeset
3168 if [ -n "$isowner" -a -n "$allhexteams" ]; then
380167e9cfcf Add link to generate csv file for Zoom(TM) pre-assigned rooms
HIROSE Yuuji <yuuji@gentei.org>
parents: 874
diff changeset
3169 gettingcsv="<p>Download: <a href=\"?getteamcsv+$grid\">Team.csv</a> (Zoom Breakout Room 事前割り当てに使えます)</p>"
380167e9cfcf Add link to generate csv file for Zoom(TM) pre-assigned rooms
HIROSE Yuuji <yuuji@gentei.org>
parents: 874
diff changeset
3170 fi
227
ce24afbd3139 Team-removal control should obey $myhexteams.
HIROSE Yuuji <yuuji@gentei.org>
parents: 226
diff changeset
3171 if [ -n "$myhexteams" ]; then
702
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
3172 rmteammsg="`cgi_radio rm rmteam 'id=\"cmrmteam\"'`<label accesskey=\"s\"
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
3173 title=\"Shortcut: s${nl}Strip a team tag from\"
292
3866eb7c2a23 Shorten heading string
HIROSE Yuuji <yuuji@gentei.org>
parents: 291
diff changeset
3174 for=\"cmrmteam\">チーム属性除去</label>
228
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3175 <div>チーム属性:`cgi_select_h rmteam \"2d2d2d\" $myhexteams`
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3176 を除去します: `cgi_checkbox teamconfirm yes` 確認
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3177 <p>この操作による通知は本人に行きません。
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3178 あらかじめ通知するか、登録解除してよい状況かしっかり確認してください。</p>
228
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3179 </div><!-- end of $rmteammsg -->
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3180 "
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3181 fi
675
9c54908814be Team selection in GrpAction anabled with js
HIROSE Yuuji <yuuji@gentei.org>
parents: 669
diff changeset
3182 stf=$tmpd/selteam.$$
9c54908814be Team selection in GrpAction anabled with js
HIROSE Yuuji <yuuji@gentei.org>
parents: 669
diff changeset
3183 cgi_select_h selteam "5445414d" $allhexteams > $stf
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3184 b1='<label> <input type="checkbox" name="usel" value="'
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3185 ba='<label class="admin"><input type="checkbox" name="usel" value="'
659
a36a2c3b3056 GrpAction: Reverse selection and supplemental rcpt address
HIROSE Yuuji <yuuji@gentei.org>
parents: 657
diff changeset
3186 br='<span id="reverse" title="Reverse Selection"></span>'
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3187 #b2='"> <span>' b3='</span></label>'
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3188 # | sed -e "s|^\(<TR><TD>\)k\([0-9]*\),\([^<]*\)|\1$ba\2$b2\3$b3|" \
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3189 # -e "s|^\(<TR><TD>\)\([0-9]*\),\([^<]*\)|\1$b1\2$b2\3$b3|" \
876
610c3fb6d52a Sort by uname at grpaction
HIROSE Yuuji <yuuji@gentei.org>
parents: 875
diff changeset
3190 lnk='"> <span>\5</span></label> [<a href="?home+\3">HOME</a>]'
610c3fb6d52a Sort by uname at grpaction
HIROSE Yuuji <yuuji@gentei.org>
parents: 875
diff changeset
3191 #-e "s|^\(<TR><TD>\)k\([0-9]*\),\([^<]*\)|\1$ba\2$lnk|" \
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
3192 cgi_form grpaction<<EOF \
876
610c3fb6d52a Sort by uname at grpaction
HIROSE Yuuji <yuuji@gentei.org>
parents: 875
diff changeset
3193 | sed -E \
877
0905a624c720 Checkbox should have value of rowid of user
HIROSE Yuuji <yuuji@gentei.org>
parents: 876
diff changeset
3194 -e "s|^(<TR><TD)>(k?)([0-9]*),([^,]+),([^<]*)|\1 title=\"\4\">\2$b1\3$lnk|" \
876
610c3fb6d52a Sort by uname at grpaction
HIROSE Yuuji <yuuji@gentei.org>
parents: 875
diff changeset
3195 -e 's/^(<TR><TD[^>]*>)k(<label)/\1\2 class="admin"/' \
610c3fb6d52a Sort by uname at grpaction
HIROSE Yuuji <yuuji@gentei.org>
parents: 875
diff changeset
3196 -e "s|^(<TR><TH>)(NAME)|\1$br \2|" \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3197 | _m4 -D_TITLE_="spaste(\`$tf')" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3198 -D_SUBTITLE_="チェック後操作ボタン" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3199 -D_FORM_="syscmd(cat)" -D_DUMPTABLE_="" \
675
9c54908814be Team selection in GrpAction anabled with js
HIROSE Yuuji <yuuji@gentei.org>
parents: 669
diff changeset
3200 $layout/form+dump.m4.html \
9c54908814be Team selection in GrpAction anabled with js
HIROSE Yuuji <yuuji@gentei.org>
parents: 669
diff changeset
3201 | _m4 -D_TEAM_="spaste(\`$stf')"
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
3202 <p>下でチェックした人を対象として:</p>
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
3203 <div class="foldtabs">
702
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
3204 `cgi_radio rm addteam 'id="cmteam"'`<label accesskey="a"
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
3205 title="Shortcut: a${nl}Add a team tag to"
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
3206 for="cmteam">同じチーム属性を付与</label>
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3207 <div>チーム名:`cgi_text team "" 'id="inteam" list="teams"'`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3208 `cgi_datalist_h teams $allhexteams`
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
3209 </div>
228
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3210 ${rmteammsg}
702
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
3211 `cgi_radio rm send id="sendmsg"`<label accesskey="d"
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
3212 title="Shortcut: d${nl}DirectMail to"
665
92a2f58b723b Simplify
HIROSE Yuuji <yuuji@gentei.org>
parents: 663
diff changeset
3213 for="sendmsg" title="Direct Message">DM送信</label>
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
3214 <div>
667
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3215 `cgi_checkbox email yes 'id="email" class="fold"'`<label for="email"
702
2c5ddb0b5f4c Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents: 700
diff changeset
3216 title="Using email format">email書式を使う</label>
667
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3217 <div class="folded">
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3218 <table>
684
8091eb177596 Sender address set to $user in email-mode
HIROSE Yuuji <yuuji@gentei.org>
parents: 682
diff changeset
3219 <tr><td>From: </td><td>$user</td></tr>
8091eb177596 Sender address set to $user in email-mode
HIROSE Yuuji <yuuji@gentei.org>
parents: 682
diff changeset
3220 <tr><td>このFrom:で送る</td>
687
19d28bbdbee8 Remove message
HIROSE Yuuji <yuuji@gentei.org>
parents: 686
diff changeset
3221 <td>`cgi_checkbox sender yes 'checked'`<small></small>
684
8091eb177596 Sender address set to $user in email-mode
HIROSE Yuuji <yuuji@gentei.org>
parents: 682
diff changeset
3222 </td></tr>
667
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3223 <tr><td>Subject: </td><td>`cgi_text subject`</td></tr>
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3224 <tr><td>追加宛先(通常空欄): </td><td>`cgi_text supprcpt ""`</td></tr>
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3225 <tr><td>ファイル添付: </td>
837
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
3226 <td>`cgi_file image "" "multiple $file_accept title=\"$file_accept_help\""`<br><small>文書ファイルはPDFに変換してから</small></td></tr>
667
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3227 </table>
864
45e95d6ee863 Fix message
HIROSE Yuuji <yuuji@gentei.org>
parents: 863
diff changeset
3228 <p>(下記一覧から1人以上選択していない場合は送れません`cgi_submit 送信`)</p>
667
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3229 </div>
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3230 <div>本文:`cgi_textarea text "" cols=72`
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3231 </div>
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
3232 </div>
291
1df64f0490ca `|col|col|...' like table conversion enabled
HIROSE Yuuji <yuuji@gentei.org>
parents: 288
diff changeset
3233 ${isowner:+$cmmsg$excmsg}
667
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3234 `cgi_radio rm close id="x"`<label for="x" accesskey="x">×</label>
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
3235 </div>
875
380167e9cfcf Add link to generate csv file for Zoom(TM) pre-assigned rooms
HIROSE Yuuji <yuuji@gentei.org>
parents: 874
diff changeset
3236 <h4>$htmlgrp 参加者一覧</h4>$gettingcsv$fromtonote
659
a36a2c3b3056 GrpAction: Reverse selection and supplemental rcpt address
HIROSE Yuuji <yuuji@gentei.org>
parents: 657
diff changeset
3237 <table class="td2r thl">
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3238 `sq $db -header -html "$sql"`
207
355fcbdc3b49 Add 'file_accept'
HIROSE Yuuji <yuuji@gentei.org>
parents: 203
diff changeset
3239 </table>
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
3240 `cgi_hidden grp $grid`
667
9ee0e242c25a Grp-Message customized for Report-handout
HIROSE Yuuji <yuuji@gentei.org>
parents: 666
diff changeset
3241 `cgi_hidden myuid $myuid id="myuid"`
59
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
3242 EOF
916d81b9c4fc Selection from group member
HIROSE Yuuji <yuuji@gentei.org>
parents: 58
diff changeset
3243 }
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3244 crview4article() { # $1=rowid of blog, $2(optional)=extra SQL
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3245 # Create TEMPORARY VIEW
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3246 query<<EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3247 CREATE TEMPORARY VIEW writeusers AS
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3248 SELECT DISTINCT author FROM article
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3249 WHERE id in (
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3250 select id from article where blogid=(select id from blog where rowid=$1)
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3251 );
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3252 CREATE TEMPORARY VIEW movablegroups AS
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3253 SELECT g.rowid growid , g.gname
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3254 FROM (SELECT grp.rowid, grp.gname FROM grp JOIN grp_mem gm
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3255 ON grp.gname=gm.gname -- そのユーザが属している
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3256 AND user='$user') g -- グループに絞る
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3257 WHERE (SELECT author FROM writeusers
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3258 EXCEPT
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3259 SELECT user FROM grp_mem gm WHERE gm.gname = g.gname)
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3260 IS NULL;
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3261 $2
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3262 EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3263 }
245
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3264 sql4readableblogs() {
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3265 # Create view of blogs that can be readable to $user
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3266 # Blog is readable when:
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3267 # 1: blog owner is an user
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3268 # 2: else, 2.1: owner-group where the $user belongs
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3269 # 2.2: else, owner-group is not moderated
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3270 # blog(id, author), blog_s(id, key='owner', val= ->owner)
300
973fb0ea5c2f Send direct message with sender's From:
HIROSE Yuuji <yuuji@gentei.org>
parents: 299
diff changeset
3271 cat<<EOF ## | tee tmp/sql.out
245
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3272 CREATE TEMPORARY VIEW readableblogs AS
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3273 SELECT blog.rowid rid, id, author
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3274 FROM blog
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3275 NATURAL JOIN
443
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
3276 (SELECT id,
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
3277 max(CASE key WHEN 'owner' THEN val END) owner,
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
3278 max(CASE key WHEN 'mode' THEN val END) mode
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
3279 FROM blog_s GROUP by id) bs
245
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3280 WHERE CASE WHEN (SELECT name FROM user where name=bs.owner) IS NOT NULL
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3281 THEN 1 -- blog owner is an user, READABLE
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3282 WHEN (SELECT val FROM grp_s
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3283 WHERE gname=bs.owner AND key='regmode') = 'moderated'
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3284 AND
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3285 (SELECT user FROM grp_mem
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3286 WHERE gname=bs.owner AND user='$user') IS NULL
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3287 THEN 0
592
a50e83239b51 Add "enquete" mode
HIROSE Yuuji <yuuji@gentei.org>
parents: 585
diff changeset
3288 WHEN mode IN ('quiz', 'enquete')
443
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
3289 THEN 0 -- "quiz" mode blog cannot be searched
245
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3290 ELSE 1
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3291 END;
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3292 EOF
b915381669d6 Do not search from unreadable blogs
HIROSE Yuuji <yuuji@gentei.org>
parents: 243
diff changeset
3293 }
860
7cb0edec73bd Allow users to assign team name to new blog
HIROSE Yuuji <yuuji@gentei.org>
parents: 858
diff changeset
3294 mvteamform() {
7cb0edec73bd Allow users to assign team name to new blog
HIROSE Yuuji <yuuji@gentei.org>
parents: 858
diff changeset
3295 owner=$1
861
81063a4b220f Only assign team to new blog where user is belonging
HIROSE Yuuji <yuuji@gentei.org>
parents: 860
diff changeset
3296 hexteams=$(hexteams "$owner" "$user")
860
7cb0edec73bd Allow users to assign team name to new blog
HIROSE Yuuji <yuuji@gentei.org>
parents: 858
diff changeset
3297 test -z "$hexteams" && return
7cb0edec73bd Allow users to assign team name to new blog
HIROSE Yuuji <yuuji@gentei.org>
parents: 858
diff changeset
3298 none="`echo なし|hexize`"
7cb0edec73bd Allow users to assign team name to new blog
HIROSE Yuuji <yuuji@gentei.org>
parents: 858
diff changeset
3299 cat<<-EOF
7cb0edec73bd Allow users to assign team name to new blog
HIROSE Yuuji <yuuji@gentei.org>
parents: 858
diff changeset
3300 <!-- <div class="fold">
7cb0edec73bd Allow users to assign team name to new blog
HIROSE Yuuji <yuuji@gentei.org>
parents: 858
diff changeset
3301 `cgi_checkbox mv2team send id="mv2team"`<label
7cb0edec73bd Allow users to assign team name to new blog
HIROSE Yuuji <yuuji@gentei.org>
parents: 858
diff changeset
3302 for="mv2team">この話題を以下のチームのものにする</label>
7cb0edec73bd Allow users to assign team name to new blog
HIROSE Yuuji <yuuji@gentei.org>
parents: 858
diff changeset
3303 <div> -->
7cb0edec73bd Allow users to assign team name to new blog
HIROSE Yuuji <yuuji@gentei.org>
parents: 858
diff changeset
3304 <p>この話題をチーム所有にする:
7cb0edec73bd Allow users to assign team name to new blog
HIROSE Yuuji <yuuji@gentei.org>
parents: 858
diff changeset
3305 チーム: `cgi_select_h mv2team $none $hexteams`</p>
7cb0edec73bd Allow users to assign team name to new blog
HIROSE Yuuji <yuuji@gentei.org>
parents: 858
diff changeset
3306 </form></div></div>
7cb0edec73bd Allow users to assign team name to new blog
HIROSE Yuuji <yuuji@gentei.org>
parents: 858
diff changeset
3307 EOF
7cb0edec73bd Allow users to assign team name to new blog
HIROSE Yuuji <yuuji@gentei.org>
parents: 858
diff changeset
3308 }
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3309 editheading() { # $1=rowid-of-heading
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3310 rowid=${1%%[!A-Z0-9a-z_]*}
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3311 if [ -z "$rowid" ]; then
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3312 echo "話題番号が未指定です。" | html p
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3313 return
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3314 fi
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3315 owner=`getvalbyid blog owner $rowid`
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3316 title=`getvalbyid blog title $rowid`
121
34b72806cd22 Too much quoting
HIROSE Yuuji <yuuji@gentei.org>
parents: 120
diff changeset
3317 GF_ACTION="?blog" edittable $formdir/blog.def blog $rowid \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3318 | _m4 -D_TITLE_="修正" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3319 -D_SUBTITLE_="[$title]@$owner" -D_DIARY_="" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3320 -D_BLOGS_="" -D_DUMPTABLE_="" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3321 -D_FORM_="syscmd(\`cat')" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3322 $layout/html.m4.html $layout/form+dump.m4.html
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3323 # Move to group
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3324 if isuser "$owner"; then
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3325 crview4article $rowid
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3326 n=`query "SELECT count(*) FROM writeusers;"`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3327 ## err N=$n
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3328 if [ $((n)) -gt 0 ]; then
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3329 ## err ROWID=$rowid
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3330 sql="SELECT growid || ':' || gname FROM movablegroups;"
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3331 cat<<-EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3332 <div class="fold">
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3333 `cgi_checkbox mv send id="mv"`<label
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3334 for="mv">この話題をグループ所有に移動する</label>
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3335 <div>
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3336 <form action="?mvart" method="POST" enctype="multipart/form-data">
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3337 移動先グループ:
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3338 <select name="mv2grp">
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3339 EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3340 query ".mode html"
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3341 query<<-EOF |
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3342 $sql
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3343 .mode list
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3344 EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3345 sed -e '/<\/TR>/d' -e 's,<TR>,,' -e 's,TD>,option>,g' \
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3346 -e 's,n>\([0-9]*\):\(.*\)<,n value="\1">\2<,'
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3347 cat<<-EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3348 </select>
214
e4dd3cf443b0 Add comment to article moving page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 213
diff changeset
3349 <p>(移動できるグループは、この「話題」に書き込んでいる人全てが
e4dd3cf443b0 Add comment to article moving page.
HIROSE Yuuji <yuuji@gentei.org>
parents: 213
diff changeset
3350 そのグループに加入しているものに限られます)</p>
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3351 <p>`cgi_checkbox cfm yes`<label>確認
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3352 (この操作は元に戻すことができません)</label></p>
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3353 `cgi_hidden blogrowid $rowid`
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3354 `cgi_submit 移動`
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3355 `cgi_reset Reset`
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3356 </form>
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3357 </div>
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3358 </div>
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3359 EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3360 fi
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3361 # end of isuser "$owner"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3362 elif { hexteams=$(hexteams "$owner" ) # blog is of GROUP
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3363 [ -n "$hexteams" ];}; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3364 none="`echo なし|hexize`"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3365 cat<<-EOF
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3366 <div class="fold">
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3367 `cgi_checkbox mv2team send id="mv2team"`<label
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3368 for="mv2team">この話題を以下のチームのものにする</label>
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3369 <div><p>現在の所属チーム設定:
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3370 `query "SELECT
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3371 coalesce((SELECT val FROM blog_s
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3372 WHERE id=(SELECT id FROM blog WHERE rowid=$rowid)
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3373 AND key='team'),
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3374 ':なし');"`</p>
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3375 <form action="?mvart" method="POST" enctype="multipart/form-data">
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3376 移動先チーム: `cgi_select_h mv2team $none $hexteams`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3377 <p>`cgi_checkbox cfm yes`<label>確認</label></p>
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3378 `cgi_hidden blogrowid $rowid`<br>
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3379 `cgi_submit 移動`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3380 `cgi_reset Reset`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3381 </form></div></div>
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3382 EOF
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3383 fi
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3384 }
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3385 mvart() { # move diary to some group or team
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3386 # or move blog of group to team which belong to the group
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3387 blogrowid=`getpar blogrowid`
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3388 cfm=`getpar cfm`
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3389 ##### echo move blog:$blogrowid to $mv2grp | html p
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3390 blogrowid=${blogrowid%%[!A-Z0-9a-z_]*} # Purify
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3391 . ./s4-blog.sh
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3392 if [ -z "$blogrowid" ]; then
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3393 echo "無効な指定です(mvart)。" | html p
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3394 return
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3395 elif [ x"$cfm" != x"yes" ]; then
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3396 echo "記事移動の確認にチェックがないので通常表示に戻ります。" | html p
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3397 elif { mv2grp=`getpar mv2grp`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3398 mv2grp=${mv2grp%%[!A-Z0-9a-z_]*} # Purify
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3399 [ -n "$mv2grp" ]; }; then
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3400 crview4article $blogrowid
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3401 ########## TRANSACTION BEGIN
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3402 query "BEGIN;"
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3403 n=`query "SELECT count(*) FROM writeusers;"`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3404 ## err Nwriteuser=$n
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3405 if [ $((n)) -gt 0 ]; then
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3406 query<<-EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3407 UPDATE blog_s SET val=(SELECT gname FROM grp WHERE rowid=$mv2grp)
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3408 WHERE key='owner'
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3409 AND id=(SELECT id FROM blog WHERE rowid=$blogrowid)
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3410 AND $mv2grp IN (SELECT growid FROM movablegroups);
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3411 EOF
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3412 fi
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3413 query "END;"
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3414 ########## TRANSACTION END
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3415 elif { mv2team=`getpar mv2team|sed "s/'/''/g"`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3416 [ -n "$mv2team" ];}; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3417 # blog owner can move it to ANY team
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3418 case "$mv2team" in
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3419 'なし')
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3420 cat<<-EOF
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3421 DELETE FROM blog_s
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3422 WHERE id=(SELECT id FROM blog WHERE rowid=$blogrowid)
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3423 AND key='team';
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3424 EOF
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3425 ;;
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3426 "") ;;
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3427 *)cat<<-EOF
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3428 BEGIN;
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3429 REPLACE INTO blog_s(id, key, val)
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3430 VALUES((SELECT id FROM blog WHERE rowid=$blogrowid),
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3431 'team', '$mv2team');
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3432 REPLACE INTO blog_s(id, key, val)
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3433 VALUES((SELECT id FROM blog WHERE rowid=$blogrowid),
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3434 'notify', 'all'); -- Change notify to all
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3435 END;
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3436 EOF
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3437 esac | query
213
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3438 fi
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3439 blog_reply $blogrowid
ca7e27d9224e Add feature of moving article from personal diary to group board.
HIROSE Yuuji <yuuji@gentei.org>
parents: 210
diff changeset
3440 echo yes | html p
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3441 }
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3442 editart() { # $1=article-rowid $2=blogrowid
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3443 rowid=${1%%[!A-Z0-9a-z_]*}
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3444 blogrowid=${2%%[!A-Z0-9a-z_]*}
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3445 if [ -z "$rowid" -o -z "$blogrowid" ]; then
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3446 echo "表示する記事番号が未指定です。" | html p
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3447 return
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3448 fi
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3449 owner=`getvalbyid blog owner $blogrowid`
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3450 title=`getvalbyid blog title $blogrowid`
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3451 author=`getvalbyid article author $rowid`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3452 ## err EDITart: owner=$owner, author=$author
436
e1bdad674c09 Quote arguments that hold group name.
HIROSE Yuuji <yuuji@gentei.org>
parents: 435
diff changeset
3453 if isgrpowner "$user" "$owner"; then
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3454 : EDIT OK
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3455 elif [ x"$owner" != x"$user" -a x"$author" != x"$user" ]; then
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3456 echo "本人か所有者しか編集できません." | html p
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3457 return
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3458 fi
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3459 aid=`query "select id from article where rowid=$rowid;"`
81
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
3460 tmpout=$tmpd/editart.$$.out
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
3461 GF_ACTION="?replyblog+$blogrowid#$aid" \
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
3462 edittable $formdir/article.def article $rowid \
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
3463 > $tmpout
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
3464 rm -f /tmp/editart.out
ddc8a4c0b8d9 All macro-expanding by m4 bypassed via syscmd or spaste
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
3465 # Cannot use pipelining to m4 with genform() because of stdin stack
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3466 _m4 -D_TITLE_="コメントの修正" -D_DIARY_="" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3467 -D_FORM_="syscmd(cat $tmpout)" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3468 -D_SUBTITLE_="`gecos $owner`の「$title」" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3469 -D_BLOGS_= -D_DUMPTABLE_= \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3470 $layout/html.m4.html $layout/form+dump.m4.html
79
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3471 }
f088d45dfdf2 Code cleaning: move substantial jobs from s4.cgi to s4-funcs.sh
HIROSE Yuuji <yuuji@gentei.org>
parents: 78
diff changeset
3472 send2mem() {
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
3473 rowid=`getpar grp`
443
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
3474 rowid=${rowid%%[!0-9]*} # Cleaning
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
3475 if [ -z "$rowid" ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3476 echo "グループが未指定です。" | html p
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
3477 return
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
3478 fi
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
3479 message=`getpar message`
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3480 if [ -z "$message" ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3481 echo "文章を入れてください。" | html p
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
3482 return
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
3483 fi
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
3484 grp=`getgroupbyid $rowid`
749
f9f88278f6a0 Use htmlescape more places
HIROSE Yuuji <yuuji@gentei.org>
parents: 747
diff changeset
3485 members=`collectemail "$grp"`
630
8874225971ff Test of setting Reply-to header
HIROSE Yuuji <yuuji@gentei.org>
parents: 628
diff changeset
3486 myuid=`query "SELECT rowid FROM user WHERE name='$user';"`
8874225971ff Test of setting Reply-to header
HIROSE Yuuji <yuuji@gentei.org>
parents: 628
diff changeset
3487 mailfrom=`email4groupbyuid "$grp" "$myuid" | sed -e 1q -e 's/[ ,].*//'`
655
a049d3cb0389 Send group-mail each member respectively
HIROSE Yuuji <yuuji@gentei.org>
parents: 654
diff changeset
3488 mailfrom="`gecos "$user"` <$mailfrom>"
749
f9f88278f6a0 Use htmlescape more places
HIROSE Yuuji <yuuji@gentei.org>
parents: 747
diff changeset
3489 sj="グループ「$grp」宛メッセージ(from `gecos $user`)"
655
a049d3cb0389 Send group-mail each member respectively
HIROSE Yuuji <yuuji@gentei.org>
parents: 654
diff changeset
3490 msg=$(cat<<-EOF
a049d3cb0389 Send group-mail each member respectively
HIROSE Yuuji <yuuji@gentei.org>
parents: 654
diff changeset
3491 $urlbase?grp+$rowid
a049d3cb0389 Send group-mail each member respectively
HIROSE Yuuji <yuuji@gentei.org>
parents: 654
diff changeset
3492 グループ $grp に所属する
a049d3cb0389 Send group-mail each member respectively
HIROSE Yuuji <yuuji@gentei.org>
parents: 654
diff changeset
3493 `gecos $user` さんよりメッセージ:
a049d3cb0389 Send group-mail each member respectively
HIROSE Yuuji <yuuji@gentei.org>
parents: 654
diff changeset
3494
a049d3cb0389 Send group-mail each member respectively
HIROSE Yuuji <yuuji@gentei.org>
parents: 654
diff changeset
3495 $message
a049d3cb0389 Send group-mail each member respectively
HIROSE Yuuji <yuuji@gentei.org>
parents: 654
diff changeset
3496 EOF
a049d3cb0389 Send group-mail each member respectively
HIROSE Yuuji <yuuji@gentei.org>
parents: 654
diff changeset
3497 )
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
3498 # smail rcpt subj (file)
655
a049d3cb0389 Send group-mail each member respectively
HIROSE Yuuji <yuuji@gentei.org>
parents: 654
diff changeset
3499 for m in $members; do
a049d3cb0389 Send group-mail each member respectively
HIROSE Yuuji <yuuji@gentei.org>
parents: 654
diff changeset
3500 echo "$msg" |
a049d3cb0389 Send group-mail each member respectively
HIROSE Yuuji <yuuji@gentei.org>
parents: 654
diff changeset
3501 MAIL_FROM=$mailfrom \
a049d3cb0389 Send group-mail each member respectively
HIROSE Yuuji <yuuji@gentei.org>
parents: 654
diff changeset
3502 SENDER=$noreply \
a049d3cb0389 Send group-mail each member respectively
HIROSE Yuuji <yuuji@gentei.org>
parents: 654
diff changeset
3503 REPLYTO=$mailfrom \
682
b1298ce80625 Group-mail sending too much, fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 679
diff changeset
3504 smail "$m" "$sj"
655
a049d3cb0389 Send group-mail each member respectively
HIROSE Yuuji <yuuji@gentei.org>
parents: 654
diff changeset
3505 done
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
3506 cat<<EOF
443
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
3507 <p>以下のユーザに送信しました。</p>
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
3508 <pre>
443
f1744a954888 New blog mode "quiz" introduced,
HIROSE Yuuji <yuuji@gentei.org>
parents: 440
diff changeset
3509 `collectgecosesbyid "$rowid" | sed 's/$/ さん/'`
26
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
3510 </pre>
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
3511 <p><a href="?grp+$rowid">グループ $grp</a>に戻る。</p>
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
3512 EOF
514acfff7453 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 22
diff changeset
3513 }
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3514 joingrpadmit() {
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3515 # $1=yes/no $2=session-key
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3516 if [ -z "$2" ]; then
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3517 echo "bye bye" | html p; return
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3518 fi
737
441768a11b84 Joingrp use var-name adduser instead of user
HIROSE Yuuji <yuuji@gentei.org>
parents: 736
diff changeset
3519 t_usr=`session=$2 getpar adduser`
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3520 t_grp=`session=$2 getpar group`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3521 ## err joingrpadmit: t_usr=$t_usr, t_grp=$t_grp
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
3522 _m4 -D_TITLE_="joingrp" $layout/html.m4.html
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3523 if [ -z "$t_usr" -o -z "$t_grp" ]; then
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3524 echo "無効な加入依頼です。" | html p
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3525 echo "有効期限が切れたか、
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3526 他の管理者がいる場合は処理済みの可能性があります。" | html p
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3527 return
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3528 fi
436
e1bdad674c09 Quote arguments that hold group name.
HIROSE Yuuji <yuuji@gentei.org>
parents: 435
diff changeset
3529 if ! isgrpowner "$user" "$t_grp"; then
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3530 echo "グループ管理者のみの機能です。" | html p; return
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3531 fi
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3532 case $1 in
308
e38ea2702570 Call joingrp() without $4(extra email address)
HIROSE Yuuji <yuuji@gentei.org>
parents: 307
diff changeset
3533 yes) joingrp "$t_grp" "$t_usr" yes ;;
e38ea2702570 Call joingrp() without $4(extra email address)
HIROSE Yuuji <yuuji@gentei.org>
parents: 307
diff changeset
3534 no) joingrp "$t_grp" "$t_usr" no ;;
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3535 *)
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3536 echo "無効な指定です($1)。" | html p
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3537 return ;;
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3538 esac
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
3539 gid=$(query "select rowid from grp where gname=`sqlquote \"$t_grp\"`;")
768
891f1f5a8153 Allow spaces in group name
HIROSE Yuuji <yuuji@gentei.org>
parents: 763
diff changeset
3540 rcpts="`getgroupadminmails "$t_grp"` $user"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3541 ## err admit: msgdir=$msgdir, rcpts="["$rcpts"]"
775
2c5a8c5dd1ee Fix sending message of joingrp()
HIROSE Yuuji <yuuji@gentei.org>
parents: 769
diff changeset
3542 body="に
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3543 $t_usr
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3544 `[ x$1 = xyes ] && echo 'を追加' || echo 'の解除操作を'`
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3545 しました。"
775
2c5a8c5dd1ee Fix sending message of joingrp()
HIROSE Yuuji <yuuji@gentei.org>
parents: 769
diff changeset
3546 echo "$t_grp$nl$body$nl$nl$url?grp+$gid" | smail "$rcpts" "joingrp $1"
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3547 query "delete from session where id='$2';"
775
2c5a8c5dd1ee Fix sending message of joingrp()
HIROSE Yuuji <yuuji@gentei.org>
parents: 769
diff changeset
3548 echo "グループ <a href=\"?grp+$gid\">$t_grp</a>$nl$body" | html p
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3549 }
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3550
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3551 joingrprequest() {
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3552 # $1=group $2=user $3=yes/no $4=email(if any $5=AsAdmin)
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3553 jss="joingrp-`date +%s`-`genrandom 12`"
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3554 addsession $jss +${memoplimitdays}days
768
891f1f5a8153 Allow spaces in group name
HIROSE Yuuji <yuuji@gentei.org>
parents: 763
diff changeset
3555 grpadmins=`getgroupadmins "$1"`
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
3556 query "replace into par values('$jss', 'group', 'string', `sqlquote \"$1\"`),
737
441768a11b84 Joingrp use var-name adduser instead of user
HIROSE Yuuji <yuuji@gentei.org>
parents: 736
diff changeset
3557 ('$jss', 'adduser', 'string', `sqlquote \"$user\"`);"
768
891f1f5a8153 Allow spaces in group name
HIROSE Yuuji <yuuji@gentei.org>
parents: 763
diff changeset
3558 smail "$(collectemail $grpadmins)" "Join request to $1"<<EOF
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3559 $url
270
707ff3870ad1 Put user name in joingrprequest mail
HIROSE Yuuji <yuuji@gentei.org>
parents: 268
diff changeset
3560 $user さんから
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3561 グループ $1
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3562 に加入依頼がありました。
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3563
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3564 承認する:
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3565 $urlbase?joingrpadmit+yes+$jss
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3566
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3567 白紙に戻す:
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3568 $urlbase?joingrpadmit+no+$jss
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3569 EOF
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3570 echo "管理者に加入依頼を出しました。
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3571 ${memoplimitdays}日以内に加入承認操作がされれば加入できますが、
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3572 グループ運用方針に懸かることですので直接の問い合わせが重要です。" | html p
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3573 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3574 joingrp() {
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
3575 # $1=group $2=user $3=yes/no $4=email(if any $5=AsAdmin)
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3576 ## err joingrp: \$1=$1 \$2=$2 \$3=$3 \$4=$4
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3577 if isgrpowner "$user" "$1"; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3578 isowner="yes"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3579 elif [ -n "$5" ]; then
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3580 isowner="yes"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3581 else
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3582 isowner=""
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3583 fi
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3584 ## err jg:isgrpowner: isowner="$isowner"
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3585 if [ -n "$isowner" ]; then
120
d870eaf0e4dd Revert to "sq $db"
HIROSE Yuuji <yuuji@gentei.org>
parents: 119
diff changeset
3586 : # GROUP OWNER CAN DO EVERYTHING ABOUT REGISTRATION/RETIREMENT
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3587 elif [ x"$2" != x"$user" ]; then # if user is not login user
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3588 echo "本人か、グループ管理者しか加入操作はできません。" | html p
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3589 return
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3590 elif [ x"$3" = x"no" ]; then
120
d870eaf0e4dd Revert to "sq $db"
HIROSE Yuuji <yuuji@gentei.org>
parents: 119
diff changeset
3591 : # Do not pursue those who leave
271
a8bb72580c91 Member can change own email address for the joining moderated group
HIROSE Yuuji <yuuji@gentei.org>
parents: 270
diff changeset
3592 elif [ x"$3" = x"yes" ] && ismember "$user" "$grp"; then
a8bb72580c91 Member can change own email address for the joining moderated group
HIROSE Yuuji <yuuji@gentei.org>
parents: 270
diff changeset
3593 : # Member can change own email address for the joining moderated group
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3594 else # adding user is $user itself
768
891f1f5a8153 Allow spaces in group name
HIROSE Yuuji <yuuji@gentei.org>
parents: 763
diff changeset
3595 case `getgroupattr "$1" regmode` in
117
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3596 moderated)
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3597 joingrprequest "$@" # Request only
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3598 return
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3599 ;;
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3600 *)
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3601 ;;
82e215e75468 Add moderated mode to grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 113
diff changeset
3602 esac
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3603 fi
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
3604 qgname=`sqlquote "$1"`
424
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
3605 grid=`query "SELECT rowid FROM grp WHERE gname=$qgname;"`
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
3606 cond="where gname=$qgname and user='$2'"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3607 if [ x"$3" = x"yes" ]; then
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
3608 query "replace into grp_mem values($qgname, '$2');"
424
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
3609 # Notify joingrp to admin
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
3610 action="に加入しました。"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3611 if [ -n "$4" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3612 if msg=`emaildomaincheck "$4"`; then
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
3613 query "replace into grp_mem_s values($qgname, '$user', 'email', \
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3614 'string', '$4', NULL);"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3615 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3616 echo $msg
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3617 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3618 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3619 query "delete from grp_mem_s $cond and key='email';"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3620 fi
306
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
3621 if [ -n "$5" ]; then # as ADMIN
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
3622 # Coming here means newly created group
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
3623 sql="select case\
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
3624 when (select count(*) from grp_mem where gname=$qgname)=1\
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
3625 then (select user from grp_mem\
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
3626 where gname=$qgname and user='$user')\
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
3627 else '' end; "
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
3628 err NewGrpChk: $sql
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
3629 if [ -n "`query \"$sql\"`" ]; then
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
3630 ## err ADMIN: "replace into grp_adm values($qgname, '$user');"
306
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
3631 query "replace into grp_adm values($qgname, '$user');"
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
3632 fi
827dd5d8653e Set admin value to $5 when $4 is empty(in joingrp())
HIROSE Yuuji <yuuji@gentei.org>
parents: 305
diff changeset
3633 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3634 else
555
7e7b3b2822f6 Remove retiring user from grp-admin.
HIROSE Yuuji <yuuji@gentei.org>
parents: 554
diff changeset
3635 query "begin;
7e7b3b2822f6 Remove retiring user from grp-admin.
HIROSE Yuuji <yuuji@gentei.org>
parents: 554
diff changeset
3636 delete from grp_mem $cond;
7e7b3b2822f6 Remove retiring user from grp-admin.
HIROSE Yuuji <yuuji@gentei.org>
parents: 554
diff changeset
3637 delete from grp_mem_s $cond;
7e7b3b2822f6 Remove retiring user from grp-admin.
HIROSE Yuuji <yuuji@gentei.org>
parents: 554
diff changeset
3638 delete from grp_mem_m $cond;
7e7b3b2822f6 Remove retiring user from grp-admin.
HIROSE Yuuji <yuuji@gentei.org>
parents: 554
diff changeset
3639 delete from grp_adm $cond;
7e7b3b2822f6 Remove retiring user from grp-admin.
HIROSE Yuuji <yuuji@gentei.org>
parents: 554
diff changeset
3640 delete from grp_adm_s $cond;
7e7b3b2822f6 Remove retiring user from grp-admin.
HIROSE Yuuji <yuuji@gentei.org>
parents: 554
diff changeset
3641 delete from grp_adm_m $cond;
7e7b3b2822f6 Remove retiring user from grp-admin.
HIROSE Yuuji <yuuji@gentei.org>
parents: 554
diff changeset
3642 end;"
424
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
3643 action="から脱退しました。"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3644 fi
614
962c954715b8 smail_queue() initially implemented
HIROSE Yuuji <yuuji@gentei.org>
parents: 613
diff changeset
3645 smail_queue "$(collectemail `getgroupadmins $1`)" "Member change of $1"<<-EOF
424
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
3646 $url?grp+$grid
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
3647 $user (`gecos $user`)さんが
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
3648 グループ $1
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
3649 $action
c250bc6da8ad Notify group join/resign of group to adminsl
HIROSE Yuuji <yuuji@gentei.org>
parents: 418
diff changeset
3650 EOF
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3651 }
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3652 grp_add_team() (
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3653 # $1=grp-rowid $2=team $3...=user-rowid(s)
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3654 grp=`getgroupbyid $1`
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3655 team=$2; shift; shift
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3656 [ -z "$grid" -o -z "$team" -o -z "$1" ] && return
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3657 { echo "BEGIN;"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3658 for user; do
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3659 echo "REPLACE INTO grp_mem_m(gname, user, key, type, val) VALUES(\
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3660 '$grp',\
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3661 (SELECT name FROM user WHERE rowid=$user),\
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3662 'team', 'string', '$team');"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3663 done
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3664 echo "END;"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3665 } | query
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3666 )
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3667 grp_rm_team() (
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3668 # $1=grp-rowid $2=team $3...=user-rowid(s)
228
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3669 grid=$1
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3670 qgrp=$(sqlquote "`getgroupbyid $grid`")
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3671 team=$2; shift; shift
228
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3672 [ -z "$grid" -o -z "$team" ] && return
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3673 { echo "BEGIN;"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3674 for user; do
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3675 echo "DELETE FROM grp_mem_m\
228
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3676 WHERE gname=$qgrp \
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3677 AND user=(SELECT name FROM user WHERE rowid=$user)\
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3678 AND key='team' AND val='$team';"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3679 done
228
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3680 cat<<-EOF
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3681 DELETE FROM blog_s
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3682 WHERE rowid=(
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3683 SELECT rowid
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3684 FROM blog_s a
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3685 WHERE key='team'
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3686 AND id IN (SELECT id FROM blog_s WHERE key='owner' AND val=$qgrp)
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3687 AND NOT EXISTS (SELECT * FROM grp_mem_m
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3688 WHERE key='team' AND val=a.val -- a.val=team
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3689 AND gname = (SELECT val FROM blog_s b
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3690 WHERE a.id=b.id AND key='owner')
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3691 ));
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3692 EOF
ab1693ac909a Avoid reusing variable
HIROSE Yuuji <yuuji@gentei.org>
parents: 227
diff changeset
3693
222
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3694 echo "END;"
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3695 } | query
d320c73bf16f Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents: 220
diff changeset
3696 )
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3697 grp_reg_adm() {
153
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3698 # $1=grp-rowid $2...=user-rowid
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3699 grid=$1
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
3700 grp=`getgroupbyid "$1"`
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
3701 if [ -z "$grp" ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3702 echo "無効なグループIDです" | html p; return
33
54dba4c5e61d Use group-id, not gname
HIROSE Yuuji <yuuji@gentei.org>
parents: 31
diff changeset
3703 fi
436
e1bdad674c09 Quote arguments that hold group name.
HIROSE Yuuji <yuuji@gentei.org>
parents: 435
diff changeset
3704 if ! isgrpowner "$user" "$grp"; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3705 echo "$grp グループの管理者しかこの操作はできません。" | html p; return
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3706 fi
153
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3707 shift
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3708 for urid; do
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3709 newadm=`query "select name from user where rowid=$urid;"`
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3710 if [ -z "$newadm" ]; then
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3711 echo "指定ユーザIDがおかしいようです。" | html p; return
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3712 fi
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
3713 err GRP_reg_adm: "replace into grp_adm values(`sqlquote \"$grp\"`, '$newadm');"
153
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3714 err ismember $newadm $grp
434
cf20459261cb Quote $grp
HIROSE Yuuji <yuuji@gentei.org>
parents: 433
diff changeset
3715 if ismember $newadm "$grp"; then
153
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3716 # OK, go ahead
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3717 getgname="(select gname from grp where rowid=$grid)"
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3718 query "replace into grp_adm values($getgname, '$newadm');"
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3719 # confirm insertion
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3720 sql="select * from grp_adm where gname=$getgname and user='$newadm'"
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3721 if [ -n "`query \"$sql;\"`" ]; then
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3722 echo "追加完了: $newadm" | html p
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3723 else
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3724 echo "追加失敗($1 $urid)" | html p
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3725 fi
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3726 fi
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3727 showgroup $grid
f7b4f7e5df2a Commission of grp_adm pulled back into grpaction()
HIROSE Yuuji <yuuji@gentei.org>
parents: 151
diff changeset
3728 done
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3729 }
889
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3730 dt_colhack() {
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3731 # FROM: <TD>xxx:yyy</TD>
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3732 # TO: <TD class="xxx">yyy</TD>
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3733 sed -Ee 's,<TD>([^:<"]+):([^<]*)(</TD>|$),<TD class="\1">\2\3,g'
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3734 }
397
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3735 dt_rowhack() {
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3736 # From: <TR>
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3737 # ....
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3738 # <TD>rowclass=foo</TD>
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3739 # </TR>
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3740 # To: <TR class="foo">....<TD>foo</TD></TR>
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3741 sed -e '
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3742 /^<TR>/ {
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3743 :loop
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3744 s/\n//
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3745 N
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3746 /<\/TR>/ {
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3747 s/\n//
889
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3748 s,^<TR>\(.*\)<TD\([^>]*\)>rowclass=\(.*\)\(</TD></TR>\),<TR class="\3">\1<TD\2>\3\4,
397
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3749 n
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3750 }
400
0a5fdb619325 $p produces duplicated final line on gsed(fixed)
HIROSE Yuuji <yuuji@gentei.org>
parents: 398
diff changeset
3751 $q
397
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3752 b loop
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3753 }'
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3754 }
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3755 dumptable() {
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
3756 # $1=mode $2=Table $3=column-list-of-*_s(defaults to *) $4=conditions(if any)
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3757 # textのフィールドだけ全てダンプにしたほうがいいか
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3758 # $DT_VIEW sets link
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3759 # 6/17の次: editリンクじゃなくてスレッドVIEWリンクでいいんちゃう?
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3760 ### elink="<a href=\"$myname?edittable+$2+\\2\">EDIT</a>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3761 VIEW=${DT_VIEW-replyblog}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3762 if [ -n "$VIEW" ]; then
362
955cd7b517d3 Anchor of link-to-bottom expands from `W' to `EW'
HIROSE Yuuji <yuuji@gentei.org>
parents: 361
diff changeset
3763 dvlink=" <a href=\"$myname?$VIEW+\\2\\3\">VI</a><a href=\"$myname?$VIEW+\\2#bottom\">EW</a>"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3764 fi
565
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3765 sqlfile=$tmpd/dump.sql
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3766 : > $sqlfile # ensure to be empty
568
3cb5c360e1bf Try to speed up user-home summary construction.
HIROSE Yuuji <yuuji@gentei.org>
parents: 567
diff changeset
3767 printf '.mode html\n.header 1\n' > $sqlfile
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3768 # $DT_CHLD=ChildTable:BindColumn
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3769 if [ -n "$DT_CHLD" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3770 _t=${DT_CHLD%:*} _i=${DT_CHLD#*:}
565
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3771 cat<<-EOF >> $sqlfile
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3772 -- presql
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3773 CREATE TEMPORARY TABLE IF NOT EXISTS myacclog AS
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3774 SELECT * FROM acclog WHERE user='$user' and tbl='$2';
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3775 EOF
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3776 # Speed up counting of new articles
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3777 cat<<-EOF >> $sqlfile
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3778 -- presql2
568
3cb5c360e1bf Try to speed up user-home summary construction.
HIROSE Yuuji <yuuji@gentei.org>
parents: 567
diff changeset
3779 DROP TABLE IF EXISTS _counts;
565
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3780 CREATE TEMPORARY TABLE _counts AS
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3781 SELECT $_i, count($_i) cnt
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3782 FROM $_t GROUP BY $_i;
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3783 /* Prepare NEW count table */
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3784 CREATE TEMPORARY TABLE _target AS
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3785 SELECT b.rowid trowid, b.id
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3786 FROM "$2" b JOIN "$2_s" s
566
2d1d651aa1f2 $DT_SQL handling fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 565
diff changeset
3787 ON b.id=s.id AND s.key='owner'
2d1d651aa1f2 $DT_SQL handling fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 565
diff changeset
3788 ${DT_QOWNER:+ AND s.val=$DT_QOWNER};
565
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3789
568
3cb5c360e1bf Try to speed up user-home summary construction.
HIROSE Yuuji <yuuji@gentei.org>
parents: 567
diff changeset
3790 DROP TABLE IF EXISTS _children;
565
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3791 CREATE TEMPORARY TABLE _children AS
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3792 SELECT a.trowid trowid, $_i, a.id, s.val ctime
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3793 FROM (SELECT t.trowid, t.id $_i, a.id
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3794 FROM _target t LEFT JOIN "$_t" a ON t.id=a.$_i) a
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3795 LEFT JOIN ${_t}_s s ON a.id=s.id AND s.key='ctime';
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3796
568
3cb5c360e1bf Try to speed up user-home summary construction.
HIROSE Yuuji <yuuji@gentei.org>
parents: 567
diff changeset
3797 DROP TABLE IF EXISTS _news;
569
81b5ec847687 Turn off debug sql logging
HIROSE Yuuji <yuuji@gentei.org>
parents: 568
diff changeset
3798 DROP VIEW IF EXISTS _news;
568
3cb5c360e1bf Try to speed up user-home summary construction.
HIROSE Yuuji <yuuji@gentei.org>
parents: 567
diff changeset
3799
3cb5c360e1bf Try to speed up user-home summary construction.
HIROSE Yuuji <yuuji@gentei.org>
parents: 567
diff changeset
3800 -- CREATE TEMPORARY TABLE _news($_i, newcnt);
569
81b5ec847687 Turn off debug sql logging
HIROSE Yuuji <yuuji@gentei.org>
parents: 568
diff changeset
3801 -- INSERT INTO _news
568
3cb5c360e1bf Try to speed up user-home summary construction.
HIROSE Yuuji <yuuji@gentei.org>
parents: 567
diff changeset
3802 /* **COMPARE** the efficiency of TEMP-TABLE and VIEW !!! */
569
81b5ec847687 Turn off debug sql logging
HIROSE Yuuji <yuuji@gentei.org>
parents: 568
diff changeset
3803 CREATE TEMPORARY VIEW _news AS
81b5ec847687 Turn off debug sql logging
HIROSE Yuuji <yuuji@gentei.org>
parents: 568
diff changeset
3804 SELECT a.id $_i, coalesce(newcnt, 0) newcnt
565
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3805 FROM (SELECT DISTINCT id FROM _target)
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3806 a LEFT JOIN
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3807 (SELECT $_i, count(ctime) newcnt
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3808 FROM _children x
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3809 WHERE ctime > coalesce((SELECT time from myacclog
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3810 WHERE tblrowid=x.trowid),
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3811 '1970-01-01')
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3812 GROUP BY $_i) b
569
81b5ec847687 Turn off debug sql logging
HIROSE Yuuji <yuuji@gentei.org>
parents: 568
diff changeset
3813 ON a.id=b.$_i;
565
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3814 EOF
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3815 # REMOVE next line until 2019/5/1
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3816 cntall="(select count($_i) from $_t where $_i=a.id)"
565
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3817 cntall="(coalesce((select cnt from _counts where $_i=a.id), 0))"
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3818 # REMOVE next assignment until 2019/5/1
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3819 cntnew="(select count(val) from ${_t}_s where key='ctime' \
281
dd8629e6d67e Ugly workaround to speed up count-new
HIROSE Yuuji <yuuji@gentei.org>
parents: 280
diff changeset
3820 and id in (select id from $_t where $_i=a.id) \
dd8629e6d67e Ugly workaround to speed up count-new
HIROSE Yuuji <yuuji@gentei.org>
parents: 280
diff changeset
3821 and val > coalesce((select time from myacclog where \
dd8629e6d67e Ugly workaround to speed up count-new
HIROSE Yuuji <yuuji@gentei.org>
parents: 280
diff changeset
3822 tblrowid=a.rowid),\
dd8629e6d67e Ugly workaround to speed up count-new
HIROSE Yuuji <yuuji@gentei.org>
parents: 280
diff changeset
3823 '1970-01-01'))"
565
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3824 cntnew="(SELECT newcnt FROM _news where $_i=a.id)"
60
9f4e85181d40 Add new articles digest
HIROSE Yuuji <yuuji@gentei.org>
parents: 59
diff changeset
3825 cnt="$cntnew as '新着', $cntall as '総数',"
252
75dfaceac01f Link to newest article of the blog in the recent writing place
HIROSE Yuuji <yuuji@gentei.org>
parents: 251
diff changeset
3826 dt_class=" td2r td3r dumpblogs"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3827 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3828 # Construct join expression
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3829 eav="" scols=""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3830 pk=`gettblpkey $2`
397
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3831 substr=${dumpcollen:+"substr(%s, 0, $dumpcollen)"}
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3832 substr=${substr:-%s}
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3833 for col in ${3:-`gettbl_s_cols $2`}; do
397
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3834 valvar=val
889
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3835 fromtbl=b
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3836 if gettblcols "$2" | grep -w "$col" >/dev/null 2>&1; then
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3837 # If $col belongs to master table
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3838 fromtbl=a; col=${col#a.}
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3839 fi
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
3840 case $col in
60
9f4e85181d40 Add new articles digest
HIROSE Yuuji <yuuji@gentei.org>
parents: 59
diff changeset
3841 gecos) scols="$scols${scols:+, }${col#}"
9f4e85181d40 Add new articles digest
HIROSE Yuuji <yuuji@gentei.org>
parents: 59
diff changeset
3842 continue ;; # built-in column name
397
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3843 *:*) as=${col#*:} # as can be 稼動状態:frozen=凍結中
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3844 col=${col%%:*} # stage:稼動状態:frozen=凍結中 -> stage
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3845 case "$as" in
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3846 *:*=*) cnd=${as#*:}
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3847 h=${cnd%%=*} v=${cnd#*=}
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3848 h=`sqlquotestr "$h"`
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3849 v=`sqlquotestr "$v"`
889
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3850 if [ x"$fromtbl" = x"b" ]; then
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3851 valvar="CASE val WHEN $h THEN $v END"
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3852 else
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3853 valvar="$h"
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3854 fi
397
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3855 as=${as%%:*} ;;
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3856 esac
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3857 ;;
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
3858 *) as=${col} ;;
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
3859 esac
397
e9e8b4d40220 Add feature of `frozen state' of the blog board
HIROSE Yuuji <yuuji@gentei.org>
parents: 396
diff changeset
3860 ss=`printf "$substr" "$valvar"`
889
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3861 if [ x"$fromtbl" = x"b" ]; then
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3862 eav=$eav${eav:+,}" \"$as:\"||coalesce(max(case key when '$col' then $ss end), '') as $as"
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3863 else
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3864 eav=$eav${eav:+,}" \"$as:\"||$ss as $as"
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3865 fi
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3866 scols="$scols${scols:+, }${fromtbl}.$as"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3867 done
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3868 #case author when '$user' then a.rowid else '---' end as ID,
566
2d1d651aa1f2 $DT_SQL handling fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 565
diff changeset
3869 if [ -n "$DT_SQL" ]; then
565
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3870 echo "$DT_SQL"
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3871 else
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3872 cat<<-EOF
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3873 SELECT a.rowid as LINK, $cnt $scols
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3874 FROM $2 a LEFT JOIN
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3875 (SELECT $pk,$eav,
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3876 max(CASE key
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3877 WHEN 'owner'
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3878 THEN (SELECT gecos FROM gecoses WHERE name=val) END)
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3879 as gecos
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3880 FROM ${2}_s c GROUP BY $pk)
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3881 b ON a.$pk=b.$pk $4;
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3882 EOF
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3883 fi >> $sqlfile
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3884 ## err dt:SQL="`echo \"$presql$presql2$sql\"|tr -d '\n'`"
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3885 sqlog<<-EOF
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3886 *** SQL-file: $sqlfile ***
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3887 `cat $sqlfile`
b87e1cbf3491 Make it faster to count all/new articles in group home.
HIROSE Yuuji <yuuji@gentei.org>
parents: 562
diff changeset
3888 EOF
568
3cb5c360e1bf Try to speed up user-home summary construction.
HIROSE Yuuji <yuuji@gentei.org>
parents: 567
diff changeset
3889 printf '.mode list\n.header 0\n' >> $sqlfile
889
5843755e3b30 The beginning of AJAX operations
HIROSE Yuuji <yuuji@gentei.org>
parents: 888
diff changeset
3890 cat<<EOF | sed "s,\(<TR><TD>\)\([1-9][0-9]*\)\(#[0-9a-fxs]*\)*</TD>,\1$elink$dvlink</TD>," | dt_colhack | dt_rowhack
200
ffc676bd8277 Protect div.dumptable from div.fold
HIROSE Yuuji <yuuji@gentei.org>
parents: 196
diff changeset
3891 <div> <!-- for folding by check button (s4-funcs.sh:dumptable()) -->
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3892 <div class="dumptable">
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3893 <table class="b$dt_class">
568
3cb5c360e1bf Try to speed up user-home summary construction.
HIROSE Yuuji <yuuji@gentei.org>
parents: 567
diff changeset
3894 `query ".read $sqlfile"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3895 </table>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3896 </div> <!-- dumptable -->
200
ffc676bd8277 Protect div.dumptable from div.fold
HIROSE Yuuji <yuuji@gentei.org>
parents: 196
diff changeset
3897 </div> <!-- for folding by check button (s4-funcs.sh:dumptable()) -->
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3898 EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3899 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3900
758
369602864de8 Clean-up code to remove orphaned blogs and articles
HIROSE Yuuji <yuuji@gentei.org>
parents: 757
diff changeset
3901 clean-orphaned() {
369602864de8 Clean-up code to remove orphaned blogs and articles
HIROSE Yuuji <yuuji@gentei.org>
parents: 757
diff changeset
3902 # This shoud be done by foreign_key rules, but some db lack them
369602864de8 Clean-up code to remove orphaned blogs and articles
HIROSE Yuuji <yuuji@gentei.org>
parents: 757
diff changeset
3903 query<<-EOF
369602864de8 Clean-up code to remove orphaned blogs and articles
HIROSE Yuuji <yuuji@gentei.org>
parents: 757
diff changeset
3904 -- Find blogs that have no parent
791
567980314463 World and Migration structures refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 789
diff changeset
3905 WITH orphanedblog AS (
567980314463 World and Migration structures refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 789
diff changeset
3906 SELECT blog.id,val FROM blog JOIN blog_s bs
567980314463 World and Migration structures refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 789
diff changeset
3907 ON blog.id=bs.id AND key='owner'
567980314463 World and Migration structures refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 789
diff changeset
3908 WHERE val NOT IN (SELECT gname FROM grp)
812
31df689bad63 Oops, WITH clause error.
HIROSE Yuuji <yuuji@gentei.org>
parents: 810
diff changeset
3909 AND val NOT IN (SELECT name FROM user)
791
567980314463 World and Migration structures refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 789
diff changeset
3910 ) -- Remove them
758
369602864de8 Clean-up code to remove orphaned blogs and articles
HIROSE Yuuji <yuuji@gentei.org>
parents: 757
diff changeset
3911 DELETE FROM blog WHERE id IN (SELECT id FROM orphanedblog);
369602864de8 Clean-up code to remove orphaned blogs and articles
HIROSE Yuuji <yuuji@gentei.org>
parents: 757
diff changeset
3912
369602864de8 Clean-up code to remove orphaned blogs and articles
HIROSE Yuuji <yuuji@gentei.org>
parents: 757
diff changeset
3913 -- Find articles that have no parent blog
791
567980314463 World and Migration structures refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 789
diff changeset
3914 WITH orphanedarticle AS (
567980314463 World and Migration structures refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 789
diff changeset
3915 SELECT id FROM article
812
31df689bad63 Oops, WITH clause error.
HIROSE Yuuji <yuuji@gentei.org>
parents: 810
diff changeset
3916 WHERE blogid NOT IN (SELECT id FROM blog)
791
567980314463 World and Migration structures refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 789
diff changeset
3917 ) -- Remove them
758
369602864de8 Clean-up code to remove orphaned blogs and articles
HIROSE Yuuji <yuuji@gentei.org>
parents: 757
diff changeset
3918 DELETE FROM article WHERE id IN (SELECT id FROM orphanedarticle);
369602864de8 Clean-up code to remove orphaned blogs and articles
HIROSE Yuuji <yuuji@gentei.org>
parents: 757
diff changeset
3919 EOF
369602864de8 Clean-up code to remove orphaned blogs and articles
HIROSE Yuuji <yuuji@gentei.org>
parents: 757
diff changeset
3920 }
837
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
3921
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
3922 clearcachedir() (
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
3923 td=`getcachedir "$1"`
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
3924 err td=$td: ls- `ls $td`
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
3925 if [ -w "$td/image.1" ]; then
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
3926 err Removing td=$td
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
3927 rm -fr $td/ # Clear icon-image cache!
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
3928 fi
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
3929 )
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
3930
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3931 par2table() (
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3932 # copy current parameters of par into destination table
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3933 # $1=definition-file
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3934 # Using $user and $session
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3935 # Return value:
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3936 # 0: Stored successfully
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3937 # 1: Insufficient fillings
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3938 # 2: No permission to modify the record
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3939 # 3: Invalid rowid
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3940 # 4: SUCCESS to delete
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3941 # 5: Stop deletion for lack of confirm check
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3942 # 6: Password length too short
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3943 # 7: Password mismatch
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3944 # 8: Old password incorrect
730
2c0c25fc9f68 Workaround for reposting from resuming browsers
HIROSE Yuuji <yuuji@gentei.org>
parents: 726
diff changeset
3945 # 9: Duplicated post
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3946 rowid=`getpar rowid`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3947 if [ ! -e $1 ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3948 echo "テーブル定義ファイルが見付かりません" | html p
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3949 exit 1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3950 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3951 tbl=${1%.def}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3952 tbl=${tbl##*/}
2
7aa52f9874ae .hgignore added
HIROSE Yuuji <yuuji@gentei.org>
parents: 1
diff changeset
3953 if [ -n "$rowid" ]; then # Modify existing entry
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3954 if [ x"$tbl" = x"user" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3955 rowowner=`query "select name from $tbl where rowid=$rowid;"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3956 elif [ x"$tbl" = x"grp" ]; then
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
3957 sql="select gname from $tbl where rowid=$rowid;"
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
3958 ##err p2t:grp:q $sql
436
e1bdad674c09 Quote arguments that hold group name.
HIROSE Yuuji <yuuji@gentei.org>
parents: 435
diff changeset
3959 isgrpowner "$user" "`query $sql`" && rowowner=$user
585
dfa90fbc05bd Group admin can edit any blog attributes.
HIROSE Yuuji <yuuji@gentei.org>
parents: 581
diff changeset
3960 elif [ x"$tbl" = x"blog" ]; then
dfa90fbc05bd Group admin can edit any blog attributes.
HIROSE Yuuji <yuuji@gentei.org>
parents: 581
diff changeset
3961 # Check if owner in blog_s
dfa90fbc05bd Group admin can edit any blog attributes.
HIROSE Yuuji <yuuji@gentei.org>
parents: 581
diff changeset
3962 blogowner=`getvalbyid blog owner "$rowid"`
dfa90fbc05bd Group admin can edit any blog attributes.
HIROSE Yuuji <yuuji@gentei.org>
parents: 581
diff changeset
3963 if isgrpowner "$user" "$blogowner"; then
dfa90fbc05bd Group admin can edit any blog attributes.
HIROSE Yuuji <yuuji@gentei.org>
parents: 581
diff changeset
3964 rowowner=$user
dfa90fbc05bd Group admin can edit any blog attributes.
HIROSE Yuuji <yuuji@gentei.org>
parents: 581
diff changeset
3965 else
dfa90fbc05bd Group admin can edit any blog attributes.
HIROSE Yuuji <yuuji@gentei.org>
parents: 581
diff changeset
3966 rowowner=`query "SELECT author FROM $tbl WHERE rowid=$rowid;"`
dfa90fbc05bd Group admin can edit any blog attributes.
HIROSE Yuuji <yuuji@gentei.org>
parents: 581
diff changeset
3967 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3968 else
394
f095e97066c5 Remove "SELECT owner"
HIROSE Yuuji <yuuji@gentei.org>
parents: 393
diff changeset
3969 # 2016-12-05 There's no owner column in $tbl (need confirmation)
f095e97066c5 Remove "SELECT owner"
HIROSE Yuuji <yuuji@gentei.org>
parents: 393
diff changeset
3970 rowowner=`query "SELECT author FROM $tbl WHERE rowid=$rowid;"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3971 fi
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
3972 ### err rowowner=$rowowner
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3973 if [ x"$user" != x"$rowowner" ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3974 echo "他人のレコードはいじれないの" | html p
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3975 return 2
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3976 elif [ -z "$rowowner" ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3977 echo "指定したレコードはないみたい" | html p
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3978 return 3
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3979 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3980 rm=`getpar rm` cfm=`getpar confirm`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3981 # Editing existent entry
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3982 if [ x"$rm" = x"yes" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3983 if [ x"$rm$cfm" = x"yesyes" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3984 query "delete from $tbl where rowid=$rowid;"
837
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
3985 clearcachedir "$tbl/$rowid"
758
369602864de8 Clean-up code to remove orphaned blogs and articles
HIROSE Yuuji <yuuji@gentei.org>
parents: 757
diff changeset
3986 if [ x"$tbl" = x"grp" -o x"$tbl" = x"blog" ]; then
369602864de8 Clean-up code to remove orphaned blogs and articles
HIROSE Yuuji <yuuji@gentei.org>
parents: 757
diff changeset
3987 clean-orphaned
369602864de8 Clean-up code to remove orphaned blogs and articles
HIROSE Yuuji <yuuji@gentei.org>
parents: 757
diff changeset
3988 fi
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3989 return 4
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3990 else
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
3991 echo "消去確認のチェックがないので消さなかったの..." | html p
80
39e69daa2071 New feature "lsmyfile" added
HIROSE Yuuji <yuuji@gentei.org>
parents: 79
diff changeset
3992 return 5
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3993 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3994 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
3995 fi
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3996
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3997 ts=${tbl}_s tm=${tbl}_m val="" pval="" formaster=""
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3998 if [ -n "$rowid" ]; then
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
3999 # Update of existing record
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4000 for col in `gettblcols $tbl`; do
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4001 val=`getparquote $col`
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4002 [ -z "$val" ] && continue
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4003 ## err query "update $tbl set $col=$val where rowid=$rowid"
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4004 ## XX: THIS IS DIRTY hack to ensure non-foreign key in blog_s
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4005 sql="update $tbl set $col=$val where rowid=$rowid;"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4006 if [ x"$tbl" = x"grp" -a x"$col" = x"gname" \
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4007 -o x"tbl" = x"user" -a x"$col" = x"name" ]; then
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4008 ## User name cannot be changed with interface provided with this
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4009 ## script. But we offer the trigger to change owner user
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4010 ## of blog_s table.
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4011 #err "select quote($col) from $tbl where rowid=$rowid;"
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4012 old=`query "select quote($col) from $tbl where rowid=$rowid;"`
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4013 cat<<-EOF | query
382
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
4014 -- Here we cannot use BEGIN-COMMIT because groupupdate()
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
4015 -- should use EXCLUSIVE transaction outside of this.
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
4016 SAVEPOINT par2table;
180
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
4017 $sql
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
4018 update blog_s set val=$val
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
4019 where key='owner' and val=$old;
382
7b1c44bf12e8 Add feature of cloning a group
HIROSE Yuuji <yuuji@gentei.org>
parents: 378
diff changeset
4020 RELEASE SAVEPOINT par2table;
180
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
4021 EOF
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4022 ## XX: DIRTY Hack Ends here
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4023 ## We should keep blog's owner as a single column which has
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4024 ## foreign key constraint with primary key of grp/user.
635
ae37fefb7a2b Adjust indentations
HIROSE Yuuji <yuuji@gentei.org>
parents: 630
diff changeset
4025 else
180
59bd085848ec Group name change affects to blog owner
HIROSE Yuuji <yuuji@gentei.org>
parents: 179
diff changeset
4026 query "$sql"
635
ae37fefb7a2b Adjust indentations
HIROSE Yuuji <yuuji@gentei.org>
parents: 630
diff changeset
4027 fi
ae37fefb7a2b Adjust indentations
HIROSE Yuuji <yuuji@gentei.org>
parents: 630
diff changeset
4028 done
ae37fefb7a2b Adjust indentations
HIROSE Yuuji <yuuji@gentei.org>
parents: 630
diff changeset
4029 # Then, set up $pval for further insertion of tbl_s and tbl_m
ae37fefb7a2b Adjust indentations
HIROSE Yuuji <yuuji@gentei.org>
parents: 630
diff changeset
4030 for col in `gettblpkey $tbl`; do
ae37fefb7a2b Adjust indentations
HIROSE Yuuji <yuuji@gentei.org>
parents: 630
diff changeset
4031 val=`query "select $col from $tbl where rowid=$rowid;"|sed -e 's/\"/\"\"/g'`
ae37fefb7a2b Adjust indentations
HIROSE Yuuji <yuuji@gentei.org>
parents: 630
diff changeset
4032 pval="$pval${pval:+, }\"$val\""
ae37fefb7a2b Adjust indentations
HIROSE Yuuji <yuuji@gentei.org>
parents: 630
diff changeset
4033 done
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4034 else
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4035 # New entry
730
2c0c25fc9f68 Workaround for reposting from resuming browsers
HIROSE Yuuji <yuuji@gentei.org>
parents: 726
diff changeset
4036 # XXX: WORK-AROUND FOR SOME STUPID BROWSER
2c0c25fc9f68 Workaround for reposting from resuming browsers
HIROSE Yuuji <yuuji@gentei.org>
parents: 726
diff changeset
4037 # Avoid empty repost of article.
2c0c25fc9f68 Workaround for reposting from resuming browsers
HIROSE Yuuji <yuuji@gentei.org>
parents: 726
diff changeset
4038 if [ x"$tbl" = x"article" ]; then
2c0c25fc9f68 Workaround for reposting from resuming browsers
HIROSE Yuuji <yuuji@gentei.org>
parents: 726
diff changeset
4039 # If rowid is empty and ID exists in article-table, that is REPOST!
2c0c25fc9f68 Workaround for reposting from resuming browsers
HIROSE Yuuji <yuuji@gentei.org>
parents: 726
diff changeset
4040 aid=`getpar id`
2c0c25fc9f68 Workaround for reposting from resuming browsers
HIROSE Yuuji <yuuji@gentei.org>
parents: 726
diff changeset
4041 xaid=`query "SELECT id FROM $tbl WHERE id='$aid';"`
2c0c25fc9f68 Workaround for reposting from resuming browsers
HIROSE Yuuji <yuuji@gentei.org>
parents: 726
diff changeset
4042 if [ -n "$xaid" ]; then
2c0c25fc9f68 Workaround for reposting from resuming browsers
HIROSE Yuuji <yuuji@gentei.org>
parents: 726
diff changeset
4043 # REPOST of article
2c0c25fc9f68 Workaround for reposting from resuming browsers
HIROSE Yuuji <yuuji@gentei.org>
parents: 726
diff changeset
4044 html p <<-EOF
2c0c25fc9f68 Workaround for reposting from resuming browsers
HIROSE Yuuji <yuuji@gentei.org>
parents: 726
diff changeset
4045 書き込み直後のリロードなので上書きを回避します。
2c0c25fc9f68 Workaround for reposting from resuming browsers
HIROSE Yuuji <yuuji@gentei.org>
parents: 726
diff changeset
4046 最新記事は末尾の「再読み込み」ボタンから見てください。
2c0c25fc9f68 Workaround for reposting from resuming browsers
HIROSE Yuuji <yuuji@gentei.org>
parents: 726
diff changeset
4047 EOF
731
33df7d50532e Empty-repost workaround in EDIT mode added
HIROSE Yuuji <yuuji@gentei.org>
parents: 730
diff changeset
4048 err "Repost aid=$aid Browser=[$HTTP_USER_AGENT] user=$user"
730
2c0c25fc9f68 Workaround for reposting from resuming browsers
HIROSE Yuuji <yuuji@gentei.org>
parents: 726
diff changeset
4049 return 9 # STOP Duplicated posting
2c0c25fc9f68 Workaround for reposting from resuming browsers
HIROSE Yuuji <yuuji@gentei.org>
parents: 726
diff changeset
4050 fi
2c0c25fc9f68 Workaround for reposting from resuming browsers
HIROSE Yuuji <yuuji@gentei.org>
parents: 726
diff changeset
4051 fi
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4052 # Generate values() for primary keys
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4053 for col in `gettblpkey $tbl`; do
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4054 # Genuine primary keys for _m and _s
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4055 val=`getvalquote $tbl $col`
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4056 [ -z "$val" ] && continue
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4057 pval="$pval${pval:+, }$val"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4058 done
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4059 ##err pval=$pval
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4060 for col in `gettblfkey $tbl`; do
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4061 # args for values() to insertion into master table
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4062 val=`getvalquote $tbl $col`
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4063 [ -z "$val" ] && continue
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4064 formaster=$formaster"${formaster:+, }$val"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4065 done
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4066 formaster="$pval${formaster:+, }$formaster"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4067 ## err formaster=$formaster
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4068 if [ -z "$formaster" ]; then
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4069 echo "項目を全て埋めてください" | html pre
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4070 return 1
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4071 fi
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4072 ## err "replace into $tbl values($formaster);"
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4073 query "replace into $tbl values($formaster);"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4074 ## Insertion to master table, done
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4075 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4076
636
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4077 transaction=$tmpd/sqlfile.sql; touch $transaction
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4078 for kt in s m; do
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4079 tb2=${tbl}_$kt
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4080 for col in `gettbl_${kt}_cols $tbl`; do
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4081 ptype=`getpartype $col "limit 1"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4082
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4083 # First, check update of existing entries in _m
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4084 if [ $kt = m ]; then
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4085 # sessID|address.1.22|string|Somewhere-x.y.z
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4086 sql=""
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4087 ##err dots from query "select var from par where var like '$col.%';"
836
b3516ee2bb4d Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents: 833
diff changeset
4088 for v in `query "select var from par where var like '$col.%' AND sessid='$session';"`; do
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4089 # v=address.1.22
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4090 st_rowid=${v##*.}
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4091 origcol=${v%%.*} # original column derived from
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4092 ##err Updating for $v st_rowid=$st_rowid, partype=`getpartype $v`
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4093 ##case `getpartype $v` in
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4094 ## err CASE `gettbl_coltype $tbl/$origcol` in
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4095 ## err edit flag = `getpar action.$v`
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4096 case `getpar action.$v` in
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4097 rm)
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4098 if [ x`getpar confirm.$v` = x"yes" ]; then
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4099 newsql="delete from $tb2"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4100 else
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4101 echo "削除確認未チェック" | html p
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4102 fi ;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4103 edit)
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4104 case `gettbl_coltype $tbl/$origcol` in
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4105 image|document|binary)
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4106 file=$tmpd/`getparfilename $v`
731
33df7d50532e Empty-repost workaround in EDIT mode added
HIROSE Yuuji <yuuji@gentei.org>
parents: 730
diff changeset
4107 if [ ! -s "$file" ]; then # Maybe stupid REPOST
33df7d50532e Empty-repost workaround in EDIT mode added
HIROSE Yuuji <yuuji@gentei.org>
parents: 730
diff changeset
4108 err "Empty REPOST by [$HTTP_USER_AGENT] user=$user"
33df7d50532e Empty-repost workaround in EDIT mode added
HIROSE Yuuji <yuuji@gentei.org>
parents: 730
diff changeset
4109 continue
33df7d50532e Empty-repost workaround in EDIT mode added
HIROSE Yuuji <yuuji@gentei.org>
parents: 730
diff changeset
4110 fi
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4111 ## err type=file=$file
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4112 [ -z "$file" ] && continue
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
4113 bn=`sqlquotestr "${file##*/}"`
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
4114 bin="X'"$(hexize "$file")"'"
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
4115 ct=`file --mime-type - < "$file" |cut -d' ' -f2`
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4116 type=\"file:$ct\"
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
4117 newsql="update $tb2 set val=$bn, type=$type, bin=$bin"
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4118 cachedir=`getcachedir "$tbl/$rowid"`
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4119 err getcache tbl/rowid=$tbl/$rowid, rm -r $cachedir
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
4120 rm -rf $cachedir
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4121 ;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4122 *)
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4123 newsql="update $tb2 set val=(select val from par where var \
836
b3516ee2bb4d Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents: 833
diff changeset
4124 like '$col.%.$st_rowid' AND sessid='$session')"
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4125 ;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4126 esac
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4127 ;;
836
b3516ee2bb4d Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents: 833
diff changeset
4128 mv)
b3516ee2bb4d Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents: 833
diff changeset
4129 # regularize filename and strip directory part
b3516ee2bb4d Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents: 833
diff changeset
4130 newname=`getpar mv.$v|tr -d '":;#<>?^%$!'|tr -d "'"|tr ' ' _`
b3516ee2bb4d Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents: 833
diff changeset
4131 newname=`basename $newname`
837
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
4132 oldname=`query "SELECT val FROM $tb2 WHERE rowid=$st_rowid;"`
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
4133 oldext=`expr "$oldname" : '.*\.\(.*\)'`
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
4134 newext=`expr "$newname" : '.*\.\(.*\)'`
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
4135 err "p2t(mv): oldname=$oldname $oldext -> newname($v)=$newname $newext"
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
4136 if [ -n "$newname" -a x"$oldext" = x"$newext" ];
836
b3516ee2bb4d Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents: 833
diff changeset
4137 then
b3516ee2bb4d Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents: 833
diff changeset
4138 newsql="UPDATE $tb2 SET val='$newname'"
b3516ee2bb4d Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents: 833
diff changeset
4139 else
b3516ee2bb4d Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents: 833
diff changeset
4140 html p<<-EOF
b3516ee2bb4d Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents: 833
diff changeset
4141 $newname は取り扱えないファイル名です。
837
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
4142 空白を含まない名前にして下さい。
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
4143 拡張子の変更もできません。
836
b3516ee2bb4d Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents: 833
diff changeset
4144 EOF
b3516ee2bb4d Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents: 833
diff changeset
4145 continue
b3516ee2bb4d Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents: 833
diff changeset
4146 fi
b3516ee2bb4d Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents: 833
diff changeset
4147 ;;
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4148 *) # maybe "keep", do not modify value
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4149 continue
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4150 ;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4151 esac
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4152 # err newsql=$newsql
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4153 sql=$sql$nl"$newsql where rowid=$st_rowid;"
837
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
4154 clearcachedir "$tbl/$rowid"
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4155 done
124
9742dbee5cba Call large query with SQL script in par2table() - at edit
HIROSE Yuuji <yuuji@gentei.org>
parents: 123
diff changeset
4156
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4157 if [ x"$bin" = x"NULL" ]; then
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4158 ## err repl:normal sql=`echo $sql`
636
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4159 if [ -n "$transaction" ]; then
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4160 cat<<-EOF >> $transaction
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4161 $sql
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4162 DELETE FROM $tb2 WHERE type='string' AND val='';
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4163 EOF
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4164 else
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4165 query "$sql
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4166 delete from $tb2 where type='string' and val='';"
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4167 ## err repl:normal done
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4168 fi
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4169 else
636
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4170 # Binary update line is TOO LONG to pipelining
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4171 sqlfile="$tmpd/sqlf.$$"
636
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4172 if [ -n "$transaction" ]; then
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4173 echo "$sql" >> $transaction
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4174 else
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4175 echo "$sql" > $sqlfile
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4176 query ".read $sqlfile"
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4177 fi
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4178 fi
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4179 # Rest of kt==m: set multiple mode
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4180 nr=`getparcount $col`
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4181 else
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4182 nr=1 # for kt==s, number of records is 1
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4183 fi
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4184
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4185 i=0
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4186 while [ $i -lt $nr ]; do
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4187 limit="limit 1 offset $i"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4188 i=$((i+1)) # increase beforehand against continue
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4189 val=`getvalquote $tbl $col "$limit"`
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4190 [ -z "$val" -o x"$val" = x'""' -o x"$val" = x"NULL" ] && continue
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4191 ## err $col=$val
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4192 bin=NULL
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4193 ## err partype$col=`getpartype $col "$limit"`
837
a6462eea48be Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 836
diff changeset
4194 ptype=`getpartype $col "$limit"` # partype should be obtained each time
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4195 case $ptype in
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4196 file) file=$tmpd/`getparfilename $col "$limit"`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4197 ## err parfile-$col=$file
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4198 [ -z "$file" ] && continue
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
4199 bin="X'"$(hexize "$file")"'"
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
4200 ct=`file --mime-type - < "$file"|cut -d' ' -f2`
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4201 type=\"file:$ct\" ;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4202 "*"*) continue ;; # foreign table
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4203 *) type=\"string\" ;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4204 esac
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4205 case `gettbl_coltype $tbl/$col` in
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4206 password) # special care for password
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4207 # name={password,pswd1,pswd2}
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4208 p1=`getpar pswd1 "$limit"`
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4209 if [ -z "$p1" ]; then
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4210 continue # SKIP password setting, if p1 is empty
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4211 else
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4212 pswd=`getpar pswd "$limit"` p2=`getpar pswd2 "$limit"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4213 ## err pswd=$pswd
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4214 if pwcheck "$pswd"; then
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4215 if [ x"$p1" = x"$p2" ]; then
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4216 case "$p1" in
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4217 ??????????*) ;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4218 *) echo "パスワードは10字以上にしてください。" | html p
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4219 return 6;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4220 esac
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4221 val="\"`echo $p1|mypwhash`\""
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4222 else
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4223 echo "2つの新パスワード不一致" | html p
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4224 return 7
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4225 fi
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4226 else
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4227 echo "旧パスワード違います" | html p
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4228 return 8
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4229 fi
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4230 fi
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4231 ;;
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4232 esac
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4233 ## err p2t: "replace into $tb2 values($pval, \"$col\", $type, $val, bin...);"
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4234 #query "replace into $tb2 values($pval, \"$col\", $type, $val, $bin);"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4235 sql="replace into $tb2 values($pval, \"$col\", $type, $val, $bin);"
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4236 if [ x"$bin" = x"NULL" ]; then
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4237 ## err Normal-query: `echo $sql`
636
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4238 if [ -n "$transaction" ]; then
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4239 echo "$sql" >> $transaction
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4240 else
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4241 query "$sql"
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4242 fi
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4243 else
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4244 sqlfile="$tmpd/query.$$"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4245 ## err sqlfile=`ls -lF $sqlfile`
636
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4246 if [ -n "$transaction" ]; then
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4247 echo "$sql" >> $transaction
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4248 else
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4249 echo "$sql" > $sqlfile
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4250 query ".read $sqlfile"
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4251 fi
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4252 fi
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4253 ## err p2t done
285
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4254 done
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4255 done
e87d6bc1e62a Remove old function and unneccesary subshelling
HIROSE Yuuji <yuuji@gentei.org>
parents: 284
diff changeset
4256 done
636
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4257 [ -n "$transaction" -a -s "$transaction" ] && cat <<-EOF | query
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4258 -- We cannot use transaction here, because groupupdate may use it.
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4259 SAVEPOINT pa2table_insert;
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4260 .read $transaction
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4261 RELEASE SAVEPOINT pa2table_insert;
b73ef3fd0e19 Table update done in 1 .read outside of shell loop.
HIROSE Yuuji <yuuji@gentei.org>
parents: 635
diff changeset
4262 EOF
752
c22e71dc8d9b Base of annex feature added
HIROSE Yuuji <yuuji@gentei.org>
parents: 732
diff changeset
4263 rc=$?
887
8229c75e9f94 Ensure user_s update
HIROSE Yuuji <yuuji@gentei.org>
parents: 886
diff changeset
4264 [ $rc -eq 0 -a x"$tbl" = x"user" ] && flag_profupdate
752
c22e71dc8d9b Base of annex feature added
HIROSE Yuuji <yuuji@gentei.org>
parents: 732
diff changeset
4265 ## err "Table:$tbl update done "
c22e71dc8d9b Base of annex feature added
HIROSE Yuuji <yuuji@gentei.org>
parents: 732
diff changeset
4266 return $rc
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4267 )
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4268 genform() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4269 # $1 = form definition file
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4270 # $2, $3 (optional)= table name and ROWID
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4271 # If $GF_VIEWONLY set and nonNull, output values without form
219
e2dea2f63a69 Duplicate posting by reload avoided
HIROSE Yuuji <yuuji@gentei.org>
parents: 218
diff changeset
4272 # If $GF_ARGS set, use it as content-strings in the form
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4273 # If $GF_OWNER set, use it as value of name="owner"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4274 # If $GF_STAGE set, use it as value of name="stage"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4275 forms="" hiddens="" rowid=$3
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4276 if [ ! -e "$1" ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
4277 echo "そのようなデータベースはないようです($2)。" | html p
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4278 return
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4279 elif [ -n "$2" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4280 rec=`query "select * from $2 where rowid='$rowid';"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4281 if [ -z "$rec" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4282 pk=`gettblpkey $2`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4283 ###rec=`sq $db "select rowid from $2 where $pk='$rowid'"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4284 rec=`query "select rowid from $2 where $pk='$rowid';"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4285 rowid=$rec
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4286 rec=$3
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4287 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4288 if [ -z "$rec" ]; then
61
8b2cf4d9ba00 Use html()
HIROSE Yuuji <yuuji@gentei.org>
parents: 60
diff changeset
4289 echo "そんなレコードはないみたいね..." | html p
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4290 return
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4291 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4292 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4293 if [ -z "$GF_VIEWONLY" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4294 rm='<input id="rm" name="rm" type="checkbox"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4295 value="yes"><label for="rm">このエントリの削除</label>
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4296 <span>ほんとうに消しますよ(確認)!
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4297 <input name="confirm" type=checkbox value="yes">はい</span>'
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4298 fi
69
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
4299 # Image Cache dir
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4300 ## err genform: getcache=$2/$rowid
77
10bd684f07d2 Argument for getcache fixed
HIROSE Yuuji <yuuji@gentei.org>
parents: 76
diff changeset
4301 td=`getcachedir "$2/$rowid"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4302 while IFS=: read prompt name keytype type args; do
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4303 [ -z "${prompt%%\#*}" ] && continue # skip comment line(#)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4304 sp="${args:+ }"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4305 form="" val=""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4306 if [ -n "$rowid" ]; then
141
6da489b573ca Do not try to cat cached file when return val is null.
HIROSE Yuuji <yuuji@gentei.org>
parents: 137
diff changeset
4307 # err genform2a: Seeking for "$2.$name, type=$type"
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
4308 rawval=`getvalbyid $2 $name $rowid $td`
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
4309 val=`echo "$rawval"|htmlescape`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4310 ## err genform3a: getvalbyid $2 $name $rowid $td
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4311 ## err genform3b: val="[$val]" type="$type"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4312 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4313 if [ -n "$GF_VIEWONLY" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4314 is_hidden "$2" "$name" && continue
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4315 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4316 case "$type" in
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4317 text*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4318 cgiform=cgi_multi_$type
141
6da489b573ca Do not try to cat cached file when return val is null.
HIROSE Yuuji <yuuji@gentei.org>
parents: 137
diff changeset
4319 if [ -s $td/$name.count -a -n "$val" ]; then
69
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
4320 form=`$cgiform $name $td`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4321 val=$(echo "$val"|
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4322 while read fn; do
208
36b6354de5cb Profile form should escape entities. Apply ^href conversion to Profile
HIROSE Yuuji <yuuji@gentei.org>
parents: 207
diff changeset
4323 echo "<tr><td>`cat $td/$fn|htmlescape|hreflink`
36b6354de5cb Profile form should escape entities. Apply ^href conversion to Profile
HIROSE Yuuji <yuuji@gentei.org>
parents: 207
diff changeset
4324 </td></tr>$nl"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4325 done)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4326 val="<table>$nl$val$nl</table>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4327 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4328 #form="<input name=\"$name\" value=\"$val\" type=\"$type\"$sp$args>$nl"
361
34076e5a4018 Should not htmlescape at calling cgi_type*
HIROSE Yuuji <yuuji@gentei.org>
parents: 359
diff changeset
4329 form=`cgi_$type $name "$rawval" "$args"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4330 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4331 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4332 [Rr][Aa][Dd][Ii][Oo])
100
8dc950197939 "radio" and "checkbox"
HIROSE Yuuji <yuuji@gentei.org>
parents: 83
diff changeset
4333 fh="<label><input type=\"radio\" name=\"$name\""
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4334 form="`echo $args|sed -e \
100
8dc950197939 "radio" and "checkbox"
HIROSE Yuuji <yuuji@gentei.org>
parents: 83
diff changeset
4335 \"s,\([^ =][^=]*\)=\([^= ][^= ]*\),$fh value=\\"\2\\">\1</label>,g\"`"
8dc950197939 "radio" and "checkbox"
HIROSE Yuuji <yuuji@gentei.org>
parents: 83
diff changeset
4336 ;;
8dc950197939 "radio" and "checkbox"
HIROSE Yuuji <yuuji@gentei.org>
parents: 83
diff changeset
4337 [Cc][Hh][Ee][Cc][Kk][Bb][Oo][Xx])
101
4aefd0ddf88b name=... missing
HIROSE Yuuji <yuuji@gentei.org>
parents: 100
diff changeset
4338 form="<label><input type=\"checkbox\" name=\"$name\" value=\"${args#*=}\">${args%=*}</label>"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4339 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4340 [Ss][Ee][Ll][Ee][Cc][Tt])
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4341 fh="<select name=\"$name\">$nl"
112
cec40085a1d4 Seed for form of "select" now requires no values
HIROSE Yuuji <yuuji@gentei.org>
parents: 102
diff changeset
4342 form=$(for l in $args; do
cec40085a1d4 Seed for form of "select" now requires no values
HIROSE Yuuji <yuuji@gentei.org>
parents: 102
diff changeset
4343 echo "<option value=\"${l#*=}\">${l%=*}</option>"
cec40085a1d4 Seed for form of "select" now requires no values
HIROSE Yuuji <yuuji@gentei.org>
parents: 102
diff changeset
4344 done)
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4345 if [ -n "$val" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4346 form=`echo $form|sed -e "s,\(value=.$val.\),\\1 selected,"`
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4347 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4348 form="$fh$form</select>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4349 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4350 [Ii][Mm][Aa][Gg][Ee]|[Dd][Oo][Cc][Uu][Mm][Ee][Nn][Tt]|[Bb]inary)
69
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
4351 if [ -s $td/$name.count ]; then
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
4352 form=`cgi_multi_file $name $td "$args"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4353 if [ -n "$val" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4354 hrfb="$myname?showattc+$2_m"
322
18be0c210dc8 First implementation of icon display in blog_replies.
HIROSE Yuuji <yuuji@gentei.org>
parents: 319
diff changeset
4355 val=$(echo "$rawval" \
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4356 | while read fn; do
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
4357 data=`percenthex "$td/$fn"`
69
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
4358 #ct=`cat $td/$fn.content-type`
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
4359 ct=`file --mime-type - < "$td/$fn"|cut -d' ' -f2`
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
4360 ri=`cat "$td/$fn.rowid"`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4361 ## err fn=$fn, name=$name, ri=$ri; ls -lF "$td/" 1>&3
69
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
4362 #imgsrc="<img src=\"data:$ct,$data\">"
d10f98c2b192 form+dump
HIROSE Yuuji <yuuji@gentei.org>
parents: 68
diff changeset
4363 #echo "<a href=\"$hrfb+$ri\">$imgsrc</a><br>"
472
38bf8d300b12 For slower connection, it's better to use img-link over data:
HIROSE Yuuji <yuuji@gentei.org>
parents: 471
diff changeset
4364 iconhref2 "$td/$fn" "$hrfb+$ri" ""
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4365 done)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4366 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4367 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4368 form="<input type=\"file\" name=\"$name\" $args>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4369 if [ -n "$val" ]; then
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
4370 imgs=$(echo "$rawval"\
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4371 |while read fn;do
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
4372 data=`percenthex "$td/$fn"`
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4373 echo "<img src=\"data:image/png,$data\">$fn<br>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4374 done)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4375 form=$form"<br>$imgs"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4376 val=$imgs # 2015-06-15
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4377 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4378 form="<input type=\"file\" name=\"$name\" $args>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4379 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4380 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4381 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4382 [Hh][Ii][Dd][Dd][Ee][Nn])
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4383 if [ -n "$GF_STAGE" -a x"$name" = x"stage" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4384 args="value=\"$GF_STAGE\""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4385 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4386 form="<input type=\"hidden\" name=\"$name\" $args>"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4387 prompt='' # Remove prompt
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4388 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4389 [Aa][Uu][Tt][Hh][Oo][Rr])
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
4390 [ -n "$GF_VIEWONLY" ] && continue
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4391 form="<input type=\"hidden\" name=\"author\" value=\"$user\">"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4392 prompt="" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4393 [Oo][Ww][Nn][Ee][Rr])
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
4394 [ -n "$GF_VIEWONLY" ] && continue
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4395 val=${GF_OWNER:-$val}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4396 val=${val:-$user}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4397 form="<input type=\"hidden\" name=\"owner\" value=\"$val\">"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4398 prompt="" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4399 [Uu][Ss][Ee][Rr])
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4400 # XXX: is null $user ok?
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4401 #form="<input type=\"hidden\" name=\"user\" value=\"$user\">"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4402 [ -n "$GF_VIEWONLY" ] && continue
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4403 form="$user"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4404 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4405 [Pp]assword)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4406 [ -n "$GF_VIEWONLY" ] && continue
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4407 form="`cgi_passwd`"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4408 val=""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4409 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4410 [Ss][Ee][Rr][Ii][Aa][Ll]|[Ss][Tt][Aa][Mm][Pp])
391
554dc6669027 Icon cache'ing refined
HIROSE Yuuji <yuuji@gentei.org>
parents: 390
diff changeset
4411 [ -n "$GF_VIEWONLY" ] && continue
127
c17964aa7715 Do not reset serial number when rowid given
HIROSE Yuuji <yuuji@gentei.org>
parents: 124
diff changeset
4412 if [ -z "$rowid" ]; then
268
138da0f3a2e5 Duplicate post by reloading or back+submit, dissolved
HIROSE Yuuji <yuuji@gentei.org>
parents: 267
diff changeset
4413 val=`genserial`
127
c17964aa7715 Do not reset serial number when rowid given
HIROSE Yuuji <yuuji@gentei.org>
parents: 124
diff changeset
4414 fi
67
3b70f847277e Rearrangement
HIROSE Yuuji <yuuji@gentei.org>
parents: 65
diff changeset
4415 form="<input type=\"hidden\" name=\"$name\" value=\"$val\">"
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4416 prompt="" ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4417 [Ss][Ee][Ss][Ss][Ii][Oo][Nn])
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4418 prompt=""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4419 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4420 parent|path|blog*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4421 prompt=""
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4422 ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4423 "*"*)
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4424 tail=$tail"``"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4425 continue ;;
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4426 esac
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4427 if [ -n "$prompt" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4428 if [ -n "${GF_VIEWONLY}" ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4429 form=$val
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4430 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4431 :
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4432 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4433 forms=$forms" <tr class=\"$name\"><th>$prompt</th><td>$form</td></tr>$nl"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4434 else
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4435 hiddens=$hiddens$nl"$form"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4436 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4437 done < $1
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4438 # enctype="multipart/form-data"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4439 cat<<EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4440 <form action="${GF_ACTION:-$myname}" method="POST" enctype="multipart/form-data">
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4441 ${rowid:+$rm}
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4442 <table class="b $2">
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4443 $forms
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4444 </table>$hiddens
13
f2204bd941d5 periodic
HIROSE Yuuji <yuuji@gentei.org>
parents: 11
diff changeset
4445 ${GF_STAGE:+`cgi_hidden stage $GF_STAGE`}
8
3db7524d3dea Add default images
HIROSE Yuuji <yuuji@gentei.org>
parents: 6
diff changeset
4446 ${rowid:+<input type="hidden" name="rowid" value="$rowid">}
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4447 EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4448 if [ -z $GF_VIEWONLY ]; then
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4449 cat<<EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4450 <input type="submit" name="sub" value="OK">
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4451 <input type="reset" name="res" value="Reset">
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4452 EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4453 fi
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4454 cat<<EOF
219
e2dea2f63a69 Duplicate posting by reload avoided
HIROSE Yuuji <yuuji@gentei.org>
parents: 218
diff changeset
4455 $GF_ARGS</form>
0
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4456 $tail
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4457 EOF
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4458 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4459 edittable() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4460 # $1=form-def $2=table $3 rowid
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4461 genform "$@"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4462 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4463 viewtable() {
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4464 GF_VIEWONLY=1 genform "$@"
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff changeset
4465 }
68
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4466 showattc() {
350
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
4467 # $1=table_m $2=rowid &optional $3=RawFlag
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4468 ## err \$1=$1 \$2=$2 \$3=$3
68
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4469 if ! isfilereadable $user $1 $2; then
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4470 contenttype; echo
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4471 echo "このファイルは管理者のみしか見られません" | html p
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4472 putfooter; exit
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4473 fi
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4474 idir=`umask 002; mktempd` || exit 1
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4475 # tmpfiles=$tmpfiles"${tmpfiles+ }$idir"
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4476 bin=$idir/$myname-$$.bin
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4477 sql="select quote(bin) from $1 where rowid='$2';"
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4478 ## err showattc: sql: $sql
68
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4479 sq $db "$sql" | unhexize > $bin
326
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
4480 tv=`query "select type||'//'||val from $1 where rowid='$2';"`
d19e85a72a29 Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents: 322
diff changeset
4481 type=${tv%//*} fn=${tv#*//}
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4482 ## err tv=$tv type=$type fn=$fn, tp2=${tv%\|*}
68
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4483 ct=${type#file:}
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4484 case $ct in # all text/* changed to text/plain
896
920818b41cd2 Application/{csv,json} forcibly handled as text/plain
HIROSE Yuuji <yuuji@gentei.org>
parents: 895
diff changeset
4485 text/*|application/csv|application/json)
68
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4486 charset=`nkf -g $bin|cut -d' ' -f1`
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4487 case $charset in
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4488 ASCII*) charset="" ;;
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4489 esac
350
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
4490 if [ -z "$3" ]; then
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
4491 ct="text/html${charset:+; charset=$charset}"
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
4492 link="?showattc+$1+$2+raw"
395
3d82052c3cd3 Do htmlescape() for euc-jp string and restore to original charset
HIROSE Yuuji <yuuji@gentei.org>
parents: 394
diff changeset
4493 nkf -e $bin | htmlescape | nkf --oc="$charset" \
350
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
4494 | sed 's,^,<span></span>,' \
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
4495 | _m4 -D_TITLE_="$fn" -D_CONTENT_TYPE_="$ct" \
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
4496 -D_LINK_="$link" \
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
4497 -D_BODY_="syscmd(\`cat')" $layout/pretty.m4.txt
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
4498 exit $?
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
4499 fi
a6ff48595a4d Add link to raw format of text file
HIROSE Yuuji <yuuji@gentei.org>
parents: 347
diff changeset
4500 ct="text/plain${charset:+; charset=$charset}"
68
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4501 ;;
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4502 esac
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4503 contenttype "$ct"
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4504 echo "Content-Disposition: filename=\"$fn\""
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4505 echo "Content-Length: " `cat $bin | wc -c`; echo
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4506 #echo "Content-Type: " ${type#file:}; echo
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4507 cat $bin
7380bcf19078 Show attachment file size; Move showattc to s4-funcs.sh.
HIROSE Yuuji <yuuji@gentei.org>
parents: 67
diff changeset
4508 }
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4509 #
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4510 # Some default stupid handler on CGI values
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4511 #
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4512 default_storedb() {
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4513 # ARG: $1=table-def-file
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4514 # RET: $tbl=table-name, $col=mail-column, $cols=columns
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4515 tbl=`basename $1`
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4516 tbl=${tbl%.def}
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4517 cols="`grep :text $1|cut -d: -f2`"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4518 col=`echo "$cols"|head -1`
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4519 vcol=`getpar $col`
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4520 err default0: \$1=$1 col=$col cols="[$cols]" vcol=$vcol
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4521 if [ -n "$vcol" ]; then
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4522 par2table $1
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4523 else
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4524 return 2 # No insertion occurred
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4525 fi
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4526 }
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4527
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4528 default_view() { # $1=def-file
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4529 ### DT_VIEW="edittable+$tbl" dumptable html $tbl "$cols" \
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4530 ## DT_VIEW="edittable+$tbl" dumptable html $tbl "name memo file" \
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4531 default_storedb "$@"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4532 query "select rowid from $tbl order by rowid desc;" \
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4533 | while read rowid; do
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4534 viewtable $1 $tbl $rowid
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
4535 done | _m4 -D_TITLE_="$tbl" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
4536 -D_FORM_="`genform $1`" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
4537 -D_DUMPTABLE_="syscmd(cat)" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
4538 $layout/html.m4.html $layout/form+dump.m4.html
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4539 }
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4540 default_viewtext() { # $1=def-file
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4541 ### DT_VIEW="edittable+$tbl" dumptable html $tbl "$cols" \
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4542 default_storedb "$@"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4543 DT_VIEW="viewtable+$tbl" dumptable html $tbl "name memo file" \
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
4544 | _m4 -D_TITLE_="$tbl" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
4545 -D_FORM_="`genform $1`" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
4546 -D_DUMPTABLE_="syscmd(cat)" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
4547 $layout/html.m4.html $layout/form+dump.m4.html
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4548 }
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4549 default_smail() {
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4550 default_storedb "$@"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4551 if [ $? -eq 2 ]; then
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
4552 _m4 -D_TITLE_="入力" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
4553 -D_FORM_="`genform $1`" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
4554 -D_DUMPTABLE_="" \
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
4555 $layout/html.m4.html $layout/form+dump.m4.html
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4556 return
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4557 fi
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4558 cond=""
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4559 for pk in `gettblpkey $tbl`; do
431
703346e6e7de Group names should be quoted into one argument
HIROSE Yuuji <yuuji@gentei.org>
parents: 428
diff changeset
4560 pv=$(sqlquote "$(getpar $pk)")
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4561 cond="$cond${cond:+ and }$pk=$pv"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4562 done
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4563 sql="select rowid from $tbl where $cond;"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4564 rowid=`query "$sql"`
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4565 ## err smail1 - "$sql" "-> rowid=$rowid"
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4566
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4567 while IFS=: read prompt name keytype type args; do # Read from $1
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4568 val=`getpar $name`
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4569 if [ -n "$val" ]; then
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4570 text="$text
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4571 $prompt
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4572 $name=$val
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4573 ---------------------------------------------------------"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4574 fi
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4575 case "$type" in
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4576 image|document|file)
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4577 fn="`getvalbyid $tbl $name $rowid $tmpd`"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4578 fns=$(echo "$fn"|while read fn; do
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4579 err mv $tmpd/$fn.orig $tmpd/$fn
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4580 mv $tmpd/$fn.orig $tmpd/$fn
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4581 rm $tmpd/$fn.rowid # Remove cache flag
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4582 ## err "`ls $tmpd/$fn`"
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4583 echo $fn
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4584 done)
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4585 files="$files $fns"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4586 ;;
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4587 esac
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4588 done < $1
356
c087423c8234 Most of debugging code deactivated
HIROSE Yuuji <yuuji@gentei.org>
parents: 352
diff changeset
4589 ## err FILES=$files "`ls -lF $tmpd`"
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4590 subj="from ${REMOTE_ADDR}"
102
7cdaac365897 s/$URL/$url/
HIROSE Yuuji <yuuji@gentei.org>
parents: 101
diff changeset
4591 (echo "$url"
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4592 echo "への書き込みがありました。"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4593 echo "------"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4594 echo "$text"
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4595 ) | (cd $tmpd &&
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4596 err LS="`ls -lF`" &&
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4597 $mydir/sendmultipart.sh -t "$admin" -s "$subj" $files)
187
7dc0918ce321 Add PIPE to handled signals
HIROSE Yuuji <yuuji@gentei.org>
parents: 182
diff changeset
4598 _m4 -D_TITLE_="入力完了" $layout/html.m4.html
78
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4599 echo "以下の内容で送信しました。" | html p
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4600 viewtable $1 $tbl \
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4601 `query "select rowid from $tbl order by rowid desc limit 1;"`
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4602 echo "戻る" | html a "href=\"?\""
0cbbb0874eb5 Code cleaning
HIROSE Yuuji <yuuji@gentei.org>
parents: 77
diff changeset
4603 }

yatex.org