--- a/Ikariam.pm	Sun Dec 07 15:12:33 2008 +0800
+++ b/Ikariam.pm	Sun Dec 07 16:40:04 2008 +0800
@@ -113,6 +113,7 @@
 use HTTP::Cookies;
 use WWW::Mechanize;
 use XML::LibXML qw(:encoding);
+use YAML qw/LoadFile Dump DumpFile/;
 use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;
 use POSIX;
 use utf8;
@@ -133,6 +134,7 @@
         debug => undef,
     };
 
+
     # if debug
     LWP::Debug::level('+trace');
 
@@ -1298,9 +1300,12 @@
     if($#cities<0) {
         die ("login failed\n");
     }
-    foreach(@cities) {
+    foreach (@cities) {
         $self->{'cities'}->{$_} = {};
         $self->{'cities'}->{$_}->{id} = $_;
+        if(-f "city-$_-dump.yaml") {
+            $self->{'cities'}->{$_} = LoadFile("city-$_-dump.yaml");
+        }
     }
 }