Mercurial > eagle-eye

changeset 376:6ca0677a361e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refiend output format and fixed timing issue.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Tue, 14 Apr 2009 17:02:17 +0800
parents 0ec57ac68a4c
children 5d6f429e5f19
files enemy.pl scan.pl
diffstat 2 files changed, 9 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/enemy.pl	Tue Apr 14 17:01:49 2009 +0800
+++ b/enemy.pl	Tue Apr 14 17:02:17 2009 +0800
@@ -85,7 +85,7 @@
                     travelTime($cities[$x]->{island}->{x}, $cities[$x]->{island}->{y}, $island->x, $island->y, 60),
                     travelTime($cities[$x]->{island}->{x}, $cities[$x]->{island}->{y}, $island->x, $island->y, 33),
                     travelTime($cities[$x]->{island}->{x}, $cities[$x]->{island}->{y}, $island->x, $island->y, 26),
-                    travelTime($cities[$x]->{island}->{x}, $cities[$x]->{island}->{y}, $island->x, $island->y, 40),
+                    travelTime($cities[$x]->{island}->{x}, $cities[$x]->{island}->{y}, $island->x, $island->y, 30),
                   );
         }
     }
@@ -115,8 +115,10 @@
         if(defined($city->status)) {
             printf("Status: <<<%s>>>\n", $city->status);
         }
-        printf("Location: [%s:%s] http://%s/index.php?view=island&id=%s&selectCity=%d\n", 
-                $island->x, $island->y, $::server, $island->id, $city->cityId);
+        # printf("Location: [%s:%s] http://%s/index.php?view=island&id=%s&selectCity=%d\n", 
+        # $island->x, $island->y, $::server, $island->id, $city->cityId);
+        printf("Location: http://%s/index.php?view=island&id=%s&selectCity=%d\n", 
+                $::server, $island->id, $city->cityId);
         if(-f sprintf("spy-%d-dump.yaml", $city->cityId)) {
             my $spydata = LoadFile(sprintf("spy-%d-dump.yaml", $city->cityId));
             if($spydata->{city}->{buildings}->{townHall} ne $city->citylevel) {
--- a/scan.pl	Tue Apr 14 17:01:49 2009 +0800
+++ b/scan.pl	Tue Apr 14 17:02:17 2009 +0800
@@ -123,6 +123,10 @@
             $island = Ikariam::Island->insert($h_island);
         }
 
+        # XXX
+        # $pm->finish;
+        # next;
+
         # scanning the island
         # 30 minutes cache.
         if($island->time le (time - 60*30)) {