s4: s4-cgi.sh annotate

annotate s4-cgi.sh @ 1013:1ffaa8b2b1bf draft

Modify blog comment form layout

author	HIROSE Yuuji <yuuji@gentei.org>
date	Tue, 11 Jul 2023 10:25:21 +0900
parents	5d70fa029f8d
children

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 5d70fa029f8d Support MathJax rendering HIROSE Yuuji <yuuji@gentei.org> parents: 837 diff changeset	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 5d70fa029f8d Support MathJax rendering HIROSE Yuuji <yuuji@gentei.org> parents: 837 diff changeset	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>'
1013 1ffaa8b2b1bf Modify blog comment form layout HIROSE Yuuji <yuuji@gentei.org> parents: 942 diff changeset	63 # multiple="$nl$onemore"
837 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
1013 1ffaa8b2b1bf Modify blog comment form layout HIROSE Yuuji <yuuji@gentei.org> parents: 942 diff changeset	74 <span class="fileinput">${icon}  <!-- keep line hight -->
1ffaa8b2b1bf Modify blog comment form layout HIROSE Yuuji <yuuji@gentei.org> parents: 942 diff changeset	75 <input type="file" name="$1" value="$bn" $3$multiple>
1ffaa8b2b1bf Modify blog comment form layout HIROSE Yuuji <yuuji@gentei.org> parents: 942 diff changeset	76 </span>$onemore
0 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 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	78 )
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 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	80 # $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	81 # `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	82 i=1 name=$1 dir=$2 func=$3
942 5d70fa029f8d Support MathJax rendering HIROSE Yuuji <yuuji@gentei.org> parents: 837 diff changeset	83 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	84 n=`cat $dir/$name.count`
836 b3516ee2bb4d Filename renaming added to article EDIT HIROSE Yuuji <yuuji@gentei.org> parents: 702 diff changeset	85 case "$func" in
b3516ee2bb4d Filename renaming added to article EDIT HIROSE Yuuji <yuuji@gentei.org> parents: 702 diff changeset	86 *file) addrename=yes ;;
b3516ee2bb4d Filename renaming added to article EDIT HIROSE Yuuji <yuuji@gentei.org> parents: 702 diff changeset	87 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	88 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	89 while [ $i -le $n ]; do
326 d19e85a72a29 Allow spaces and special characters in filenames(tentative). HIROSE Yuuji <yuuji@gentei.org> parents: 222 diff changeset	90 file=$name.$i
d19e85a72a29 Allow spaces and special characters in filenames(tentative). HIROSE Yuuji <yuuji@gentei.org> parents: 222 diff changeset	91 vname=$file.`cat "$dir/$file.rowid"`
d19e85a72a29 Allow spaces and special characters in filenames(tentative). HIROSE Yuuji <yuuji@gentei.org> parents: 222 diff changeset	92 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	93 if [ -n "$addrename" ]; then
a6462eea48be Multiple files upload for tablets added and file renaming fixed HIROSE Yuuji <yuuji@gentei.org> parents: 836 diff changeset	94 # ${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	95 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	96 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	97 title=\"Rename\">名前変更</label>"
a6462eea48be Multiple files upload for tablets added and file renaming fixed HIROSE Yuuji <yuuji@gentei.org> parents: 836 diff changeset	98 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	99 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	100 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	101 <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	102 <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	103 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	104 <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	105 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	106 $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	107 <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	108 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	109 <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	110 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	111 `$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	112 $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	113 </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	114 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	115 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	116 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	117 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	118 <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	119 </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	120 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	121 )
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 # 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	123 cgi_multi_text() {
836 b3516ee2bb4d Filename renaming added to article EDIT HIROSE Yuuji <yuuji@gentei.org> parents: 702 diff changeset	124 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	125 }
b8a890828283 add se-blog.sh se-cgi.sh se-funcs.sh se-init.sh mpsplit.rb HIROSE Yuuji <yuuji@gentei.org> parents: diff changeset	126 cgi_multi_textarea() {
836 b3516ee2bb4d Filename renaming added to article EDIT HIROSE Yuuji <yuuji@gentei.org> parents: 702 diff changeset	127 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	128 }
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 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	130 # $1=name $2=val(filename)
836 b3516ee2bb4d Filename renaming added to article EDIT HIROSE Yuuji <yuuji@gentei.org> parents: 702 diff changeset	131 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	132 }
222 d320c73bf16f Add "team" attributes in groups. HIROSE Yuuji <yuuji@gentei.org> parents: 208 diff changeset	133 cgi_datalist_h() {
d320c73bf16f Add "team" attributes in groups. HIROSE Yuuji <yuuji@gentei.org> parents: 208 diff changeset	134 # $1=id $2...=hexed-args
d320c73bf16f Add "team" attributes in groups. HIROSE Yuuji <yuuji@gentei.org> parents: 208 diff changeset	135 echo "<datalist id=\"$1\">"
d320c73bf16f Add "team" attributes in groups. HIROSE Yuuji <yuuji@gentei.org> parents: 208 diff changeset	136 shift
d320c73bf16f Add "team" attributes in groups. HIROSE Yuuji <yuuji@gentei.org> parents: 208 diff changeset	137 for i; do
326 d19e85a72a29 Allow spaces and special characters in filenames(tentative). HIROSE Yuuji <yuuji@gentei.org> parents: 222 diff changeset	138 echo "<option value=\"`echo "$i"\|unhexize\|htmlescape`\"></option>"
222 d320c73bf16f Add "team" attributes in groups. HIROSE Yuuji <yuuji@gentei.org> parents: 208 diff changeset	139 done
d320c73bf16f Add "team" attributes in groups. HIROSE Yuuji <yuuji@gentei.org> parents: 208 diff changeset	140 echo "</datalist>"
d320c73bf16f Add "team" attributes in groups. HIROSE Yuuji <yuuji@gentei.org> parents: 208 diff changeset	141 }
d320c73bf16f Add "team" attributes in groups. HIROSE Yuuji <yuuji@gentei.org> parents: 208 diff changeset	142 cgi_select_h() {
d320c73bf16f Add "team" attributes in groups. HIROSE Yuuji <yuuji@gentei.org> parents: 208 diff changeset	143 # $1=name $2...=hexed-args
675 9c54908814be Team selection in GrpAction anabled with js HIROSE Yuuji <yuuji@gentei.org> parents: 606 diff changeset	144 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	145 shift
d320c73bf16f Add "team" attributes in groups. HIROSE Yuuji <yuuji@gentei.org> parents: 208 diff changeset	146 for i; do
d320c73bf16f Add "team" attributes in groups. HIROSE Yuuji <yuuji@gentei.org> parents: 208 diff changeset	147 echo "<option>`echo \"$i\"\|unhexize\|htmlescape`</option>"
d320c73bf16f Add "team" attributes in groups. HIROSE Yuuji <yuuji@gentei.org> parents: 208 diff changeset	148 done
d320c73bf16f Add "team" attributes in groups. HIROSE Yuuji <yuuji@gentei.org> parents: 208 diff changeset	149 echo "</select>"
d320c73bf16f Add "team" attributes in groups. HIROSE Yuuji <yuuji@gentei.org> parents: 208 diff changeset	150 }
59 916d81b9c4fc Selection from group member HIROSE Yuuji <yuuji@gentei.org> parents: 29 diff changeset	151
916d81b9c4fc Selection from group member HIROSE Yuuji <yuuji@gentei.org> parents: 29 diff changeset	152 html() {
916d81b9c4fc Selection from group member HIROSE Yuuji <yuuji@gentei.org> parents: 29 diff changeset	153 echo "<$*>"
916d81b9c4fc Selection from group member HIROSE Yuuji <yuuji@gentei.org> parents: 29 diff changeset	154 cat
916d81b9c4fc Selection from group member HIROSE Yuuji <yuuji@gentei.org> parents: 29 diff changeset	155 echo "</$1>"
916d81b9c4fc Selection from group member HIROSE Yuuji <yuuji@gentei.org> parents: 29 diff changeset	156 }

Mercurial > hgrepos > hgweb.cgi > s4

annotate s4-cgi.sh @ 1013:1ffaa8b2b1bf draft