1.1 --- a/s4-funcs.sh	Sun Jul 26 00:41:37 2015 +0900
     1.2 +++ b/s4-funcs.sh	Sun Jul 26 12:28:38 2015 +0900
     1.3 @@ -1136,7 +1136,7 @@
     1.4    # $1=session-id-for-invitation
     1.5    m4 -D_TITLE_="Invitation" $layout/html.m4.html
     1.6    if [ -z "$1" ]; then
     1.7 -    echo "<p>bye bye</p>"
     1.8 +    echo "bye bye" | html p
     1.9      reutrn
    1.10    fi
    1.11    email=`session=$1 getpar invite`
    1.12 @@ -1148,14 +1148,14 @@
    1.13  EOF
    1.14      reutrn
    1.15    fi
    1.16 -  echo "<h2>$email さんようこそ</h2>"
    1.17 +  echo "$email さんようこそ" | html h2
    1.18    query "replace into user values('$email');"
    1.19    # Fake login password to wasureta
    1.20    query "replace into par values('$session', 'pswd', 'string', 'wasureta'),
    1.21  ('$session', 'user', 'string', '$email');"
    1.22    wasureta $email
    1.23 -  echo "<p>このアドレスに初期パスワードを送信しました。</p>"
    1.24 -  echo "<p>新着メイルを確認してログインしてください。</p>"
    1.25 +  echo "このアドレスに初期パスワードを送信しました。"	|html p
    1.26 +  echo "新着メイルを確認してログインしてください。"	|html p
    1.27    addsession $1			# for removal after 1 minute
    1.28    m4 -D_SYSNAME_="Initial Login" -D_MYNAME_="$myname?userconf" \
    1.29       $layout/login.m4.html
    1.30 @@ -1312,7 +1312,7 @@
    1.31  	order by b.tag desc, a.rowid asc"
    1.32  err LE:sql.1="$sql"
    1.33    total=`query "with x as ($sql) select count(*) from x;"`
    1.34 -  echo "<h2>${entity} 一覧</h2>"
    1.35 +  echo "${entity} 一覧" | html h2
    1.36    if [ $total -gt $limit ]; then
    1.37      echo '<div class="right">'
    1.38      cgi_form $stage <<EOF
    1.39 @@ -1397,7 +1397,8 @@
    1.40    if [ -z "$rowid" ]; then
    1.41      #rowid=`sq $db "select rowid from grp where rowid=$grp"`
    1.42      #grp=`sq $db "select gname from grp where rowid=$grp"`
    1.43 -    echo "<p>showgroupsub: invalid argument($1 $2)</p>"; return
    1.44 +    echo "showgroupsub: invalid argument($1 $2)" | html p
    1.45 +    return
    1.46    fi
    1.47    val=`getvalbyid grp profimg $rowid $tmpd`
    1.48    # 6/14の次グループのHOMEで出す情報を作る Done
    1.49 @@ -1501,11 +1502,11 @@
    1.50  EOF
    1.51  	  fi
    1.52  	else
    1.53 -	  echo "<p>確認のチェックがないのでやめておきます。</p>"
    1.54 +	  echo "確認のチェックがないのでやめておきます。" | html p
    1.55  	  return
    1.56  	fi
    1.57        else			# not Group Owner
    1.58 -	echo "<p>グループ管理者でないのでメンバー操作はできません。</p>"
    1.59 +	echo "グループ管理者でないのでメンバー操作はできません。" | html p
    1.60  	return
    1.61        fi
    1.62        cat<<EOF
    1.63 @@ -1521,14 +1522,15 @@
    1.64  $text
    1.65  EOF
    1.66        if [ $? = 0 ]; then
    1.67 -	echo "<p>Note: 以下のメンバーにメッセージを送信しました。"
    1.68 -	echo "</p><pre>"
    1.69 +	echo "Note: 以下のメンバーにメッセージを送信しました。" | html p
    1.70  	sql="select coalesce(b.val, a.name) from
    1.71  		(select name from user where rowid in ($uids)) a
    1.72  		left join user_s b on a.name=b.name and b.key='gecos';"
    1.73 -	query $sql
    1.74 +	html pre<<EOF
    1.75 +`query "$sql"`
    1.76 +(送信者である `gecos $user` さんも含まれます)
    1.77 +EOF
    1.78  	err SendDone: `echo $sql`
    1.79 -	echo "(送信者である `gecos $user` さんも含まれます)</pre>"
    1.80        fi
    1.81      fi
    1.82    fi
    1.83 @@ -1580,12 +1582,12 @@
    1.84  send2grpmember() {
    1.85    rowid=`getpar grp`
    1.86    if [ -z "$rowid" ]; then
    1.87 -    echo "<p>グループが未指定です。</p>"
    1.88 +    echo "グループが未指定です。" | html p
    1.89      return
    1.90    fi
    1.91    message=`getpar message`
    1.92    if [ -z "$msg" ]; then
    1.93 -    echo "<p>文章を入れてください。</p>"
    1.94 +    echo "文章を入れてください。" | html p
    1.95      return
    1.96    fi
    1.97    grp=`getgroupbyid $rowid`
    1.98 @@ -1613,7 +1615,7 @@
    1.99  err jg:isgrpowner: isowner="$isowner"
   1.100    if [ x"$2" != x"$user" ]; then # if user is not login user
   1.101      if [ -z "$isowner" ]; then
   1.102 -      echo "<p>本人か、グループ管理者しか加入操作はできません。</p>"
   1.103 +      echo "本人か、グループ管理者しか加入操作はできません。" | html p
   1.104        return
   1.105      fi
   1.106    fi
   1.107 @@ -1656,14 +1658,14 @@
   1.108    # $1=grp-rowid $2=user-rowid
   1.109    grp=`getgroupbyid "$1"`
   1.110    if [ -z "$grp" ]; then
   1.111 -    echo "<p>無効なグループIDです</p>"; return
   1.112 +    echo "無効なグループIDです" | html p; return
   1.113    fi
   1.114    if ! isgrpowner $user "$grp"; then
   1.115 -    echo "<p>$grp グループの管理者しかこの操作はできません。"; return
   1.116 +    echo "$grp グループの管理者しかこの操作はできません。" | html p; return
   1.117    fi
   1.118    newadm=`query "select name from user where rowid=$2;"`
   1.119    if [ -z "$newadm" ]; then
   1.120 -    echo "<p>指定ユーザIDがおかしいようです。</p>"; return
   1.121 +    echo "指定ユーザIDがおかしいようです。" | html p; return
   1.122    fi
   1.123  err GRP_reg_adm: "replace into grp_adm values(`sqlquote $grp`, '$newadm');"
   1.124  err ismember $newadm $grp
   1.125 @@ -1674,9 +1676,9 @@
   1.126      # confirm insertion
   1.127      sql="select * from grp_adm where gname=$getgname and user='$newadm'"
   1.128      if [ -n "`query \"$sql;\"`" ]; then
   1.129 -      echo "<p>追加完了</p>"
   1.130 +      echo "追加完了" | html p
   1.131      else
   1.132 -      echo "<p>追加失敗($1 $2)</p>"
   1.133 +      echo "追加失敗($1 $2)" | html p
   1.134      fi
   1.135    fi
   1.136    showgroup $1
   1.137 @@ -1745,7 +1747,7 @@
   1.138    rowid=`getpar rowid`
   1.139  err ...........rowid=$rowid
   1.140    if [ ! -e $1 ]; then
   1.141 -    echo "<p>テーブル定義ファイルが見付かりません</p>"
   1.142 +    echo "テーブル定義ファイルが見付かりません" | html p
   1.143      exit 1
   1.144    fi
   1.145    tbl=${1%.def}
   1.146 @@ -1764,10 +1766,10 @@
   1.147      fi
   1.148      ### err rowowner=$rowowner
   1.149      if [ x"$user" != x"$rowowner" ]; then
   1.150 -      echo "<p>他人のレコードはいじれないの</p>"
   1.151 +      echo "他人のレコードはいじれないの" | html p
   1.152        return
   1.153      elif [ -z "$rowowner" ]; then
   1.154 -      echo "<p>指定したレコードはないみたい</p>"
   1.155 +      echo "指定したレコードはないみたい" | html p
   1.156        return
   1.157      fi
   1.158      rm=`getpar rm` cfm=`getpar confirm`
   1.159 @@ -1777,7 +1779,7 @@
   1.160  	query "delete from $tbl where rowid=$rowid;"
   1.161  	return
   1.162        else
   1.163 -	echo "<p>消去確認のチェックがないので消さなかったの...</p>"
   1.164 +	echo "消去確認のチェックがないので消さなかったの..." | html p
   1.165  	return
   1.166        fi
   1.167      fi
   1.168 @@ -1816,7 +1818,7 @@
   1.169       formaster="$pval${formaster:+, }$formaster"
   1.170  err formaster=$formaster
   1.171       if [ -z "$formaster" ]; then
   1.172 -       echo "<pre>項目を全て埋めてください</pre>"
   1.173 +       echo "項目を全て埋めてください" | html pre
   1.174         return 1
   1.175       fi
   1.176       err "replace into $tbl values($formaster);"
   1.177 @@ -1847,7 +1849,7 @@
   1.178  	       if [ x`getpar confirm.$v` = x"yes" ]; then
   1.179  		 newsql="delete from $tb2"
   1.180  	       else
   1.181 -		 echo "<p>削除確認未チェック</p>"
   1.182 +		 echo "削除確認未チェック" | html p
   1.183  	       fi ;;
   1.184  	     edit)
   1.185  	       case `gettbl_coltype $tbl/$origcol` in
   1.186 @@ -1914,16 +1916,16 @@
   1.187  		 if [ x"$p1" = x"$p2" ]; then
   1.188  		   case "$p1" in
   1.189  		     ??????????*) ;;
   1.190 -		     *) echo "<p>10字以上にしてください。</p>"
   1.191 +		     *) echo "10字以上にしてください。" | html p
   1.192  			return ;;
   1.193  		   esac
   1.194  		   val="\"`echo $p1|mypwhash`\""
   1.195  		 else
   1.196 -		   echo "<p>2つの新パスワード不一致</p>"
   1.197 +		   echo "2つの新パスワード不一致" | html p
   1.198  		   return
   1.199  		 fi
   1.200  	       else
   1.201 -		 echo "<p>旧パスワード違います</p>"
   1.202 +		 echo "旧パスワード違います" | html p
   1.203  		 return
   1.204  	       fi
   1.205  	     fi
   1.206 @@ -1976,7 +1978,7 @@
   1.207    # If $GF_STAGE set, use it as value of name="stage"
   1.208    forms="" hiddens="" rowid=$3
   1.209    if [ ! -e "$1" ]; then
   1.210 -    echo "<p>そのようなデータベースはないようです($2)。</p>"
   1.211 +    echo "そのようなデータベースはないようです($2)。" | html p
   1.212      return
   1.213    elif [ -n "$2" ]; then
   1.214  err genform1: "select * from $2 where rowid='$rowid'"
   1.215 @@ -1991,7 +1993,7 @@
   1.216        rec=$3
   1.217      fi
   1.218      if [ -z "$rec" ]; then
   1.219 -      echo "<p>そんなレコードはないみたいね...</p>"
   1.220 +      echo "そんなレコードはないみたいね..." | html p
   1.221        return
   1.222      fi
   1.223    fi