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.120 by h677, Fri Apr 2 16:02:13 2004 UTC revision 1.121 by yoffy, Fri Apr 9 04:00:35 2004 UTC
# Line 3161  begin Line 3161  begin
3161          ParseURI( inURL, Protocol, Host, Path, Document, Port, Bookmark );          ParseURI( inURL, Protocol, Host, Path, Document, Port, Bookmark );
3162          Parse2chURL( inURL, Path, Document, BBSID, BBSKey );          Parse2chURL( inURL, Path, Document, BBSID, BBSKey );
3163    
3164          Result := Copy( inURL, 1, Pos( '/test/read.cgi', inURL ) ) + BBSID + '/';          Result := Protocol + '://' + Host + '/' + BBSID + '/';
3165    
3166  end;  end;
3167    
# Line 3174  var Line 3174  var
3174          foundPos        : Integer;          foundPos        : Integer;
3175  begin  begin
3176    
3177          if Pos( KAKO_PATH, inURL ) > 0 then begin  //      if Pos( KAKO_PATH, inURL ) > 0 then begin
3178                  Result := inURL;  //              Result := inURL;
3179          end else begin  //      end else begin
3180                  ParseURI( inURL, Protocol, Host, Path, Document, Port, Bookmark );                  ParseURI( inURL, Protocol, Host, Path, Document, Port, Bookmark );
3181                  Parse2chURL( inURL, Path, Document, BBSID, BBSKey );                  Parse2chURL( inURL, Path, Document, BBSID, BBSKey );
3182                  foundPos := Pos( '/test/read.cgi', inURL ) - 1;                  foundPos := Pos( '/test/read.cgi', inURL ) - 1;
3183    
3184                  if Is2chHost( Host ) then begin                  if Is2chHost( Host ) then begin
3185                          Result := Copy( inURL, 1, foundPos ) +                          Result := Protocol + '://' + Host +
3186                                  READ_PATH + BBSID + '/' + BBSKey + '/l50';                                  READ_PATH + BBSID + '/' + BBSKey + '/l50';
3187                  end else begin                  end else begin
3188                          Result := Copy( inURL, 1, foundPos ) +                          Result := Protocol + '://' + Host +
3189                                  OLD_READ_PATH + 'bbs=' + BBSID + '&key=' + BBSKey + '&ls=50';                                  OLD_READ_PATH + 'bbs=' + BBSID + '&key=' + BBSKey + '&ls=50';
3190                  end;                  end;
3191          end;  //      end;
3192    
3193  end;  end;
3194    

Legend:
Removed from v.1.120  
changed lines
  Added in v.1.121

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