Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/GikoSystem.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
| |