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

Initial A34 import

This commit is contained in:
mysticbbs 2013-05-11 23:20:19 -04:00
parent 7df268cb6b
commit 387ac3c3f8
5 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mystic/bbs_msgbase.pas
View File

@ -3242,6 +3242,8 @@ Var
If Not Found Then If Not Found Then
MsgBase^.SetLastRead(Session.User.UserNum, MsgBase^.GetHighMsgNum); MsgBase^.SetLastRead(Session.User.UserNum, MsgBase^.GetHighMsgNum);
MsgBase^.CloseMsgBase;
End; End;
Dispose (MsgBase, Done); Dispose (MsgBase, Done);

6
mystic/mis_client_ftp.pas
View File

@ -284,7 +284,7 @@ Begin
WaitSock.WaitInit(bbsConfig.inetInterface, DataPort); WaitSock.WaitInit(bbsConfig.inetInterface, DataPort);
DataSocket := WaitSock.WaitConnection; DataSocket := WaitSock.WaitConnection(10000);
If Not Assigned(DataSocket) Then Begin If Not Assigned(DataSocket) Then Begin
WaitSock.Free; WaitSock.Free;
@ -467,7 +467,7 @@ Begin
{$IFDEF FTPDEBUG} LOG('PASV Wait'); {$ENDIF} {$IFDEF FTPDEBUG} LOG('PASV Wait'); {$ENDIF}
DataSocket := WaitSock.WaitConnection; DataSocket := WaitSock.WaitConnection(10000);
{$IFDEF FTPDEBUG} LOG('PASV WaitDone'); {$ENDIF} {$IFDEF FTPDEBUG} LOG('PASV WaitDone'); {$ENDIF}
@ -771,7 +771,7 @@ Begin
WaitSock.WaitInit(bbsConfig.inetInterface, DataPort); WaitSock.WaitInit(bbsConfig.inetInterface, DataPort);
DataSocket := WaitSock.WaitConnection; DataSocket := WaitSock.WaitConnection(10000);
If Not Assigned(DataSocket) Then Begin If Not Assigned(DataSocket) Then Begin
WaitSock.Free; WaitSock.Free;

2
mystic/mis_server.pas
View File

@ -211,7 +211,7 @@ Begin
Status('Opening server socket on port ' + strI2S(Port)); Status('Opening server socket on port ' + strI2S(Port));
Repeat Repeat
NewClient := Server.WaitConnection; NewClient := Server.WaitConnection(0);
If NewClient = NIL Then Break; // time to shutdown the server... If NewClient = NIL Then Break; // time to shutdown the server...

2
mystic/records.pas
View File

@ -23,7 +23,7 @@
Const Const
mysSoftwareID = 'Mystic BBS'; mysSoftwareID = 'Mystic BBS';
mysCopyYear = '1997-2013'; // its been a long time! mysCopyYear = '1997-2013'; // its been a long time!
mysVersion = '1.10 A33'; // current version mysVersion = '1.10 A34'; // current version
mysDataChanged = '1.10 A11'; // version of last records change mysDataChanged = '1.10 A11'; // version of last records change
{$IFDEF WIN32} {$IFDEF WIN32}

9
mystic/whatsnew.txt
View File

@ -3363,3 +3363,12 @@
for your telnet server. for your telnet server.
<ALPHA 33 RELEASED> <ALPHA 33 RELEASED>
! Mystic was not properly closing some files when resetting the message
base new scan pointer date.
! The FTP server will now gracefully handle data session timeouts (after
10 seconds) which should prevent FTP ghost users when there is a firewall
or network adapter configuration issue.
<ALPHA 34 RELEASED>