(try
MatitaAuthentication.add_user uid userpw;
(* env#set_output_header_field "Location" "/index.html" *)
- cgi#outchannel#output_string
+ cgi#out_channel#output_string
("<html><head><meta http-equiv=\"refresh\" content=\"2;url=/login.html\">"
^ "</head><body>Redirecting to login page...</body></html>")
with
env#set_output_header_field
"Set-Cookie" ("session=" ^ (Uuidm.to_string sid));
(* env#set_output_header_field "Location" "/index.html" *)
- cgi#outchannel#output_string
+ cgi#out_channel#output_string
("<html><head><meta http-equiv=\"refresh\" content=\"2;url=/index.html\">"
^ "</head><body>Redirecting to Matita page...</body></html>")
end