#!/usr/bin/gosh

(add-load-path ".")
(use esc)
(use www.cgi)


(define
	main
	(lambda
		args

		(define param (cgi-parse-parameters))
		(define param-hash (make-hash-table 'string=?))
		(hash-table-put! param-hash "title" "epl-test-page")
		(hash-table-put! param-hash "script-name" "epl_cgi.scm")
		(hash-table-put!
			param-hash
			"input"
			(cgi-get-parameter "input" param :default ""))

		(display "Content-Type: text/html; charset=euc-jp\n\n")
		(display
			(esc-eval
				(call-with-input-file "tmpl.esc" port->string)
				param-hash
				(list 10 20 30 40 50)))))