I now have the script below. I was slightly surprised it didn't get an
error as I had it load /usr/lib/ocaml/3.08.3/cgi/netcgi.cma, and the
directory contains:<br>
<br>
<span style="font-family: courier new,monospace;">cgi.a&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
netcgi_env.cmi&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
netcgi_fcgi.mli&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
netcgi_jserv.cmi<br>
cgi.cma&nbsp;&nbsp;&nbsp;&nbsp; netcgi_env.mli&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; netcgi_jserv_ajp12.cmi&nbsp; netcgi_jserv.mli<br>
cgi.cmxa&nbsp;&nbsp;&nbsp; netcgi_fcgi_10.cmi&nbsp; netcgi_jserv_ajp12.mli&nbsp; netcgi.mli<br>
META&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; netcgi_fcgi_10.mli&nbsp; netcgi_jserv_app.cmi&nbsp;&nbsp;&nbsp; netcgi_types.cmi<br>
netcgi.cmi&nbsp; netcgi_fcgi.cmi&nbsp;&nbsp;&nbsp;&nbsp; netcgi_jserv_app.mli&nbsp;&nbsp;&nbsp; netcgi_types.mli</span><br>
<br>
<br>
<br>
When I run it, I get a different and shorter error message:<br>
<br>
File &quot;./demo.ml&quot;, line 35, characters 2-5:<br>
Syntax error<br>
<br>
The line in question is:<br>
<br>
&nbsp;&nbsp;&nbsp; | &quot;1&quot; -&gt; &quot;Yes&quot;<br>
<br>
Is there some irritating little syntax error around line 35?<br>
<br>
--<br>
<br>
#!/usr/bin/ocamlrun ocaml<br>
<br>
(* Change the directories as needed for your system. *)<br>
#directory &quot;+pcre&quot;;;<br>
#load &quot;pcre.cma&quot;;;<br>
#load &quot;unix.cma&quot;;;<br>
#directory &quot;+netstring&quot;;;<br>
#load &quot;netstring.cma&quot;;;<br>
#directory &quot;/usr/lib/ocaml/3.08.3/cgi/&quot;;;<br>
#load &quot;netcgi.cma&quot;;;<br>
<br>
open Netcgi<br>
<br>
let text = Netencoding.Html.encode_from_latin1<br>
&nbsp; (* This function encodes &quot;&lt;&quot;, &quot;&gt;&quot;, &quot;&amp;&quot;, double quotes, and Latin 1<br>
&nbsp;&nbsp;&nbsp;&nbsp; characters as character entities.&nbsp; E.g. text &quot;&lt;&quot; = &quot;&amp;lt;&quot;, and<br>
&nbsp;&nbsp;&nbsp;&nbsp; text &quot;ä&quot; = &quot;&amp;auml;&quot; *)<br>
<br>
(* Normally you would use a template system instead of this *)<br>
let html_page (cgi:cgi) title html =<br>
&nbsp; let out = cgi#out_channel#output_string in<br>
&nbsp; out &quot;&lt;!DOCTYPE html PUBLIC \&quot;-//W3C//DTD HTML 4.0//EN\&quot; \<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \&quot; <a href="http://www.w3.org/TR/REC-html40/strict.dtd\">http://www.w3.org/TR/REC-html40/strict.dtd\</a>&quot;&gt;\n&quot;;<br>
&nbsp; out (&quot;&lt;html&gt;\n&lt;head&gt;&lt;title&gt;&quot; ^ text title ^&quot;&lt;/title&gt;&lt;/head&gt;<br>
&lt;body&gt;\n&quot;);<br>
&nbsp; out html;<br>
&nbsp; out &quot;&lt;/body&gt;\n&lt;/html&gt;&quot;<br>
<br>
let main (cgi:cgi) =<br>
&nbsp; cgi#set_header<br>
&nbsp;&nbsp;&nbsp; ~cache:`No_cache<br>
&nbsp;&nbsp;&nbsp; ~content_type:&quot;text/html; charset=\&quot;iso-8859-1\&quot;&quot;<br>
&nbsp;&nbsp;&nbsp; ();<br>
&nbsp; let foo = cgi#argument_value &quot;foo&quot;<br>
&nbsp; let html = match foo with<br>
&nbsp;&nbsp;&nbsp; | &quot;1&quot; -&gt; &quot;Yes&quot;<br>
&nbsp;&nbsp;&nbsp; | &quot;0&quot; -&gt; &quot;No&quot;<br>
&nbsp;&nbsp;&nbsp; | _ -&gt; &quot;Undefined&quot; in<br>
&nbsp; html_page cgi foo html<br>
<br>
(* You can buffer or not the output.&nbsp; If buffered you can rollback<br>
&nbsp;&nbsp; (useful in case of error). You can replace Netcgi_cgi.run by<br>
&nbsp;&nbsp; another connector entry point (FCGI, SCGI, AJP, Apache mod). *)<br>
let () =<br>
&nbsp; let buffered _ ch = new Netchannels.buffered_trans_channel ch in<br>
&nbsp; Netcgi_cgi.run ~output_type:(`Transactional buffered) main<br>
<br clear="all"><br>-- <br>++ Jonathan Hayward, <a href="mailto:jonathan.hayward@pobox.com">jonathan.hayward@pobox.com</a><br>** To see an award-winning website with stories, essays, artwork,<br>** games, and a four-dimensional maze, why not visit my home page?
<br>** All of this is waiting for you at <a href="http://JonathansCorner.com">http://JonathansCorner.com</a><br><br>** If you'd like a Google Mail (<a href="http://gmail.com">gmail.com</a>) account, please tell me!