fun log x = Web.log(Web.Debug, x)
val _ = log ("1")
val person = Auth.verifyPerson()
val _ = log ("1")
val pid = Web.Info.pid()
val _ = log("pid: " ^ (Int.toString pid))
val query =
`select person.person_id, person.name, link_id,
person.url as purl, link.url, link.text
from person, link
where person.person_id = link.person_id`
val _ = log ("1")
fun delete g =
if Int.fromString (g"person_id") = person
then
` delete`
else ``
val _ = log ("1")
fun layoutRow (g, acc) =
`` ^^ acc
val _ = log ("1")
val loginout =
case person
of NONE =>
`To manage links that you have entered, please
login.`
| SOME p =>
let val name = Db.oneField
`select name from person
where person_id = ^(Int.toString p)`
in `You are logged in as user ^(name) - you may
logout.`
end
val _ = log ("2")
val list = Db.fold layoutRow `` query
val _ = log ("3")
val _ =
Page.return "Web sites that use SMLserver"
(loginout ^^ ``)