Mercurial > hgrepos > hgweb.cgi > s4

comparison s4-funcs.sh @ 723:b8f5bfb91ea2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Save streaming file in $tmpd
author HIROSE Yuuji <yuuji@gentei.org>
date Sun, 31 May 2020 15:41:28 +0900
parents 78cc4ba7bf42
children 489efda25567
comparison
equal deleted inserted replaced
722:78cc4ba7bf42 723:b8f5bfb91ea2
1175 gencookie() ( 1175 gencookie() (
1176 path=${URL#*:/} 1176 path=${URL#*:/}
1177 path=${URL%/*} 1177 path=${URL%/*}
1178 expire="`expire '' '%a, %d-%b-%Y %H:%M:%S GMT'`" 1178 expire="`expire '' '%a, %d-%b-%Y %H:%M:%S GMT'`"
1179 for kv; do 1179 for kv; do
1180 # echo "Set-Cookie: $kv; expires=$expire; Path=$path" 1180 echo "Set-Cookie: $kv; expires=$expire; Path=$path"
1181 echo "Set-Cookie: $kv; expires=$expire;" 1181 # echo "Set-Cookie: $kv; expires=$expire;"
1182 done 1182 done
1183 ) 1183 )
1184 contenttype() { 1184 contenttype() {
1185 echo "Content-type: ${1:-text/html; charset=utf-8}" 1185 echo "Content-type: ${1:-text/html; charset=utf-8}"
1186 contenttype() {} # Only need to work once 1186 contenttype() {} # Only need to work once
1399 echo "[`date +%F-%T%z`] $@" 1>&3 1399 echo "[`date +%F-%T%z`] $@" 1>&3
1400 } 1400 }
1401 1401
1402 cgiinit() { 1402 cgiinit() {
1403 session=`date +%F-$$` 1403 session=`date +%F-$$`
1404 tmpf=tmp/stream
1405 tmpd=`tmpd=$tmpdir mktempd` 1404 tmpd=`tmpd=$tmpdir mktempd`
1405 tmpf=$tmpd/stream.$$
1406 tmpfiles=$tmpfiles" $tmpd" 1406 tmpfiles=$tmpfiles" $tmpd"
1407 addsession $session 1407 addsession $session
1408 getcookie 1408 getcookie
1409 case "$REQUEST_METHOD" in 1409 case "$REQUEST_METHOD" in
1410 get|GET) s="$QUERY_STRING" ;; 1410 get|GET) s="$QUERY_STRING" ;;
1411 post|POST) ## dd count=$CONTENT_LENGTH bs=1 of=$tmpf 2>/dev/null #slow 1411 post|POST) ## dd count=$CONTENT_LENGTH bs=1 of=$tmpf 2>/dev/null #slow
1412 ## dd bs=$CONTENT_LENGTH count=1 of=$tmpf # NOT working 1412 ## dd bs=$CONTENT_LENGTH count=1 of=$tmpf # NOT working
1413 # cat > $tmpf # too much? 1413 # cat > $tmpf # too much?
1414 head -c $CONTENT_LENGTH > $tmpf # safe? 1414 head -c $CONTENT_LENGTH > $tmpf # safe?
1415 (echo CL=$CONTENT_LENGTH; ls -lF $tmpf) 1>&3 1415 (echo CL=$CONTENT_LENGTH; ls -lF $tmpf) 1>&3
1416 cp tmp/stream /tmp # 2020-0531
1417 s="`cat tmp/stream`" 1416 s="`cat tmp/stream`"
1418 tmpfiles=$tmpfiles"${tmpfiles+ }$tmpf" 1417 tmpfiles=$tmpfiles"${tmpfiles+ }$tmpf"
1419 ;; 1418 ;;
1420 esac 1419 esac
1421 case "$CONTENT_TYPE" in 1420 case "$CONTENT_TYPE" in

yatex.org