2 * Written by Richard W.M. Jones <rich@merjis.com>.
3 * Copyright (C) 2004 Merjis Ltd.
4 * $Id: search.ml,v 1.1 2004/09/07 10:14:09 rich Exp $
15 let search : ('a -> 'b -> 'c, unit, string, string) format4 =
16 "http://www.google.com/search?q=site:%s+%s"
18 let run r (q : cgi) (dbh : Dbi.connection) (hostid, hostname) _ =
19 let query = q#param "q" in
21 let query = sprintf search (escape_url hostname) (escape_url query) in