# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1226898303 -28800
# Node ID b01560b957794a060032efc61f2841f32b73dc25
# Parent  1e4922d9a671d78f3c01c2a82a911954413ca794
fixed cache time

diff -r 1e4922d9a671 -r b01560b95779 scan.pl
--- a/scan.pl	Mon Nov 17 13:01:10 2008 +0800
+++ b/scan.pl	Mon Nov 17 13:05:03 2008 +0800
@@ -122,16 +122,16 @@
         }
 
         # scanning the island
-        # 10 minutes cache.
-        if($island->time le (time - 60*10)) {
+        # 30 minutes cache.
+        if($island->time le (time - 60*30)) {
             my $i = $self->{ikariam}->clone();
             my @cities = 
                 $i->viewIsland($h_island->{id});
+            $self->saveCities($h_island->{id}, @cities);
             $island->set('time', time);
         }
         $island->update();
 
-        $self->saveCities($h_island->{id}, @cities);
         $pm->finish;
     }
     $pm->wait_all_children;