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