- let buttons = [ ok_button "/_login" ] in
- ok ~buttons ~title:"Password sent by email"
- dbh hostid q
- ("Your password was sent by email. If you don't receive the password " ^
- "within an hour, please notify the site's administrator.")
- with
- Not_found ->
- (* Artificially limit the rate at which people can search the database
- * for usernames.
- *)
- Unix.sleep 10;
-
- error ~back_button:true ~title:"Nothing known"
- dbh hostid q
- "Sorry, don't know anyone with that name or email address."
+ let buttons = [ ok_button "/_login" ] in
+ ok ~buttons ~title:"Password sent by email"
+ dbh hostid q
+ ("Your password was sent by email. If you don't receive the password " ^
+ "within an hour, please notify the site's administrator.")