# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1228840932 -28800
# Node ID ff8db948e1a1820b3b0de34e09c5f72be578b40a
# Parent  50cff2eee2390c298c20cd92963dee2dd2be102c
list user and city name

diff -r 50cff2eee239 -r ff8db948e1a1 spy.pl
--- a/spy.pl	Sun Dec 07 22:26:44 2008 +0800
+++ b/spy.pl	Wed Dec 10 00:42:12 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->{$_});
     }
 }