Mercurial > eagle-eye

comparison scan.pl @ 7:2040ccc95670

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
implemented scores collection.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Wed, 08 Oct 2008 02:50:19 +0800
parents dbb97c4265ba
children e4b3168d0319
comparison
equal deleted inserted replaced
6:2975a94aa7a2 7:2040ccc95670
15 } 15 }
16 16
17 foreach my $island (@islands) 17 foreach my $island (@islands)
18 { 18 {
19 printf("checking island %d\n", $island->{id}); 19 printf("checking island %d\n", $island->{id});
20 if(my $c = Ikariam::Islands->retrieve($island->{id})) { 20 if(my $c = Ikariam::Island->retrieve($island->{id})) {
21 foreach my $i (keys(%$island)) { 21 foreach my $i (keys(%$island)) {
22 eval($c->$i($island->{$i})); 22 eval($c->$i($island->{$i}));
23 } 23 }
24 } else { 24 } else {
25 Ikariam::Islands->insert($island); 25 Ikariam::Island->insert($island);
26 } 26 }
27 27
28 # scanning the island 28 # scanning the island
29 my @cities = $i->viewIsland($island->{id}); 29 my @cities = $i->viewIsland($island->{id});
30 foreach my $city (@cities) 30 foreach my $city (@cities)