提交: 1650028eb47c68aeda224503e4d833b48fddaaa5 - gikonavi (git)

ギコナビ

Commit MetaInfo

• 修訂: 1650028eb47c68aeda224503e4d833b48fddaaa5 (tree)
• 時間: 2008-09-15 15:45:45
• 作者: cvs2git <cvs2git>
• Commiter: cvs2git

Log Message

This commit was manufactured by cvs2svn to create tag 'v1_59_1_765'.

Change Summary

• modified: Editor.pas
• modified: GikoSystem.pas
• modified: gikoNavi.res
• modified: readme/readme.txt

差異

--- a/Editor.pas
+++ b/Editor.pas
@@ -249,6 +249,8 @@ type
 				function LFusianaGet(const s: String): Boolean;
 		// Cookie‚̎擾
 		procedure GetCookie(Rawtext: String; ABoard: TBoard);
+        // hiddenƒf[ƒ^Žæ“¾
+        procedure GetHiddenParameter(Rawtext: String; ABoard: TBoard);
 		//! “ü—̓AƒVƒXƒg‚̃|ƒbƒvƒAƒbƒvƒƒjƒ…[‚̃NƒŠƒbƒNƒCƒxƒ“ƒg
 		procedure InputAssistMenuClick(Sender: TObject);
 		//! TMemo‚̃J[ƒ\ƒ‹ˆÊ’u‚É•¶Žš—ñ‘}“ü
@@ -832,7 +834,10 @@ begin
 
 				if MsgResult = IDYES then begin
 					GetCookie(Indy.Response.RawHeaders.Text, Board);
-
+                    if (Board.Is2ch) then begin
+                        GetHiddenParameter(ResponseText, Board);
+                    end;
+                    
 					if (Board.SPID = '') and (Board.PON = '') and (Board.Cookie = '') then
 						raise Exception.Create('');
 
@@ -860,6 +865,9 @@ begin
 
 				if MsgResult = IDYES then begin
 					GetCookie(Indy.Response.RawHeaders.Text, Board);
+                    if (Board.Is2ch) then begin
+                        GetHiddenParameter(ResponseText, Board);
+                    end;
 
 					if (Board.SPID = '') and (Board.PON = '') and (Board.Cookie = '') then
 						raise Exception.Create('');
@@ -1898,7 +1906,90 @@ begin
 		end;
 	end;
 end;
+//! hiddenƒf[ƒ^Žæ“¾
+procedure TEditorForm.GetHiddenParameter(Rawtext: String; ABoard: TBoard);
+const
+    INPUT_MARK = '<input type=hidden' ; // ‘啶Žš¬•¶Žš‚΂ç‚΂ç‚È‚±‚Æ‚É’ˆÓ
+    VALUE_MARK = 'value=' ;              // ‘啶Žš¬•¶Žš‚΂ç‚΂ç‚È‚±‚Æ‚É’ˆÓ
+    NAME_MARK  = 'name=' ;               // ‘啶Žš¬•¶Žš‚΂ç‚΂ç‚È‚±‚Æ‚É’ˆÓ
+    IGNORE_NAMES : array[0..6] of String =
+        ('subject', 'from', 'mail', 'message', 'bbs', 'time', 'key');
+var
+    tmp, line, name, value, lname : String;
+    pos, pose, i : Integer;
+begin
+    tmp := AnsiLowerCase(Rawtext);
+    pos := AnsiPos(INPUT_MARK, tmp);
+    while  (pos > 0 ) do begin
+		tmp := Copy(Rawtext, pos + Length(INPUT_MARK), Length(tmp));
+        Delete(Rawtext, 1, pos+ Length(INPUT_MARK) - 1);
+        pose := AnsiPos('>', tmp);
+        // name=xxx value=yyy ‚ªØ‚èo‚³‚ê‚é
+        line := Copy(tmp, 1, pose - 1);
+        name := '';
+        value := '';
+        pos := AnsiPos(NAME_MARK, tmp);
+        if (pos > 0) then begin
+            name := Copy(Rawtext, pos + Length(NAME_MARK), Length(line));
+            //”¼Šp"‚ÅŽn‚Ü‚Á‚Ä‚¢‚é‚©
+            if AnsiPos('"', name) = 1 then begin
+                // ”¼Šp"‚Ü‚Å‚ðƒRƒs[
+                Delete(name, 1, 1);
+                pose := AnsiPos('"', name);
+                if (pose > 0) then begin
+                    Delete(name, pose, Length(name));
+                end else begin
+                    pose := AnsiPos(' ', name);
+                    if (pose > 0) then begin
+                        Delete(name, pose, Length(name));
+                    end;
+                end;
+            end else begin
+                pose := AnsiPos(' ', name);
+                if (pose > 0) then begin
+                    Delete(name, pose, Length(name));
+                end;
+            end;
+        end;
+        lname := AnsiLowerCase(name);
+        for i := 0 to Length(IGNORE_NAMES) do begin
+            if lname = IGNORE_NAMES[i] then begin
+                name := '';
+                break;
+            end;
+        end;
+        pos := AnsiPos(VALUE_MARK, tmp);
+        if (name <> '') and (pos > 0) then begin
+            value := Copy(Rawtext, pos + Length(VALUE_MARK), Length(line));
+            //”¼Šp"‚ÅŽn‚Ü‚Á‚Ä‚¢‚é‚©
+            if AnsiPos('"', value) = 1 then begin
+                // ”¼Šp"‚Ü‚Å‚ðƒRƒs[
+                Delete(value, 1, 1);
+                pose := AnsiPos('"', value);
+                if (pose > 0) then begin
+                    Delete(value, pose, Length(value));
+                end else begin
+                    pose := AnsiPos(' ', value);
+                    if (pose > 0) then begin
+                        Delete(value, pose, Length(value));
+                    end;
+                end;
+            end else begin
+                pose := AnsiPos(' ', value);
+                if (pose > 0) then begin
+                    Delete(value, pose, Length(name));
+                end;
+            end;
+        end;
+        if (name <> '') then begin
+            ABoard.Cookie := ABoard.Cookie + name + '=' + value + '; '; 
 
+        end;
+		Delete(tmp, 1, Length(line));
+        Delete(Rawtext, 1, Length(line));
+        pos := AnsiPos(INPUT_MARK, tmp);
+    end;
+end;
 
 //! ƒTƒ“ƒoXV‚̃AƒNƒVƒ‡ƒ“‚ÌUpdateƒCƒxƒ“ƒg@ŠÈ’P‚Ì‚½‚߃^ƒCƒ}[‚Æ“¯‚¶‚É‚µ‚Ä‚¨‚­
 procedure TEditorForm.UpdateSambaActionUpdate(Sender: TObject);
@@ -2341,8 +2432,7 @@ begin
 			Result := Result + 'MDMD=' + GikoSys.Setting.BeCode + '; '
 					+ 'DMDM=' + GikoSys.Setting.BeUserID + '; ';
 		end;
-
-	end;
+    end;
 
 	Result := 'Cookie: ' + Result + 'NAME=' + NameComboBox.Text + '; MAIL=' + MailComboBox.Text;
 

--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -264,7 +264,7 @@ const
 	ZERO_DATE: Integer	= 25569;
 	BETA_VERSION_NAME_E = 'beta';
 	BETA_VERSION_NAME_J = 'ÊÞÀ';
-	BETA_VERSION				= 58;
+	BETA_VERSION				= 59;
 	BETA_VERSION_BUILD	= '';				//!< debug”Å‚È‚Ç
 	APP_NAME						= 'gikoNavi';
 	BE_PHP_URL = 'http://be.2ch.net/test/p.php?i=';

Binary files a/gikoNavi.res and b/gikoNavi.res differ

--- a/readme/readme.txt
+++ b/readme/readme.txt
@@ -1,4 +1,4 @@
-¡ƒMƒRƒiƒr Version1.00 ÊÞÀ58 Readme.txt
+¡ƒMƒRƒiƒr Version1.00 ÊÞÀ59 Readme.txt
 
 
 ------------------------------
@@ -108,6 +108,9 @@ LICENSE
 ------------------------------
 —š—ð
 ------------------------------
+2008/XX/XX
+  Version ÊÞÀ59
+  
 2008/09/20
   Version ÊÞÀ58
   ƒvƒŒƒrƒ…[‚ÌURL‚©‚ç“o˜^‚µ‚Ä‚ ‚éŠO•”ƒAƒvƒŠ‚ð‹N“®‚·‚é‹@”\‚ð’ljÁ