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 DoWrap Then Begin
If WrapData <> '' Then Begin If WrapData <> '' Then Begin
If TempStr = '' Then Begin If TempStr = '' Then Begin
WriteLn (QuoteFile, Initials + WrapData); WriteLn (QuoteFile, Initials + strStripB(WrapData, ' '));
WriteLn (QuoteFile, Initials); WriteLn (QuoteFile, Initials);
WrapData := ''; WrapData := '';
@ -977,7 +977,7 @@ Begin
Continue; Continue;
End; End;
TempStr := WrapData + ' ' + TempStr; TempStr := strStripB(WrapData, ' ') + ' ' + strStripL(TempStr, ' ');
End; End;
strWrap (TempStr, WrapData, 75); 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; IsFileReq := (MsgHdr^.JamHdr.Attr1 and Jam_Freq) <> 0;
End; End;
Function TMsgBaseJAM.IsRcvd: Boolean; {Is current msg received} Function TMsgBaseJAM.IsRcvd: Boolean; {Is current msg received}
Begin Begin
IsRcvd := (MsgHdr^.JamHdr.Attr1 and Jam_Rcvd) <> 0; IsRcvd := (MsgHdr^.JamHdr.Attr1 and Jam_Rcvd) <> 0;

16
mystic/mutil.ini
View File

@ -55,14 +55,16 @@
Import_FIDONET.NA = false Import_FIDONET.NA = false
Import_FILEBONE.NA = false Import_FILEBONE.NA = false
Import_FILES.BBS = true Import_FILES.BBS = false
MassUpload = true MassUpload = false
GenerateTopLists = true GenerateTopLists = false
GenerateAllFiles = true GenerateAllFiles = false
PurgeMessageBases = true PurgeMessageBases = false
PackMessageBases = true PostTextFiles = false
PostTextFiles = true
; work in progress
LinkMessageBases = false LinkMessageBases = false
PackMessageBases = false
; ========================================================================== ; ==========================================================================
; ========================================================================== ; ==========================================================================

4
mystic/mutil.pas
View File

@ -71,7 +71,7 @@ End;
Procedure ApplicationShutdown; Procedure ApplicationShutdown;
Begin Begin
Log (1, '+', 'Shutdown'); Log (1, '+', '=> Shutdown');
Log (1, '+', ''); Log (1, '+', '');
If Assigned(Console) Then Begin If Assigned(Console) Then Begin
@ -177,7 +177,7 @@ Var
Begin Begin
ApplicationStartup; ApplicationStartup;
Log (1, '+', 'Startup using ' + JustFile(INI.FileName)); Log (1, '+', '=> Startup using ' + JustFile(INI.FileName));
// Build process list // Build process list

2
mystic/mutil_status.pas
View File

@ -46,7 +46,7 @@ Begin
Console.WriteXYPipe (33, Console.CursorY, 7, 31, Str); Console.WriteXYPipe (33, Console.CursorY, 7, 31, Str);
If Last Then If Last Then
Log (1, '+', 'Result: ' + strStripPipe(Str)) Log (1, '+', 'Results: ' + strStripPipe(Str))
Else Else
Log (2, '+', ' ' + Str); Log (2, '+', ' ' + Str);
End; End;

10
mystic/mutil_toplists.pas
View File

@ -162,11 +162,11 @@ Begin
Result := True; Result := True;
Case ListType of Case ListType of
TopCall : ProcessStatus('Top Callers', True); TopCall : ProcessStatus('Top Callers', False);
TopPost : ProcessStatus('Top Posts', True); TopPost : ProcessStatus('Top Posts', False);
TopDL : ProcessStatus('Top Downloaders', True); TopDL : ProcessStatus('Top Downloaders', False);
TopUL : ProcessStatus('Top Uploaders', True); TopUL : ProcessStatus('Top Uploaders', False);
TopPCR : ProcessStatus('Top Post/Call Ratio', True); TopPCR : ProcessStatus('Top Post/Call Ratio', False);
End; End;
ExclName := INI.ReadString(Header_TopLists, 'exclude_list', 'exclude.txt'); ExclName := INI.ReadString(Header_TopLists, 'exclude_list', 'exclude.txt');