スレたてをsubbbs.cgiからbbs.cgiに変更を２ちゃんねるに限定

diff --git a/BoardGroup.pas b/BoardGroup.pas
index bd1d395..268cc42 100644 (file)
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -1210,8 +1210,16 @@ end;
 
 // \83X\83\8c\97§\82Ä\91\97\90MURL
 function TBoard.GetSendURL: string;
+var
+       Protocol, Host, Path, Document, Port, Bookmark : string;
 begin
-       Result := GikoSys.UrlToServer(URL) + 'test/bbs.cgi';
+    Result := GikoSys.UrlToServer(URL);
+    GikoSys.ParseURI( URL, Protocol,Host, Path, Document, Port, Bookmark );
+    if GikoSys.Is2chHost(Host) then
+        Result := Result + 'test/bbs.cgi'
+    else
+        Result := Result + 'test/subbbs.cgi';
+
 end;
 
 procedure TBoard.SetRound(b: Boolean);