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

Code cleanup

This commit is contained in:
mysticbbs 2012-02-16 13:16:51 -05:00
parent 956f043eb5
commit 11aa224c71
1 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
mystic/mis_client_ftp.pas
View File

@ -45,8 +45,6 @@ Type
Procedure Execute; Override; Procedure Execute; Override;
Destructor Destroy; Override; Destructor Destroy; Override;
// Procedure dlog (S:String);
Procedure ResetSession; Procedure ResetSession;
Procedure UpdateUserStats (TFBase: FBaseRec; FDir: FDirRec; DirPos: LongInt); Procedure UpdateUserStats (TFBase: FBaseRec; FDir: FDirRec; DirPos: LongInt);
Function CheckFileLimits (TempFBase: FBaseRec; FDir: FDirRec) : Byte; Function CheckFileLimits (TempFBase: FBaseRec; FDir: FDirRec) : Byte;
@ -115,19 +113,6 @@ Begin
Server := Owner; Server := Owner;
End; End;
(*
Procedure TFTPServer.dlog (S:String);
Var
T : Text;
Begin
Assign (T, 'd:\code\mystic1\misftp.log');
Append (T);
If IoResult <> 0 Then Rewrite(T);
WriteLn(T, S);
Close(T);
End;
*)
Procedure TFTPServer.ResetSession; Procedure TFTPServer.ResetSession;
Begin Begin
If Assigned(DataSocket) Then DataSocket.Free; If Assigned(DataSocket) Then DataSocket.Free;