show source

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<!--
[
(define (valid-cookie-name obj)
  (and (brl-starts-with? "fnord" obj)
       obj))
(define title "Dynamic Cookies")
(define-input (valid-cookie-name name) value)
(if (brl-nonblank? name)
    (brl-cookie-set! brl-context (string->symbol name) value))
]
-->
<title>[title]</title>
<link rel=stylesheet type="text/css" href="[brlcab-top]brl.css">
</head>

<body>

[brlcab-mascot]

<h1>[title]</h1>

[(brl-context-cookies brl-context)]

<form method="GET">
Cookie Name (must start with fnord):
<input type=text name=name>
Cookie Value:
<input type=text name=value>
<input type=submit value="Set Cookie">
</form>

<hr>
<p>
   <a href="[(brl-source-link brl-context)]">View Source</a></p>
</body>
</html>