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

(Hopefully) final fix for FTP fidonet polling

This commit is contained in:
mysticbbs 2013-09-26 07:45:26 -04:00
parent a537b7f5b9
commit 780c3e32c1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mdl/m_tcp_client_ftp.pas
View File

@ -289,8 +289,8 @@ Begin
If Not Result Then Exit; If Not Result Then Exit;
End; End;
Result := False;
Res := SendDataCommand(Passive, 'NLST'); Res := SendDataCommand(Passive, 'NLST');
Result := Res = 550;
If (Res = 125) or (Res = 150) Then Begin If (Res = 125) or (Res = 150) Then Begin
ResponseData.Clear; ResponseData.Clear;