# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1225353911 -28800
# Node ID 0bab14dddf60583e29d388b98a4f58a73d8dc376
# Parent  5a66fea952fe390aacd55856486bbd31519ae0cd
fixed the timestamp for scanning

diff -r 5a66fea952fe -r 0bab14dddf60 scan.pl
--- a/scan.pl	Thu Oct 30 15:00:17 2008 +0800
+++ b/scan.pl	Thu Oct 30 16:05:11 2008 +0800
@@ -13,8 +13,7 @@
         return;
     }
 
-    foreach my $h_city (@cities)
-    {
+    foreach my $h_city (@cities) {
         $h_city->{island} = $island;
         $h_city->{'time'} = time;
         my $c = Ikariam::Cities->retrieve($h_city->{cityId});
@@ -28,7 +27,7 @@
         $c->update();
 
         my $user = Ikariam::User->retrieve($h_city->{'user'});
-        next if (defined($user) && $user->time le (time - 60*60*1));
+        next if (defined($user) && defined($user->time) && (time - 60*60*1) ge $user->time);
 
         saveUser($h_city->{owner});
     }
@@ -96,6 +95,7 @@
 } else {
     die("Usage: $0\nUsage: $0 x y\n");
 }
+
 foreach my $h_island (@islands)
 {
     printf("checking island %d\n", $h_island->{id});