diff scan.pl @ 211:541bc1fba446

update very 30 minutes.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Mon, 03 Nov 2008 23:02:36 +0800
parents b7af307a222d
children 978a949602e5
line wrap: on
line diff
--- a/scan.pl	Mon Nov 03 22:56:31 2008 +0800
+++ b/scan.pl	Mon Nov 03 23:02:36 2008 +0800
@@ -28,7 +28,7 @@
         $c->update();
 
         my $user = Ikariam::User->retrieve($h_city->{'user'});
-        next if (defined($user) && defined($user->time) && $user->time le (time - 60*60*1));
+        next if (defined($user) && defined($user->time) && $user->time le (time - 30*60*1));
 
         saveUser($h_city->{owner});
     }
@@ -65,7 +65,7 @@
 
     # Save for member of ally 
     my $ally = Ikariam::Ally->retrieve($allyId);
-    if(!defined($ally) || $ally->time le (time - 60*60*1)) {
+    if(!defined($ally) || $ally->time le (time - 30*60*1)) {
         my $h_ally = $::i->viewAlly($allyId);
         $h_ally->{'time'} = time;
         if(defined($ally)) {
@@ -119,7 +119,7 @@
         }
 
         # scanning the island
-        if($island->time le (time - 60*60*6))
+        if($island->time le (time - 30*60*6))
         {
             my @cities = $i->viewIsland($h_island->{id});
             saveCities($h_island->{id}, @cities);