let handle_actions cgi s = match s with
| "Load" -> handle_html_arg cgi "full_path" P.load_student_file;
| "Reload" -> P.load_student_file !etud_file;
| "Save" -> handle_html_arg cgi "etud_file"
(fun s -> Printf.printf "Save : %s\n" s;
flush stdout;
save_student_list s);
| _ -> ()