From 3e7c473b593810cc15472de7665826a7a8a00bdd Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Mon, 23 Sep 2013 22:24:36 -0400 Subject: [PATCH] No longer printing the wrong status msg when getting FTP bundle --- mystic/fidopoll.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/mystic/fidopoll.pas b/mystic/fidopoll.pas index f0d4272..17c6d25 100644 --- a/mystic/fidopoll.pas +++ b/mystic/fidopoll.pas @@ -120,10 +120,10 @@ Begin 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.SendCommand('DELE ' + FTP.ResponseData.Strings[Count - 1]) <> 250 Then - FileErase(bbsCfg.InboundPath + FTP.ResponseData.Strings[Count - 1]) - Else + If FTP.SendCommand('DELE ' + FTP.ResponseData.Strings[Count - 1]) <> 250 Then Begin PrintStatus (NIL, 1, 'Unable to delete from server ' + FTP.ResponseData.Strings[Count - 1]); + FileErase(bbsCfg.InboundPath + FTP.ResponseData.Strings[Count - 1]); + End; End Else PrintStatus (NIL, 1, 'Failed'); End;