# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1228840951 -28800
# Node ID 2f36120aba83262bd669360f9dd25b542a04c06b
# Parent  ff8db948e1a1820b3b0de34e09c5f72be578b40a# Parent  cdbb428b464c836441cbfbc49e9a0fafe681cd99
merged

diff -r cdbb428b464c -r 2f36120aba83 spy.pl
--- a/spy.pl	Tue Dec 09 03:16:31 2008 +0800
+++ b/spy.pl	Wed Dec 10 00:42:31 2008 +0800
@@ -6,6 +6,8 @@
 use Decision::ParseTree q{ParseTree};
 use YAML qw/LoadFile Dump DumpFile/;
 
+Ikariam::Cities->has_a(user => 'Ikariam::User');
+
 our $i = new Ikariam($::server, $::user, $::pass);
 $i->login;
 # $i->check();
@@ -14,6 +16,9 @@
     # $i->{'cities'}->{$city->{id}} = $city;
     my $spydata = $i->checkSafeHouse($city->{id});
     foreach (keys(%{$spydata})) {
+        my $city = Ikariam::Cities->retrieve($_);
+        my $user = $city->user;
+        printf("%s %s\n", $user->name, $city->cityname);
         DumpFile("spy-$_-dump.yaml", $spydata->{$_});
     }
 }