<pre><code>#!/usr/local/icmchemist/icmchemist64 -w/usr/local/icmchemist

# content type
printf "Content-type: text/html;\n\n"

# get CGI params (GET or POST)
params = Collection(web) 

act = Exist(params,"act") ? params,["act"] : ""

if (act == "") then
#
# Generates HTML page with the editor and placeholder for the search results
#
"""
  &lt;!DOCTYPE HTML&gt;
  &lt;html&gt;
  &lt;head&gt;
  &lt;meta http-equiv="X-UA-Compatible" content="IE=edge" &gt;
  &lt;title&gt;Molsoft Chemical Search Demo&lt;/title&gt;
  &lt;link rel="stylesheet" type="text/css" href="chemsearch.css"&gt;

  &lt;script src="http://www.molsoft.com/web/moledit.js" type="text/javascript"&gt;&lt;/script&gt;
  &lt;script&gt;
  var fromIdHistory = [];
  function next(fromid)
  {
    if (document.moledit.isEmpty())
      return;
    fromIdHistory[fromIdHistory.length] = fromid;
    runSearch(fromid);
  }
  function prev()
  {
     if (document.moledit.isEmpty())
       return;
     if (fromIdHistory.length &gt; 1) {
       var id =  fromIdHistory[fromIdHistory.length-2];
       fromIdHistory.splice(fromIdHistory.length-1,1);
       runSearch(id);
     }
  }

  function runSearch(fromid)
  {
    document.moledit.chem.toSmiles( function (smi) {
      var req = getXMLObject(true); 
      var that = this;
      var e = document.getElementById("searchResult");
      var maxhits = parseInt( document.getElementById("hitsPerPage").value );
      e.innerHTML = '&lt;br&gt;&lt;br&gt;&lt;img src="ajax-loader.gif" &gt;'
      req.onload = function (e) {
        //
        // search results are ready here
        //
        var res = req.responseText.split("\n");
        var n = parseInt(res[0]); // number of hits

        var e = document.getElementById("searchResult");  
        if (n == 0) {
           e.innerHTML = "no hits"
        } else {
           var lastId = parseInt(res[3]);

           var s_prevLink = ( fromIdHistory.length &gt; 1 ) ? sprintf('&lt;a href="javascript:prev()"&gt;&amp;lt;&amp;lt;&lt;/a&gt;') : ""
           var s_nextLink = ( n == maxhits             ) ? sprintf('&lt;a href="javascript:next(%d)"&gt;&amp;gt;&amp;gt;&lt;/a&gt;',lastId+1) : "";

           var s_html = sprintf('&lt;p&gt;%s %d hits %s&lt;/p&gt;', s_prevLink ,n, s_nextLink );
           s_html += '&lt;div style="width: 90%; height: 800px; overflow-y: scroll;"&gt;' + res[1] + '&lt;/div&gt;'
           e.innerHTML = s_html; // table with hits
           eval( res[2] ); // evaluate javascript code to draw chemical structures
        }
      }
      // send search request
      var url =  sprintf("chemsearch.cgi?act=search&amp;smi=%s&amp;type=%s&amp;fromid=%d&amp;maxhits=%d", 
         encodeURIComponent(smi), document.getElementById('searchType').value, fromid, maxhits  );
      console.log(url);
      req.open("GET", url );
      req.send();
    },
    false );
  }
  &lt;/script&gt;
  &lt;/head&gt;
  &lt;body&gt;
  &lt;center&gt;
  &lt;h1&gt; Molsoft Chemical Search Demo &lt;/h1&gt;
  &lt;p&gt;
  Draw the structure and click the search button: &lt;button onClick="fromIdHistory=[];next(1);"&gt;Search&lt;/button&gt; by:
  &lt;select id="searchType"&gt; 
     &lt;option value="sstructure"&gt;Substructure&lt;/option&gt; 
     &lt;option value="similarity"&gt;Similarity&lt;/option&gt;
     &lt;option value="exact"&gt;Exact&lt;/option&gt; 
  &lt;/select&gt;
  Hits per page:
  &lt;select id="hitsPerPage"&gt; &lt;option&gt;10&lt;/option&gt; &lt;option&gt;50&lt;/option&gt; &lt;option&gt;100&lt;/option&gt; &lt;/select&gt;
  &lt;p&gt;
  &lt;div id="chem1" style="width:590px;border:2px solid gray; border-radius:5px;"&gt;&lt;/div&gt;
  &lt;script&gt;document.moledit = new ChemicalView("", 'chem1', 500, 400 );&lt;/script&gt;
  &lt;p&gt;Click &lt;a href="chemsearch.cgi?act=source" target="_blank"&gt;here&lt;/a&gt; to see the source code. 
  Check &lt;a href="http://molsoft.com/icm/cgi-programming-with-icm.html" target="_blank"&gt;ICM scripting manual&lt;/a&gt; for more information&lt;/p&gt;
  
  &lt;div id="searchResult"&gt; &lt;/div&gt;

  &lt;/center&gt;
  &lt;/body&gt;
  &lt;/html&gt;
"""

elseif (act == "search" &amp; Exist(params,"smi") ) then
#
# perform chemical search return the results 
# line 1: number of hits
# line 2: HTML table with result
# line 3: javascript code to render compounds
    connect molcart filename="PDBligands_2D.molt"

    searchType = Exist(params,"type")    ? params["type"]   : "sstructure"
    fromid     = Exist(params,"fromid")  ? Integer(params["fromid"])   : 1
    maxhits    = Exist(params,"maxhits") ? Integer(params["maxhits"])  : 10

    find molcart $searchType params["smi"] table="PDBligands_2D" name="t" number=maxhits query = " t.molid &gt;= " + fromid 
    
    show Nof(t)
    if (Nof(t) &gt; 0) then
      add column t Predict(t.mol)
      show html t output = "s_html"
      show Replace(Match(s_html,"&lt;body.*?&gt;(?n)(.*)&lt;/body&gt;", 1 ), "\n" " ")
      show Replace(Match(s_html,"&lt;script.?&gt;(?n)(.*)&lt;/script&gt;", 1 ) + ";onLoad_t();",  "\n" " ")
      show t.molid[$]
    endif
elseif (act == "source" ) then
  read string "chemsearch.cgi" 
  show "&lt;pre&gt;&lt;code&gt;" + Replace(s_out,{"&lt;","&gt;","&amp;"},{"&amp;lt;","&amp;gt;","&amp;amp;"}) + "&lt;/code&gt;&lt;/pre&gt;"
endif

quit
</code></pre>