op-login.hml

   1 ml_debug
   2         datastore:wiki
   3         post-ml:-
   4         type:text/plain
   5 ;;;
   6 (input-text 'Login)
   7 (input-text 'Password)
   8
   9 ($sqlite3 'database
  10         (sql "select UID,Login,CPW from Member where Login=:login"
  11                 :bind ':login Login
  12                 :answer '(uid login cpw))
  13 )
  14 (if (password-match Password cpw)
  15                 (progn
  16                         ($login-cookie "wikisession" "WikiSession"
  17                                 (login "1" (* 3600 6))
  18                         )
  19                         (motor-output "OK")
  20                 )
  21         (motor-output "NG")
  22 )
  23