Changeset 38602

Timestamp:

10/19/10 16:28:26 (19 months ago)

Author:

mumumu

Message:

- changed default timeout value (3 to 10)
- newly added recv_limit configuration. default value is 64K. (damn! amazon.co.jp)

Files:

• lang/perl/tiarra/trunk/module/Auto/FetchTitle.pm (modified) (5 diffs)

lang/perl/tiarra/trunk/module/Auto/FetchTitle.pm

@@ -72 +72 @@
 our $MAX_ACTIVE_REQUESTS        = 3;
 our $MAX_URLS_IN_SINGLE_MESSAGE = 3;
-our $DEFAULT_RECV_LIMIT         = 4*1024; # 4K bytes.
-our $DEFAULT_TIMEOUT            = 3;  # sec.
+our $DEFAULT_RECV_LIMIT         = 64*1024; # 64K bytes. Damn amazon.co.jp!
+our $DEFAULT_TIMEOUT            = 10;  # sec.
 our $MAX_REDIRECTS              = 5;
 our $MAX_REDIRECTS_LIMIT        = 20;
@@ -521 +521 @@
   my $anchor;
   ($url, $anchor) = split(/#/, $url, 2);
+  my $recv_limit = $this->config->recv_limit || $DEFAULT_RECV_LIMIT;
+  $this->_debug($full_ch_name, "recv_limit: $recv_limit");
+
   my $req = {
     old          => undef,    # undef for first (non-redirect) request.
@@ -541 +544 @@
     headers      => {},
     cookies      => [],    # cookies for this request.
-    recv_limit   => $DEFAULT_RECV_LIMIT,
+    recv_limit   => $recv_limit,
     max_redirects=> undef, # integer.
     timeout      => undef,
@@ -1194 +1197 @@
   $DEBUG and $this->_debug($req, "debug: progress $rlen / $req->{recv_limit}");
 
+  
   if( my $addr = !$req->{addr_checked} && $req->{httpclient}->{addr} )
   {
@@ -2309 +2313 @@
 
 # リクエストタイムアウトまでの時間(秒).
-timeout: 3
+# タイムアウトエラーが頻発するようならこの値を
+# 大きくしてください
+timeout: 10 
+
+# 取得するコンテンツのバイト数
+# イマドキのサイトはこれで十分のはずですが、
+# 遅い回線を使っている場合はこの値を小さく
+# してみてください。
+recv_limit: 65536 
 
 # 有効にするチャンネルとオプションとURLの設定.