let srv =
host_distributor
[ default_host ~pref_name:"localhost" ~pref_port:8765 (),
uri_distributor
[ "*", (options_service());
"/", (dynamic_service
{ dyn_handler = root_page;
dyn_activation = std_activation `Std_activation_buffered;
dyn_uri = Some "/";
dyn_translator = (fun _ -> "");
dyn_accept_all_conditionals = false
});
"/dcrt", (file_service fs_spec);
"/index.html", (dynamic_service
{ dyn_handler = root_page;
dyn_activation = std_activation `Std_activation_buffered;
dyn_uri = Some "/index.html";
dyn_translator = (fun _ -> "");
dyn_accept_all_conditionals = false
});
"/list.html", (dynamic_service
{ dyn_handler = list_student;
dyn_activation = std_activation `Std_activation_buffered;
dyn_uri = Some "/list.html";
dyn_translator = (fun _ -> "");
dyn_accept_all_conditionals = false
});
"/project.html", (dynamic_service
{ dyn_handler = show_project;
dyn_activation = std_activation `Std_activation_buffered;
dyn_uri = Some "/project.html";
dyn_translator = (fun _ -> "");
dyn_accept_all_conditionals = false
});
"/team.html", (dynamic_service
{ dyn_handler = show_team;
dyn_activation = std_activation `Std_activation_buffered;
dyn_uri = Some "/team.html";
dyn_translator = (fun _ -> "");
dyn_accept_all_conditionals = false
});
"/student.html", (dynamic_service
{ dyn_handler = show_student;
dyn_activation = std_activation `Std_activation_buffered;
dyn_uri = Some "/student.html";
dyn_translator = (fun _ -> "");
dyn_accept_all_conditionals = false
});
"/gradelist.html", (dynamic_service
{ dyn_handler = show_gradelist;
dyn_activation = std_activation `Std_activation_buffered;
dyn_uri = Some "/gradelist.html";
dyn_translator = (fun _ -> "");
dyn_accept_all_conditionals = false
});
"/orals.html", (dynamic_service
{ dyn_handler = show_orals;
dyn_activation = std_activation `Std_activation_buffered;
dyn_uri = Some "/orals.html";
dyn_translator = (fun _ -> "");
dyn_accept_all_conditionals = false
});
]
]