s4
changeset 66:666180f62a3d
Code cleaning
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Thu, 30 Jul 2015 11:13:53 +0900 |
parents | 3229b05617a3 |
children | 3b70f847277e |
files | s4.cgi |
diffstat | 1 files changed, 13 insertions(+), 17 deletions(-) [+] |
line diff
1.1 --- a/s4.cgi Wed Jul 29 21:14:28 2015 +0900 1.2 +++ b/s4.cgi Thu Jul 30 11:13:53 2015 +0900 1.3 @@ -1,7 +1,5 @@ 1.4 #!/bin/sh 1.5 # 愛 1.6 -PATH=/usr/local/sqlite3/bin:$PATH 1.7 -myname=`basename $0` 1.8 mydir=`dirname $0` 1.9 . $mydir/s4-funcs.sh 1.10 1.11 @@ -14,7 +12,6 @@ 1.12 fi 1.13 1.14 dologin 1.15 -#gencookie; echo 1.16 1.17 case ${SERVER_SOFTWARE} in 1.18 bozohttp*) # Ugly workaround for bozohttpd, which can't send 1.19 @@ -68,7 +65,7 @@ 1.20 newgname=$gname 1.21 if [ x"$newgname" != x"$gname" ]; then 1.22 err NewGNAME: gname=$newgname 1.23 - echo "<p>使用禁止文字を除去し $gname としました。</p>" 1.24 + echo "使用禁止文字を除去し $gname としました。" | html p 1.25 gname=$newgname 1.26 replpar gname string "$gname" 1.27 fi 1.28 @@ -76,7 +73,7 @@ 1.29 joingrp "$gname" "$user" yes "$user" as-admin 1.30 fi 1.31 GF_STAGE=groupman 1.32 - note="<p>グループ名に使用できない文字は自動的に削除されます。</p>" 1.33 + note="グループ名に使用できない文字は自動的に削除されます。" | html p 1.34 m4 -D_TITLE_="グループ作成" \ 1.35 -D_FORM_="$note`genform $formdir/grp.def`" \ 1.36 -D_DUMPTABLE_="`DT_VIEW=grp dumptable html grp 'gname gecos:DESC mtime:TIME' 'order by b.TIME desc'`" \ 1.37 @@ -158,7 +155,7 @@ 1.38 if [ -n "$2" ]; then 1.39 grp_reg_adm "$@" 1.40 else 1.41 - echo "<p>無効な指定です。普通のアクセスならここに来ないはず。</p>" 1.42 + echo "無効な指定です。普通のアクセスならここに来ないはず。"|html p 1.43 fi 1.44 ;; 1.45 "blog") 1.46 @@ -179,7 +176,7 @@ 1.47 rowid=${2%%[!A-Z0-9a-z_]*} 1.48 # blogrowid=${3%%[!A-Z0-9a-z_]*} 1.49 if [ -z "$rowid" ]; then 1.50 - echo "<p>話題番号が未指定です。</p>" 1.51 + echo "話題番号が未指定です。" | html p 1.52 return 1.53 fi 1.54 owner=`getvalbyid blog owner $2` 1.55 @@ -195,7 +192,7 @@ 1.56 rowid=${2%%[!A-Z0-9a-z_]*} 1.57 blogrowid=${3%%[!A-Z0-9a-z_]*} 1.58 if [ -z "$rowid" -o -z "$blogrowid" ]; then 1.59 - echo "<p>表示する記事番号が未指定です。</p>" 1.60 + echo "表示する記事番号が未指定です。" | html p 1.61 return 1.62 fi 1.63 owner=`getvalbyid blog owner $blogrowid` 1.64 @@ -205,7 +202,7 @@ 1.65 if isgrpowner $user $owner; then 1.66 : EDIT OK 1.67 elif [ x"$owner" != x"$user" -a x"$author" != x"$user" ]; then 1.68 - echo "<p>本人か所有者しか編集できません.</p>" 1.69 + echo "本人か所有者しか編集できません." | html p 1.70 return 1.71 fi 1.72 aid=`query "select id from article where rowid=$rowid;"` 1.73 @@ -220,7 +217,7 @@ 1.74 contenttype; echo 1.75 rowid=${2%%[!A-Z0-9a-z_]*} 1.76 if [ -z "$rowid" ]; then 1.77 - echo "<p>話題番号が未指定です。</p>" 1.78 + echo "話題番号が未指定です。" | html p 1.79 return 1.80 fi 1.81 . ./s4-blog.sh 1.82 @@ -229,7 +226,7 @@ 1.83 "gethandout") 1.84 rowid=${2%%[!A-Z0-9a-z_]*} 1.85 if [ -z "$rowid" ]; then 1.86 - echo "<p>話題番号が未指定です。</p>" 1.87 + echo "話題番号が未指定です。" | html p 1.88 return 1.89 fi 1.90 . ./s4-blog.sh 1.91 @@ -240,18 +237,18 @@ 1.92 m4 -D_TITLE_="検索結果" $layout/html.m4.html 1.93 kwd=`getpar kwd` 1.94 if [ -z "$kwd" ]; then 1.95 - echo "<p>検索語を指定してください</p>" 1.96 + echo "検索語を指定してください" | html p 1.97 else 1.98 owner=`getpar owner` 1.99 owner=${owner:-$2} 1.100 - echo "<h2>「$kwd」による検索結果</h2>" 1.101 + echo "「$kwd」による検索結果" | html p 1.102 if [ -n "$owner" ]; then 1.103 cond="where key='owner' and val='$owner'" 1.104 if isuser $owner; then 1.105 - echo "<p>(`linkhome $owner` さんの記録からの検索)</p>" 1.106 + echo "(`linkhome $owner` さんの記録からの検索)" | html p 1.107 else 1.108 linkhome $owner 1>&3 1.109 - echo "<p>(`linkhome $owner` グループからの検索)</p>" 1.110 + echo "(`linkhome $owner` グループからの検索)" | html p 1.111 fi 1.112 fi 1.113 # article_s: id=article-id, key='text', val='TEXT' 1.114 @@ -287,7 +284,7 @@ 1.115 # $2=table_m $3=rowid $4=val 1.116 if ! isfilereadable $user $2 $3; then 1.117 contenttype; echo 1.118 - echo "<p>このファイルは管理者のみしか見られません</p>" 1.119 + echo "このファイルは管理者のみしか見られません" | html p 1.120 putfooter; exit 1.121 fi 1.122 idir=`umask 002; mktempd` || exit 1 1.123 @@ -331,5 +328,4 @@ 1.124 ;; 1.125 esac 1.126 1.127 - 1.128 putfooter