From dfed8ab9918347316d18b621beedf11dac34f86c Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Tue, 4 Sep 2012 09:54:47 -0400
Subject: [PATCH] Now does a partial filename match on FILE_ID.DIZ using
 internal listing.

---
 mystic/bbs_filebase.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/mystic/bbs_filebase.pas b/mystic/bbs_filebase.pas
index 5fe53c1..13466c2 100644
--- a/mystic/bbs_filebase.pas
+++ b/mystic/bbs_filebase.pas
@@ -447,8 +447,8 @@ Begin
       Arc^.FindFirst(SR);
 
       While SR.Name <> '' Do Begin
-        If (strUpper(SR.Name) = 'FILE_ID.DIZ') Then Begin
-          DizName := SR.Name;
+        If (Pos('FILE_ID.DIZ', strUpper(SR.Name)) > 0 Then Begin
+          DizName := strStripLow(SR.Name);
           Break;
         End;