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

QWK news,welcome,goodbye bugfix

This commit is contained in:
mysticbbs 2012-02-14 17:37:25 -05:00
parent fbad55ed34
commit 5069aa38cc
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mystic/HISTORY.txt
View File

@ -3781,3 +3781,6 @@
+ MIS now passes both the IP and HOST command lines when creating a telnet
session.
! Mystic should now properly copy Welcome, News, and Goodbye files if they
exist into QWK packets.

12
mystic/bbs_msgbase.pas
View File

@ -2922,9 +2922,10 @@ Begin
End;
End;
Write (tFile, Config.qwkWelcome + CRLF);
Write (tFile, Config.qwkNews + CRLF);
Write (tFile, Config.qwkGoodbye + CRLF);
Write (tFile, JustFile(Config.qwkWelcome) + CRLF);
Write (tFile, JustFile(Config.qwkNews) + CRLF);
Write (tFile, JustFile(Config.qwkGoodbye) + CRLF);
Close (tFile);
End;
@ -3131,6 +3132,7 @@ Begin
BlockRead (DataFile, Temp[1], 128);
Temp[0] := #128;
If Pos(strUpper(Config.qwkBBSID), strUpper(Temp)) = 0 Then Begin
Session.io.OutFullLn (Session.GetPrompt(239));
Close (DataFile);
@ -3271,6 +3273,10 @@ Begin
Session.io.PromptInfo[1] := Temp;
If FileExist(Config.QwkWelcome) Then CopyFile(Config.qwkWelcome, Session.TempPath + JustFile(Config.qwkWelcome));
If FileExist(Config.QwkNews) Then CopyFile(Config.qwkNews, Session.TempPath + JustFile(Config.qwkNews));
If FileExist(Config.QwkGoodbye) Then CopyFile(Config.qwkGoodbye, Session.TempPath + JustFile(Config.qwkGoodbye));
If Session.LocalMode Then Begin
Session.FileBase.ExecuteArchive (Config.QWKPath + Temp, Session.User.ThisUser.Archive, Session.TempPath + FileMask, 1);
Session.io.OutFullLn (Session.GetPrompt(235));