Mercurial > eagle-eye
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 |