# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1224748280 -28800
# Node ID 4120f560f2145a94206603b239f44429e158c30d
# Parent  fe5bbf852498062dd8c104b2c0acafba8c56fc34
fixed the server name.

diff -r fe5bbf852498 -r 4120f560f214 enemy.pl
--- a/enemy.pl	Thu Oct 23 00:59:42 2008 +0800
+++ b/enemy.pl	Thu Oct 23 15:51:20 2008 +0800
@@ -32,8 +32,8 @@
         }
         printf("Level: %s\n", $city->citylevel);
         printf("Island: %s\n", $island->name);
-        printf("Location: [%s:%s] http://s2.ikariam.tw/index.php?view=island&id=%s&selectCity=%d\n", 
-            $island->x, $island->y, $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("Tradegood: %s\n", $tradegoodText[$island->tradegood]);
         printf("Wonder: %s\n", $wonderText[$island->wonder]);
         printf("capture score: %d\n\n", $capture);