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

Email in QWK

This commit is contained in:
mysticbbs 2013-03-08 09:02:03 -05:00
parent 40f83d1727
commit e912f1a54f
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
mystic/bbs_msgbase.pas
View File

@ -211,11 +211,11 @@ Begin
Session.io.PausePtr := 1; Session.io.PausePtr := 1;
Session.io.AllowPause := True; Session.io.AllowPause := True;
NodeList.ResetSearch(Config.DataPath + 'nodelist.txt', Result); NodeList.ResetSearch (Config.DataPath + 'nodelist.txt', Result);
While NodeList.FindNext(NodeData) Do Begin While NodeList.FindNext(NodeData) Do Begin
Case ListType of Case ListType of
0 : If NodeData.Keyword <> '' Then Continue; 0 : ;//If NodeData.Keyword <> '' Then Continue;
1 : If NodeData.Keyword <> 'ZONE' Then Continue; 1 : If NodeData.Keyword <> 'ZONE' Then Continue;
2 : If (NodeData.Keyword <> 'ZONE') and (NodeData.Keyword <> 'REGION') and (NodeData.Keyword <> 'HOST') Then Continue; 2 : If (NodeData.Keyword <> 'ZONE') and (NodeData.Keyword <> 'REGION') and (NodeData.Keyword <> 'HOST') Then Continue;
End; End;
@ -3755,7 +3755,6 @@ Begin
Write (tFile, TotalConf - 1, CRLF); {TOTAL CONF - 1} Write (tFile, TotalConf - 1, CRLF); {TOTAL CONF - 1}
Reset (MBaseFile); Reset (MBaseFile);
Read (MBaseFile, MBase); {SKIP EMAIL BASE}
While Not Eof(MBaseFile) Do Begin While Not Eof(MBaseFile) Do Begin
Read (MBaseFile, MBase); Read (MBaseFile, MBase);
@ -3832,8 +3831,6 @@ Var
End; End;
Begin Begin
// Inc (TotalConf);
MsgAdded := 0; MsgAdded := 0;
If Not OpenCreateBase(MsgBase, MBase) Then Exit; If Not OpenCreateBase(MsgBase, MBase) Then Exit;
@ -3993,14 +3990,12 @@ Begin
Assign (QwkLRFile, Session.TempPath + 'qlr.dat'); Assign (QwkLRFile, Session.TempPath + 'qlr.dat');
ReWrite (QwkLRFile); ReWrite (QwkLRFile);
Reset (MBaseFile);
Reset (MBaseFile);
Read (MBaseFile, MBase); {Skip Email base}
Session.io.OutFullLn (Session.GetPrompt(230)); Session.io.OutFullLn (Session.GetPrompt(230));
TotalMsgs := 0; TotalMsgs := 0;
TotalConf := 0; TotalConf := 0;
Session.User.IgnoreGroup := Pos('/ALLGROUP', strUpper(Data)) > 0; Session.User.IgnoreGroup := Pos('/ALLGROUP', strUpper(Data)) > 0;
@ -4031,6 +4026,7 @@ Begin
If TotalMsgs > 0 Then Begin If TotalMsgs > 0 Then Begin
Session.io.PromptInfo[1] := strI2S(TotalMsgs); Session.io.PromptInfo[1] := strI2S(TotalMsgs);
Session.io.PromptInfo[2] := strI2S(TotalConf); Session.io.PromptInfo[2] := strI2S(TotalConf);
Session.io.OutFullLn (Session.GetPrompt(233)); Session.io.OutFullLn (Session.GetPrompt(233));
Temp := Config.qwkBBSID + '.qwk'; Temp := Config.qwkBBSID + '.qwk';