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
Const
fn_SemFileEcho = 'echomail.now';
fn_SemFileNews = 'newsmail.now';
fn_SemFileNet = 'netmail.now';
WinConsoleTitle = 'Mystic Node ';
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 ');

16
mystic/bbs_msgbase.pas
View File

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