- (* Pull out any email notifications. *)
- let sth = dbh#prepare_cached "select email, name from email_notify
- where hostid = ?" in
- sth#execute [`Int hostid];
-
- let table = sth#map (function
- [`String email; `Null] ->
- [ "email", Template.VarString email;
- "name", Template.VarString "" ]
- | [ `String email; `String name] ->
- [ "email", Template.VarString email;
- "name", Template.VarString name ]
- | _ -> assert false) in
- template#table "emails" table;
-