• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#objective-cqtwindows誰得cocoapythonphprubygameguibathyscaphec翻訳omegat計画中(planning stage)frameworktwittertestdomvb.netdirectxbtronarduinopreviewerゲームエンジン

ギコナビ


Commit MetaInfo

Revisionb2da08b4e2dbafc78a12a4c6ebdbf7f7ef7cdf7f (tree)
Time2009-02-25 05:12:05
Authorh677 <h677>
Commiterh677

Log Message

2/24まちBBS仕様変更対応

Change Summary

Incremental Difference

--- a/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr
+++ b/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr
@@ -83,7 +83,7 @@ const
8383 MAJOR_VERSION = 1;
8484 MINOR_VERSION = 0;
8585 RELEASE_VERSION = 'beta';
86- REVISION_VERSION = 19;
86+ REVISION_VERSION = 20;
8787
8888 // =========================================================================
8989 // ŽG—pŠÖ”
@@ -472,7 +472,6 @@ var
472472 foundPos := AnsiPos( '<table', downResult.Text ) - 1;
473473 if foundPos > 0 then
474474 downResult.Text := Copy( downResult.Text, 1, foundPos );
475-
476475 // ‚Ü‚¿BBS‚Í dat ’¼“Ç‚Ý‚ªo—ˆ‚È‚¢‚µAcgi ˆÈŠO‚ɍ·•ª“ǂݍž‚Ý‚Ì•û–@‚ª‚ ‚é‚킯‚Å‚à–³‚¢‚Ì‚Å
477476 // ‘f‚Ì‚Ü‚Ü‚ð–³—‚É•Û‚Æ‚¤‚Æ‚Í‚¹‚¸‚É 2ch ‚Ì dat Œ`Ž®‚É•ÏŠ·‚µ‚½‚à‚Ì‚ð•Û‘¶‚µ‚Ä‚µ‚Ü‚¤
478477 To2chDat( downResult, Count + 1 );
@@ -519,13 +518,13 @@ begin
519518 if Count = 0 then
520519 // 1`
521520 datURL :=
522- uri.Protocol + '://' + uri.Host + '/bbs/read.pl?' +
521+ uri.Protocol + '://' + uri.Host + '/bbs/read.cgi?' +
523522 'BBS=' + uriList.Values[ 'BBS' ] + '&KEY=' + uriList.Values[ 'KEY' ] +
524523 '&START=' + IntToStr( 1 )
525524 else
526525 // V’…‚Ì‚Ý
527526 datURL :=
528- uri.Protocol + '://' + uri.Host + '/bbs/read.pl?' +
527+ uri.Protocol + '://' + uri.Host + '/bbs/read.cgi?' +
529528 'BBS=' + uriList.Values[ 'BBS' ] + '&KEY=' + uriList.Values[ 'KEY' ] +
530529 '&START=' + IntToStr( Count + 1 ) + '&NOFIRST=TRUE';
531530 // ƒ_ƒEƒ“ƒ[ƒh
@@ -767,7 +766,7 @@ procedure TMachiBBSThreadItem.To2chDat(
767766 );
768767 var
769768 i, bound : Integer;
770- foundPos : Integer;
769+ foundPos,foundPos2 : Integer;
771770 strTmp : string;
772771 res : TStringList;
773772 no : Integer;
@@ -804,6 +803,7 @@ begin
804803 // ‚ ‚ځ[‚ñƒ`ƒFƒbƒN‚Å–â‘肪”­¶‚µ‚Ä‚àæ‚֐i‚ß‚½‚¢‚Ì‚Å
805804 end;
806805
806+
807807 // ƒgƒŠƒbƒv‚ÌŒã‚Ì '<b> </b>' ‚ð‹ó‚É
808808 if AnsiPos('Ÿ</b>', ioHTML.Text) <> 0 then begin
809809 ioHTML.Text := CustomStringReplace( ioHTML.Text, '<b> </b></font>', '</b></font>', true );
@@ -828,6 +828,7 @@ begin
828828 try
829829 bound := ioHTML.Count - 1;
830830 for i := 0 to bound do begin
831+ // ƒXƒNƒŠƒvƒg‚ªŠÜ‚Ü‚ê‚Ä‚¢‚½‚çíœ‚·‚éiL‘΍ôj
831832 res.Text := CustomStringReplace( ioHTML[ i ], '<>', #10 );
832833 //StringReplace( ioHTML[ i ], '<>', #10, [rfReplaceAll] );
833834 if res.Count >= 3 then begin // 3 –¢–ž‚Í‚ ‚肦‚È‚¢‚ÆŽv‚¤‚¯‚LjÀ‘S‚Ì‚½‚ß
@@ -855,7 +856,15 @@ begin
855856 end;
856857 end;
857858 ioHTML[ i ] := CustomStringReplace( res.Text, #13#10, '<>');
858- //StringReplace( res.Text, #13#10, '<>', [rfReplaceAll] );
859+ // LƒXƒNƒŠƒvƒg‘΍ô
860+ foundPos := Pos( '<script', ioHTML[ i ] );
861+ if foundPos > 0 then begin
862+ foundPos2 := Pos( '</script>', ioHTML[ i ] );
863+ if (foundPos2 > foundPos) then begin
864+ ioHTML[ i ] := Copy(ioHTML[ i ], 1, foundPos-1) +
865+ Copy(ioHTML[ i ], foundPos2 + 9, Length(ioHTML[ i ]));
866+ end;
867+ end;
859868 end;
860869 finally
861870 res.Free;
Binary files a/res/ExternalBoardPlugIn/MachiBBSPlugIn.res and b/res/ExternalBoardPlugIn/MachiBBSPlugIn.res differ