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

No longer printing the wrong status msg when getting FTP bundle

This commit is contained in:
mysticbbs 2013-09-23 22:24:36 -04:00
parent cbf82cbae3
commit 3e7c473b59
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mystic/fidopoll.pas
View File

@ -120,10 +120,10 @@ Begin
PrintStatus (NIL, 1, 'Receiving ' + FTP.ResponseData.Strings[Count - 1]); PrintStatus (NIL, 1, 'Receiving ' + FTP.ResponseData.Strings[Count - 1]);
If FTP.GetFile (EchoNode.ftpPassive, bbsCfg.InboundPath + FTP.ResponseData.Strings[Count - 1]) = ftpResOK Then Begin If FTP.GetFile (EchoNode.ftpPassive, bbsCfg.InboundPath + FTP.ResponseData.Strings[Count - 1]) = ftpResOK Then Begin
If FTP.SendCommand('DELE ' + FTP.ResponseData.Strings[Count - 1]) <> 250 Then If FTP.SendCommand('DELE ' + FTP.ResponseData.Strings[Count - 1]) <> 250 Then Begin
FileErase(bbsCfg.InboundPath + FTP.ResponseData.Strings[Count - 1])
Else
PrintStatus (NIL, 1, 'Unable to delete from server ' + FTP.ResponseData.Strings[Count - 1]); PrintStatus (NIL, 1, 'Unable to delete from server ' + FTP.ResponseData.Strings[Count - 1]);
FileErase(bbsCfg.InboundPath + FTP.ResponseData.Strings[Count - 1]);
End;
End Else End Else
PrintStatus (NIL, 1, 'Failed'); PrintStatus (NIL, 1, 'Failed');
End; End;