Mercurial > hgrepos > hgweb.cgi > s4
changeset 61:8b2cf4d9ba00
Use html()
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Sun, 26 Jul 2015 12:28:38 +0900 |
parents | 9f4e85181d40 |
children | 5ca8f194faf2 |
files | s4-funcs.sh |
diffstat | 1 files changed, 33 insertions(+), 31 deletions(-) [+] |
line wrap: on
line diff
--- a/s4-funcs.sh Sun Jul 26 00:41:37 2015 +0900 +++ b/s4-funcs.sh Sun Jul 26 12:28:38 2015 +0900 @@ -1136,7 +1136,7 @@ # $1=session-id-for-invitation m4 -D_TITLE_="Invitation" $layout/html.m4.html if [ -z "$1" ]; then - echo "<p>bye bye</p>" + echo "bye bye" | html p reutrn fi email=`session=$1 getpar invite` @@ -1148,14 +1148,14 @@ EOF reutrn fi - echo "<h2>$email さんようこそ</h2>" + echo "$email さんようこそ" | html h2 query "replace into user values('$email');" # Fake login password to wasureta query "replace into par values('$session', 'pswd', 'string', 'wasureta'), ('$session', 'user', 'string', '$email');" wasureta $email - echo "<p>このアドレスに初期パスワードを送信しました。</p>" - echo "<p>新着メイルを確認してログインしてください。</p>" + echo "このアドレスに初期パスワードを送信しました。" |html p + echo "新着メイルを確認してログインしてください。" |html p addsession $1 # for removal after 1 minute m4 -D_SYSNAME_="Initial Login" -D_MYNAME_="$myname?userconf" \ $layout/login.m4.html @@ -1312,7 +1312,7 @@ order by b.tag desc, a.rowid asc" err LE:sql.1="$sql" total=`query "with x as ($sql) select count(*) from x;"` - echo "<h2>${entity} 一覧</h2>" + echo "${entity} 一覧" | html h2 if [ $total -gt $limit ]; then echo '<div class="right">' cgi_form $stage <<EOF @@ -1397,7 +1397,8 @@ if [ -z "$rowid" ]; then #rowid=`sq $db "select rowid from grp where rowid=$grp"` #grp=`sq $db "select gname from grp where rowid=$grp"` - echo "<p>showgroupsub: invalid argument($1 $2)</p>"; return + echo "showgroupsub: invalid argument($1 $2)" | html p + return fi val=`getvalbyid grp profimg $rowid $tmpd` # 6/14の次グループのHOMEで出す情報を作る Done @@ -1501,11 +1502,11 @@ EOF fi else - echo "<p>確認のチェックがないのでやめておきます。</p>" + echo "確認のチェックがないのでやめておきます。" | html p return fi else # not Group Owner - echo "<p>グループ管理者でないのでメンバー操作はできません。</p>" + echo "グループ管理者でないのでメンバー操作はできません。" | html p return fi cat<<EOF @@ -1521,14 +1522,15 @@ $text EOF if [ $? = 0 ]; then - echo "<p>Note: 以下のメンバーにメッセージを送信しました。" - echo "</p><pre>" + echo "Note: 以下のメンバーにメッセージを送信しました。" | html p sql="select coalesce(b.val, a.name) from (select name from user where rowid in ($uids)) a left join user_s b on a.name=b.name and b.key='gecos';" - query $sql + html pre<<EOF +`query "$sql"` +(送信者である `gecos $user` さんも含まれます) +EOF err SendDone: `echo $sql` - echo "(送信者である `gecos $user` さんも含まれます)</pre>" fi fi fi @@ -1580,12 +1582,12 @@ send2grpmember() { rowid=`getpar grp` if [ -z "$rowid" ]; then - echo "<p>グループが未指定です。</p>" + echo "グループが未指定です。" | html p return fi message=`getpar message` if [ -z "$msg" ]; then - echo "<p>文章を入れてください。</p>" + echo "文章を入れてください。" | html p return fi grp=`getgroupbyid $rowid` @@ -1613,7 +1615,7 @@ err jg:isgrpowner: isowner="$isowner" if [ x"$2" != x"$user" ]; then # if user is not login user if [ -z "$isowner" ]; then - echo "<p>本人か、グループ管理者しか加入操作はできません。</p>" + echo "本人か、グループ管理者しか加入操作はできません。" | html p return fi fi @@ -1656,14 +1658,14 @@ # $1=grp-rowid $2=user-rowid grp=`getgroupbyid "$1"` if [ -z "$grp" ]; then - echo "<p>無効なグループIDです</p>"; return + echo "無効なグループIDです" | html p; return fi if ! isgrpowner $user "$grp"; then - echo "<p>$grp グループの管理者しかこの操作はできません。"; return + echo "$grp グループの管理者しかこの操作はできません。" | html p; return fi newadm=`query "select name from user where rowid=$2;"` if [ -z "$newadm" ]; then - echo "<p>指定ユーザIDがおかしいようです。</p>"; return + echo "指定ユーザIDがおかしいようです。" | html p; return fi err GRP_reg_adm: "replace into grp_adm values(`sqlquote $grp`, '$newadm');" err ismember $newadm $grp @@ -1674,9 +1676,9 @@ # confirm insertion sql="select * from grp_adm where gname=$getgname and user='$newadm'" if [ -n "`query \"$sql;\"`" ]; then - echo "<p>追加完了</p>" + echo "追加完了" | html p else - echo "<p>追加失敗($1 $2)</p>" + echo "追加失敗($1 $2)" | html p fi fi showgroup $1 @@ -1745,7 +1747,7 @@ rowid=`getpar rowid` err ...........rowid=$rowid if [ ! -e $1 ]; then - echo "<p>テーブル定義ファイルが見付かりません</p>" + echo "テーブル定義ファイルが見付かりません" | html p exit 1 fi tbl=${1%.def} @@ -1764,10 +1766,10 @@ fi ### err rowowner=$rowowner if [ x"$user" != x"$rowowner" ]; then - echo "<p>他人のレコードはいじれないの</p>" + echo "他人のレコードはいじれないの" | html p return elif [ -z "$rowowner" ]; then - echo "<p>指定したレコードはないみたい</p>" + echo "指定したレコードはないみたい" | html p return fi rm=`getpar rm` cfm=`getpar confirm` @@ -1777,7 +1779,7 @@ query "delete from $tbl where rowid=$rowid;" return else - echo "<p>消去確認のチェックがないので消さなかったの...</p>" + echo "消去確認のチェックがないので消さなかったの..." | html p return fi fi @@ -1816,7 +1818,7 @@ formaster="$pval${formaster:+, }$formaster" err formaster=$formaster if [ -z "$formaster" ]; then - echo "<pre>項目を全て埋めてください</pre>" + echo "項目を全て埋めてください" | html pre return 1 fi err "replace into $tbl values($formaster);" @@ -1847,7 +1849,7 @@ if [ x`getpar confirm.$v` = x"yes" ]; then newsql="delete from $tb2" else - echo "<p>削除確認未チェック</p>" + echo "削除確認未チェック" | html p fi ;; edit) case `gettbl_coltype $tbl/$origcol` in @@ -1914,16 +1916,16 @@ if [ x"$p1" = x"$p2" ]; then case "$p1" in ??????????*) ;; - *) echo "<p>10字以上にしてください。</p>" + *) echo "10字以上にしてください。" | html p return ;; esac val="\"`echo $p1|mypwhash`\"" else - echo "<p>2つの新パスワード不一致</p>" + echo "2つの新パスワード不一致" | html p return fi else - echo "<p>旧パスワード違います</p>" + echo "旧パスワード違います" | html p return fi fi @@ -1976,7 +1978,7 @@ # If $GF_STAGE set, use it as value of name="stage" forms="" hiddens="" rowid=$3 if [ ! -e "$1" ]; then - echo "<p>そのようなデータベースはないようです($2)。</p>" + echo "そのようなデータベースはないようです($2)。" | html p return elif [ -n "$2" ]; then err genform1: "select * from $2 where rowid='$rowid'" @@ -1991,7 +1993,7 @@ rec=$3 fi if [ -z "$rec" ]; then - echo "<p>そんなレコードはないみたいね...</p>" + echo "そんなレコードはないみたいね..." | html p return fi fi