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

Alpha 18 sync

This commit is contained in:
mysticbbs 2012-08-24 17:40:33 -04:00
parent 38311ddf58
commit 05fdcb67be
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
mystic/bbs_filebase.pas
View File

@ -69,10 +69,10 @@ Type
Procedure GetFileScan;
Function SelectProtocol (UseDefault, Batch: Boolean) : Char;
Function WildcardMatch (Wildcard, FName: String) : Boolean;
Procedure CheckFileNameLength (FPath : String; Var FName : String);
Procedure CheckFileNameLength (FPath : String; Var FName: String);
Procedure GetFileDescription (FN: String);
Function CheckFileLimits (DL: Byte; DLK: Integer) : Byte;
Function ArchiveList (FName : String) : Boolean; { was string }
Function ArchiveList (FName: String) : Boolean; { was string }
Function ImportDIZ (FN: String) : Boolean;
Function IsDupeFile (FileName : String; Global : Boolean) : Boolean;
Function ListFiles (Mode : Byte; Data : String) : Byte;
@ -2821,9 +2821,10 @@ Begin
Exit;
End;
ExecuteProtocol(0, FBase.Path);
{ ++lang ADD: update node status to transferring file? }
If Blind Then
ExecuteProtocol(0, FBase.Path)
Else
ExecuteProtocol(0, FileName);
Session.io.OutFull (Session.GetPrompt(376));