adamc@779: cookie username : string adamc@779: adamc@779: table lastVisit : { User : string, When : time } adamc@779: PRIMARY KEY User adamc@779: adamc@779: fun main () = adamc@779: userO <- getCookie username; adamc@779: adamc@779: list <- queryX (SELECT * FROM lastVisit) adamc@779: (fn r => {[r.LastVisit.User]} {[r.LastVisit.When]}); adamc@779: adamc@779: return adamc@779: Cookie: {[userO]}
adamc@779: adamc@779: adamc@779: adamc@779: {list} adamc@779:
User Last Visit
adamc@779: adamc@779:

Set cookie value

adamc@779:
adamc@779: adamc@779:

Record your visit

adamc@779:
adamc@779:
adamc@779: adamc@779: and set r = adamc@779: setCookie username r.User; adamc@779: main () adamc@779: adamc@779: and imHere () = adamc@779: userO <- getCookie username; adamc@779: case userO of adamc@779: None => return You don't have a cookie set! adamc@779: | Some user => adamc@779: dml (DELETE FROM lastVisit WHERE User = {[user]}); adamc@779: dml (INSERT INTO lastVisit (User, When) VALUES ({[user]}, CURRENT_TIMESTAMP)); adamc@779: main () adamc@779: