From a1304038500bf5cae4e6183cc4148797333b69e4 Mon Sep 17 00:00:00 2001 From: h677 Date: Mon, 6 Sep 2004 16:41:17 +0000 Subject: [PATCH] =?utf8?q?=E3=81=97=E3=81=9F=E3=82=89=E3=81=B0JBBS?= =?utf8?q?=E7=94=A8=E3=81=AE=E9=81=8E=E5=8E=BB=E3=83=AD=E3=82=B0=E3=83=81?= =?utf8?q?=E3=82=A7=E3=83=83=E3=82=AF=E3=81=AE=E3=82=B3=E3=83=BC=E3=83=89?= =?utf8?q?=E8=BF=BD=E5=8A=A0?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- ExternalBoardPlugInMain.pas | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/ExternalBoardPlugInMain.pas b/ExternalBoardPlugInMain.pas index 02a520b..4a40d6c 100644 --- a/ExternalBoardPlugInMain.pas +++ b/ExternalBoardPlugInMain.pas @@ -270,7 +270,11 @@ begin Result := socket.ResponseCode; if (Length( content ) = 0) and (Result = 206) then Result := 304; - + if ( AnsiPos('http://jbbs.livedoor.com/', inURL) > 0 ) and (Result = 200) then begin + if( AnsiPos('STORAGE IN', socket.Response.RawHeaders.Text) > 0 ) then begin + Result := 302; + end; + end; outResultData := CreateResultString( content ); except on E: EIdSocketError do begin -- 2.11.0