+ let server_settings_crash_email dbh =
+ let (_, _, crash_email) =
+ match !settings with
+ None -> get_settings dbh
+ | Some settings -> settings in
+ crash_email
+ in
+
+ server_settings_version, server_settings_stats_page,
+ server_settings_crash_email