diff --git a/mystic/HISTORY.txt b/mystic/HISTORY.txt index 231c89c..90820de 100644 --- a/mystic/HISTORY.txt +++ b/mystic/HISTORY.txt @@ -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. diff --git a/mystic/bbs_msgbase.pas b/mystic/bbs_msgbase.pas index ac18a10..250c23a 100644 --- a/mystic/bbs_msgbase.pas +++ b/mystic/bbs_msgbase.pas @@ -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));