66
CHAPTER 5. EXAMPLES OF SCHEME SERVLETS
; pwpage.servlet
(servlet (pw)
(case pw
((#null)
{Password Form
Please enter the correct password below
[(java.util.Date.)]
Please enter the password for this page:
})
(("yes! scheme")
{Secret Page
Welcome to the secret page
The door combination is 6 20 5
})
(else
{Password Form
Wrong password, go back and try again
})))
))]
Figure 5.1: A simple Password Protected Page