Mercurial > eagle-eye

comparison spy.pl @ 345:8a69b96be376

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
disabled debug messages
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Thu, 12 Feb 2009 21:15:52 +0800
parents ff8db948e1a1
children
comparison
equal deleted inserted replaced
344:20b8826655ab 345:8a69b96be376
11 our $i = new Ikariam($::server, $::user, $::pass); 11 our $i = new Ikariam($::server, $::user, $::pass);
12 $i->login; 12 $i->login;
13 # $i->check(); 13 # $i->check();
14 foreach (glob("city-*-dump.yaml")) { 14 foreach (glob("city-*-dump.yaml")) {
15 my $city = LoadFile($_); 15 my $city = LoadFile($_);
16 # $i->{'cities'}->{$city->{id}} = $city;
17 my $spydata = $i->checkSafeHouse($city->{id}); 16 my $spydata = $i->checkSafeHouse($city->{id});
18 foreach (keys(%{$spydata})) { 17 foreach (keys(%{$spydata})) {
19 my $city = Ikariam::Cities->retrieve($_); 18 my $city = Ikariam::Cities->retrieve($_);
20 my $user = $city->user; 19 # my $user = $city->user;
21 printf("%s %s\n", $user->name, $city->cityname); 20 # printf("%s %s\n", $user->name, $city->cityname);
22 DumpFile("spy-$_-dump.yaml", $spydata->{$_}); 21 DumpFile("spy-$_-dump.yaml", $spydata->{$_});
23 } 22 }
24 } 23 }
25 $i->logout; 24 $i->logout;
26 25