diff --git a/mystic/bbs_msgbase.pas b/mystic/bbs_msgbase.pas index b2ed7c9..faa0c86 100644 --- a/mystic/bbs_msgbase.pas +++ b/mystic/bbs_msgbase.pas @@ -969,7 +969,7 @@ Begin If DoWrap Then Begin If WrapData <> '' Then Begin If TempStr = '' Then Begin - WriteLn (QuoteFile, Initials + WrapData); + WriteLn (QuoteFile, Initials + strStripB(WrapData, ' ')); WriteLn (QuoteFile, Initials); WrapData := ''; @@ -977,7 +977,7 @@ Begin Continue; End; - TempStr := WrapData + ' ' + TempStr; + TempStr := strStripB(WrapData, ' ') + ' ' + strStripL(TempStr, ' '); End; strWrap (TempStr, WrapData, 75); diff --git a/mystic/bbs_msgbase_jam.pas b/mystic/bbs_msgbase_jam.pas index 4630b48..3401075 100644 --- a/mystic/bbs_msgbase_jam.pas +++ b/mystic/bbs_msgbase_jam.pas @@ -1263,7 +1263,6 @@ Begin IsFileReq := (MsgHdr^.JamHdr.Attr1 and Jam_Freq) <> 0; End; - Function TMsgBaseJAM.IsRcvd: Boolean; {Is current msg received} Begin IsRcvd := (MsgHdr^.JamHdr.Attr1 and Jam_Rcvd) <> 0; diff --git a/mystic/mutil.ini b/mystic/mutil.ini index 5e3d4ab..854c5c2 100644 --- a/mystic/mutil.ini +++ b/mystic/mutil.ini @@ -55,14 +55,16 @@ Import_FIDONET.NA = false Import_FILEBONE.NA = false - Import_FILES.BBS = true - MassUpload = true - GenerateTopLists = true - GenerateAllFiles = true - PurgeMessageBases = true - PackMessageBases = true - PostTextFiles = true + Import_FILES.BBS = false + MassUpload = false + GenerateTopLists = false + GenerateAllFiles = false + PurgeMessageBases = false + PostTextFiles = false + + ; work in progress LinkMessageBases = false + PackMessageBases = false ; ========================================================================== ; ========================================================================== diff --git a/mystic/mutil.pas b/mystic/mutil.pas index b17aec6..e171d02 100644 --- a/mystic/mutil.pas +++ b/mystic/mutil.pas @@ -71,7 +71,7 @@ End; Procedure ApplicationShutdown; Begin - Log (1, '+', 'Shutdown'); + Log (1, '+', '=> Shutdown'); Log (1, '+', ''); If Assigned(Console) Then Begin @@ -177,7 +177,7 @@ Var Begin ApplicationStartup; - Log (1, '+', 'Startup using ' + JustFile(INI.FileName)); + Log (1, '+', '=> Startup using ' + JustFile(INI.FileName)); // Build process list diff --git a/mystic/mutil_status.pas b/mystic/mutil_status.pas index d63f9f7..b90449a 100644 --- a/mystic/mutil_status.pas +++ b/mystic/mutil_status.pas @@ -46,7 +46,7 @@ Begin Console.WriteXYPipe (33, Console.CursorY, 7, 31, Str); If Last Then - Log (1, '+', 'Result: ' + strStripPipe(Str)) + Log (1, '+', 'Results: ' + strStripPipe(Str)) Else Log (2, '+', ' ' + Str); End; diff --git a/mystic/mutil_toplists.pas b/mystic/mutil_toplists.pas index 0cbdcf3..9980b5d 100644 --- a/mystic/mutil_toplists.pas +++ b/mystic/mutil_toplists.pas @@ -162,11 +162,11 @@ Begin Result := True; Case ListType of - TopCall : ProcessStatus('Top Callers', True); - TopPost : ProcessStatus('Top Posts', True); - TopDL : ProcessStatus('Top Downloaders', True); - TopUL : ProcessStatus('Top Uploaders', True); - TopPCR : ProcessStatus('Top Post/Call Ratio', True); + TopCall : ProcessStatus('Top Callers', False); + TopPost : ProcessStatus('Top Posts', False); + TopDL : ProcessStatus('Top Downloaders', False); + TopUL : ProcessStatus('Top Uploaders', False); + TopPCR : ProcessStatus('Top Post/Call Ratio', False); End; ExclName := INI.ReadString(Header_TopLists, 'exclude_list', 'exclude.txt');