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

thoughts

This commit is contained in:
mysticbbs 2013-08-17 22:27:43 -04:00
parent 3f347f5a77
commit a3f48c7798
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
mystic/mis_client_binkp.pas
View File

@ -42,6 +42,9 @@ Const
M_SKIP = 10; M_SKIP = 10;
M_DATA = 255; M_DATA = 255;
// needs to be 32k... can't remember what the problem was that made me
// limit it temporarily to 30k
BinkPMaxBufferSize = 30 * 1024; BinkPMaxBufferSize = 30 * 1024;
TempFileTime = 1363944820; TempFileTime = 1363944820;
@ -193,6 +196,12 @@ Var
Begin Begin
// Scan all FLO files in outbound directory, and PRUNE them all. // Scan all FLO files in outbound directory, and PRUNE them all.
// possible issue if multiple BINKP connections are going. we need
// to revamp this to perform appropriate file locking and waiting.
// also should be moved to mis_common since FTN-FTP will also perform
// the same procedure.
// could also perform a critical section as a cheesy way to do this.
FindFirst (SetOutPath + '*.?lo', AnyFile, DirInfo); FindFirst (SetOutPath + '*.?lo', AnyFile, DirInfo);
While DosError = 0 Do Begin While DosError = 0 Do Begin
@ -525,8 +534,6 @@ Begin
End; End;
End; End;
// DoFrameCheck;
Case TxState of Case TxState of
TxGetEOF : Begin TxGetEOF : Begin
If HaveHeader Then If HaveHeader Then