# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1223673666 -28800
# Node ID 704d76b676701ab3b91ca0af6b7620b33becb44f
# Parent  d9d4aedc9e03055e9e775811588d816ee500f0a9
fixed the island cache problem

diff -r d9d4aedc9e03 -r 704d76b67670 inactive-map.pl
diff -r d9d4aedc9e03 -r 704d76b67670 scan.pl
--- 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();