eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

A20 sync

This commit is contained in:
mysticbbs 2012-09-28 18:24:50 -04:00
parent 7964933a16
commit 22af64fb09
6 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mystic/bbs_msgbase.pas
View File

@ -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);

1
mystic/bbs_msgbase_jam.pas
View File

@ -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;

16
mystic/mutil.ini
View File

@ -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
; ==========================================================================
; ==========================================================================

4
mystic/mutil.pas
View File

@ -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

2
mystic/mutil_status.pas
View File

@ -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;

10
mystic/mutil_toplists.pas
View File

@ -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');