diff agent.pl @ 208:a2bb38589172

refined debug file name
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Mon, 03 Nov 2008 20:07:05 +0800
parents 48ea8222782a
children 5f94d8d8370a
line wrap: on
line diff
--- a/agent.pl	Mon Nov 03 18:40:15 2008 +0800
+++ b/agent.pl	Mon Nov 03 20:07:05 2008 +0800
@@ -367,7 +367,7 @@
     if (my $action = ParseTree($tree, $rules, $cities->{$cityId})) {
         triggerAction($action, $cityId);
     }
-    DumpFile("army-dump.yaml", $cities);
+    DumpFile("military-$cityId-dump.yaml", $cities->{$cityId});
 
     # build and upgrade for cities
     $tree  = LoadFile('city.yaml');
@@ -376,10 +376,10 @@
     if (my $action = ParseTree($tree, $rules, $cities->{$cityId})) {
         triggerAction($action, $cityId);
     }
-    DumpFile("cities-dump.yaml", $cities);
+    DumpFile("city-$cityId-dump.yaml", $cities->{$cityId});
 }
 DumpFile("research-dump.yaml", $i->{'research'});
-DumpFile("military-dump.yaml", $i->{'military'});
+DumpFile("wares-dump.yaml", $i->{'military'});
 
 $i->logout;