Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ExternalBoardPlugInMain.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.12 by h677, Thu Aug 26 17:07:19 2004 UTC revision 1.13 by h677, Mon Sep 6 16:41:17 2004 UTC
# Line 270  begin Line 270  begin
270                                  Result := socket.ResponseCode;                                  Result := socket.ResponseCode;
271                                  if (Length( content ) = 0) and (Result = 206) then                                  if (Length( content ) = 0) and (Result = 206) then
272                                          Result := 304;                                          Result := 304;
273                                    if ( AnsiPos('http://jbbs.livedoor.com/', inURL) > 0 ) and (Result = 200) then begin
274                                            if( AnsiPos('STORAGE IN', socket.Response.RawHeaders.Text) > 0 ) then begin
275                                                    Result := 302;
276                                            end;
277                                    end;
278                                  outResultData := CreateResultString( content );                                  outResultData := CreateResultString( content );
279                          except                          except
280                                  on E: EIdSocketError do begin                                  on E: EIdSocketError do begin

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26