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

Added .REP file ext

This commit is contained in:
mysticbbs 2013-09-26 22:15:40 -04:00
parent 780c3e32c1
commit 650e01386f
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mystic/qwkpoll.pas
View File

@ -82,7 +82,7 @@ Begin
If QWK.TotalMessages > 0 Then Begin If QWK.TotalMessages > 0 Then Begin
WriteLn (' - Sending reply packet'); 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; ftpResOK : SentFile := True;
ftpResBadData : WriteLn (' - Unable to open data connection'); ftpResBadData : WriteLn (' - Unable to open data connection');
Else Else
@ -110,8 +110,6 @@ Begin
End; End;
If FileExist(TempPath + QwkNet.PacketID + '.qwk') Then Begin If FileExist(TempPath + QwkNet.PacketID + '.qwk') Then Begin
WriteLn (' - Unpacking QWK packet');
ExecuteArchive (TempPath, TempPath + QwkNet.PacketID + '.qwk', QwkNet.ArcType, '*', 2); ExecuteArchive (TempPath, TempPath + QwkNet.PacketID + '.qwk', QwkNet.ArcType, '*', 2);
WriteLn (' - Importing QWK packet'); WriteLn (' - Importing QWK packet');