X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=scripts%2Fcocanwiki_ok.ml;h=08cd71a77fcb1e8835c7d678d09969cdef092fdb;hb=8f95b1ac0361fab0f5b12762b01e81ffe1cbab99;hp=a7fe4ed2efa96abe128c7e850eca6b6057a2a4a4;hpb=714e5e5b4b585da1eca55274e3903ee9a1dbf0d6;p=cocanwiki.git diff --git a/scripts/cocanwiki_ok.ml b/scripts/cocanwiki_ok.ml index a7fe4ed..08cd71a 100644 --- a/scripts/cocanwiki_ok.ml +++ b/scripts/cocanwiki_ok.ml @@ -1,7 +1,22 @@ -(* COCANWIKI scripts. +(* COCANWIKI - a wiki written in Objective CAML. * Written by Richard W.M. Jones . * Copyright (C) 2004 Merjis Ltd. - * $Id: cocanwiki_ok.ml,v 1.2 2004/09/07 13:40:10 rich Exp $ + * $Id: cocanwiki_ok.ml,v 1.5 2004/09/09 12:21:22 rich Exp $ + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; see the file COPYING. If not, write to + * the Free Software Foundation, Inc., 59 Temple Place - Suite 330, + * Boston, MA 02111-1307, USA. *) open Apache @@ -9,14 +24,12 @@ open Registry open Cgi open Printf -open Merjisforwiki - open Cocanwiki_template (* Override StdPages.ok and StdPages.error with out our versions. * Also have some standard buttons around. *) -let ok_error_template = get_template "ok_error.html" +let ok_error_template = _get_template "ok_error.html" let error ?cookie ?cookies ?title ?(icon = "/_graphics/error.png") ?icon_alt ?back_button ?close_button q message =