| 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 |
|
|
| 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 |
|
|