comparison 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
comparison
equal deleted inserted replaced
15:e68f4cadfabd 16:59f2c435760c
23 { 23 {
24 my ($class, $server, $user, $pass) = @_; 24 my ($class, $server, $user, $pass) = @_;
25 25
26 my $self = 26 my $self =
27 { 27 {
28 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)"), 28 mech => WWW::Mechanize->new(
29 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)",
30 timeout => 10,
31 ),
29 server => $server, 32 server => $server,
30 user => $user, 33 user => $user,
31 pass => $pass, 34 pass => $pass,
32 }; 35 };
33 36