From 05fdcb67be798705a7634f4e59c8e5082bdcad36 Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Fri, 24 Aug 2012 17:40:33 -0400 Subject: [PATCH] Alpha 18 sync --- mystic/bbs_filebase.pas | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/mystic/bbs_filebase.pas b/mystic/bbs_filebase.pas index 00f05c7..7b093e8 100644 --- a/mystic/bbs_filebase.pas +++ b/mystic/bbs_filebase.pas @@ -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));