#!/usr/bin/head -5 # -*- mode: shell-script -*- # CGI Library v2 for Shell Script # Use this by source'ing. # . ./cgilib2-sh PATH=/usr/local/sqlite3/bin:$PATH _db=${DB:-db/cgi.sq3} # 変数DBで変更可能にしておく query() { sqlite3 -cmd '.timeout 3000' -cmd 'PRAGMA foreign_keys=on' $_db "$@" } escape() { # HTMLエスケープ printf "%s" "$@" | sed -e '; s/\&/\&/g' -e 's/"/\"/g' -e "s/'/\'/g" \ -e "s//\>/g" } _tag=`date +%s`.$$ # CGIパラメータのタグをEPOCH秒とPID値から生成 _exp='+1 minutes' # 1時間後にexpire tmpd=`TMPDIR=${TMPDIR:-tmp} mktemp -d -t cgi.$_tag.XXXXXX` || exit 1 cleandir() { rm -r $tmpd } trap cleandir EXIT INT TERM HUP hexize() { #hexdump -ve '1/1 "%.2x"' perl -ne 'print unpack("H*", $_);' } unhexize() { perl -n -e 's/([0-9a-f]{2})/print chr hex $1/gie' } pdecode() { tr '%+' '= '| nkf -Ww -mQ } storeparam() ( IFS='&' # サブシェル化された関数なのでIFSを保存せず変更 { cat< $1

$1

EOF } case "$REQUEST_METHOD" in get|GET) # GETの場合は環境変数から取得 par="$QUERY_STRING" ;; post|POST) # POSTなら $CONTENT_LENGTH だけ標準入力を読む stream=$tmpd/stream head -c $CONTENT_LENGTH > $stream case $CONTENT_TYPE in *boundary=*) boundary=${CONTENT_TYPE#*boundary=} par=`./mpsplit.pl "$boundary" $tmpd < $stream` ;; *) par=`cat $stream` ;; esac ;; esac storeparam "$par" # 受け取ったパラメータをDBに格納