From 728837c4c8885c01c4faecb492fbd8cc1abfde55 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Fri, 8 Mar 2013 07:21:13 -0500
Subject: [PATCH] MUTIL ImportMessageBase function

---
 mystic/mutil.ini        | 37 +++++++++++++++++++++++++++++++++++++
 mystic/mutil.pas        | 13 ++++---------
 mystic/mutil_common.pas |  1 +
 mystic/todo.pas         |  2 ++
 mystic/whatsnew.txt     | 12 ++++++++++++
 5 files changed, 56 insertions(+), 9 deletions(-)

diff --git a/mystic/mutil.ini b/mystic/mutil.ini
index ee20bb2..664fa2b 100644
--- a/mystic/mutil.ini
+++ b/mystic/mutil.ini
@@ -17,6 +17,7 @@
 ;
 ; Current abilities (enabled/disabled in the General header below):
 ;
+;    - Import Message Bases (by datafile analysis)
 ;    - Import FIDONET.NA into Message bases
 ;    - Import FILEBONE.NA into File bases
 ;    - Mass upload files to all file bases (with FILE_ID.DIZ import)
@@ -56,6 +57,7 @@
 	; list of functions to perform on startup
 
 	Import_FIDONET.NA  = true
+  Import_MessageBase = true
 	Import_FILEBONE.NA = true
 	Import_FILES.BBS   = true
 	MassUpload         = true
@@ -328,3 +330,38 @@
 	file2_subj    = My subject
 	file2_addr    = 0:0/0
 	file2_delfile = false
+
+[ImportMessageBase]
+
+  ; This option scans the message base directory, and creates any messages
+  ; bases inside of Mystic that have data files in the directory.
+
+	; The following options define the "default" values used when creating
+	; new message bases.  netaddress must match an exiting network
+	; address configured within Mystic BBS.  default values are also
+	; taken from the system configuration for origin line, colors, etc.
+
+	netaddress     = 1:1/1
+	acs_list       =
+	acs_read       =
+	acs_post       =
+	acs_news       =
+	acs_sysop      = s255
+	header         = msghead
+	read_template  = ansimrd
+	index_template = ansimlst
+	max_msgs       = 500
+	max_msgs_age   = 365
+
+  ; network type (0=local, 1=echomail, 2=newsgroup 3=netmail)
+
+  net_type = 1
+
+	; true/false type values 0=false 1=true (newscan 2=forced)
+
+	use_autosig    = 1
+	use_realname   = 0
+	kill_kludge    = 1
+	private_base   = 0
+	new_scan       = 1
+	qwk_scan       = 1
diff --git a/mystic/mutil.pas b/mystic/mutil.pas
index 7b5e98f..a60abe0 100644
--- a/mystic/mutil.pas
+++ b/mystic/mutil.pas
@@ -23,15 +23,6 @@ Program MUTIL;
 
 {$I M_OPS.PAS}
 
-// MBBSUTIL replacement WIP
-//
-// Eventually all of MBBSUTIL stuff will be incorporated into this program.
-// MBBSUTIL and MYSTPACK will be phased out in favor of this program.
-//
-// The goal of this program is to have basically everything under the sun
-// all in one utility.  Eventually it may even have a full blown FIDO-style
-// tosser too.  TOP 10 generators, etc.  It's all planned for MUTIL.
-
 Uses
   {$IFDEF DEBUG}
     HeapTrc,
@@ -45,6 +36,7 @@ Uses
   mUtil_Common,
   mUtil_Status,
   mUtil_ImportNA,
+  mUtil_ImportMsgBase,
   mUtil_FileBone,
   mUtil_Upload,
   mUtil_TopLists,
@@ -174,6 +166,7 @@ Var
   DoMsgPurge   : Boolean;
   DoMsgPack    : Boolean;
   DoMsgPost    : Boolean;
+  DoImportMB   : Boolean;
 Begin
   ApplicationStartup;
 
@@ -182,6 +175,7 @@ Begin
   // Build process list
 
   DoImportNA   := CheckProcess(Header_IMPORTNA);
+  DoImportMB   := CheckProcess(Header_IMPORTMB);
   DoFileBone   := CheckProcess(Header_FILEBONE);
   DoMassUpload := CheckProcess(Header_UPLOAD);
   DoTopLists   := CheckProcess(Header_TOPLISTS);
@@ -204,6 +198,7 @@ Begin
   // We're good lets execute this stuff!
 
   If DoImportNA   Then uImportNA;
+  If DoImportMB   Then uImportMessageBases;
   If DoFileBone   Then uImportFileBone;
   If DoFilesBBS   Then uImportFilesBBS;
   If DoMassUpload Then uMassUpload;
diff --git a/mystic/mutil_common.pas b/mystic/mutil_common.pas
index 309bb98..e727d63 100644
--- a/mystic/mutil_common.pas
+++ b/mystic/mutil_common.pas
@@ -29,6 +29,7 @@ Var
 Const
   Header_GENERAL  = 'General';
   Header_IMPORTNA = 'Import_FIDONET.NA';
+  Header_IMPORTMB = 'Import_MessageBase';
   Header_FILEBONE = 'Import_FILEBONE.NA';
   Header_FILESBBS = 'Import_FILES.BBS';
   Header_UPLOAD   = 'MassUpload';
diff --git a/mystic/todo.pas b/mystic/todo.pas
index 10aadc5..cd782c0 100644
--- a/mystic/todo.pas
+++ b/mystic/todo.pas
@@ -28,6 +28,8 @@ BUGS AND POSSIBLE ISSUES
 FUTURE / IDEAS / WORK IN PROGRESS / NOTES
 =========================================
 
+- New Scan/Read message should have option to not update last read when
+  reading personal messages.
 - Option for QuickScan that only prints a base if it has new messages.
 - Option for quickscan to show information about the messages (from,subj)
 - QWK via email
diff --git a/mystic/whatsnew.txt b/mystic/whatsnew.txt
index ee1a42e..6f29f0f 100644
--- a/mystic/whatsnew.txt
+++ b/mystic/whatsnew.txt
@@ -2658,3 +2658,15 @@
    in DOSEMU with Mystic!
 
    <ALPHA 27 RELEASED>
+
+ + Added a new function to MUTIL called ImportMessageBase.  This function
+   will scan the configured Message Base directory for existance of either
+   JAM or Squish datafiles.  For each message base MUTIL finds, it will
+   create a Message Base in Mystic if one does not already exist.
+
+   You must add "Import_MessageBase = true" to your GENERAL header in
+   mutil.ini, and then configure the template message base settings for
+   newly created bases in a [ImportMessageBase] section.  See the default
+   MUTIL.INI for an example.
+
+   <ALPHA 28 RELEASED>
\ No newline at end of file