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

Default protocol support

This commit is contained in:
mysticbbs 2012-08-08 02:31:54 -04:00
parent 0e70d13d19
commit 2f6fc90ab4
1 changed files with 2 additions and 2 deletions

4
mystic/bbs_msgbase.pas
View File

@ -1112,7 +1112,7 @@ Begin
End Else Begin End Else Begin
FN := Session.TempPath + Session.io.GetInput(70, 70, 11, ''); FN := Session.TempPath + Session.io.GetInput(70, 70, 11, '');
If Session.FileBase.SelectProtocol(False) = 'Q' Then Exit; If Session.FileBase.SelectProtocol(True, False) = 'Q' Then Exit;
Session.FileBase.ExecuteProtocol(False, FN); Session.FileBase.ExecuteProtocol(False, FN);
@ -3274,7 +3274,7 @@ Begin
If Session.LocalMode Then If Session.LocalMode Then
Session.FileBase.ExecuteArchive (Config.QWKPath + Config.qwkBBSID + '.rep', Session.User.ThisUser.Archive, '*', 2) Session.FileBase.ExecuteArchive (Config.QWKPath + Config.qwkBBSID + '.rep', Session.User.ThisUser.Archive, '*', 2)
Else Begin Else Begin
If Session.FileBase.SelectProtocol(False) = 'Q' Then Exit; If Session.FileBase.SelectProtocol(True, False) = 'Q' Then Exit;
Session.FileBase.ExecuteProtocol(False, Session.TempPath + Config.qwkBBSID + '.rep'); Session.FileBase.ExecuteProtocol(False, Session.TempPath + Config.qwkBBSID + '.rep');