cgiを書いてみた。

inputに値を入れて返すだけのcgi
一応日本語も通る。
#' ,のコンビでヒアドキュメントっぽく扱ってるが"の扱いが面倒だな。

#!/usr/bin/gosh
(use www.cgi)
(define cgi (cgi-parse-parameters))
(display
 #`"Content-type: text/html; charset=UTF-8

<h2>form test</h2>
<form method=get action='param.cgi'>
 <input name=text value=',(cgi-get-parameter \"text\" cgi :default \"\")'>
 <input type=submit>
</form>
")