#!/usr/bin/newlisp

(load "cgi.lsp")

(CGI:set-cookie "key" (uuid) "www.newlisp.org" "/code")

(print "Content-Type: text/html\r\n\r\n")

(if (CGI:get-cookie "key")
	(println "<h2>Cookie found:" (CGI:get-cookie "key") "<\h2>")
	(println "<h2>No cookie found, reload page to set cookie</h2>"))

(println {<a href="http://www.newlisp.org/syntax.cgi?code/cookie-cgi.txt">source</a>})

(exit)