ml_debug
	datastore:wiki
	post-ml:-
	type:text/plain
;;;
(input-text 'Login)
(input-text 'Password)

($sqlite3 'database
	(sql "select UID,Login,CPW from Member where Login=:login"
		:bind ':login Login
		:answer '(uid login cpw))
)
(if (password-match Password cpw)
		(progn
			($login-cookie "wikisession" "WikiSession"
				(login "1" (* 3600 6))
			)
			(motor-output "OK")
		)
	(motor-output "NG")
)