古いドメイン(machibbs.com)も許可するように修正

diff --git a/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr b/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr
index 1956c36..274d8da 100644 (file)
--- a/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr
+++ b/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr
@@ -83,7 +83,7 @@ const
        MAJOR_VERSION                   = 1;
        MINOR_VERSION                   = 0;
        RELEASE_VERSION         = 'beta';
-       REVISION_VERSION        = 20;
+       REVISION_VERSION        = 21;
 
 // =========================================================================
 // \8eG\97p\8aÖ\90\94
@@ -268,6 +268,7 @@ var
        foundPos        : Integer;
 const
        BBS_HOST                = 'machi.to';
+       BBS_HOST2               = 'machibbs.com';    
        THREAD_MARK     = '/bbs/read.pl';
     THREAD_MARK2= '/bbs/read.cgi';
 begin
@@ -292,7 +293,23 @@ begin
                                else
                                        Result := atBBS;
                        end else begin
-                               Result := atNoAccept;
+                foundPos := AnsiPos( BBS_HOST2, uri.Host );
+                if (foundPos > 0) and (Length( uri.Host ) - foundPos + 1 = Length( BBS_HOST2 )) then begin
+                    foundPos := Pos( THREAD_MARK, inURL );
+                    if (foundPos = 0) then begin
+                        // \90VURL\91Î\89\9e
+                        foundPos := Pos( THREAD_MARK2, inURL );
+                    end;
+                    if foundPos > 0 then
+                        Result := atThread
+                    else if (uriList.Count > 1) and (uri.Path <> '/') then     // \8dÅ\8cã\82ª '/' \82Å\95Â\82ß\82ç\82ê\82Ä\82é\82È\82ç 3
+                        Result := atBoard
+                    else
+                        Result := atBBS;
+                end else begin
+
+                    Result := atNoAccept;
+                end;
                        end;
                finally
                        uri.Free;

diff --git a/res/ExternalBoardPlugIn/MachiBBSPlugIn.res b/res/ExternalBoardPlugIn/MachiBBSPlugIn.res
index 149ddcf..83fca3e 100644 (file)
Binary files a/res/ExternalBoardPlugIn/MachiBBSPlugIn.res and b/res/ExternalBoardPlugIn/MachiBBSPlugIn.res differ