MUTIL ImportMessageBase function

This commit is contained in:
mysticbbs 2013-03-08 07:21:13 -05:00
parent 8534b5c7ac
commit 728837c4c8
5 changed files with 56 additions and 9 deletions

View File

@ -17,6 +17,7 @@
; ;
; Current abilities (enabled/disabled in the General header below): ; Current abilities (enabled/disabled in the General header below):
; ;
; - Import Message Bases (by datafile analysis)
; - Import FIDONET.NA into Message bases ; - Import FIDONET.NA into Message bases
; - Import FILEBONE.NA into File bases ; - Import FILEBONE.NA into File bases
; - Mass upload files to all file bases (with FILE_ID.DIZ import) ; - Mass upload files to all file bases (with FILE_ID.DIZ import)
@ -56,6 +57,7 @@
; list of functions to perform on startup ; list of functions to perform on startup
Import_FIDONET.NA = true Import_FIDONET.NA = true
Import_MessageBase = true
Import_FILEBONE.NA = true Import_FILEBONE.NA = true
Import_FILES.BBS = true Import_FILES.BBS = true
MassUpload = true MassUpload = true
@ -328,3 +330,38 @@
file2_subj = My subject file2_subj = My subject
file2_addr = 0:0/0 file2_addr = 0:0/0
file2_delfile = false 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

View File

@ -23,15 +23,6 @@ Program MUTIL;
{$I M_OPS.PAS} {$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 Uses
{$IFDEF DEBUG} {$IFDEF DEBUG}
HeapTrc, HeapTrc,
@ -45,6 +36,7 @@ Uses
mUtil_Common, mUtil_Common,
mUtil_Status, mUtil_Status,
mUtil_ImportNA, mUtil_ImportNA,
mUtil_ImportMsgBase,
mUtil_FileBone, mUtil_FileBone,
mUtil_Upload, mUtil_Upload,
mUtil_TopLists, mUtil_TopLists,
@ -174,6 +166,7 @@ Var
DoMsgPurge : Boolean; DoMsgPurge : Boolean;
DoMsgPack : Boolean; DoMsgPack : Boolean;
DoMsgPost : Boolean; DoMsgPost : Boolean;
DoImportMB : Boolean;
Begin Begin
ApplicationStartup; ApplicationStartup;
@ -182,6 +175,7 @@ Begin
// Build process list // Build process list
DoImportNA := CheckProcess(Header_IMPORTNA); DoImportNA := CheckProcess(Header_IMPORTNA);
DoImportMB := CheckProcess(Header_IMPORTMB);
DoFileBone := CheckProcess(Header_FILEBONE); DoFileBone := CheckProcess(Header_FILEBONE);
DoMassUpload := CheckProcess(Header_UPLOAD); DoMassUpload := CheckProcess(Header_UPLOAD);
DoTopLists := CheckProcess(Header_TOPLISTS); DoTopLists := CheckProcess(Header_TOPLISTS);
@ -204,6 +198,7 @@ Begin
// We're good lets execute this stuff! // We're good lets execute this stuff!
If DoImportNA Then uImportNA; If DoImportNA Then uImportNA;
If DoImportMB Then uImportMessageBases;
If DoFileBone Then uImportFileBone; If DoFileBone Then uImportFileBone;
If DoFilesBBS Then uImportFilesBBS; If DoFilesBBS Then uImportFilesBBS;
If DoMassUpload Then uMassUpload; If DoMassUpload Then uMassUpload;

View File

@ -29,6 +29,7 @@ Var
Const Const
Header_GENERAL = 'General'; Header_GENERAL = 'General';
Header_IMPORTNA = 'Import_FIDONET.NA'; Header_IMPORTNA = 'Import_FIDONET.NA';
Header_IMPORTMB = 'Import_MessageBase';
Header_FILEBONE = 'Import_FILEBONE.NA'; Header_FILEBONE = 'Import_FILEBONE.NA';
Header_FILESBBS = 'Import_FILES.BBS'; Header_FILESBBS = 'Import_FILES.BBS';
Header_UPLOAD = 'MassUpload'; Header_UPLOAD = 'MassUpload';

View File

@ -28,6 +28,8 @@ BUGS AND POSSIBLE ISSUES
FUTURE / IDEAS / WORK IN PROGRESS / NOTES 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 that only prints a base if it has new messages.
- Option for quickscan to show information about the messages (from,subj) - Option for quickscan to show information about the messages (from,subj)
- QWK via email - QWK via email

View File

@ -2658,3 +2658,15 @@
in DOSEMU with Mystic! in DOSEMU with Mystic!
<ALPHA 27 RELEASED> <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>