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

Message base Semafile for newsgroup/netmail was switched

This commit is contained in:
mysticbbs 2012-03-29 13:16:43 -04:00
parent 3e77974e5e
commit 80b945bce9
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mystic/bbs_common.pas
View File

@ -23,6 +23,10 @@ Uses
// replace with MDL/FP RTL functions // replace with MDL/FP RTL functions
Const Const
fn_SemFileEcho = 'echomail.now';
fn_SemFileNews = 'newsmail.now';
fn_SemFileNet = 'netmail.now';
WinConsoleTitle = 'Mystic Node '; WinConsoleTitle = 'Mystic Node ';
CopyID = 'Copyright (C) ' + mysCopyYear + ' By James Coyle. All Rights Reserved.'; CopyID = 'Copyright (C) ' + mysCopyYear + ' By James Coyle. All Rights Reserved.';
DateTypeStr : Array[1..4] of String[8] = ('MM/DD/YY', 'DD/MM/YY', 'YY/DD/MM', 'Ask '); DateTypeStr : Array[1..4] of String[8] = ('MM/DD/YY', 'DD/MM/YY', 'YY/DD/MM', 'Ask ');

16
mystic/bbs_msgbase.pas
View File

@ -265,16 +265,16 @@ Begin
Case MBase.NetType of Case MBase.NetType of
1 : Begin 1 : Begin
Assign (SemFile, Config.SemaPath + 'echomail.now'); Assign (SemFile, Config.SemaPath + fn_SemFileEcho);
If Session.ExitLevel > 5 Then Session.ExitLevel := 7 Else Session.ExitLevel := 5; If Session.ExitLevel > 5 Then Session.ExitLevel := 7 Else Session.ExitLevel := 5;
End; End;
2 : Begin 2 : Begin
Assign (SemFile, Config.SemaPath + 'netmail.now'); Assign (SemFile, Config.SemaPath + fn_SemFileNews);
If Session.ExitLevel = 5 Then Session.ExitLevel := 7 Else Session.ExitLevel := 6; If Session.ExitLevel > 5 Then Session.ExitLevel := 7 Else Session.ExitLevel := 5;
End; End;
3 : Begin 3 : Begin
Assign (SemFile, Config.SemaPath + 'newsmail.now'); Assign (SemFile, Config.SemaPath + fn_SemFileNet);
If Session.ExitLevel > 5 Then Session.ExitLevel := 7 Else Session.ExitLevel := 5; If Session.ExitLevel = 5 Then Session.ExitLevel := 7 Else Session.ExitLevel := 6;
End; End;
End; End;
@ -3559,9 +3559,9 @@ Begin
Msg^.SetOrig(Config.NetAddress[mArea.NetAddr]); Msg^.SetOrig(Config.NetAddress[mArea.NetAddr]);
Case mArea.NetType of Case mArea.NetType of
1 : Assign (SemFile, Config.SemaPath + 'echomail.now'); 1 : Assign (SemFile, Config.SemaPath + fn_SemFileEcho);
2 : Assign (SemFile, Config.SemaPath + 'netmail.now'); 2 : Assign (SemFile, Config.SemaPath + fn_SemFileNews);
3 : Assign (SemFile, Config.SemaPath + 'newsmail.now'); 3 : Assign (SemFile, Config.SemaPath + fn_SemFileNet);
End; End;
ReWrite (SemFile); ReWrite (SemFile);