From c0d8bbfd20d6fbf7d9176c5825b8943d3d2891a9 Mon Sep 17 00:00:00 2001
From: rich <rich>
Date: Mon, 11 Oct 2004 15:21:49 +0000
Subject: [PATCH] Import all the header fields and the body of the message.
 Updated MANIFEST. Updated deps.

---
 MANIFEST                         |  6 +++++
 scripts/.depend                  | 12 ++++++---
 scripts/Makefile                 |  6 ++---
 scripts/mail_import.ml           | 57 +++++++++++++++++++++++++++++++++++-----
 templates/mail_import_header.txt |  9 +++----
 5 files changed, 72 insertions(+), 18 deletions(-)

diff --git a/MANIFEST b/MANIFEST
index f27f15d..f4b6bf7 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -69,6 +69,8 @@ scripts/cocanwiki_images.mli
 scripts/cocanwiki_links.ml
 scripts/cocanwiki_links.mli
 scripts/cocanwiki_ok.ml
+scripts/cocanwiki_pages.ml
+scripts/cocanwiki_pages.mli
 scripts/cocanwiki_server_settings.ml
 scripts/cocanwiki_strings.ml
 scripts/cocanwiki_template.ml
@@ -119,6 +121,8 @@ scripts/largest_pages.ml
 scripts/login.ml
 scripts/login_form.ml
 scripts/logout.ml
+scripts/mail_import.ml
+scripts/mail_import_form.ml
 scripts/mailing_list_confirm.ml
 scripts/mailing_list_form.ml
 scripts/mailing_list_send.ml
@@ -201,6 +205,8 @@ templates/host_menu.html
 templates/images.html
 templates/largest_pages.html
 templates/login_form.html
+templates/mail_import_form.html
+templates/mail_import_header.txt
 templates/mailing_list_form.html
 templates/mailing_list_send.txt
 templates/mailing_list_view.html
diff --git a/scripts/.depend b/scripts/.depend
index 91da738..4c9c140 100644
--- a/scripts/.depend
+++ b/scripts/.depend
@@ -29,8 +29,10 @@ cocanwiki_pages.cmo: cocanwiki.cmo cocanwiki_links.cmi cocanwiki_strings.cmo \
     wikilib.cmi cocanwiki_pages.cmi 
 cocanwiki_pages.cmx: cocanwiki.cmx cocanwiki_links.cmx cocanwiki_strings.cmx \
     wikilib.cmx cocanwiki_pages.cmi 
-cocanwiki_template.cmo: cocanwiki_files.cmo cocanwiki_template.cmi 
-cocanwiki_template.cmx: cocanwiki_files.cmx cocanwiki_template.cmi 
+cocanwiki_template.cmo: cocanwiki_files.cmo cocanwiki_version.cmo \
+    cocanwiki_template.cmi 
+cocanwiki_template.cmx: cocanwiki_files.cmx cocanwiki_version.cmx \
+    cocanwiki_template.cmi 
 contact.cmo: cocanwiki.cmo cocanwiki_ok.cmo cocanwiki_template.cmi 
 contact.cmx: cocanwiki.cmx cocanwiki_ok.cmx cocanwiki_template.cmx 
 contact_show.cmo: cocanwiki.cmo cocanwiki_template.cmi 
@@ -132,9 +134,11 @@ login_form.cmx: cocanwiki.cmx cocanwiki_strings.cmx cocanwiki_template.cmx
 logout.cmo: cocanwiki.cmo cocanwiki_ok.cmo 
 logout.cmx: cocanwiki.cmx cocanwiki_ok.cmx 
 mail_import.cmo: cocanwiki.cmo cocanwiki_date.cmo cocanwiki_ok.cmo \
-    cocanwiki_pages.cmi cocanwiki_template.cmi wikilib.cmi 
+    cocanwiki_pages.cmi cocanwiki_strings.cmo cocanwiki_template.cmi \
+    wikilib.cmi 
 mail_import.cmx: cocanwiki.cmx cocanwiki_date.cmx cocanwiki_ok.cmx \
-    cocanwiki_pages.cmx cocanwiki_template.cmx wikilib.cmx 
+    cocanwiki_pages.cmx cocanwiki_strings.cmx cocanwiki_template.cmx \
+    wikilib.cmx 
 mail_import_form.cmo: cocanwiki.cmo cocanwiki_template.cmi 
 mail_import_form.cmx: cocanwiki.cmx cocanwiki_template.cmx 
 mailing_list_confirm.cmo: cocanwiki.cmo cocanwiki_ok.cmo 
diff --git a/scripts/Makefile b/scripts/Makefile
index 7698fd9..eedeecb 100644
--- a/scripts/Makefile
+++ b/scripts/Makefile
@@ -1,5 +1,5 @@
 # Makefile for COCANWIKI.
-# $Id: Makefile,v 1.38 2004/10/11 14:13:04 rich Exp $
+# $Id: Makefile,v 1.39 2004/10/11 15:21:49 rich Exp $
 
 include ../Makefile.config
 
@@ -77,13 +77,13 @@ OBJS := \
 	login.cmo \
 	login_form.cmo \
 	logout.cmo \
+	mail_import.cmo \
+	mail_import_form.cmo \
 	mailing_list_confirm.cmo \
 	mailing_list_form.cmo \
 	mailing_list_send.cmo \
 	mailing_list_unsubscribe.cmo \
 	mailing_list_view.cmo \
-	mail_import.cmo \
-	mail_import_form.cmo \
 	page.cmo \
 	page_email_confirm.cmo \
 	page_email_form.cmo \
diff --git a/scripts/mail_import.ml b/scripts/mail_import.ml
index dce9f5a..bd6f965 100644
--- a/scripts/mail_import.ml
+++ b/scripts/mail_import.ml
@@ -1,7 +1,7 @@
 (* COCANWIKI - a wiki written in Objective CAML.
  * Written by Richard W.M. Jones <rich@merjis.com>.
  * Copyright (C) 2004 Merjis Ltd.
- * $Id: mail_import.ml,v 1.1 2004/10/11 14:13:04 rich Exp $
+ * $Id: mail_import.ml,v 1.2 2004/10/11 15:21:49 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
@@ -28,14 +28,19 @@ open Netmime
 open Netchannels
 open Netstream
 
+open ExtString
+
 open Cocanwiki
 open Cocanwiki_ok
 open Cocanwiki_template
 open Cocanwiki_date
+open Cocanwiki_strings
 open Cocanwiki_pages
 
 let irt_re = Pcre.regexp "<.*?>"
-let ws_re = Pcre.regexp "\\S+"
+let ws_re = Pcre.regexp "\\s+"
+let comma_re = Pcre.regexp "\\s*,\\s*"
+let lines_re = Pcre.regexp "\\r?\\n"
 
 let run r (q : cgi) (dbh : Dbi.connection) hostid _ user =
   let hdr_template = get_template dbh hostid "mail_import_header.txt" in
@@ -215,20 +220,60 @@ let run r (q : cgi) (dbh : Dbi.connection) hostid _ user =
     let content =
       (* XXX Escaping! *)
       hdr_template#set "subject" subject;
+      hdr_template#set "from" from;
+      hdr_template#set "inet_message_id" inet_message_id;
+
       let yyyy, mm, dd = date.Dbi.year, date.Dbi.month, date.Dbi.day in
       hdr_template#set "yyyy" (sprintf "%04d" yyyy);
       hdr_template#set "mm" (sprintf "%02d" mm);
       hdr_template#set "dd" (sprintf "%02d" dd);
       hdr_template#set "short_month" (short_month mm);
-      hdr_template#set "from" from;
-      hdr_template#set "inet_message_id" inet_message_id;
+
+      let get_table hdr =
+	List.map (fun addr -> [ "addr", Template.VarString addr ])
+	  (Pcre.split ~rex:comma_re hdr)
+      in
+      let table = get_table to_hdr in
+      hdr_template#table "to" table;
+      hdr_template#conditional "has_to" (table <> []);
+      let table = get_table cc in
+      hdr_template#table "cc" table;
+      hdr_template#conditional "has_cc" (table <> []);
+
       hdr_template#to_string
     in
     "", "mail_header", content in
 
-  (* Create the second section (mail body). *)
+  (* Create the second section (mail body).
+   * XXX Very simple.  Should be extended to understand attachments and
+   * convert them into file or image uploads.
+   *)
   let section1 =
-    let content = "(mail body should go here XXX)" in
+    let is_text_plain hdr =
+      try
+	let ct = hdr#field "content-type" in
+	String.starts_with ct "text/plain"
+      with
+	  Not_found -> true in
+
+    (* Find the first text/plain body. *)
+    let rec find_body = function
+	(header, `Body mime_body) when is_text_plain header ->
+	  mime_body#value
+      | (_, `Body _) -> raise Not_found
+      | (_, `Parts []) -> raise Not_found (* should never happen *)
+      | (_, `Parts (m :: _)) ->
+	  find_body m in
+    let content =
+      try
+	let text = find_body msg in
+	let lines = Pcre.split ~rex:lines_re text in
+	let lines = List.map trim lines in
+	let lines = List.map (fun str -> str ^ "<br>") lines in
+	String.concat "\n" lines
+      with
+	  Not_found ->
+	    "No plain text message body found" in
     "Message", "mail_body", content in
 
   (* Overwrite the first two sections of the current page, regardless of
diff --git a/templates/mail_import_header.txt b/templates/mail_import_header.txt
index 2b889b5..9164f8d 100644
--- a/templates/mail_import_header.txt
+++ b/templates/mail_import_header.txt
@@ -1,12 +1,11 @@
-[[::subject::]] | [[Previous]] | [[Next]] | [[Thread]]
+<strong>[[::subject::]]</strong> | [[Previous]] | [[Next]] | [[Thread]]
 
 <b>Date:</b> [[::yyyy::/::mm::/::dd::|::dd:: ::short_month:: ::yyyy::]]
 | <small>[[::yyyy::/::mm::|see more email from ::short_month:: ::yyyy::]]</small>
 <br>
 <b>From:</b> [[::from::]]
-<br>
-<b>To:</b> ...
-<br>
-<b>Cc:</b> ...
+::if(has_to)::<br>
+<b>To:</b> ::table(to)::[[::addr::]] ::end::::end::::if(has_cc)::<br>
+<b>Cc:</b> ::table(cc)::[[::addr::]] ::end::::end::
 
 <small><b>Message ID:</b> ::inet_message_id::</small>
-- 
1.8.3.1