- let sth = dbh#prepare_cached "insert into users (name, password, email,
- hostid, can_edit, can_manage_users,
- can_manage_contacts, can_manage_site,
- can_edit_global_css)
- values (?, ?, ?, ?, ?, ?, ?, ?, ?)" in
- sth#execute [`String username; `String password; email; `Int hostid;
- `Bool can_edit; `Bool can_manage_users;
- `Bool can_manage_contacts; `Bool can_manage_site;
- `Bool can_edit_global_css];
-
- dbh#commit ();
+ PGSQL(dbh)
+ "insert into users (name, password,
+ hostid, can_edit, can_manage_users,
+ can_manage_contacts, can_manage_site,
+ can_edit_global_css, can_import_mail,
+ force_password_change)
+ values ($username, $password, $hostid, $can_edit, $can_manage_users,
+ $can_manage_contacts, $can_manage_site,
+ $can_edit_global_css, $can_import_mail,
+ $force_password_change)";
+
+ PGOCaml.commit dbh;