テレビ番組欄板のようにリダイレクトでトップページに遷移する板対策

diff --git a/NewBoardURL.pas b/NewBoardURL.pas
index bedd84e..8413289 100644 (file)
--- a/NewBoardURL.pas
+++ b/NewBoardURL.pas
@@ -115,9 +115,14 @@ begin
                             newURL := IdHTTP.Response.Location;
                         end;
                         if (newURL <> '') then begin
+                            // \83\8a\83_\83C\83\8c\83N\83g\82·\82ê\82Î\95K\82¸\88Ú\93]\82Æ\82Í\8cÀ\82ç\82È\82¢
+                            // \83e\83\8c\83r\94Ô\91g\94Â\82È\82Ç\82Ì\91Î\8dô\8dÅ\8cã\82Ì'/'\82Ü\82Å\82ðURL\82Æ\82·\82é
+                            if (Length(newURL) <> LastDelimiter('/', newURL)) then begin
+                                newURL := Copy(newURL, 1, LastDelimiter('/', newURL));
+                            end;
                             oldURL := URLs[i];
-                            ResultMemo.Lines.Add('URL:' + oldURL + ' -> ' + newURL);
-                            if (newURL <> '') then begin
+                            if (oldURL <> newURL) then begin
+                                ResultMemo.Lines.Add('URL:' + oldURL + ' -> ' + newURL);
                                 oldURLs.Add( oldURL );
                                 newURLs.Add( newURL );
                             end;