From 650e01386f8ddc00229c7b42a07fd62373de4ae3 Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Thu, 26 Sep 2013 22:15:40 -0400 Subject: [PATCH] Added .REP file ext --- mystic/qwkpoll.pas | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/mystic/qwkpoll.pas b/mystic/qwkpoll.pas index a0d3565..586754b 100644 --- a/mystic/qwkpoll.pas +++ b/mystic/qwkpoll.pas @@ -82,7 +82,7 @@ Begin If QWK.TotalMessages > 0 Then Begin WriteLn (' - Sending reply packet'); - Case FTP.SendFile(QwkNet.UsePassive, TempPath + QwkNet.PacketID + '.rep', QwkNet.PacketID) of + Case FTP.SendFile(QwkNet.UsePassive, TempPath + QwkNet.PacketID + '.rep', QwkNet.PacketID + '.rep') of ftpResOK : SentFile := True; ftpResBadData : WriteLn (' - Unable to open data connection'); Else @@ -110,8 +110,6 @@ Begin End; If FileExist(TempPath + QwkNet.PacketID + '.qwk') Then Begin - WriteLn (' - Unpacking QWK packet'); - ExecuteArchive (TempPath, TempPath + QwkNet.PacketID + '.qwk', QwkNet.ArcType, '*', 2); WriteLn (' - Importing QWK packet');