Wiki administration

. See /_js/editor.js for details. + *) + +open Apache +open Registry +open Cgi +open Printf + +open Cocanwiki + +let run r (q : cgi) (dbh : Dbi.connection) (hostid, _) _ = + let content = q#param "content" in + let xhtml = Wikilib.xhtml_of_content dbh hostid content in + + q#header ~content_type:"text/html; charset=utf-8" (); + print_string r xhtml + +let () = + register_script run diff --git a/scripts/recent.ml b/scripts/recent.ml new file mode 100644 index 0000000..39526ca --- /dev/null +++ b/scripts/recent.ml @@ -0,0 +1,68 @@ +(* COCANWIKI scripts. + * Written by Richard W.M. Jones . + * Copyright (C) 2004 Merjis Ltd. + * $Id: recent.ml,v 1.1 2004/09/07 10:14:09 rich Exp $ + *) + +open Apache +open Registry +open Cgi +open Printf + +open Cocanwiki + +let template = get_template "recent.html" + +let max_age = "3 months" + +let run r (q : cgi) (dbh : Dbi.connection) (hostid, _) _ = + let sth = + dbh#prepare_cached + "select id, url, url_deleted, title, last_modified_date, logged_ip + from pages + where hostid = ? + and last_modified_date >= current_timestamp - interval ? + order by last_modified_date desc" in + sth#execute [`Int hostid; `String max_age]; + + let table = + sth#map + (function + | [`Int version; `String url; _; `String title; + `Timestamp last_modified_date; logged_ip] -> + let date = printable_date_time last_modified_date in + let has_logged_ip, logged_ip = + match logged_ip with + `Null -> false, "" + | `String ip -> true, ip + | _ -> assert false in + [ "version", Template.VarString (string_of_int version); + "url", Template.VarString url; + "title", Template.VarString title; + "last_modified_date", Template.VarString date; + "has_logged_ip", Template.VarConditional has_logged_ip; + "logged_ip", Template.VarString logged_ip; + "is_live", Template.VarConditional true ] + | [`Int version; `Null; `String url; `String title; + `Timestamp last_modified_date; logged_ip] -> + let date = printable_date_time last_modified_date in + let has_logged_ip, logged_ip = + match logged_ip with + `Null -> false, "" + | `String ip -> true, ip + | _ -> assert false in + [ "version", Template.VarString (string_of_int version); + "url", Template.VarString url; + "title", Template.VarString title; + "last_modified_date", Template.VarString date; + "has_logged_ip", Template.VarConditional has_logged_ip; + "logged_ip", Template.VarString logged_ip; + "is_live", Template.VarConditional false ] + | _ -> assert false) in + + template#table "recent_changes" table; + + q#template template + +let () = + register_script run diff --git a/scripts/restore.ml b/scripts/restore.ml new file mode 100644 index 0000000..a77cff1 --- /dev/null +++ b/scripts/restore.ml @@ -0,0 +1,89 @@ +(* COCANWIKI scripts. + * Written by Richard W.M. Jones . + * Copyright (C) 2004 Merjis Ltd. + * $Id: restore.ml,v 1.1 2004/09/07 10:14:09 rich Exp $ + *) + +open Apache +open Registry +open Cgi +open Printf + +open Cocanwiki +open Cocanwiki_ok +open Cocanwiki_diff +open Cocanwiki_emailnotify + +open Merjisforwiki + +let run r (q : cgi) (dbh : Dbi.connection) (hostid, hostname) _ = + let version = int_of_string (q#param "version") in + let page = q#param "page" in + + if q#param_true "yes" then ( + (* Get the IP address of the user, if available. *) + let logged_ip = + try `String (Connection.remote_ip (Request.connection r)) + with Not_found -> `Null in + + (* Copy the old version of the page to be live. *) + let sth = dbh#prepare_cached "select title, description, creation_date, + redirect, css + from pages + where hostid = ? + and url_deleted = ? and id = ?" in + sth#execute [`Int hostid; `String page; `Int version]; + + let title, description, creation_date, redirect, css = + match sth#fetch1 () with + [ title; description; creation_date; redirect; css ] -> + title, description, creation_date, redirect, css + | _ -> assert false in + + let sth = + dbh#prepare_cached "set constraints pages_redirect_cn deferred" in + sth#execute []; + + let sth = dbh#prepare_cached "update pages set url_deleted = url, + url = null + where hostid = ? and url = ?" in + sth#execute [`Int hostid; `String page]; + + let sth = dbh#prepare_cached "insert into pages (hostid, url, title, + description, creation_date, logged_ip, + redirect, css) + values (?, ?, ?, ?, ?, ?, ?, ?)" in + sth#execute [`Int hostid; `String page; title; description; + creation_date; logged_ip; redirect; css ]; + + let pageid = sth#serial "pages_id_seq" in + + let sth = dbh#prepare_cached "insert into contents (pageid, ordering, + sectionname, content, divname) + select ? as pageid, ordering, sectionname, + content, divname + from contents + where pageid = ?" in + sth#execute [`Int pageid; `Int version]; + + dbh#commit (); + + (* Email notify. *) + let subject = "Page " ^ page ^ " has been restored." in + let body = fun () -> + (* Prepare the diff between this version and the previous version. *) + let diff, _ = get_diff dbh hostid page ~version:pageid () in + "Page: http://" ^ hostname ^ "/" ^ page ^ "\n\n" ^ + diff in + + email_notify ~body ~subject dbh hostid; + + (* Done. *) + let buttons = [ ok_button ("/" ^ page) ] in + ok ~title:"Restored" ~buttons + q "The old page was restored successfully." + ) else + q#redirect ("http://" ^ hostname ^ "/" ^ page) + +let () = + register_script run diff --git a/scripts/restore_form.ml b/scripts/restore_form.ml new file mode 100644 index 0000000..050f6e8 --- /dev/null +++ b/scripts/restore_form.ml @@ -0,0 +1,51 @@ +(* COCANWIKI scripts. + * Written by Richard W.M. Jones . + * Copyright (C) 2004 Merjis Ltd. + * $Id: restore_form.ml,v 1.1 2004/09/07 10:14:09 rich Exp $ + *) + +open Apache +open Registry +open Cgi +open Printf + +open Merjisforwiki + +open Cocanwiki +open Cocanwiki_ok +open Cocanwiki_diff + +let template = get_template "restore_form.html" + +let run r (q : cgi) (dbh : Dbi.connection) (hostid, _) _ = + (* Parameters. *) + let page = q#param "page" in + let old_version = int_of_string (q#param "version") in + + template#set "page" page; + template#set "version" (string_of_int old_version); + + (* Compute the diff between the latest version of this page and the + * page we're wanting to restore. + *) + let sth = dbh#prepare_cached "select id from pages + where hostid = ? and url = ?" in + sth#execute [`Int hostid; `String page]; + + let version = sth#fetch1int () in + + if version = old_version then ( + error ~back_button:true ~title:"Restoring live version" + q "You seem to be trying to restore the live version."; + raise CgiExit + ); + + let diff, _ = get_diff dbh hostid page ~old_version ~version () in + + (* Display the diff. *) + template#set "diff" diff; + + q#template template + +let () = + register_script run diff --git a/scripts/search.ml b/scripts/search.ml new file mode 100644 index 0000000..369afcf --- /dev/null +++ b/scripts/search.ml @@ -0,0 +1,26 @@ +(* COCANWIKI scripts. + * Written by Richard W.M. Jones . + * Copyright (C) 2004 Merjis Ltd. + * $Id: search.ml,v 1.1 2004/09/07 10:14:09 rich Exp $ + *) + +open Apache +open Registry +open Cgi +open Cgi_escape +open Printf + +open Cocanwiki + +let search : ('a -> 'b -> 'c, unit, string, string) format4 = + "http://www.google.com/search?q=site:%s+%s" + +let run r (q : cgi) (dbh : Dbi.connection) (hostid, hostname) _ = + let query = q#param "q" in + + let query = sprintf search (escape_url hostname) (escape_url query) in + + q#redirect query + +let () = + register_script run diff --git a/scripts/sitemap.ml b/scripts/sitemap.ml new file mode 100644 index 0000000..154f2f0 --- /dev/null +++ b/scripts/sitemap.ml @@ -0,0 +1,59 @@ +(* COCANWIKI scripts. + * Written by Richard W.M. Jones . + * Copyright (C) 2004 Merjis Ltd. + * $Id: sitemap.ml,v 1.1 2004/09/07 10:14:09 rich Exp $ + *) + +open Apache +open Registry +open Cgi +open Printf + +open Merjisforwiki + +open Cocanwiki + +let template = get_template "sitemap.html" + +let run r (q : cgi) (dbh : Dbi.connection) (hostid, hostname) _ = + (* Pull out all the current pages, and a bit of content from each. *) + let sth = dbh#prepare_cached "select p.url, p.url = 'index', + p.title, p.description, + p.last_modified_date, + (select content from contents + where pageid = p.id + order by ordering limit 1) as content + from pages p + where p.hostid = ? and p.url is not null + and p.redirect is null + order by 2 desc, 3, 1" in + sth#execute [`Int hostid]; + + let table = + sth#map + (function [`String url; _; `String title; `String description; + `Timestamp last_modified_date; + (`Null | `String _) as content] -> + let url = if url = "index" then "" else url in + let date = printable_date last_modified_date in + [ "url", Template.VarString url; + "title", Template.VarString title; + "description", Template.VarString description; + "last_modified_date", Template.VarString date; + "has_content", Template.VarConditional (content <> `Null); + "content", Template.VarString + (match content with + `Null -> "" + | `String c -> + truncate 160 + (Wikilib.text_of_xhtml + (Wikilib.xhtml_of_content dbh hostid c))) ] + | _ -> assert false) in + + template#set "hostname" hostname; + template#table "sitemap" table; + + q#template template + +let () = + register_script run diff --git a/scripts/undelete_file.ml b/scripts/undelete_file.ml new file mode 100644 index 0000000..c4ec21e --- /dev/null +++ b/scripts/undelete_file.ml @@ -0,0 +1,56 @@ +(* COCANWIKI scripts. + * Written by Richard W.M. Jones . + * Copyright (C) 2004 Merjis Ltd. + * $Id: undelete_file.ml,v 1.1 2004/09/07 10:14:09 rich Exp $ + *) + +open Apache +open Registry +open Cgi +open Printf + +open Cocanwiki +open Cocanwiki_ok + +open Merjisforwiki + +let run r (q : cgi) (dbh : Dbi.connection) (hostid, hostname) _ = + let id = int_of_string (q#param "id") in + + if q#param_true "yes" then ( + (* Get the name of the file. *) + let sth = dbh#prepare_cached "select name_deleted from files + where hostid = ? and id = ?" in + sth#execute [`Int hostid; `Int id]; + + let name = sth#fetch1string () in + + (* First delete any more recent versions of this file. *) + let sth = dbh#prepare_cached "update files + set name_deleted = name, name = null + where hostid = ? and name = ?" in + sth#execute [`Int hostid; `String name]; + + (* Now copy the old row, changing name_deleted back to name so the file + * becomes live. + *) + let sth = dbh#prepare_cached "insert into files + (hostid, name, content, title, mime_type, + upload_date) + select hostid, name_deleted, content, + title, mime_type, upload_date + from files + where hostid = ? and id = ?" in + sth#execute [`Int hostid; `Int id]; + + dbh#commit (); + + (* Done. *) + let buttons = [ ok_button "/_files" ] in + ok ~title:"File restored" ~buttons + q "File was restored successfully." + ) else + q#redirect ("http://" ^ hostname ^ "/_files") + +let () = + register_script run diff --git a/scripts/undelete_file_form.ml b/scripts/undelete_file_form.ml new file mode 100644 index 0000000..2f47901 --- /dev/null +++ b/scripts/undelete_file_form.ml @@ -0,0 +1,38 @@ +(* COCANWIKI scripts. + * Written by Richard W.M. Jones . + * Copyright (C) 2004 Merjis Ltd. + * $Id: undelete_file_form.ml,v 1.1 2004/09/07 10:14:09 rich Exp $ + *) + +open Apache +open Registry +open Cgi +open Printf + +open Cocanwiki + +open Merjisforwiki + +let template = get_template "undelete_file_form.html" + +let run r (q : cgi) (dbh : Dbi.connection) (hostid, _) _ = + let id = int_of_string (q#param "id") in + + let sth = dbh#prepare_cached "select name, name_deleted + from files + where hostid = ? and id = ?" in + sth#execute [`Int hostid; `Int id]; + + let name = + match sth#fetch1 () with + [ `String name; `Null] + | [ `Null; `String name] -> name + | _ -> assert false in + + template#set "id" (string_of_int id); + template#set "name" name; + + q#template template + +let () = + register_script run diff --git a/scripts/undelete_image.ml b/scripts/undelete_image.ml new file mode 100644 index 0000000..67c2a9f --- /dev/null +++ b/scripts/undelete_image.ml @@ -0,0 +1,61 @@ +(* COCANWIKI scripts. + * Written by Richard W.M. Jones . + * Copyright (C) 2004 Merjis Ltd. + * $Id: undelete_image.ml,v 1.1 2004/09/07 10:14:09 rich Exp $ + *) + +open Apache +open Registry +open Cgi +open Printf + +open Cocanwiki +open Cocanwiki_ok + +open Merjisforwiki + +let run r (q : cgi) (dbh : Dbi.connection) (hostid, hostname) _ = + let id = int_of_string (q#param "id") in + + if q#param_true "yes" then ( + (* Get the name of the image. *) + let sth = dbh#prepare_cached "select name_deleted from images + where hostid = ? and id = ?" in + sth#execute [`Int hostid; `Int id]; + + let name = sth#fetch1string () in + + (* First delete any more recent versions of this image. *) + let sth = dbh#prepare_cached "update images + set name_deleted = name, name = null + where hostid = ? and name = ?" in + sth#execute [`Int hostid; `String name]; + + (* Now copy the old row, changing name_deleted back to name so the image + * becomes live. + *) + let sth = dbh#prepare_cached "insert into images + (hostid, name, image, width, height, + alt, title, longdesc, class, + mime_type, thumbnail, tn_width, + tn_height, tn_mime_type, upload_date) + select hostid, name_deleted, image, + width, height, alt, title, longdesc, + class, mime_type, thumbnail, + tn_width, tn_height, tn_mime_type, + upload_date + from images + where hostid = ? and id = ?" in + sth#execute [`Int hostid; `Int id]; + + dbh#commit (); + + (* Done. *) + let buttons = [ ok_button "/_images" ] in + ok ~title:"Image restored" ~buttons + q "Image was restored successfully." + ) else + q#redirect ("http://" ^ hostname ^ "/_images") + +let () = + register_script run diff --git a/scripts/undelete_image_form.ml b/scripts/undelete_image_form.ml new file mode 100644 index 0000000..ebf0c73 --- /dev/null +++ b/scripts/undelete_image_form.ml @@ -0,0 +1,42 @@ +(* COCANWIKI scripts. + * Written by Richard W.M. Jones . + * Copyright (C) 2004 Merjis Ltd. + * $Id: undelete_image_form.ml,v 1.1 2004/09/07 10:14:09 rich Exp $ + *) + +open Apache +open Registry +open Cgi +open Printf + +open Cocanwiki + +open Merjisforwiki + +let template = get_template "undelete_image_form.html" + +let run r (q : cgi) (dbh : Dbi.connection) (hostid, _) _ = + let id = int_of_string (q#param "id") in + + let sth = dbh#prepare_cached "select name, name_deleted, width, height, alt + from images + where hostid = ? and id = ?" in + sth#execute [`Int hostid; `Int id]; + + let name, width, height, alt = + match sth#fetch1 () with + [ `String name; `Null; `Int width; `Int height; `String alt] + | [ `Null; `String name; `Int width; `Int height; `String alt] -> + name, width, height, alt + | _ -> assert false in + + template#set "id" (string_of_int id); + template#set "name" name; + template#set "width" (string_of_int width); + template#set "height" (string_of_int height); + template#set "alt" alt; + + q#template template + +let () = + register_script run diff --git a/scripts/upload_file.ml b/scripts/upload_file.ml new file mode 100644 index 0000000..5c0f2c9 --- /dev/null +++ b/scripts/upload_file.ml @@ -0,0 +1,76 @@ +(* COCANWIKI scripts. + * Written by Richard W.M. Jones . + * Copyright (C) 2004 Merjis Ltd. + * $Id: upload_file.ml,v 1.1 2004/09/07 10:14:09 rich Exp $ + *) + +open Apache +open Registry +open Cgi +open Printf + +open ExtString + +open Merjisforwiki + +open Cocanwiki +open Cocanwiki_ok +open Cocanwiki_emailnotify + +let is_ws_re = Pcre.regexp "^\\s*$" +let is_whitespace str = Pcre.pmatch ~rex:is_ws_re str + +(* Valid file names. *) +let file_ok_re = Pcre.regexp "^[a-z0-9][-._a-z0-9]*$" + +let run r (q : cgi) (dbh : Dbi.connection) (hostid, hostname) _ = + let name = q#param "name" in + let title = q#param "title" in + + (* See if there was an upload. *) + let file = + try + let upload = q#upload "file" in + upload.upload_value + with + Not_found -> + error ~title:"No file" ~back_button:true + q "No file was uploaded."; + raise CgiExit in + + (* Check the name is valid. *) + if not (Pcre.pmatch ~rex:file_ok_re name) then ( + error ~title:"Bad File Name" ~back_button:true + q ("The File Name must contain only lowercase English letters, " ^ + "numbers, dots, dashes and underscore."); + raise CgiExit + ); + + (* Identify the MIME type from the extension. *) + let mime_type = mime_type_of_filename name in + + let title = if is_whitespace title then `Null else `String title in + + (* Put the file into the database. *) + let sth = + dbh#prepare_cached + "insert into files (hostid, name, content, title, mime_type) + values (?, ?, ?, ?, ?)" in + sth#execute [`Int hostid; `String name; `Binary file; title; + `String mime_type]; + + dbh#commit (); + + (* Email notify. *) + let subject = "File " ^ name ^ " has been uploaded." in + let body = fun () -> + "Page: http://" ^ hostname ^ "/_files" in + + email_notify ~body ~subject dbh hostid; + + let buttons = [ ok_button "/_files" ] in + ok ~title:"File uploaded" ~buttons + q "File was uploaded successfully." + +let () = + register_script run diff --git a/scripts/upload_file_form.ml b/scripts/upload_file_form.ml new file mode 100644 index 0000000..480a74e --- /dev/null +++ b/scripts/upload_file_form.ml @@ -0,0 +1,22 @@ +(* COCANWIKI scripts. + * Written by Richard W.M. Jones . + * Copyright (C) 2004 Merjis Ltd. + * $Id: upload_file_form.ml,v 1.1 2004/09/07 10:14:09 rich Exp $ + *) + +open Apache +open Registry +open Cgi +open Printf + +open Cocanwiki + +open Merjisforwiki + +let template = get_template "upload_file_form.html" + +let run r (q : cgi) (dbh : Dbi.connection) _ _ = + q#template template + +let () = + register_script run diff --git a/scripts/upload_image.ml b/scripts/upload_image.ml new file mode 100644 index 0000000..58bc7aa --- /dev/null +++ b/scripts/upload_image.ml @@ -0,0 +1,126 @@ +(* COCANWIKI scripts. + * Written by Richard W.M. Jones . + * Copyright (C) 2004 Merjis Ltd. + * $Id: upload_image.ml,v 1.1 2004/09/07 10:14:09 rich Exp $ + *) + +open Apache +open Registry +open Cgi +open Printf + +open ExtString + +open Merjisforwiki + +open Cocanwiki +open Cocanwiki_ok +open Cocanwiki_emailnotify + +let is_ws_re = Pcre.regexp "^\\s*$" +let is_whitespace str = Pcre.pmatch ~rex:is_ws_re str + +(* Valid image names. *) +let image_ok_re = Pcre.regexp "^[a-z0-9][_a-z0-9]*\\.(jpg|jpeg|gif|ico|png)$" + +let run r (q : cgi) (dbh : Dbi.connection) (hostid, hostname) _ = + let name = q#param "name" in + let alt = q#param "alt" in + let title = q#param "title" in + let longdesc = q#param "longdesc" in + let clazz = q#param "class" in + + (* See if there was an upload. *) + let image = + try + let upload = q#upload "image" in + upload.upload_value + with + Not_found -> + error ~title:"No image" ~back_button:true + q "No image was uploaded."; + raise CgiExit in + + (* Check the name is valid. *) + if not (Pcre.pmatch ~rex:image_ok_re name) then ( + error ~title:"Bad Image Name" ~back_button:true + q ("The Image Name must contain only lowercase English letters, " ^ + "numbers and underscore. It must end with .jpg, .gif or .png " ^ + "depending on the image format."); + raise CgiExit + ); + + (* Check the image is an image, and get the size. *) + let mime_type, width, height = + try image_identify image + with + Invalid_argument _ -> + error ~title:"Bad image" ~back_button:true + q ("Unknown image type. Is the file you uploaded really an " ^ + "image?"); + raise CgiExit in + + (* Check the image filename extension matches the MIME type. *) + let ext_ok = + match mime_type with + "image/jpeg" -> + String.ends_with name ".jpg" || + String.ends_with name ".jpeg" + | "image/gif" -> + String.ends_with name ".gif" + | "image/png" -> + String.ends_with name ".png" + | _ -> assert false in + if not ext_ok then ( + error ~title:"Bad Image Name" ~back_button:true + q ("The Image Name extension has to match the image format. " ^ + "For example if the image is in JPEG format, the name must " ^ + "be 'something.jpg'. I detected the following image type " ^ + "in the file you uploaded: " ^ mime_type); + raise CgiExit + ); + + (* Check some ALT text was supplied. *) + if is_whitespace alt then ( + error ~title:"Missing Alt text" ~back_button:true + q ("You must supply Alt text describing the image. This is required " ^ + "by accessibility laws and to allow search engines to discover the " ^ + "content of images."); + raise CgiExit + ); + + let title = if is_whitespace title then `Null else `String title in + let longdesc = if is_whitespace longdesc then `Null else `String longdesc in + let clazz = if is_whitespace clazz then `Null else `String clazz in + + (* Make a thumbnail of this image. *) + let thumbnail, tn_mime_type, tn_width, tn_height = + image_thumbnail image 120 120 in + + (* Put the image into the database. *) + let sth = + dbh#prepare_cached + "insert into images (hostid, name, image, width, height, alt, + title, longdesc, class, thumbnail, tn_width, + tn_height, mime_type, tn_mime_type) + values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" in + sth#execute [`Int hostid; `String name; `Binary image; `Int width; + `Int height; `String alt; title; longdesc; clazz; + `Binary thumbnail; `Int tn_width; `Int tn_height; + `String mime_type; `String tn_mime_type]; + + dbh#commit (); + + (* Email notify. *) + let subject = "Image " ^ name ^ " has been uploaded." in + let body = fun () -> + "Page: http://" ^ hostname ^ "/_images" in + + email_notify ~body ~subject dbh hostid; + + let buttons = [ ok_button "/_images" ] in + ok ~title:"Image uploaded" ~buttons + q "Image was uploaded successfully." + +let () = + register_script run diff --git a/scripts/upload_image_form.ml b/scripts/upload_image_form.ml new file mode 100644 index 0000000..d40a39c --- /dev/null +++ b/scripts/upload_image_form.ml @@ -0,0 +1,22 @@ +(* COCANWIKI scripts. + * Written by Richard W.M. Jones . + * Copyright (C) 2004 Merjis Ltd. + * $Id: upload_image_form.ml,v 1.1 2004/09/07 10:14:09 rich Exp $ + *) + +open Apache +open Registry +open Cgi +open Printf + +open Cocanwiki + +open Merjisforwiki + +let template = get_template "upload_image_form.html" + +let run r (q : cgi) (dbh : Dbi.connection) _ _ = + q#template template + +let () = + register_script run diff --git a/scripts/wikilib.ml b/scripts/wikilib.ml new file mode 100644 index 0000000..2599f0e --- /dev/null +++ b/scripts/wikilib.ml @@ -0,0 +1,469 @@ +(* Library of functions useful for people implementing a Wiki. + * Written by Richard W.M. Jones . + * Copyright (C) 2004 Merjis Ltd. + * $Id: wikilib.ml,v 1.1 2004/09/07 10:14:09 rich Exp $ + *) + +open Apache +open Registry +open Cgi +open Cgi_escape +open Printf + +open ExtString + +open Merjisforwiki + +(* Generate a URL for a new page with the given title. This code checks + * if the URL already exists in the database and can return one of several + * errors. + *) +type genurl_error_t = GenURL_OK of string + | GenURL_TooShort + | GenURL_BadURL + | GenURL_Duplicate of string + +let nontrivial_re = Pcre.regexp ~flags:[`CASELESS] "[a-z0-9]" + +let generate_url_of_title (dbh : Dbi.connection) hostid title = + (* Create a suitable URL from this title. *) + let url = String.map (function '\000' .. ' ' | '<' | '>' | '&' | '"' -> '_' + | c -> Char.lowercase c) title in + + (* Check URL is not too trivial. *) + if not (Pcre.pmatch ~rex:nontrivial_re url) then + GenURL_TooShort + (* URL cannot begin with '_'. *) + else if url.[0] = '_' then + GenURL_BadURL + else ( + (* Check that the URL doesn't already exist in the database. If it does + * then it probably means that another page exists with similar enough + * content, so we should redirect to there instead. + *) + let sth = dbh#prepare_cached "select 1 from pages + where hostid = ? and url = ?" in + sth#execute [`Int hostid; `String url]; + + try + sth#fetch1int (); + GenURL_Duplicate url + with + Not_found -> + GenURL_OK url + ) + +(* Obscure a mailto: URL against spammers. *) +let obscure_mailto url = + if String.length url > 8 then ( + let c7 = Char.code url.[7] in + let c8 = Char.code url.[8] in + let start = String.sub url 0 7 in + let rest = escape_html_tag (String.sub url 9 (String.length url - 9)) in + sprintf "%s&#x%02x;&#x%02x;%s" start c7 c8 rest + ) + else + url + +(* Convert Wiki markup to XHTML 1.0. + * + * Shortcomings: + * Doesn't support multi-level bullet points. (XXX) + * Intra-page links. (XXX) + *) + +(* This matches any markup. *) +let markup_re = + let link = "\\[\\[\\s*(?:.+?)\\s*(?:\\|.+?\\s*)?\\]\\]" in + let tag = "" in + Pcre.regexp ("(.*?)((?:" ^ link ^ ")|(?:" ^ tag ^ "))(.*)") + +(* This matches links only, and should be compatible with the link contained + * in the above regexp. + *) +let link_re = Pcre.regexp "\\[\\[\\s*(.+?)\\s*(?:\\|(.+?)\\s*)?\\]\\]" + +let image_re = + Pcre.regexp "^(image|thumb(?:nail)?):\\s*([a-z0-9][_a-z0-9]*\\.(?:jpg|jpeg|gif|ico|png))$" +let file_re = + Pcre.regexp "^file:\\s*([a-z0-9][-._a-z0-9]*)$" + +let url_re = Pcre.regexp "^[a-z]+://" +let mailto_re = Pcre.regexp "^mailto:" + +(* Links. *) +let markup_link dbh hostid link = + let subs = Pcre.exec ~rex:link_re link in + let url = Pcre.get_substring subs 1 in + + let tag name = function + `Null -> "" + | `String v -> " " ^ name ^ "=\"" ^ escape_html_tag v ^ "\"" + in + + if Pcre.pmatch ~rex:image_re url then ( + (* It may be an image. *) + let subs = Pcre.exec ~rex:image_re url in + let is_thumb = (Pcre.get_substring subs 1).[0] = 't' in + let name = Pcre.get_substring subs 2 in + + let sql = "select id, " ^ + (if is_thumb then "tn_width, tn_height" + else "width, height") ^ + ", alt, title, longdesc, class + from images + where hostid = ? and name = ?" in + let sth = dbh#prepare_cached sql in + sth#execute [`Int hostid; `String name]; + + try + let imageid, width, height, alt, title, longdesc, clasz = + match sth#fetch1 () with + [`Int imageid; `Int width; `Int height; `String alt; + (`Null | `String _) as title; + (`Null | `String _) as longdesc; + (`Null | `String _) as clasz] -> + imageid, width, height, alt, title, longdesc, clasz + | _ -> assert false in + + let link = "/_image/" ^ escape_url name in + + (if is_thumb then "" else "") ^ + " $\""$ " ^ + (if is_thumb then "" else "") + with + Not_found -> + (* Image not found. *) + "" ^ + escape_html name ^ + "" + ) else if Pcre.pmatch ~rex:file_re url then ( + (* It may be a file. *) + let subs = Pcre.exec ~rex:file_re url in + let name = Pcre.get_substring subs 1 in + + let sth = dbh#prepare_cached "select title + from files + where hostid = ? and name = ?" in + sth#execute [`Int hostid; `String name]; + + try + let title = + match sth#fetch1 () with + [(`Null | `String _) as title] -> title + | _ -> assert false in + + "" ^ + escape_html name ^ + "" + with + Not_found -> + (* File not found. *) + "" ^ + escape_html name ^ + "" + ) else ( + (* Pcre changed behaviour between versions. Previously a non-capture + * would return "". Now it throws 'Not_found'. + *) + let text = + try Pcre.get_substring subs 2 + with Not_found -> "" in + let text = if text = "" then url else text in + + (* XXX Escaping here is very hairy indeed. (See also the obscure_mailto + * function which performs some escaping ...) + *) + + let url, clasz, title = + if Pcre.pmatch ~rex:url_re url then + escape_html_tag url, "external", url (* http://.... *) + else if Pcre.pmatch ~rex:mailto_re url then ( + obscure_mailto url, "mailto", url + ) else ( + let title = url in + (* Look up the 'URL' against the titles in the database and + * obtain the real URL. If none is found then it's a link to + * create a new page. + *) + let sth = dbh#prepare_cached "select url from pages + where hostid = ? and url is not null + and lower (title) = lower (?)" in + sth#execute [`Int hostid; `String url]; + + try + let url = sth#fetch1string () in + "/" ^ url, "internal", title + with + Not_found -> + "/_bin/create_form.cmo?title=" ^ escape_url url, "newpage", title + ) in + + "" ^ + escape_html text ^ "" + ) + +type find_t = FoundNothing + | FoundOpen of string * string * string + | FoundClose of string * string * string * string + | FoundLink of string * string * string + +let _markup_paragraph dbh hostid text = + let find_earliest_markup text = + let convert_b_and_i elem = + if elem = "b" then "strong" + else if elem = "i" then "em" + else elem + in + + try + let subs = Pcre.exec ~rex:markup_re text in + let first = Pcre.get_substring subs 1 in + let markup = Pcre.get_substring subs 2 in + let rest = Pcre.get_substring subs 3 in + if String.length markup > 2 && + markup.[0] = '[' && markup.[1] = '[' then ( + let link = markup_link dbh hostid markup in + FoundLink (first, link, rest) + ) + else if String.length markup > 2 && + markup.[0] = '<' && markup.[1] = '/' then ( + let elem = String.sub markup 2 (String.length markup - 3) in + let elem = convert_b_and_i elem in + FoundClose (first, elem, rest, markup ^ rest) + ) + else if String.length markup > 1 && markup.[0] = '<' then ( + let elem = String.sub markup 1 (String.length markup - 2) in + let elem = convert_b_and_i elem in + FoundOpen (first, elem, rest) + ) + else + failwith ("bad regexp: markup is '" ^ markup ^ "'"); + with + Not_found -> FoundNothing + in + + (* This code performs markup for a "paragraph" unit. The strategy + * is to look for the next matching markup or link, process that, and + * then continue recursively with the remainder of the string. We also + * maintain a stack which is our current level of nesting of -like + * operators. + *) + let rec loop = function + | "", [] -> [""] (* base case *) + + | text, ("nowiki" :: stack) -> + (*prerr_endline ("nowiki case: text = " ^ text);*) + + (* If the top of the stack is then we're just looking for + * the closing , and nothing else matters. *) + (match Pcre.split ~pat:"" ~max:2 text with + | [] -> loop ("", stack) + | [x] -> escape_html x :: loop ("", stack) + | [x;y] -> escape_html x :: loop (y, stack) + | _ -> assert false) + + | "", (x :: xs) -> (* base case, popping the stack *) + "" :: loop ("", xs) + + | text, [] -> + (*prerr_endline ("text = " ^ text ^ ", stack empty");*) + + (* Look for the earliest possible matching markup. Because the + * stack is empty, we're not looking for closing tags. + *) + (match find_earliest_markup text with + | FoundNothing -> escape_html text :: [] + | FoundClose (first, elem, rest, _) -> + (* close tags ignored *) + escape_html first :: "</" :: escape_html elem :: ">" :: + loop (rest, []) + | FoundOpen (first, elem, rest) when elem = "nowiki" -> + (* handle specially ... *) + escape_html first :: loop (rest, elem :: []) + | FoundOpen (first, elem, rest) -> + (* open tag - push it onto the stack *) + escape_html first :: "<" :: elem :: ">" :: loop (rest, [elem]) + | FoundLink (first, link, rest) -> + escape_html first :: link :: loop (rest, []) + ) + + | text, ((x :: xs) as stack) -> + (*prerr_endline ("text = " ^ text ^ ", top of stack = " ^ x ^ + ", stack size = " ^ string_of_int (List.length stack));*) + + (* Look for the earliest possible matching markup. *) + (match find_earliest_markup text with + | FoundNothing -> escape_html text :: loop ("", stack) + | FoundClose (first, elem, rest, _) when x = elem -> + (* matching close tag *) + escape_html first :: "" :: loop (rest, xs) + | FoundClose (first, elem, rest, elem_rest) -> + (* non-matching close tag *) + escape_html first :: "" :: loop (elem_rest, xs) + | FoundOpen (first, elem, rest) when elem = "nowiki" -> + (* handle specially ... *) + escape_html first :: loop (rest, elem :: stack) + | FoundOpen (first, elem, rest) -> + (* open tag - push it onto the stack *) + escape_html first :: "<" :: elem :: ">" :: + loop (rest, elem :: stack) + | FoundLink (first, link, rest) -> + (* pop everything off the stack first *) + escape_html first :: loop ("", stack) @ link :: loop (rest, []) + ) + in + + (*prerr_endline ("original markup = " ^ text);*) + let text = loop (text, []) in + let text = String.concat "" text in + (*prerr_endline ("after loop = " ^ text);*) + text + +let markup_paragraph dbh hostid text = + "
" ^ _markup_paragraph dbh hostid text ^ "
" + +let markup_heading dbh hostid level text = + let text = _markup_paragraph dbh hostid text in + sprintf "%s" level text level + +let markup_ul dbh hostid lines = + "
" ^ + String.concat "
\n
" + (List.map (fun t -> _markup_paragraph dbh hostid t) lines) ^ + "
" + +let markup_ol dbh hostid lines = + "
" ^ + String.concat "
\n
" + (List.map (fun t -> _markup_paragraph dbh hostid t) lines) ^ + "
" + +let markup_pre lines = + "
\n" ^ + String.concat "\n" (List.map Cgi_escape.escape_html lines) ^ + "\n
\n" + + +type line_t = STBlank + | STHeading of int * string (*
,
, ... *) + | STUnnumbered of string list (*
*) + | STNumbered of string list (*
*) + | STPreformatted of string list (*
*) + | STParagraph of string (* Ordinary
*) + +let split_lines_re = Pcre.regexp "\\r?\\n" +let blank_re = Pcre.regexp "^\\s*$" +let heading_re = Pcre.regexp "^(=+)\\s+(.*)" +let unnumbered_re = Pcre.regexp "^(\\*)\\s+(.*)" +let numbered_re = Pcre.regexp "^(\\#)\\s+(.*)" +let preformatted_re = Pcre.regexp "^ (.*)" + +let xhtml_of_content (dbh : Dbi.connection) hostid text = + (* Split the text into lines. *) + let lines = Pcre.split ~rex:split_lines_re text in + (* Iterate over the lines to isolate headers and paragraphs. *) + let lines = + List.map + (fun line -> + if Pcre.pmatch ~rex:preformatted_re line then ( + let subs = Pcre.exec ~rex:preformatted_re line in + let line = Pcre.get_substring subs 1 in + STPreformatted [line] + ) + else if Pcre.pmatch ~rex:blank_re line then + STBlank + else if Pcre.pmatch ~rex:heading_re line then ( + let subs = Pcre.exec ~rex:heading_re line in + let count = String.length (Pcre.get_substring subs 1) + 2 in + let line = Pcre.get_substring subs 2 in + STHeading (count, line) + ) + else if Pcre.pmatch ~rex:unnumbered_re line then ( + let subs = Pcre.exec ~rex:unnumbered_re line in + let line = Pcre.get_substring subs 2 in + STUnnumbered [line] + ) + else if Pcre.pmatch ~rex:numbered_re line then ( + let subs = Pcre.exec ~rex:numbered_re line in + let line = Pcre.get_substring subs 2 in + STNumbered [line] + ) else + STParagraph line) lines in + + (* Aggregate paragraphs and lists. *) + let rec loop = function + [] -> [] + | STHeading (_, _) as h :: xs -> + h :: loop xs + | STUnnumbered lines1 :: STUnnumbered lines2 :: xs -> + loop (STUnnumbered (lines1 @ lines2) :: xs) + | STUnnumbered lines :: xs -> + STUnnumbered lines :: loop xs + | STNumbered lines1 :: STNumbered lines2 :: xs -> + loop (STNumbered (lines1 @ lines2) :: xs) + | STNumbered lines :: xs -> + STNumbered lines :: loop xs + | STPreformatted lines1 :: STPreformatted lines2 :: xs -> + loop (STPreformatted (lines1 @ lines2) :: xs) + | STPreformatted lines :: xs -> + STPreformatted lines :: loop xs + | STParagraph line1 :: STParagraph line2 :: xs -> + loop (STParagraph (line1 ^ " " ^ line2) :: xs) + | STParagraph line :: xs -> + STParagraph line :: loop xs + | STBlank :: xs -> + loop xs + in + let lines = loop lines in + + (* Convert lines to XHTML. *) + let lines = + List.map + (function + STBlank -> assert false (* Should never happen. *) + | STParagraph para -> + markup_paragraph dbh hostid para + | STHeading (level, text) -> + markup_heading dbh hostid level text + | STUnnumbered lines -> + markup_ul dbh hostid lines + | STNumbered lines -> + markup_ol dbh hostid lines + | STPreformatted lines -> + markup_pre lines + ) lines in + + (* Return the lines. *) + String.concat "\n" lines + +(* Convert valid XHTML to plain text. *) +let text_re = Pcre.regexp "<[^>]+>" +let text_itempl = Pcre.subst " " + +let text_of_xhtml xhtml = + Pcre.replace ~rex:text_re ~itempl:text_itempl xhtml diff --git a/scripts/wikilib.mli b/scripts/wikilib.mli new file mode 100644 index 0000000..43f4cc4 --- /dev/null +++ b/scripts/wikilib.mli @@ -0,0 +1,16 @@ +(* Library of functions useful for people implementing a Wiki. + * Written by Richard W.M. Jones . + * Copyright (C) 2004 Merjis Ltd. + * $Id: wikilib.mli,v 1.1 2004/09/07 10:14:10 rich Exp $ + *) + +type genurl_error_t = GenURL_OK of string + | GenURL_TooShort + | GenURL_BadURL + | GenURL_Duplicate of string + +val generate_url_of_title : Dbi.connection -> int -> string -> genurl_error_t + +val xhtml_of_content : Dbi.connection -> int -> string -> string + +val text_of_xhtml : string -> string diff --git a/templates/admin/admin.html b/templates/admin/admin.html new file mode 100644 index 0000000..0067a00 --- /dev/null +++ b/templates/admin/admin.html @@ -0,0 +1,53 @@ + + + +Wiki administration + + + + + +
Wiki administration
+ +
Wikis on this server
+ + +::table(hosts):: + + + +::end:: +
ID: ::id:: +::canonical_hostname_html:: +(alias +::table(hostnames):: ::hostname_html:: ::end:: +) + +::page_count:: page(s), +last modified ::last_modified_date_html:: +
+ +
+Create a wiki ... +
+ +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+ +
+
Copyright © 2004
+
+ + + \ No newline at end of file diff --git a/templates/admin/create_host_form.html b/templates/admin/create_host_form.html new file mode 100644 index 0000000..6946007 --- /dev/null +++ b/templates/admin/create_host_form.html @@ -0,0 +1,56 @@ + + + +Create new Wiki + + + + + +
Create new Wiki
+ +
+ + + + + + + + + + + + + + + + + + +
Server name:
Aliases:
Title of Wiki:
+ + +
+
+ +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+ +
+
Copyright © 2004
+
+ + + \ No newline at end of file diff --git a/templates/admin/edit_emails_form.html b/templates/admin/edit_emails_form.html new file mode 100644 index 0000000..4f58aae --- /dev/null +++ b/templates/admin/edit_emails_form.html @@ -0,0 +1,48 @@ + + + +Edit email change notification for ::canonical_hostname_html:: + + + + + +
Edit email change notification for ::canonical_hostname_html::
+ +
+ + + + + + + + + + +
Email addresses: ::emails_html_textarea::
+ + +
+
+ +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+ +
+
Copyright © 2004
+
+ + + \ No newline at end of file diff --git a/templates/admin/edit_host_css_form.html b/templates/admin/edit_host_css_form.html new file mode 100644 index 0000000..b719d5d --- /dev/null +++ b/templates/admin/edit_host_css_form.html @@ -0,0 +1,45 @@ + + + +Edit global stylesheet for this wiki + + + + +
Edit global stylesheet for this wiki
+ +
+ +
+Editing the global stylesheet for this wiki: +
+ +
+::css_html_textarea:: +
+ +
+ +
+
+ +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+ +
+
Copyright © 2004
+
+ + + \ No newline at end of file diff --git a/templates/admin/edit_hostnames_form.html b/templates/admin/edit_hostnames_form.html new file mode 100644 index 0000000..e5d20c4 --- /dev/null +++ b/templates/admin/edit_hostnames_form.html @@ -0,0 +1,52 @@ + + + +Edit server name and aliases for ::canonical_hostname_html:: + + + + + +
Edit server name and aliases for ::canonical_hostname_html::
+ +
+ + + + + + + + + + + + + + +
Server name:
Aliases: ::hostnames_html_textarea::
+ + +
+
+ +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+ +
+
Copyright © 2004
+
+ + + \ No newline at end of file diff --git a/templates/admin/host.html b/templates/admin/host.html new file mode 100644 index 0000000..534c779 --- /dev/null +++ b/templates/admin/host.html @@ -0,0 +1,87 @@ + + + +Wiki: ::canonical_hostname_html:: + + + + + +
Wiki: ::canonical_hostname_html::
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
ID: ::id::
Server name: ::canonical_hostname_html::
Aliases: + ::table(hostnames):: ::hostname_html::
::end:: + Edit + server name and aliases ... +
Index page: http://::canonical_hostname_html::/
Page count: ::page_count_html::
Last modified: ::last_modified_date_html::
Wiki created: ::creation_date_html::
Pages:
+ (including edits and deleted pages) ::total_count_html::
Email notification: + ::table(emails):: ::name_html:: <::email_html::>
::end:: + Edit + email notification ... +
Global stylesheet: + ::if(has_css)::This wiki has a global stylesheet.::end:: + Edit + global stylesheet ... +
+ +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+ +
+
Copyright © 2004
+
+ + + \ No newline at end of file diff --git a/templates/create_form.html b/templates/create_form.html new file mode 100644 index 0000000..51aa086 --- /dev/null +++ b/templates/create_form.html @@ -0,0 +1,56 @@ + + + +This page does not exist yet + + + + + + +
This page does not exist yet
+ +
+Here you are being asked to create a new page and create some initial +content for that page. +
+ +
+ +
+ +
+ + + + + + + + + + + + + + + + + + + +
Page title: ::title_html::
Description:

+ (Enter a short description of the page here for search engines + and directories to use).

+ +
+ +
+ +
+
Copyright © 2004
+
+ + + \ No newline at end of file diff --git a/templates/delete_file_form.html b/templates/delete_file_form.html new file mode 100644 index 0000000..09c22d9 --- /dev/null +++ b/templates/delete_file_form.html @@ -0,0 +1,44 @@ + + + +Delete file + + + + +
Delete file
+ +
+ +
+Are you sure you want to delete this file? + + +
+
+ +
+ +Name: ::name_html:: +
+ +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+ +
+
Copyright © 2004
+
+ + + \ No newline at end of file diff --git a/templates/delete_image_form.html b/templates/delete_image_form.html new file mode 100644 index 0000000..b3e7916 --- /dev/null +++ b/templates/delete_image_form.html @@ -0,0 +1,42 @@ + + + +Delete image + + + + +
Delete image
+ +
+ +
+Are you sure you want to delete this image? + + +
+
+ + + +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+ +
+
Copyright © 2004
+
+ + + \ No newline at end of file diff --git a/templates/diff.html b/templates/diff.html new file mode 100644 index 0000000..42776c1 --- /dev/null +++ b/templates/diff.html @@ -0,0 +1,40 @@ + + + +Diff + + + + +
Diff
+ +
+Differences between +version ::version:: and +version ::old_version::. +
+ +
+::diff_html:: +
+ +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+
Home page |
+
Sitemap |
+
Recent changes
+
+ +
+ +
+
Copyright © 2004
+
+ + + \ No newline at end of file diff --git a/templates/edit.html b/templates/edit.html new file mode 100644 index 0000000..511319d --- /dev/null +++ b/templates/edit.html @@ -0,0 +1,84 @@ + + + +::title_html:: [edit] + + + + + + + +
::title_html:: [edit]
+ +
+ + +
+Description: + +
+ +
+Redirect to (if given, page contents are ignored): + +
+ +::if(has_errors):: +
+
Errors:
+
+::table(errors)::
::error_html::
+::end::
+
+::end:: + +
+ +
+ +::table(contents):: + +
+::if(msie):: +
+

+

+

+
+(Editing help) +::else:: +

	+You need to provide a short name for this file. Use only lowercase letters, numbers, dots ('.'), dashed ('-') and underscores ('_'). +
File Name:
	+Upload the file itself. +
File:
	+The title appears when users hover over a file link with their mouse. It is not required. +
Title:

	+You need to provide a short name for this image. Use only lowercase letters, numbers and underscores ('_'). JPEG images should end in `.jpg` and GIF images should end in `.gif`. +
Image Name:
	+Upload the image itself. +
Image:
	+The 'Alt'(-ernate) text is what blind users and search engines read. It should explain what the image is. You must provide this text to meet accessibility laws and allow search engines to discover the content of images. +
Alt text:
	+The title appears when users hover over an image with their mouse. It is not required. +
Title:
	+The 'Longdesc'(-ription) gives a longer, complete description of the content of the image, for blind users. If your Alt text adequately describes the image, then it is not required. +
Longdesc:
	+Class is used with stylesheets. If in doubt, leave it blank. +
Class:

,

Wiki administration

Wikis on this server

Create new Wiki

Edit email change notification for ::canonical_hostname_html::

Edit global stylesheet for this wiki

Edit server name and aliases for ::canonical_hostname_html::

Wiki: ::canonical_hostname_html::

This page does not exist yet

Delete file

Delete image

Diff

::title_html:: [edit]

Edit conflict

Edit stylesheet for this page

Files

Versions of this page

Images

::title_html::

::title_html::

::sectionname_html::

Page not found

Recent changes

Restore page

Sitemap

Restore file

Restore image

Upload file

Upload image

ID:	::id::
Server name:	::canonical_hostname_html::
Aliases:	+ ::table(hostnames):: ::hostname_html:: ::end:: + Edit + server name and aliases ... +
Index page:	http://::canonical_hostname_html::/
Page count:	::page_count_html::
Last modified:	::last_modified_date_html::
Wiki created:	::creation_date_html::
Pages: + (including edits and deleted pages)	::total_count_html::
Email notification:	+ ::table(emails):: ::name_html:: <::email_html::> ::end:: + Edit + email notification ... +
Global stylesheet:	+ ::if(has_css)::This wiki has a global stylesheet.::end:: + Edit + global stylesheet ... +

Page title:	::title_html::
Description:
	+ (Enter a short description of the page here for search engines + and directories to use).

	+ +Name: ::name_html:: (size: ::ksize_html:: K) +::if(is_deleted):: +(This file has been deleted or replaced) +::else:: +`[[file:::name_html::]]` +::end:: + +
	+ +::if(is_deleted):: + Restore +::else:: + Edit \| + Replace \| + Delete +::end:: + +

::if(has_thumbnail):: ::else:: No thumbnail. Show full-size version. ::end::	+ +Name: ::name_html:: (size: ::ksize_html:: K) +::width_html::x::height_html:: +ALT text: ::alt_html:: +::if(is_deleted):: +(This image has been deleted or replaced) +::else:: +`[[image:::name_html::]]` +::end:: + +
	+ +::if(is_deleted):: + Restore +::else:: + Edit \| + Replace \| + Delete +::end:: + +