Mercurial > hgrepos > hgweb.cgi > s4
annotate s4-cgi.sh @ 994:f0a62a22e33c draft
FIX: Too long SQL including binary data put via heredocs.
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Sat, 15 Oct 2022 17:52:25 +0859 |
parents | 5d70fa029f8d |
children | 1ffaa8b2b1bf |
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 # |
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 # cgi functions |
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
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
|
4 cgi_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
|
5 # $1=stage |
606
00837fdf1120
Search form method changed to GET from POST
HIROSE Yuuji <yuuji@gentei.org>
parents:
326
diff
changeset
|
6 # $METHOD := method, defaults to "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
|
7 : ${myname:?'Sure to set $myname to this script 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
|
8 cont=`cat` |
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
9 cat<<EOF |
606
00837fdf1120
Search form method changed to GET from POST
HIROSE Yuuji <yuuji@gentei.org>
parents:
326
diff
changeset
|
10 <form action="$myname" method="${METHOD:-POST}" enctype="multipart/form-data"> |
0
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
11 $cont |
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
12 <input type="hidden" name="stage" value="$1"> |
702
2c5ddb0b5f4c
Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents:
675
diff
changeset
|
13 <input type="submit" value="送信" title="COMMIT"> |
2c5ddb0b5f4c
Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents:
675
diff
changeset
|
14 <input type="reset" value="リセット" title="Reset"> |
0
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
15 </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
|
16 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
|
17 } |
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
18 cgi_submit() { |
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
19 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
|
20 <input type="submit" value="$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
|
21 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
|
22 } |
29
f4048bfdc7f5
cgi_reset and cgi_checkbox added
HIROSE Yuuji <yuuji@gentei.org>
parents:
17
diff
changeset
|
23 cgi_reset() { |
f4048bfdc7f5
cgi_reset and cgi_checkbox added
HIROSE Yuuji <yuuji@gentei.org>
parents:
17
diff
changeset
|
24 cat<<EOF |
f4048bfdc7f5
cgi_reset and cgi_checkbox added
HIROSE Yuuji <yuuji@gentei.org>
parents:
17
diff
changeset
|
25 <input type="reset" value="$1"> |
f4048bfdc7f5
cgi_reset and cgi_checkbox added
HIROSE Yuuji <yuuji@gentei.org>
parents:
17
diff
changeset
|
26 EOF |
f4048bfdc7f5
cgi_reset and cgi_checkbox added
HIROSE Yuuji <yuuji@gentei.org>
parents:
17
diff
changeset
|
27 } |
0
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
28 cgi_radio() { |
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 echo "<input type=\"radio\" name=\"$1\" ${2:+value=\"$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
|
30 } |
29
f4048bfdc7f5
cgi_reset and cgi_checkbox added
HIROSE Yuuji <yuuji@gentei.org>
parents:
17
diff
changeset
|
31 cgi_checkbox() { |
f4048bfdc7f5
cgi_reset and cgi_checkbox added
HIROSE Yuuji <yuuji@gentei.org>
parents:
17
diff
changeset
|
32 echo "<input type=\"checkbox\" name=\"$1\" ${2:+value=\"$2\"} $3>" |
f4048bfdc7f5
cgi_reset and cgi_checkbox added
HIROSE Yuuji <yuuji@gentei.org>
parents:
17
diff
changeset
|
33 } |
0
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
34 cgi_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
|
35 echo "<input type=\"hidden\" name=\"$1\" value=\"$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
|
36 } |
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
37 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
|
38 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
|
39 <table class="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
|
40 <tr><td>現パスワード</td><td><input type="password" name="pswd"></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
|
41 <tr><td>新パスワード</td><td><input type="password" name="pswd1"></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
|
42 <tr><td>新パスワード(確認)</td><td><input type="password" name="pswd2"></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
|
43 </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
|
44 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
|
45 } |
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
46 cgi_text() { |
942 | 47 _v=`printf '%s' "$2"|htmlescape` |
326
d19e85a72a29
Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents:
222
diff
changeset
|
48 echo "<input type=\"text\" name=\"$1\" value=\"$_v\" $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
|
49 } |
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
50 cgi_textarea() { |
942 | 51 _v=`printf '%s' "$2"|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
|
52 cat<<EOF |
326
d19e85a72a29
Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents:
222
diff
changeset
|
53 <textarea name="$1" $3>$_v</textarea> |
0
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 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
|
55 } |
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
56 cgi_file() ( # In a subshell |
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
57 # $1=name $2=val(as filename) $3=args(if any) |
326
d19e85a72a29
Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents:
222
diff
changeset
|
58 ## err cgi_file: \$1=$1 \$2=$2 \$3="[$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
|
59 # Using global variable $dir |
837
a6462eea48be
Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents:
836
diff
changeset
|
60 case "$3" in |
a6462eea48be
Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents:
836
diff
changeset
|
61 *multiple*) |
a6462eea48be
Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents:
836
diff
changeset
|
62 onemore='<button type="button" id="morefile" title="More attachment file">添付追加</button>' |
a6462eea48be
Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents:
836
diff
changeset
|
63 multiple="$nl$onemore" |
a6462eea48be
Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents:
836
diff
changeset
|
64 ;; |
a6462eea48be
Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents:
836
diff
changeset
|
65 esac |
326
d19e85a72a29
Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents:
222
diff
changeset
|
66 if [ -n "$2" -a -s "$dir/$2" ]; 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
|
67 file=$dir/$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
|
68 bn=${file##*/} |
326
d19e85a72a29
Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents:
222
diff
changeset
|
69 ct=`file --mime-type - < "$dir/$2" | cut -d' ' -f2` |
d19e85a72a29
Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents:
222
diff
changeset
|
70 data=`percenthex "$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
|
71 icon="<img src=\"data:$ct,$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
|
72 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
|
73 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
|
74 ${icon} |
837
a6462eea48be
Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents:
836
diff
changeset
|
75 <input type="file" name="$1" value="$bn" $3>$multiple |
0
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
76 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
|
77 ) |
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
78 cgi_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
|
79 # $1=name $2=dir $3=func $4=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
|
80 # `dir' should contain $name.count and $name.N where N is 1 upto 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
|
81 i=1 name=$1 dir=$2 func=$3 |
942 | 82 argnomulti=`printf '%s' "$4"|sed 's/multiple//'` # No multiple for Replaced entries |
0
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
83 n=`cat $dir/$name.count` |
836
b3516ee2bb4d
Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents:
702
diff
changeset
|
84 case "$func" in |
b3516ee2bb4d
Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents:
702
diff
changeset
|
85 *file) addrename=yes ;; |
b3516ee2bb4d
Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents:
702
diff
changeset
|
86 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
|
87 echo '<table class="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
|
88 while [ $i -le $n ]; do |
326
d19e85a72a29
Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents:
222
diff
changeset
|
89 file=$name.$i |
d19e85a72a29
Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents:
222
diff
changeset
|
90 vname=$file.`cat "$dir/$file.rowid"` |
d19e85a72a29
Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents:
222
diff
changeset
|
91 val="`cat $dir/$file`" |
837
a6462eea48be
Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents:
836
diff
changeset
|
92 if [ -n "$addrename" ]; then |
a6462eea48be
Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents:
836
diff
changeset
|
93 # ${var:+..} cannot be used for inside-quotes incompatibility of shells |
a6462eea48be
Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents:
836
diff
changeset
|
94 ren1="<input class=\"action\" type=\"radio\" name=\"action.$vname\" |
a6462eea48be
Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents:
836
diff
changeset
|
95 id=\"mv.$vname\" value=\"mv\"><label for=\"mv.$vname\" |
a6462eea48be
Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents:
836
diff
changeset
|
96 title=\"Rename\">名前変更</label>" |
a6462eea48be
Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents:
836
diff
changeset
|
97 ren2="<input class=\"mv\" type=\"text\" name=\"mv.$vname\" value=\"$val\">" |
a6462eea48be
Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents:
836
diff
changeset
|
98 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
|
99 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
|
100 <tr><td>($i)</td><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
|
101 <input class="action" type="radio" name="action.$vname" id="keep.$vname" |
702
2c5ddb0b5f4c
Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents:
675
diff
changeset
|
102 value="keep"><label for="keep.$vname" title="Keep">温存</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
|
103 <input class="action" type="radio" name="action.$vname" id="edit.$vname" |
702
2c5ddb0b5f4c
Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents:
675
diff
changeset
|
104 value="edit"><label for="edit.$vname" title="Replace">修正</label> |
837
a6462eea48be
Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents:
836
diff
changeset
|
105 $ren1 |
0
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
106 <input class="action" type="radio" name="action.$vname" id="rm.$vname" |
702
2c5ddb0b5f4c
Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents:
675
diff
changeset
|
107 value="rm"><label for="rm.$vname" title="Remove">削除</label> |
2c5ddb0b5f4c
Add more shortcuts and baloon help messages
HIROSE Yuuji <yuuji@gentei.org>
parents:
675
diff
changeset
|
108 <label class="confirm" title="OK?">本当に消します<input class="confirm" type="checkbox" |
0
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
109 name="confirm.$vname" value="yes">はい</label><br> |
837
a6462eea48be
Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents:
836
diff
changeset
|
110 `$func $vname "$val" "$argnomulti"`<span>$val</span> |
a6462eea48be
Multiple files upload for tablets added and file renaming fixed
HIROSE Yuuji <yuuji@gentei.org>
parents:
836
diff
changeset
|
111 $ren2 |
0
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
112 </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
|
113 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
|
114 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
|
115 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
|
116 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
|
117 <tr><td>(新規)</td><td>`$func $name "" "$4"`</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
|
118 </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
|
119 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
|
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 # In these functions, $2 should be quoted because it can be 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
|
122 cgi_multi_text() { |
836
b3516ee2bb4d
Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents:
702
diff
changeset
|
123 cgi_multi $1 "$2" cgi_text "$3 class=\"edit\"" |
0
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
124 } |
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
125 cgi_multi_textarea() { |
836
b3516ee2bb4d
Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents:
702
diff
changeset
|
126 cgi_multi $1 "$2" cgi_textarea "$3 class=\"edit\"" |
0
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
127 } |
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
128 cgi_multi_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
|
129 # $1=name $2=val(filename) |
836
b3516ee2bb4d
Filename renaming added to article EDIT
HIROSE Yuuji <yuuji@gentei.org>
parents:
702
diff
changeset
|
130 cgi_multi $1 "$2" cgi_file "$3 class=\"edit\"" |
0
b8a890828283
add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb
HIROSE Yuuji <yuuji@gentei.org>
parents:
diff
changeset
|
131 } |
222
d320c73bf16f
Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents:
208
diff
changeset
|
132 cgi_datalist_h() { |
d320c73bf16f
Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents:
208
diff
changeset
|
133 # $1=id $2...=hexed-args |
d320c73bf16f
Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents:
208
diff
changeset
|
134 echo "<datalist id=\"$1\">" |
d320c73bf16f
Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents:
208
diff
changeset
|
135 shift |
d320c73bf16f
Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents:
208
diff
changeset
|
136 for i; do |
326
d19e85a72a29
Allow spaces and special characters in filenames(tentative).
HIROSE Yuuji <yuuji@gentei.org>
parents:
222
diff
changeset
|
137 echo "<option value=\"`echo "$i"|unhexize|htmlescape`\"></option>" |
222
d320c73bf16f
Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents:
208
diff
changeset
|
138 done |
d320c73bf16f
Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents:
208
diff
changeset
|
139 echo "</datalist>" |
d320c73bf16f
Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents:
208
diff
changeset
|
140 } |
d320c73bf16f
Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents:
208
diff
changeset
|
141 cgi_select_h() { |
d320c73bf16f
Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents:
208
diff
changeset
|
142 # $1=name $2...=hexed-args |
675
9c54908814be
Team selection in GrpAction anabled with js
HIROSE Yuuji <yuuji@gentei.org>
parents:
606
diff
changeset
|
143 echo "<select name=\"$1\"${CGI_SELECT_MULTI:+ multiple} id=\"$1\">" |
222
d320c73bf16f
Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents:
208
diff
changeset
|
144 shift |
d320c73bf16f
Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents:
208
diff
changeset
|
145 for i; do |
d320c73bf16f
Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents:
208
diff
changeset
|
146 echo "<option>`echo \"$i\"|unhexize|htmlescape`</option>" |
d320c73bf16f
Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents:
208
diff
changeset
|
147 done |
d320c73bf16f
Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents:
208
diff
changeset
|
148 echo "</select>" |
d320c73bf16f
Add "team" attributes in groups.
HIROSE Yuuji <yuuji@gentei.org>
parents:
208
diff
changeset
|
149 } |
59 | 150 |
151 html() { | |
152 echo "<$*>" | |
153 cat | |
154 echo "</$1>" | |
155 } |