diff warfare.pl @ 105:c86e2182d3b8

..
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Wed, 29 Oct 2008 15:11:24 +0800
parents b369fe3c1992
children 554bdd49c703
line wrap: on
line diff
--- a/warfare.pl	Wed Oct 29 15:08:34 2008 +0800
+++ b/warfare.pl	Wed Oct 29 15:11:24 2008 +0800
@@ -76,7 +76,6 @@
         my $c = Ikariam::Report->search_attack($city->cityId, time - 24*60*60 - 7*60*60)->count();
         # check the current plunders
         foreach (@{$self->{ikariam}->{'military'}->{'homeland'}}) {
-            printf(Dumper($_));
             $c++ if($_->{to} eq $city->cityId);
         }
         next if($c >= 4);
@@ -118,9 +117,9 @@
 $i->login;
 my $cities = $i->check;
 $i->checkMilitaryAdvisorCombatReports();
-print Dump($i->{'military'});
 
 foreach my $cityId (keys(%$cities)) {
+    print Dump($i->{'military'});
     # build and upgrade for cities
     my $tree  = LoadFile('warfare.yaml');
     $cities->{$cityId}->{parse_path} = [];