Mercurial > hgrepos > hgweb.cgi > s4

comparison s4-blog.sh @ 921:7b887bea6ecd draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Team.csv with gecos names
author HIROSE Yuuji <yuuji@gentei.org>
date Tue, 12 Jan 2021 12:30:02 +0900
parents 7149f283294b
children 9b3f0dc4070b
comparison
equal deleted inserted replaced
920:7149f283294b 921:7b887bea6ecd
1120 echo '</table>' 1120 echo '</table>'
1121 } 1121 }
1122 getteamcsv() { 1122 getteamcsv() {
1123 gid=`numericalize "$1"` 1123 gid=`numericalize "$1"`
1124 grp=`getgroupbyid "$gid"` 1124 grp=`getgroupbyid "$gid"`
1125 err gid=$gid grp=$grp 1125 extra="$2"
1126 err "gid=$gid grp=$grp extra=$extra"
1126 if ! isgrpowner "$user" "$grp"; then 1127 if ! isgrpowner "$user" "$grp"; then
1127 contentytpe 'text/plain; charset="utf-8"'; echo 1128 contentytpe 'text/plain; charset="utf-8"'; echo
1128 echo "管理者メンバー以外は利用できません。" | html p; return 1129 echo "管理者メンバー以外は利用できません。" | html p; return
1129 fi 1130 fi
1130 fn="team-$gid.csv" 1131 fn="Team-$gid"
1131 csv="$tmpd/$fn" 1132 case "$extra" in
1133 "") ;;
1134 name)
1135 fn=${fn}-with-name
1136 xSQL=",
1137 substr(user, 1, instr(user, '@')-1) \"uname\",
1138 coalesce((SELECT gecos FROM gecoses WHERE name=user), user) gecos" ;;
1139 esac
1140 csv="$tmpd/$fn.csv"
1132 err csv=$csv 1141 err csv=$csv
1133 # We can leave csv mode here because this scripts will exit soon 1142 # We can leave csv mode here because this scripts will exit soon
1134 query <<-EOF 1143 query <<-EOF > "$csv"
1135 .mode csv 1144 .mode csv
1136 .head 1 1145 .head 1
1137 .output $csv 1146 SELECT val "ルーム名を事前割り当て", user "メールアドレス" $xSQL
1138 SELECT val "ルーム名を事前割り当て", user "メールアドレス"
1139 FROM grp_mem_m 1147 FROM grp_mem_m
1140 WHERE key='team' 1148 WHERE key='team'
1141 AND gname=(SELECT gname FROM grp WHERE rowid=$gid) 1149 AND gname=(SELECT gname FROM grp WHERE rowid=$gid)
1142 ORDER BY val; 1150 ORDER BY val;
1143 EOF 1151 EOF
1144 contenttype 'text/plain; charset="utf-8"' 1152 contenttype 'text/plain; charset="utf-8"'
1145 echo "Content-Disposition: filename=\"$fn\"" 1153 echo "Content-Disposition: filename=\"$fn\""
1146 echo "Content-Length: " `cat $csv | wc -c`; echo 1154 echo "Content-Length: " `cat $csv | wc -c`; echo
1147 #echo "Content-Type: " ${type#file:}; echo
1148 cat $csv 1155 cat $csv
1149 exit 1156 exit
1150 } 1157 }
1151 searchart() { 1158 searchart() {
1152 _m4 -D_TITLE_="検索結果" $layout/html.m4.html 1159 _m4 -D_TITLE_="検索結果" $layout/html.m4.html

yatex.org