--- a/inference.pl	Thu Oct 16 21:44:05 2008 +0800
+++ b/inference.pl	Fri Oct 17 01:27:10 2008 +0800
@@ -6,15 +6,14 @@
 package main;
 
 our $cities;
-our $server = 's2.ikariam.tw';
 sub Warn
 {
     my ($city, $msg) = @_;
     printf("http://%s/index.php?view=city&id=%s (%s) %s \n", 
-        $server, $city, $cities->{$city}->{name}, $msg);
+        $::server, $city, $cities->{$city}->{name}, $msg);
 }
 
-our $i = new Ikariam($server, "chihchun", "c795d57d");
+our $i = new Ikariam($::server, $::user, $::pass);
 $i->login;
 $cities = $i->check;
 $i->logout;