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

View File

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

View File

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

View File

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

View File

@ -23,7 +23,7 @@
Const
mysSoftwareID = 'Mystic BBS';
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
{$IFDEF WIN32}

View File

@ -3363,3 +3363,12 @@
for your telnet server.
<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>