Mercurial > eagle-eye
changeset 36:704d76b67670
fixed the island cache problem
author | "Rex Tsai <chihchun@kalug.linux.org.tw>" |
---|---|
date | Sat, 11 Oct 2008 05:21:06 +0800 |
parents | d9d4aedc9e03 |
children | 7d1e353520ca |
files | inactive-map.pl scan.pl |
diffstat | 1 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/scan.pl Sat Oct 11 05:20:03 2008 +0800 +++ b/scan.pl Sat Oct 11 05:21:06 2008 +0800 @@ -28,9 +28,13 @@ Ikariam::Cities->insert($city); } - printf("city %d %s saved\n", $city->{cityId}, $city->{cityname}); + printf("city %s (%d) at island (%d) saved\n", + $city->{cityname}, + $city->{cityId}, + $island); + my $user = Ikariam::User->retrieve($city->{user}); - if(!defined($user) || $user->time le (time - 60*60*12)) { + if(!defined($user) || $user->time le (time - 60*60*1)) { # Download user profile. foreach my $x (qw/score army_score_main trader_score_secondary/) { @@ -99,14 +103,15 @@ } # scanning the island - if($island->time le (time - 60*60*12 )) + if($island->time le (time - 60*60*6)) { my @cities = $i->viewIsland($h_island->{id}); saveCities($h_island->{id}, @cities); - } - $island->set('time', time); + $island->set('time', time); + } $island->update(); + } $i->logout; # $i->getCityInfo();