Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

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

revision 1.76 by yoffy, Fri Nov 21 17:24:50 2003 UTC revision 1.77 by yoffy, Sat Nov 22 17:06:14 2003 UTC
# Line 2681  function       TGikoSys.Get2chBrowsableThreadU Line 2681  function       TGikoSys.Get2chBrowsableThreadU
2681  var  var
2682          Protocol, Host, Path, Document, Port, Bookmark : string;          Protocol, Host, Path, Document, Port, Bookmark : string;
2683          BBSID, BBSKey : string;          BBSID, BBSKey : string;
2684    const
2685            KAKO_PATH       = '/kako/';
2686  begin  begin
2687    
2688          ParseURI( inURL, Protocol, Host, Path, Document, Port, Bookmark );          if Pos( KAKO_PATH, inURL ) > 0 then begin
2689          Parse2chURL( inURL, Path, Document, BBSID, BBSKey );                  Result := inURL;
2690            end else begin
2691                    ParseURI( inURL, Protocol, Host, Path, Document, Port, Bookmark );
2692                    Parse2chURL( inURL, Path, Document, BBSID, BBSKey );
2693    
2694          Result := Protocol + '://' + Host + '/test/read.cgi/' + BBSID + '/' + BBSKey + '/l50';                  Result := Protocol + '://' + Host + '/test/read.cgi/' + BBSID + '/' + BBSKey + '/l50';
2695            end;
2696    
2697  end;  end;
2698    

Legend:
Removed from v.1.76  
changed lines
  Added in v.1.77

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