Thank you; it seems to compile now, but it's crashing (runtime);
there's a library installed on my system that it's not picking up.<br>
<br>
The error message is:<br>
<br>
jonathan@inner-sanctum:~/csi/ml$ ocamlrun ocaml ./demo.ml<br>
Cannot load required shared library dllpcre_stubs.<br>
Reason: dllpcre_stubs.so: cannot open shared object file: No such file or directory.<br>
Reference to undefined global `Pcre'<br>
jonathan@inner-sanctum:~/csi/ml$ <br>
<br>
Slocate finds the library in /usr/lib/ocaml/3.08.3/stublibs/dllpcre_stubs.so ; do I need to tell the script to search there?<br>
<br>
The script (missing &quot; in&quot; appended to the appropriate line) is:<br>
<br>
#!/usr/bin/ocamlrun ocaml<br>
<br>
(* Change the directories as needed for your system. *)<br>
#directory &quot;/usr/lib/ocaml/3.08.3/pcre&quot;;;<br>
#load &quot;pcre.cma&quot;;;<br>
#load &quot;unix.cma&quot;;;<br>
#directory &quot;/usr/lib/ocaml/3.08.3/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; in<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>
--<br>
<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!