ユーザ認証機構の付加

CREATE TABLE users(
  email PRIMARY KEY, pswd TEXT NOT NULL, gecos,
  CHECK(pswd != '')
);

hanako:$2a$10$PECyT/1jC4VzjXnqRvauM.zQOTzgYbxHLbKfHnq5uWX/MF0XBPkPe:
1010:100::0:0:IIMORI Hanako,,,:/home/hanako:/bin/sh

$ID$ソルト$文字列

$s256$foo-$f10a6c6053b82d1a4ec0ed71ccb604ecc53fd45bd17489da33c158bb9944228b

s256() {
  openssl sha256 "$@" | cut -d' ' -f2
}
mycrypt() (			# crypt(3)関数的挙動をsha256で行なう
  key=$1 salt=$2		# $s256$ソルト$ハッシュ化文字列
  case $2 in
    '$'*'$'*)   salt=${salt#\$s256\$}
		salt=${salt%\$*} ;;
  esac
  echo -n '$s256$'"$salt"'$'
  echo "$salt$key" | s256
)

mycrypt キー ソルト

randomstr()

randomstr() {			# $1=columns (default: 10)
  dd if=/dev/urandom count=1 2>/dev/null | nkf -wMB \
      | tr -d '+\n' | fold -w${1:-10} | sed -n 2p
}

Set-Cookie: クッキー名=クッキー値; Max-Age=秒数

Set-Cookie: sesskey=abcxyzblahblahblah; Max-Age=3600

CREATE TABLE sessions(
  user PRIMARY KEY TEXT, sesskey TEXT,
  FOREIGN KEY(user) REFERENCES users(email)
         ON DELETE CASCADE ON UPDATE CASCADE,
  FOREIGN KEY(sesskey) REFERENCES tags(id)
         ON DELETE CASCADE ON UPDATE CASCADE
);

cgiauthlib-sh

#!/usr/bin/head -5
# -*- mode: shell-script -*-
# CGI Authentication Library for Shell Script
# Use this by source'ing.
# . ./cgiauthlib-sh
newpswd="wasureta"

type query >/dev/null 2>&1 || . ./cgilib2-sh	# query()未定義ならロードする

loginlink() {
  cat<<EOF
<p class="login"><a href="$myname?login">Login</a></p>
EOF
}
loginform() {
  htmlhead "Login"
  cat<<EOF
<form action="$myname" method="POST" enctype="multipart/form-data">
 <table>
  <tr><td>ユーザ</td><td><input name="user"></td></tr>
  <tr><td>パスワード</td><td><input name="pswd" type="password"></td></tr>
 </table>
 <input type="submit" value="Login">
 <input type="reset" value="reset">
</form>
EOF
}
s256() {			# SHA256を探すがそれ以外でもよい
  if [ -z "$_sha256" ]; then
    if [ -x /bin/digest ]; then			# Solaris10
      _sha256="/bin/digest -a sha256"
    elif type openssl >/dev/null 2>&1; then	# Maybe Linux
      _sha256() {
	openssl sha256 $* | cut -d' ' -f2
      } ; _sha256=_sha256
    else
      echo "Abort(sha256)."; exit 255		# 見付からなければ中止
    fi
  fi
  $_sha256 "$@"
}
mycrypt() (			# crypt(3)関数的挙動をsha256で行なう
  key=$1 salt=$2		# $s256$ソルト$ハッシュ化文字列
  case $2 in
    '$'*'$'*)   salt=${salt#\$s256\$}
		salt=${salt%\$*} ;;
  esac
  echo -n '$s256$'"$salt"'$'
  echo "$salt$key" | s256
)
randomstr() {			# $1=columns (default: 10, should be <512)
  dd if=/dev/urandom count=1 2>/dev/null | nkf -wMB \
      | tr -d '+\n' | fold -w${1:-10} | sed -n 2p
}
mypwhash() {			# パスワードハッシュは標準入力から
  mycrypt `cat` `randomstr`
}
getcookie() {			# 指定したcookie値を得る
  _tag=cookie/$_tag getpar "$1"
}
postmail() {	# $1=rcpts $2=subject ($3=file)
  rcpts=`echo $1`
  subj=`echo $2|nkf -jM`
  (cat<<EOF; nkf -j $3) | sendmail -t
To: `echo $rcpts|sed 's/ /, /g'`
Subject: $subj
Date: `date`

EOF
}
wasureta() {			# $userの新パスワードを発行
  newpswd=`randomstr`
  encoded=`echo "$newpswd"|mypwhash`
  local=${user%@*}		# ローカルパート
  domain=${user##*@}		# ドメインパート
  if ! host $domain >/dev/null 2>&1; then
    echo "Invalid domain"; exit 1	# DNSの索けないドメインは無効終了
  fi
  dbuser=`query "SELECT email FROM users WHERE email='$user';"`
  if [ -z "$dbuser" ]; then	# 新規登録
    query "INSERT INTO users VALUES('$user', '$encoded', NULL, NULL);"
  else
    query "UPDATE users SET pswd='$encoded' WHERE email='$user';"
  fi
  postmail "$user" "New Password for miniblog3" <<EOF
新しいパスワードを設定しました。
ユーザ名:	$user
パスワード:	$newpswd
EOF
  return 0
}
setcookie() (
  for kv; do
    echo "Set-Cookie: $kv; Max-Age=3600"
  done
)
cgiauth() {	# OKならグローバル変数 _session をセットして return 0
  query<<-EOF
	CREATE TABLE IF NOT EXISTS users(
	  email PRIMARY KEY, pswd TEXT NOT NULL, gecos
	  CHECK(pswd != '')
	);
	CREATE TABLE IF NOT EXISTS users_m(
	  email, key, val,
	  FOREIGN KEY(email) REFERENCES users(email)
		 ON DELETE CASCADE ON UPDATE CASCADE,
	  UNIQUE(email, key, val)
	);
	CREATE TABLE IF NOT EXISTS sessions(
	  user PRIMARY KEY TEXT, sesskey TEXT,
	  FOREIGN KEY(user) REFERENCES users(email)
		 ON DELETE CASCADE ON UPDATE CASCADE,
	  FOREIGN KEY(sesskey) REFERENCES tags(id)
		 ON DELETE CASCADE ON UPDATE CASCADE
	);
	EOF
  user=`getpar user`
  user=${user:-`getcookie user`}	# フォーム値がなければcookie値取得
  user=`echo "$user" | sed "s/'/''/g"`	# SQLへ渡す変数なので ' をエスケープ
  pswd=`getpar pswd`			# input要素からのpswd
  skey=`getcookie skey`			# セッションキーはcookieから
  expsql="datetime('now', 'localtime', '$_exp')"
  [ -z "$user" ] && return 1		# user未指定なら終了
  if [ -n "$pswd" ]; then		# pswdを入力した場合
    if [ x"$pswd" = x"wasureta" ]; then	# パスワードリセット
      wasureta $user
      return 99
    fi
    dbpswd=`query "SELECT pswd FROM users WHERE email='$user';"`
    fromweb=`mycrypt "$pswd" "$dbpswd"`	# 送信されたパスワードからのハッシュ
    if [ x"$fromweb" = x"$dbpswd" ]; then
      _session=`randomstr 50`		# 新しいセッションキー生成
      query<<-EOF
	REPLACE INTO tags VALUES('$_session', $expsql);
	REPLACE INTO sessions VALUES('$user', '$_session');
	EOF
      setcookie "user=$user" "skey=$_session"
      return 0				# 認証OK
    fi
  fi
  if [ -n "$skey" ]; then		# Cookieでセッションキーが来た場合
    dbskey=`query "SELECT sesskey FROM sessions WHERE user='$user';"`
    if [ x"$skey" = x"$dbskey" ]; then	# 送って来たセッションキーと同じならOK
      _session=$skey
      query "UPDATE tags SET expire=$expsql WHERE id='$skey';" # 期限更新
      setcookie "user=$user" "skey=$_session"
      return 0				# セッションキー確認OK
    fi
  fi
  return 1
}
_tag=cookie/$_tag storeparam "`echo $HTTP_COOKIE|sed 's/[;, ]/\&/g'`"

postmail 宛先アドレス サブジェクト [ファイル]

  rcpts=`echo $1`

  subj=`echo $2|nkf -jM`

  (cat<<EOF; nkf -j $3) | sendmail -t

putform				# ヘッダと入力フォームを出力
addnew				# 新規レコードの登録
[ -n "$editkey" ] || putblog	# データ更新後の登録エントリを出力

認証処理をする
if 認証成功; then
  putform			# (1)ヘッダと入力フォームを出力
  addnew			# (2)新規レコードの登録
else
  ログインページへのリンクだけ出力
fi
[ -n "$editkey" ] || putblog	# (3)データ更新後の登録エントリを出力

postmail() {	# $1=rcpts $2=subject ($3=file)
  rcpts=`echo $1`
  subj=`echo $2|nkf -jM|sed '2,$s/^/ /'`
  (cat<<EOF; nkf -j $3) | sendmail -t
To: `echo $rcpts|sed 's/ /, /g'`
Subject: $subj
Date: `date`
Content-type: text/plain; charset=iso-2022-jp
MIME-Version: 1.0

EOF
}

miniblog3.cgi

#!/bin/sh
cd `dirname $0`
. ./cgilib2-sh
myname=`basename $0`

query "CREATE TABLE IF NOT EXISTS blog(
	datetime UNIQUE, body, filename, filecontent);"

case "$1" in
  catfile/*)	# miniblog2.cgi catfile/《rowid》で起動するとその行の画像を出力
    rowid=`echo "${1#catfile/}" | tr -cd '[0-9]'`	# 数字以外は除去
    from="FROM blog WHERE rowid=$rowid"			# FROM句以下を変数に
    echo -n "Content-type: "	# 中味を調べて Content-type ヘッダ出力
    query "SELECT hex(filecontent) $from" | unhexize \
	| file --mime-type - | cut -d' ' -f2
    fn=`query "SELECT filename $from;"| tr -d '\n'`	# 改行あれば除去
    echo "Content-Disposition: filename=\"$fn\""	# ファイル名と長さ出力
    query "SELECT 'Content-Length: ' || length(filecontent) $from;"
    echo ""
    query "SELECT hex(filecontent) $from" | unhexize # 画像を書き出して終了
    exit ;;
  edit/*)	# miniblog2.cgi edit/《日時》で起動すると修正フォーム出力
    editkey=`echo ${1#edit/}|pdecode` ;;	# pdecode不要なhttpdもある
  # 【1】
  login)
    . ./cgiauthlib-sh
    loginform
    exit ;;
esac

# $1に指定したカラムを$2の日付キーから得る関数
getcol() {			# HTMLエスケープしたカラム値を返す
  escape "`query \"SELECT $1 FROM blog WHERE datetime='$2';\"`"
}
putform() {			# HTTPヘッダから入力フォームHTMLまで出力
  title="一言日記"
  if [ -n "$editkey" ]; then
    datetime=`getcol datetime "$editkey"`	# 実在するキーか?
    if [ -n "$datetime" ]; then
      hitokoto=`getcol body "$editkey"`	# 既存のbodyカラム値を得る
      hidden="<p><input type=\"hidden\" name=\"datetime\"
	value=\"$datetime\">
	<input id=\"rm\" type=\"checkbox\" name=\"remove\" value=\"yes\">
	<label for=\"rm\">このエントリの削除</label>
	<span class=\"confirm\">ほんとうに消してよいですか:
	<label><input type=\"checkbox\" name=\"confirm\" value=\"yes\">はい
	</label></span></p>"
      title="$datetime の一言の修正"
    fi
  fi
  htmlhead "$title"		# ヘッダから h1 要素まで出力(cgilib2内)
  cat<<-EOF
	<form action="$myname" method="POST" enctype="multipart/form-data">
	 ${datetime:+$hidden}	<!-- 有効な日付指定のみ $edit 出力 -->
	 <label>ファイルを添付してください:
	  <input type="file" name="attach"></label><br>一言:<br>
	 <textarea name="hitokoto" rows="3" cols="40">$hitokoto</textarea>
	 <input type="submit" value="POST">
	 <input type="reset" value="Reset">
	</form>
	EOF
}

addnew() {
  if [ -n "$CONTENT_LENGTH" ]; then	# データが送信された場合の登録処理
    dt=`getpar datetime`		# datetimeの値がある場合は既存行の更新
    # 実在する datetime か値自身を引直して確認する
    [ -n "$dt" ] && \
	dt=`query "SELECT datetime from blog WHERE datetime='$dt';"`
    if [ x`getpar remove``getpar confirm` = x"yesyes" ]; then
      # 「削除」と確認の「はい」両方にチェックの場合
      query "DELETE FROM blog WHERE datetime='$dt';"
    elif [ -n "`getpar hitokoto`" ]; then	# hitokotoに何かが入力されたら
      [ -n "$dt" ] && now=$dt || now=`date '+%F %T'`
      query<<-EOF
	REPLACE INTO blog
	  -- (日時, 一言, ファイル名, ファイル内容) を合成して挿入
	  SELECT '$now',
		 max(CASE name WHEN 'hitokoto' THEN val END),
		 max(CASE name WHEN 'attach' THEN filename END),
		 max(CASE name WHEN 'attach' THEN val END)
	  FROM cgipars
	  WHERE tag='$_tag'
	  GROUP BY tag;
	EOF
    fi
  fi
}

putblog() {			# 既存のエントリをtableで出力
  href1=${authok:+"<TD><a href=\"$myname?edit/\\1\">\\2</a><"}
  href2="<TD><a href=\"$myname?catfile/\\1\">\\2</a><"
  echo '<table border="1">'
  query<<-EOF  \
      | sed -e "s,<TD>1:\(\([-0-9 :]*\):[0-9]*\)<,${href1:-<TD>\\2<}," \
	    -e "s,<TD>2:,<TD>," \
	    -e "s,<TD>3:\([0-9]*\):\(.*\)<,$href2,"
	.mode html
	.header ON
	SELECT	'1:' || datetime '日時',
		'2:' || body '一言',
		CASE WHEN filename IS NOT NULL
		THEN '3:' || rowid || ":" || filename
		ELSE ''			-- filenameが非NULLのときのみ出力
		END '添付ファイル'
	FROM blog;
	EOF
  echo '</table>'
}

. ./cgiauthlib-sh
cgiauth
rc=$?
if [ 0 -eq $rc ]; then
  authok=yes			# 認証済みフラグ
  bodyclass="authok"
  putform			# ヘッダと入力フォームを出力
  addnew			# 新規レコードの登録
else
  if [ $rc -eq 99 ]; then	# 「忘れた」場合は $?=99 で戻る
    htmlhead 
    echo "<p>${user}宛に新規パスワードを送信しておきました。</p>"
    loginform "Login again" echo "</body></html>"
    exit 0
  fi
  htmlhead "Miniblog"
  loginlink			# loginフォームへのリンク
fi
[ -n "$editkey" ] || putblog	# データ更新後の登録エントリを出力
echo '</body></html>'

cookietest.cgi

#!/bin/sh
cd `dirname $0`
. ./cgiauthlib-sh
myname=`basename $0`

cookieval=`getcookie cook`
formval=`getpar cook | tr -dc 'A-Za-z0-9'`
setcookie cook="$formval"

htmlhead "COOK!"
cat<<EOF
<form action="$myname" method="POST">
<table>
 <tr><td>英数字文字列を入れてね:</td>
  <td><input name="cook"></td></tr>
</table>
<input type="submit" value="OK">
<input type="reset" value="Reset">
</form>
<p>今回送られたcookie[cook]の値は
<span style="color: red;">$cookieval</span> です。</p>
</body></html>
EOF