#!/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