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

Now does a partial filename match on FILE_ID.DIZ using internal listing.

This commit is contained in:
mysticbbs 2012-09-04 09:54:47 -04:00
parent cd9f250a2c
commit dfed8ab991
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mystic/bbs_filebase.pas
View File

@ -447,8 +447,8 @@ Begin
Arc^.FindFirst(SR); Arc^.FindFirst(SR);
While SR.Name <> '' Do Begin While SR.Name <> '' Do Begin
If (strUpper(SR.Name) = 'FILE_ID.DIZ') Then Begin If (Pos('FILE_ID.DIZ', strUpper(SR.Name)) > 0 Then Begin
DizName := SR.Name; DizName := strStripLow(SR.Name);
Break; Break;
End; End;