diff Ikariam.pm @ 16:59f2c435760c

implemented cached by timing.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Wed, 08 Oct 2008 15:24:21 +0800
parents f590b5ea5e55
children 9c52ae71c1cb
line wrap: on
line diff
--- a/Ikariam.pm	Wed Oct 08 12:56:40 2008 +0800
+++ b/Ikariam.pm	Wed Oct 08 15:24:21 2008 +0800
@@ -25,7 +25,10 @@
 
     my $self =
     {
-        mech => WWW::Mechanize->new(agent => "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.3) Gecko/2008092816 Iceweasel/3.0.1 (Debian-3.0.1-1)"),
+        mech => WWW::Mechanize->new(
+            agent => "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.3) Gecko/2008092816 Iceweasel/3.0.1 (Debian-3.0.1-1)",
+            timeout => 10,
+        ),
         server => $server,
         user => $user,
         pass => $pass,